VB职工信息管理系统设计报告.docVIP

职工信息管理系统设计报告 一、设计思路 1.要达到的目的 ①培养学生综合利用VB语言进行程序设计的能力，提高学生综合、熟练地使用基本控件，文件读写，数组操作的能力。 ②为了公司更加简单方便的管理公司员工信息，可以简单方便的查询到职工的信息。 ②利用读取数据按钮，以顺序文件的度操作打开“职工信息.txt”文件，读取文件信息，并显示到list1中，以便接下来对职工信息进行操作。 ③通过清除按钮，清除list1中的职工的信息。 ④在list1中显示职工的信息。 ⑤按照职工号查询职工信息，并显示。 ⑥按照姓名查询职工信息，并显示。 ⑦按照职工号修改职工信息，并显示。 ⑧按照姓名修改职工信息，并显示。 ⑨追加一条记录数据，并显示。 2.关键问题的解决 通过“读取数据”按钮能利用右侧图示样式窗体形式，打开选中的数据文件职工.txt，并从该文件中读取职工的职工号、姓名、职称和工资，保存在数组中，并显示在list1中。 通过“清除数据”按钮能够清除list1中的内容。 从“按职工号查询”按钮左端文本框输入职工号，单击“按职工号查询”，在窗体list1中显示查询结果。从“按姓名查询”按钮左端文本框输入姓名，单击“按姓名查询”按钮，在窗体大的list1中显示查询结果。 从“按职工号修改” （“按姓名修改”）按钮，在输入对话框中输入职工号，对查询到职工的职工号(姓名)进行修改，在窗体list1中显示修改结果。 从输入一条记录后文本框中输入一条记录信息，再将记录信息通过追加数据按钮添加到list1中，再通过数组将内容写入到文件中。 三、部分程序关键源代码及注释 Private Sub Command1_Click() Form2.Show ’ 显示窗体2，以简单易懂 End Sub Dim fileno As Integer, strl As String fileno = FreeFile Open 职工信息.txt For Input As #fileno ’ 用open语句以Input式打开文件 i = 0 Do While Not EOF(fileno) ’ 循环至文件尾 Input #fileno, str1 ’ 将数据读入对应的框中 Form1.List1.AddItem str1 i = i + 1 Loop Close #fileno ‘ 关闭文件 Private Sub Form_Load() ‘ 初始化，为组合框添加文件类型项目 Item = 所有文件（*.*） Combo2.AddItem Item + Space(20 - Len(Item)) Item = 窗体文件(*.frm) Combo2.AddItem Item + Space(20 - Len(Item)) Item = 文本文件(*.txt) Combo2.AddItem Item + Space(20 - Len(Item)) Combo2.ListIndex = 2 Private Sub Command8_Click() List1.AddItem Text1.Text ’ 将追加的记录添加的框中 Private Sub Command2_Click() List1.Clear ’ 清除用过的数据 End Sub Private Sub Command3_Click() e = True Unload Me ’ 退出系统 End Sub Private Sub Command5_Click() Dim a As String Dim b As String b = InputBox(请输入要修改的职工的职工号) a = InputBox(请输入新的职工姓名) List1.AddItem 新职工姓名 职工号 If b = 143101 Then List1.AddItem a b ElseIf b = 143102 Then List1.AddItem a b ElseIf b = 143103 Then List1.AddItem a b ElseIf b = 143104 Then List1.AddItem a b ElseIf b = 143105 Then List1.AddItem a b ElseIf b = 143106 Then List1.AddItem a b ElseIf b = 143107 Then Lis