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

《Vb课程设计-职工信息管理系统.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、.职工信息管理系统设计报告一、设计思路1.要达到的目的培养学生综合利用VB语言进行程序设计的能力，主要是培养学生综合使用基本控件的、文件读写、数组操作等能力。利用读取数据按钮，打开选中的数据文件职工.txt，并从该文件中读取职工职工号、姓名、职称和工资，保存在数组中，并显示在文本框中。n清除文本框中的职工的信息。n在文本框中显示职工的信息。n按照职工号查询职工信息，并显示。n按照姓名查询职工信息，并显示。n按照职工号修改职工信息，并显示。n按照姓名修改职工信息，并显示。n追加一条记录数据，并显示。2.关键问题的解决（1）通过“读取数据”

2、按钮应能利用应能利用右侧图示样式窗体形式，打开选中的数据文件职工.txt，并从该文件中读取职工职工号、姓名、职称和工资，保存在数组中，并显示在文本框中。（2）通过“清除数据”按钮应能清除文本框中的内容。（3）从“按职工号查询”按钮左端文本框输入职工号，单击“按职工号查询”，在窗体大的文本框中显示查询结果。从“按姓名查询”按钮左端文本框输入姓名，单击“按姓名查询”按钮，在窗体大的文本框中显示查询结果。（4）从“按职工号修改”（“按姓名修改”）按钮，在输入对话框中输入职工号，对查询到的职工的职工号(姓名)进行修改，在窗体大的文本框中显示修改

3、结果。从输入一条记录后文本框中输入一条记录信息，单击“追加数据并显示结果”按钮，添加到职工.txt中，并将追加数据后职工.txt的信息显示窗体的大文本框中。二、部分程序关键源代码及注释rivateSubCommand1_Click()Form2.ShowEndSubPrivateSubCommand2_Click()List1.Clearword资料.EndSubPrivateSubCommand3_Click()e=TrueUnloadMeEndSubPrivateSubCommand4_Click()List1.ClearIfTex

4、t3.Text="117001"ThenList1.AddItem"张三117001"ElseIfText3.Text="117002"ThenList1.AddItem"李四117002"ElseIfText3.Text="117003"ThenList1.AddItem"王五117003"ElseIfText3.Text="117004"ThenList1.AddItem"王六117004"ElseIfText3.Text="117005"ThenList1.AddItem"赵七117005"ElseIfText3.Text="11

5、7006"ThenList1.AddItem"李八117006"ElseIfText3.Text="117007"ThenList1.AddItem"刘九117007"ElseIfText3.Text="117008"ThenList1.AddItem"马十117008"Else:MsgBox"请输入正确的职工号"EndIfEndSubword资料.PrivateSubCommand5_Click()DimaAsStringDimbAsStringb=InputBox("请输入要修改的职工的职工号")a=InputBox("请输入新的职

6、工姓名")Ifb="117001"ThenList1.AddItema&""&bElseIfb="117002"ThenList1.AddItema&""&bElseIfb="117003"ThenList1.AddItema&""&bElseIfb="117004"ThenList1.AddItema&""&bElseIfb="117005"ThenList1.AddItema&""&bElseIfb="117006"ThenList1.AddItema&""&bElseIfb="117007"ThenList1.AddItema&"

7、"&bElseIfb="117008"ThenList1.AddItema&""&bElse:MsgBox"请输入正确的职工号"EndIfList1.AddItema&""&bEndSubPrivateSubCommand6_Click()List1.Clearword资料.IfText2.Text="张三"ThenList1.AddItem"张三117001"ElseIfText2.Text="李四"ThenList1.AddItem"李四117002"ElseIfText2.Text="王五"ThenList1.AddItem"王五

8、117003"ElseIfText2.Text="王六"ThenList1.AddItem"王六117004"ElseIfText2.Text="赵七"ThenList1.AddItem"赵七117005"