1、职工信息管理系统 设计报告一、设计思路1.要达到的目的培养学生综合利用VB语言进行程序设计的能力，主要是培养学生综合使用基本控件的、文件读写、数组操作等能力。利用读取数据按钮，打开选中的数据文件职工.txt，并从该文件中读取职工职工号、姓名、职称和工资，保存在数组中，并显示在文本框中。n清除文本框中的职工的信息。n在文本框中显示职工的信息。n按照职工号查询职工信息，并显示。n按照姓名查询职工信息，并显示。n按照职工号修改职工信息，并显示。n按照姓名修改职工信息，并显示。n追加一条记录数据，并显示。2.关键问题的解决（1） 通过“读取数据”按钮应能利用应能利用右侧图示样式窗体形式，打开选中的数据
2、文件职工.txt，并从该文件中读取职工职工号、姓名、职称和工资，保存在数组中，并显示在文本框中。（2） 通过“清除数据”按钮应能清除文本框中的内容。 （3） 从“按职工号查询”按钮左端文本框输入职工号，单击“按职工号查询”，在窗体大的文本框中显示查询结果。从“按姓名查询”按钮左端文本框输入姓名，单击“按姓名查询”按钮，在窗体大的文本框中显示查询结果。（4） 从“按职工号修改” （“按姓名修改”）按钮，在输入对话框中输入职工号，对查询到的职工的职工号(姓名)进行修改，在窗体大的文本框中显示修改结果。从输入一条记录后文本框中输入一条记录信息，单击“追加数据并显示结果”按钮，添加到职工.txt中，并
3、将追加数据后职工.txt的信息显示窗体的大文本框中。二、部分程序关键源代码及注释rivate Sub Command1_Click() Form2.Show End SubPrivate Sub Command2_Click()List1.ClearEnd SubPrivate Sub Command3_Click()e = TrueUnload MeEnd SubPrivate Sub Command4_Click()List1.ClearIf Text3.Text = 117001 ThenList1.AddItem 张三 117001ElseIf Text3.Text = 117002
4、ThenList1.AddItem 李四 117002ElseIf Text3.Text = 117003 ThenList1.AddItem 王五 117003ElseIf Text3.Text = 117004 ThenList1.AddItem 王六 117004ElseIf Text3.Text = 117005 ThenList1.AddItem 赵七 117005ElseIf Text3.Text = 117006 ThenList1.AddItem 李八 117006ElseIf Text3.Text = 117007 ThenList1.AddItem 刘九 117007Els
5、eIf Text3.Text = 117008 ThenList1.AddItem 马十 117008Else: MsgBox 请输入正确的职工号End IfEnd SubPrivate Sub Command5_Click()Dim a As StringDim b As Stringb = InputBox(请输入要修改的职工的职工号)a = InputBox(请输入新的职工姓名)If b = 117001 ThenList1.AddItem a & & bElseIf b = 117002 ThenList1.AddItem a & & bElseIf b = 117003 ThenLi
6、st1.AddItem a & & bElseIf b = 117004 ThenList1.AddItem a & & bElseIf b = 117005 ThenList1.AddItem a & & bElseIf b = 117006 ThenList1.AddItem a & & bElseIf b = 117007 ThenList1.AddItem a & & bElseIf b = 117008 ThenList1.AddItem a & & bElse: MsgBox 请输入正确的职工号End IfList1.AddItem a & & bEnd SubPrivate Su
7、b Command6_Click()List1.ClearIf Text2.Text = 张三 ThenList1.AddItem 张三 117001ElseIf Text2.Text = 李四 ThenList1.AddItem 李四 117002ElseIf Text2.Text = 王五 ThenList1.AddItem 王五 117003ElseIf Text2.Text = 王六 ThenList1.AddItem 王六 117004ElseIf Text2.Text = 赵七 ThenList1.AddItem 赵七 117005ElseIf Text2.Text = 李八 Th
8、enList1.AddItem 李八 117006ElseIf Text2.Text = 刘九 ThenList1.AddItem 刘九 117007ElseIf Text2.Text = 马十 ThenList1.AddItem 马十 117008Else: MsgBox 请输入正确的职工姓名End IfEnd SubPrivate Sub Command7_Click()Dim a As StringDim b As Stringa = InputBox(请输入要修改的职工姓名)b = Str(InputBox(请输入新职工号)If a = 张三 ThenList1.AddItem a &
9、 & bElseIf a = 李四 ThenList1.AddItem a & & bElseIf a = 王五 ThenList1.AddItem a & & bElseIf a = 王六 ThenList1.AddItem a & & bElseIf a = 赵七 ThenList1.AddItem a & & bElseIf a = 李八 ThenList1.AddItem a & & bElseIf a = 刘九 ThenList1.AddItem a & & bElseIf a = 马十 ThenList1.AddItem a & & bElse: MsgBox 请输入正确的职工姓名
10、End IfEnd SubPrivate Sub Command8_Click()Dim a As StringDim b As Stringa = InputBox(请输入新员工姓名)b = InputBox(请输入新员工的职工号)List1.AddItem a & & bEnd SubPrivate Sub Combo2_Change()Select Case Comb2.TextCase *.txtFile1.Pattern = *.txtCase *.iniFile1.Pattern = *.iniCase *.docFile1.Pattern = *.docCase *.*File1
11、.Pattern = *.*End SelectEnd SubPrivate Sub Command1_Click()Dim fileno As Integer, strl As Stringfileno = FreeFileOpen 职工信息.txt For Input As #filenoi = 0Do While Not EOF(fileno)Input #fileno, str1 Form1.List1.AddItem str1 i = i + 1LoopClose #filenoForm1.ShowMe.HideEnd SubPrivate Sub Command2_Click()F
12、orm1.ShowEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Text3.Text = File1.FileNameEnd SubPrivate Sub VScroll1_Change()Form1.ShowEnd Sub三、设计方案的完善及目前存在的问题1设计方案要完善的地方追加的信息无法加载到“职工信息txt”里查询只是单一的一对一输入，不智能文件类型的筛选问题暂未处理办法2. 目前存在的问题只是简单的查询，不适合大量数据的导入与导出，不方便查看四、本次设计的收获及心得体会第一次尝试程序的制作，觉得非常有意思，做成功以后很有成就感，我还发现，程序制作出来的好坏直接影响使用者的工作效率，好的软件可以使用户事半功倍，对程序的运作体系越了解，设计的软件越智能，越能更好的服务于使用者，好好学习VB计算机语言，是磨刀不误砍柴工的体现。五、对该题目和VB设计的意见和建议1. 对该题目的意见和建议Form2中的文件类型，有些偏难，在少数文件夹的情况下可以不用通过文件类型的筛选2 对本次设计的意见和建议 对此次课程设计的时间安排应更具体，应有相应的素材图片，增添软件的美感
