职工信息管理系统22测绘c111

1、职工信息管理系统 设计学院土木工程 班级测绘 C111学号117551 成绩一、设计思路1.要达到的目的培养学生综合利用 VB 语言进行程序设计的作等能力。要是培养学生综合使用基本控件的、文件读写、数组操利用数据按钮，打开选中的数据文件职工.txt，并从该文件中职工职工号、和工资，保存在数组中，并显示在文本框中。清除文本框中的职工的信息。在文本框中显示职工的信息。按照职工号查询职工信息，并显示。按照查询职工信息，并显示。按照职工号修改职工信息，并显示。按照修改职工信息，并显示。追加一条数据，并显示。2.关键问题的解决（1）通过“从该文件中数据”按钮应能利用应能利用右侧图示样式窗体形式，打开选中

2、的数据文件职工.txt，并职工职工号、和工资，保存在数组中，并显示在文本框中。通过“清除数据”按钮应能清除文本框中的内容。从“按职工号查询”按钮左端文本框输入职工号，单击“按职工号查询”，在窗体大的文本框中显示查询结果。从“按查询”按钮左端文本框输入中显示查询结果。，单击“按查询”按钮，在窗体大的文本框（4）从“按职工号修改” （“按修改”）按钮，在输入框中输入职工号，对查询到的职工的职工号()进行修改，在窗体大的文本框中显示修改结果。从输入一条后文本框中输入一条信息，单击“追加数据并显示结果”按钮，添加到职工.txt 中，并将追加数据后职工.txt 的信息显示窗体的大文本框中。二、部分程序关

3、键源代码及注释rivate Sub Form2.ShowEnd Subd1_Click()Private Subd2_Click()List1.ClearEnd SubPrivate Sub e = TrueUnload Med3_Click()End SubPrivate SubList1.Cleard4_Click()If Text3.Text = 117001 ThenList1.AddItem 117001ElseIf Text3.Text = 117002 ThenList1.AddItem 117002ElseIf Text3.Text = 117003 ThenList1.Add

4、Item 117003ElseIf Text3.Text = 117004 ThenList1.AddItem 117004ElseIf Text3.Text = 117005 ThenList1.AddItem 117005ElseIf Text3.Text = 117006 ThenList1.AddItem 117006ElseIf Text3.Text = 117007 ThenList1.AddItem 117007ElseIf Text3.Text = 117008 ThenList1.AddItem 117008Else: MsgBox 请输入正确的职工号End IfEnd Su

5、bPrivate Sub Dim a As StringDim b As Stringd5_Click()b = InputBox(请输入要修改的职工的职工号)a = InputBox(请输入新的职工)If b = 117001 Then List1.AddItem a & ElseIf b = 117002 Then List1.AddItem a & ElseIf b = 117003 Then List1.AddItem a & ElseIf b = 117004 Then List1.AddItem a & ElseIf b = 117005 Then List1.AddItem a

6、& ElseIf b = 117006 Then List1.AddItem a & ElseIf b = 117007 Then List1.AddItem a & ElseIf b = 117008 ThenList1.AddItem a & & b & b & b & b & b & b & b & bElse: MsgBox 请输入正确的职工号End IfList1.AddItem a & End Sub & bPrivate Sub List1.ClearIf Text2.Text = List1.AddItem ElseIf Text2.Text = List1.AddItem E

7、lseIf Text2.Text = List1.AddItem ElseIf Text2.Text = List1.AddItem ElseIf Text2.Text = List1.AddItem ElseIf Text2.Text = List1.AddItem ElseIf Text2.Text = List1.AddItem ElseIf Text2.Text = List1.AddItem d6_Click() Then 117001 Then 117002 Then 117003 Then 117004 Then 117005 Then 117006 Then 117007 Th

8、en117008Else: MsgBox 请输入正确的职工End IfEnd SubPrivate SubDim a As String Dim b As Stringd7_Click()a = InputBox(请输入要修改的职工b = Str(InputBox(请输入新职工号)If a = ThenList1.AddItem a & & bElseIf a = ThenList1.AddItem a & & bElseIf a = ThenList1.AddItem a & & bElseIf a = ThenList1.AddItem a & & bElseIf a = ThenList

9、1.AddItem a & & bElseIf a = ThenList1.AddItem a & & bElseIf a = ThenList1.AddItem a & & bElseIf a = ThenList1.AddItem a & & bElse: MsgBox 请输入正确的职工End IfEnd SubPrivate SubDim a As String Dim b As Stringd8_Click()a = InputBox(请输入新员工)b = InputBox(请输入新员工的职工号)List1.AddItem a & End Sub & bPrivate Sub Comb

10、o2_Change()Select Case Comb2.TextCase *.txt File1.Pattern = *.txt Case *.ini File1.Pattern = *.ini Case *.doc File1.Pattern = *.doc Case *.* File1.Pattern = *.*End SelectEnd SubPrivate Sub Dim fileno Asfileno = FreeFiled1_Click()eger, strl As StringOpen 职工信息.txt For Input As #fileno i = 0Do While No

11、t EOF(fileno)Input #fileno, str1 Form1.List1.AddItem str1i = i + 1 LoopClose #fileno Form1.Show Me.HideEnd SubPrivate Sub Form1.ShowEnd Subd2_Click()Private Sub Drive1_Change()Dir1.Path = Drive1.Drive End SubPrivate Sub File1_Click()Text3.Text = File1.FileName End SubPrivate Sub VScroll1_Change()Form1.ShowEnd Sub三、设计方案的完善及目前存在的问题1设计方案的地方追加的信息无法加载到“职工信息 txt”里查询只是单一的一对一输入，不智能文件类型的筛选问题暂未处理办法2. 目前存在的问题只是简单的查询，不适合大量数据的导入与导出，不方便查看四、本次设计的收获及心得体会第一次尝试程序的制作，觉得非常有意思，做成功以后很有成就感，我还发现，程序制作出来的好坏直接影响使用者的工作