职工信息管理系统
- 格式:doc
- 大小:53.50 KB
- 文档页数:7
职工信息管理系统设计报告
学院土木工程班级测绘C111 学号117551
姓名马骁飞成绩
一、设计思路
1.要达到的目的
培养学生综合利用VB语言进行程序设计的能力,主要是培养学生综合使用基本控件的、文件读写、数组操作等能力。
利用读取数据按钮,打开选中的数据文件职工.txt,并从该文件中读取职工职工号、姓名、职称和工资,保存在数组中,并显示在文本框中。
清除文本框中的职工的信息。
在文本框中显示职工的信息。
按照职工号查询职工信息,并显示。
按照姓名查询职工信息,并显示。
按照职工号修改职工信息,并显示。
按照姓名修改职工信息,并显示。
追加一条记录数据,并显示。
2.关键问题的解决
(1)通过“读取数据”按钮应能利用应能利用右侧图示样式窗体形式,打开选中的数据文件职工.txt,并从该文件中读取职工职工号、姓名、职称和工资,保存在数组中,并显示在文本框中。
(2)通过“清除数据”按钮应能清除文本框中的内容。
(3)从“按职工号查询”按钮左端文本框输入职工号,单击“按职工号查询”,在窗体大的文本框中显示查询结果。从“按姓名查询”按钮左端文本框输入姓名,单击“按姓名查询”按钮,在窗体大的文本框中显示查询结果。
(4)从“按职工号修改”(“按姓名修改”)按钮,在输入对话框中输入职工号,对查询到的职工的职工号(姓名)进行修改,在窗体大的文本框中显示修改结果。
从输入一条记录后文本框中输入一条记录信息,单击“追加数据并显示结果”按钮,添加到职工.txt中,并将追加数据后职工.txt的信息显示窗体的大文本框中。
二、部分程序关键源代码及注释
rivate Sub Command1_Click()
Form2.Show
End Sub
List1.Clear
End Sub
Private Sub Command3_Click()
e = True
Unload Me
End Sub
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" Then
List1.AddItem a & " " & b
ElseIf b = "117003" Then
List1.AddItem a & " " & b
ElseIf b = "117004" Then
List1.AddItem a & " " & b
ElseIf b = "117005" Then
List1.AddItem a & " " & b
ElseIf b = "117006" Then
List1.AddItem a & " " & b
ElseIf b = "117007" Then
List1.AddItem a & " " & b
ElseIf b = "117008" Then
List1.AddItem a & " " & b
Else: MsgBox "请输入正确的职工号"
End If
List1.AddItem a & " " & b
End Sub
Private Sub Command6_Click()
List1.Clear
If Text2.Text = "张三" Then
List1.AddItem "张三117001"
ElseIf Text2.Text = "李四" Then
List1.AddItem "李四117002"
ElseIf Text2.Text = "王五" Then
List1.AddItem "王五117003"
ElseIf Text2.Text = "王六" Then
List1.AddItem "王六117004"
ElseIf Text2.Text = "赵七" Then
List1.AddItem "赵七117005"
ElseIf Text2.Text = "李八" Then
List1.AddItem "李八117006"
ElseIf Text2.Text = "刘九" Then
List1.AddItem "刘九117007"
ElseIf Text2.Text = "马十" Then
List1.AddItem "马十117008"
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