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

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

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

3、钮，添加到职工.txt中，并将追加数据后职工.txt的信息显示窗体的大文本框中。二、部分程序关键源代码及注释rivate Sub Command1_Click() End SubPrivate Sub Command2_Click()End SubPrivate Sub Command3_Click()e = TrueUnload MeEnd SubPrivate Sub Command4_Click()If = 117001 Then 张三 117001ElseIf = 117002 Then 李四 117002ElseIf = 117003 Then 王五 117003ElseIf = 1

4、17004 Then 王六 117004ElseIf = 117005 Then 赵七 117005ElseIf = 117006 Then 李八 117006ElseIf = 117007 Then 刘九 117007ElseIf = 117008 Then 马十 117008Else: MsgBox 请输入正确的职工号End IfEnd SubPrivate Sub Command5_Click()Dim a As StringDim b As Stringb = InputBox(请输入要修改的职工的职工号)a = InputBox(请输入新的职工姓名)If b = 117001 The

5、n a & & bElseIf b = 117002 Then a & & bElseIf b = 117003 Then a & & bElseIf b = 117004 Then a & & bElseIf b = 117005 Then a & & bElseIf b = 117006 Then a & & bElseIf b = 117007 Then a & & bElseIf b = 117008 Then a & & bElse: MsgBox 请输入正确的职工号End If a & & bEnd SubPrivate Sub Command6_Click()If = 张三 Th

6、en 张三 117001ElseIf = 李四 Then 李四 117002ElseIf = 王五 Then 王五 117003ElseIf = 王六 Then 王六 117004ElseIf = 赵七 Then 赵七 117005ElseIf = 李八 Then 李八 117006ElseIf = 刘九 Then 刘九 117007ElseIf = 马十 Then 马十 117008Else: MsgBox 请输入正确的职工姓名End IfEnd SubPrivate Sub Command7_Click()Dim a As StringDim b As Stringa = InputBox

7、(请输入要修改的职工姓名)b = Str(InputBox(请输入新职工号)If a = 张三 Then a & & bElseIf a = 李四 Then a & & bElseIf a = 王五 Then a & & bElseIf a = 王六 Then a & & bElseIf a = 赵七 Then a & & bElseIf a = 李八 Then a & & bElseIf a = 刘九 Then a & & bElseIf a = 马十 Then a & & bElse: MsgBox 请输入正确的职工姓名End IfEnd SubPrivate Sub Command8_C

8、lick()Dim a As StringDim b As Stringa = InputBox(请输入新员工姓名)b = InputBox(请输入新员工的职工号) a & & bEnd SubPrivate Sub Combo2_Change()Select Case Case *.txt = *.txtCase *.ini = *.iniCase *.doc = *.docCase *.* = *.*End SelectEnd SubPrivate Sub Command1_Click()Dim fileno As Integer, strl As Stringfileno = FreeF

9、ileOpen 职工信息.txt For Input As #filenoi = 0Do While Not EOF(fileno)Input #fileno, str1 str1 i = i + 1LoopClose #filenoEnd SubPrivate Sub Command2_Click()End SubPrivate Sub Drive1_Change() = End SubPrivate Sub File1_Click() = End SubPrivate Sub VScroll1_Change()End Sub三、设计方案的完善及目前存在的问题1设计方案要完善的地方追加的信息

10、无法加载到“职工信息txt”里查询只是单一的一对一输入，不智能文件类型的筛选问题暂未处理办法2. 目前存在的问题只是简单的查询，不适合大量数据的导入与导出，不方便查看四、本次设计的收获及心得体会第一次尝试程序的制作，觉得非常有意思，做成功以后很有成就感，我还发现，程序制作出来的好坏直接影响使用者的工作效率，好的软件可以使用户事半功倍，对程序的运作体系越了解，设计的软件越智能，越能更好的服务于使用者，好好学习VB计算机语言，是磨刀不误砍柴工的体现。五、对该题目和VB设计的意见和建议1. 对该题目的意见和建议Form2中的文件类型，有些偏难，在少数文件夹的情况下可以不用通过文件类型的筛选2对本次设计的意见和建议 对此次课程设计的时间安排应更具体，应有相应的素材图片，增添软件的美感