Vb课程设计汇本~职工信息管理系统

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

一、设计思路

1.要达到的目的

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

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

清除文本框中的职工的信息。 在文本框中显示职工的信息。 按照职工号查询职工信息，并显示。 按照查询职工信息，并显示。 按照职工号修改职工信息，并显示。 按照修改职工信息，并显示。 追加一条记录数据，并显示。 2.关键问题的解决

（1） 通过“读取数据”按钮应能利用应能利用右侧图示样式窗体形式，打开选中的数据文件职工.txt，并

从该文件中读取职工职工号、、职称和工资，保存在数组中，并显示在文本框中。 （2） 通过“清除数据”按钮应能清除文本框中的容。 （3） 从“按职工号查询”按钮左端文本框输入职工号，单击“按职工号查询”，在窗体大的文本框中显示查

询结果。从“按查询”按钮左端文本框输入，单击“按查询”按钮，在窗体大的文本框中显示查询结果。 （4） 从“按职工号修改” （“按修改”）按钮，在输入对话框中输入职工号，对查询到的职工的职工号()进

行修改，在窗体大的文本框中显示修改结果。

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

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

Private Sub Command2_Click() List1.Clear End Sub

Private Sub Command3_Click() e = True Unload Me End Sub

Private Sub Command4_Click() List1.Clear

If Text3.Text = \List1.AddItem \三 117001\

ElseIf Text3.Text = \List1.AddItem \四 117002\

ElseIf Text3.Text = \List1.AddItem \王五 117003\ElseIf Text3.Text = \List1.AddItem \王六 117004\ElseIf Text3.Text = \List1.AddItem \七 117005\

ElseIf Text3.Text = \List1.AddItem \八 117006\

ElseIf Text3.Text = \List1.AddItem \九 117007\

ElseIf Text3.Text = \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 = \

List1.AddItem a & \ElseIf b = \List1.AddItem a & \ElseIf b = \List1.AddItem a & \ElseIf b = \List1.AddItem a & \ElseIf b = \List1.AddItem a & \ElseIf b = \List1.AddItem a & \ElseIf b = \List1.AddItem a & \ElseIf b = \List1.AddItem a & \Else: MsgBox \请输入正确的职工号\End If

List1.AddItem a & \End Sub

Private Sub Command6_Click() List1.Clear

If Text2.Text = \三\List1.AddItem \三 117001\ElseIf Text2.Text = \四\

List1.AddItem \四 117002\ElseIf Text2.Text = \王五\List1.AddItem \王五 117003\ElseIf Text2.Text = \王六\List1.AddItem \王六 117004\ElseIf Text2.Text = \七\List1.AddItem \七 117005\ElseIf Text2.Text = \八\List1.AddItem \八 117006\ElseIf Text2.Text = \九\List1.AddItem \九 117007\ElseIf Text2.Text = \马十\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 = \三\

List1.AddItem a & \ElseIf a = \四\

List1.AddItem a & \ElseIf a = \王五\List1.AddItem a & \ElseIf a = \王六\List1.AddItem a & \

ElseIf a = \七\

List1.AddItem a & \ElseIf a = \八\

List1.AddItem a & \ElseIf a = \九\

List1.AddItem a & \ElseIf a = \马十\List1.AddItem a & \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 & \End Sub

Private Sub Combo2_Change() Select Case Comb2.Text

Case \

File1.Pattern = \Case \

File1.Pattern = \Case \

File1.Pattern = \Case \