Vb课程设计-职工信息管理系统.docVIP

职工信息管理系统设计报告（VB） 编号：22 职工信息管理系统 设计报告 一、设计思路 1.要达到的目的 培养学生综合利用VB语言进行程序设计的能力，主要是培养学生综合使用基本控件的、文件读写、数组操作等能力。 利用读取数据按钮，打开选中的数据文件职工.txt，并从该文件中读取职工职工号、姓名、职称和工资，保存在数组中，并显示在文本框中。 ? 清除文本框中的职工的信息。 ? 在文本框中显示职工的信息。 ? 按照职工号查询职工信息，并显示。 ? 按照姓名查询职工信息，并显示。 ? 按照职工号修改职工信息，并显示。 ? 按照姓名修改职工信息，并显示。 ? 追加一条记录数据，并显示。 2.关键问题的解决 通过“读取数据”按钮应能利用应能利用右侧图示样式窗体形式，打开选中的数据文件职工.txt，并从该文件中读取职工职工号、姓名、职称和工资，保存在数组中，并显示在文本框中。 通过“清除数据”按钮应能清除文本框中的内容。 从“按职工号查询”按钮左端文本框输入职工号，单击“按职工号查询”，在窗体大的文本框中显示查询结果。从“按姓名查询”按钮左端文本框输入姓名，单击“按姓名查询”按钮，在窗体大的文本框中显示查询结果。 从“按职工号修改” （“按姓名修改”）按钮，在输入对话框中输入职工号，对查询到的职工的职工号(姓名)进行修改，在窗体大的文本框中显示修改结果。 从输入一条记录后文本框中输入一条记录信息，单击“追加数据并显示结果”按钮，添加到职工.txt中，并将追加数据后职工.txt的信息显示窗体的大文本框中。 二、部分程序关键源代码及注释 rivate Sub Command1_Click() Form2.Show End Sub Private Sub Command2_Click() List1.Clear End Sub Private Sub Command3_Click() e = True Unload Me End Sub Private Sub Command4_Click() List1.Clear If Text3.Text = 117001 Then List1.AddItem 张三 117001 ElseIf Text3.Text = 117002 Then List1.AddItem 李四 117002 ElseIf Text3.Text = 117003 Then List1.AddItem 王五 117003 ElseIf Text3.Text = 117004 Then List1.AddItem 王六 117004 ElseIf Text3.Text = 117005 Then List1.AddItem 赵七 117005 ElseIf Text3.Text = 117006 Then List1.AddItem 李八 117006 ElseIf Text3.Text = 117007 Then List1.AddItem 刘九 117007 ElseIf Text3.Text = 117008 Then List1.AddItem 马十 117008 Else: MsgBox 请输入正确的职工号 End If End Sub Private Sub Command5_Click() Dim a As String Dim b As String b = InputBox(请输入要修改的职工的职工号) a = InputBox(请输入新的职工姓名) If b = 117001 Then List1.AddItem a b ElseIf b = 117002 Then List1.AddItem a b ElseIf b = 117003 Then List1.AddItem a b ElseIf b = 117004 Then List1.AddItem a b ElseIf b = 117005 Then List1.AddItem a b ElseIf b = 117006 Then List1.AddItem a b ElseIf b = 117007 Then List1.AddItem a b ElseIf b = 117008 Then List1.AddItem a b Else: MsgBox 请输入正确的职工号 End If List1.AddItem a b End Sub Private Sub Command6_Click() List1.Clear If Text2.Text = 张三