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

职工信息管理系统 设计报
告
、设计思路 1.要达到的目的 培养学生综合利用 VB 语言进行程序设计的能力，主要是培养学生综合使用基本控件的、文件读写、数组操 作等能力。

利用读取数据按钮，打开选中的数据文件职工 .txt ，并从该文件中读取职工职工号、姓名、职称和工资，保 存在数组中，并显示在文本框中。

清除文本框中的职工的信息。

在文本框中显示职工的信息。

按照职工号查询职工信息，并显示。

按照姓名查询职工信息，并显示。

按照职工号修改职工信息，并显示。

按照姓名修改职工信息，并显示。

追加一条记录数据，并显示 。

2.关键问题的解决 通过“读取数据”按钮应能利用应能利用右侧图示样式窗体形式，打开选中的数据文件职工 该文件中读取职工职工号、姓名、职称和工资，保存在数组中，并显示在文本框中。

通过“清除数据”按钮应能清除文本框中的内容。

从“按职工号查询”按钮左端文本框输入职工号，单击“按职工号查询” ，在窗体大的文本框中显示查 询结果。

从“按姓名查询”按钮左端文本框输入姓名，单击“按姓名查询”按钮，在窗体大的文本框 中显示查询结果。

从“按职工号修改” （“按姓名修改” ）按钮，在输入对话框中输入职工号，对查询到的职工的职工号 （姓名 ）进行修改，在窗体大的文本框中显示修改结果。

从输入一条记录后文本框中输入一条记录信息，单击“追加数据并显示结果”按钮，添加到职工 将追加数据后职工 .txt 的信息显示窗体的大文本框中。

1） .txt ，并从 .txt 中，并 、部分程序关键源代码及注释
rivate Sub Command1_Click()
End Sub Private Sub Command2_Click() End Sub
Private Sub Command3_Click() e = True
Unload Me
End Sub
Private Sub Command4_Click()
If = "117001" Then
Else: MsgBox "请输入正确的职工号
"
End If
End Sub
Private Sub Command5_Click()
Dim a As String "张三 117001"
ElseI f = "117002" Then
"李四 117002"
ElseI f
= "117003" Then
"王五 117003"
ElseI f
= "117004" Then
"王六 117004"
ElseI f
= "117005" Then
"赵七 117005"
ElseI f
= "117006" Then
"李八 117006"
ElseI f = "117007" Then
"刘九 117007" ElseI f = "117008" Then "马十 117008"
Dim b As String b = InputBox（" 请输入要修改的职工的职工号"） a = InputBox（" 请输入新的职工姓名"）
If b = "117001" Then
ElseIf b = "117002" Then
ElseIf b = "117003" Then
ElseIf b = "117004" Then
ElseIf b = "117005" Then
ElseIf b = "117006" Then
ElseIf b = "117007" Then
ElseIf b = "117008" Then
Else: MsgBox "请输入正确的职工号" End If
End Sub
Private Sub Command6_Click()
If = "张三" Then
"张三117001"
ElseIf = "李四" Then
Else: MsgBox "请输入正确的职工姓名 "
End If
End Sub
Private Sub Command7_Click()
Dim a As String
Dim b As String a = InputBox （" 请输入要
修改的职工姓名 "） b = Str(InputBox("
请输入新职工号 "))
If a = "张三 " Then
ElseIf a = "李四" Then
ElseIf a = "王五" Then
ElseIf a = "王六" Then
ElseIf a = "赵七" Then
"李四 117002"
ElseI f = "王五" Then "王五 117003" ElseI f = "王六" Then "王六 117004" ElseI f = "赵七" Then "赵七 117005"
ElseI f
= "李八" Then "李八 117006"
ElseI f
= "刘九" Then
"刘九 117007"
ElseI f = "马十" Then
"马十 117008"
ElseIf a = "李八" Then
ElseIf a = "刘九" Then
ElseIf a = "马十" Then
Else: MsgBox "请输入正确的职工姓名" End If
End Sub
Private Sub Command8_Click()
Dim a As String
Dim b As String a = InputBox（" 请输入新员工姓名"） b = InputBox（" 请输入新员工的职工号"）
End Sub
Private Sub Combo2_Change()
Select Case
Case "*.txt"
= "*.txt"
Case "*.ini"
= "*.ini"
Case "*.doc"
= "*.doc"
Case "*.*"
一H* *11
End Select
End Sub
Private Sub Command1_Click()
Dim fileno As Integer, strl As String fileno = FreeFile Open "职工信息.txt" For Input As #fileno
Do While Not EOF(fileno)
Input #fileno, str1
str1
Loop
Close #fileno
End Sub
Private Sub Command2_Click()
End Sub
Private Sub Drive1_Change()
End Sub
Private Sub File1_Click()
End Sub
Private Sub VScroll1_Cha nge()
End Sub
三、设计方案的完善及目前存在的问题
1.设计方案要完善的地方
追加的信息无法加载到“职工信息txt ”里
查询只是单一的一对一输入，不智能
文件类型的筛选问题暂未处理办法
2.目前存在的问题
只是简单的查询，不适合大量数据的导入与导出，不方便查看
四、本次设计的收获及心得体会
第一次尝试程序的制作，觉得非常有意思，做成功以后很有成就感，我还发现，程序制作出来的好坏直接影响使用者的工作效率，好的软件可以使用户事半功倍，对程序的运作体系越了解，设计的软件越智能，越能更好的服务于使用者，好好学习VB计算机语言，是磨刀不误砍柴工的体现。

五、对该题目和VB设计的意见和建议
1.对该题目的意见和建议
Form2中的文件类型，有些偏难，在少数文件夹的情况下可以不用通过文件类型的筛选
2 .对本次设计的意见和建议
对此次课程设计的时间安排应更具体，应有相应的素材图片，增添软件的美感。