职工信息管理系统_职工基本信息管理系统

2020-02-27 其他范文下载本文

职工信息管理系统由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“职工基本信息管理系统”。

职工信息管理系统设计报告（VB）编号：22

职工信息管理系统设计报告

学院

土木工程

班级

测绘C111

学号

117551

姓名

马骁飞

成绩

一、设计思路

1.要达到的目的培养学生综合利用VB语言进行程序设计的能力，主要是培养学生综合使用基本控件的、文件读写、数组操作等能力。

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

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

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

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

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

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

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

追加一条记录数据，并显示。2.关键问题的解决

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

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

二、部分程序关键源代码及注释 rivate Sub Command1_Click()Form2.Show

End Sub

Private Sub Command2_Click()

职工信息管理系统设计报告（VB）编号：22 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

职工信息管理系统设计报告（VB）编号：22 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

职工信息管理系统设计报告（VB）编号：22 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 List1.AddItem a & “

” & b

职工信息管理系统设计报告（VB）编号：22 ElseIf a = “李四” Then List1.AddItem a & “

” & b ElseIf a = “王五” Then List1.AddItem a & “

” & b ElseIf a = “王六” Then List1.AddItem a & “

” & b ElseIf a = “赵七” Then List1.AddItem a & “

” & b ElseIf a = “李八” Then List1.AddItem a & “

” & b ElseIf a = “刘九” Then List1.AddItem a & “

” & b ElseIf a = “马十” Then List1.AddItem a & “

” & b Else: MsgBox “请输入正确的职工姓名” End If End Sub

Private Sub Command8_Click()Dim a As String Dim b As String

a = InputBox(“请输入新员工姓名”)b = InputBox(“请输入新员工的职工号”)

List1.AddItem a & “

” & b End Sub Private Sub Combo2_Change()Select Case Comb2.Text

职工信息管理系统设计报告（VB）编号：22 Case “*.txt” File1.Pattern = “*.txt” Case “*.ini” File1.Pattern = “*.ini” Case “*.doc” File1.Pattern = “*.doc” Case “*.*” File1.Pattern = “*.*” End Select End Sub

Private Sub Command1_Click()Dim fileno As Integer, strl As String fileno = FreeFile Open “职工信息.txt” For Input As #fileno i = 0 Do While Not EOF(fileno)Input #fileno, str1 Form1.List1.AddItem str1

i = i + 1 Loop Close #fileno Form1.Show Me.Hide End Sub

Private Sub Command2_Click()Form1.Show End Sub

职工信息管理系统设计报告（VB）编号：22

Private Sub Drive1_Change()Dir1.Path = Drive1.Drive End Sub

Private Sub File1_Click()Text3.Text = File1.FileName End Sub

Private Sub VScroll1_Change()Form1.Show End Sub

三、设计方案的完善及目前存在的问题

1．设计方案要完善的地方

追加的信息无法加载到“职工信息txt”里查询只是单一的一对一输入，不智能文件类型的筛选问题暂未处理办法 2.目前存在的问题

只是简单的查询，不适合大量数据的导入与导出，不方便查看

四、本次设计的收获及心得体会

第一次尝试程序的制作，觉得非常有意思，做成功以后很有成就感，我还发现，程序制作出来的好坏直接影响使用者的工作效率，好的软件可以使用户事半功倍，对程序的运作体系越了解，设计的软件越智能，越能更好的服务于使用者，好好学习VB计算机语言，是磨刀不误砍柴工的体现。