【设计】Vb课程设计-职工信息管理系统.docx

职工信息治理系统设计报告一、设计思路1、要达到得目得培育同学综合利用 VB语言进行程序设计得才能，主要就是培育同学综合使用基本控件得、文件读写、数组操作等才能；txt ，并从该文件中读取职工职工号、姓名、职称与工资，保利用读取数据按钮，打开选中得数据文件职工、存在数组中，并显示在文本框中；清除文本框中得职工得信息；在文本框中显示职工得信息；根据职工号查询职工信息，并显示；根据姓名查询职工信息，并显示；根据职工号修改职工信息，并显示；根据姓名修改职工信息，并显示 职工信息治理系统 设计报告 一、设计思路 1、要达到得目得 培育同学综合利用 VB语言进行程序设计得才能，主要就是培育同学综合使用基本控件得、文件读写、数组 操作等才能； txt ，并从该文件中读取职工职工号、姓名、职称与工资，保 利用读取数据按钮，打开选中得数据文件职工、 存在数组中，并显示在文本框中； 清除文本框中得职工得信息； 在文本框中显示职工得信息； 根据职工号查询职工信息，并显示； 根据姓名查询职工信息，并显示； 根据职工号修改职工信息，并显示； 根据姓名修改职工信息，并显示； 追加一条记录数据，并显示 ； 2、关键问题得解决 （ 1） 通过“读取数据”按钮应能利用应能利用右侧图示样式窗体形式，打开选中得数据文件职工、 从该文件中读取职工职工号、姓名、职称与工资，储存在数组中，并显示在文本框中； （ 2） 通过“清除数据”按钮应能清除文本框中得内容； txt ，并 （ 3） 从“按职工号查询”按钮左端文本框输入职工号，单击“按职工号查询” ，在窗体大得文本框中显示查 询结果；从“按姓名查询”按钮左端文本框输入姓名，单击“按姓名查询”按钮，在窗体大得文本框 中显示查询结果； （ 4） 从“按职工号修改” （“按姓名修改” ）按钮，在输入对话框中输入职工号，对查询到得职工得职工号 ( 姓名 ) 进行修改，在窗体大得文本框中显示修改结果； 从输入一条记录后文本框中输入一条记录信息，单击“追加数据并显示结果”按钮，添加到职工、 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 、ClearIf Text3 、Text = 117001 ThenList1 、AddItem 张三 117001ElseIf Text3 、Text = 117002 ThenList1 、AddItem 李四 117002ElseIf Text3 、Text = 117003 ThenList1 、AddItem 王五 117003 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