Vb课程设计职工信息管理系统.docx
《Vb课程设计职工信息管理系统.docx》由会员分享，可在线阅读，更多相关《Vb课程设计职工信息管理系统.docx（8页珍藏版）》请在冰豆网上搜索。
Vb课程设计职工信息管理系统
职工信息管理系统设计报告
一、设计思路
1.要达到的目的
培养学生综合利用VB语言进行程序设计的能力，主要是培养学生综合使用基本控件的、文件读写、数组操作等能力。
利用读取数据按钮，打开选中的数据文件职工.txt，并从该文件中读取职工职工号、姓名、职称和工资，保存在数组中，并显示在文本框中。
清除文本框中的职工的信息。
在文本框中显示职工的信息。
按照职工号查询职工信息，并显示。
按照姓名查询职工信息，并显示。
按照职工号修改职工信息，并显示。
按照姓名修改职工信息，并显示。
追加一条记录数据，并显示。
2.关键问题的解决
（1）通过“读取数据”按钮应能利用应能利用右侧图示样式窗体形式，打开选中的数据文件职工.txt，并从该文件中读取职工职工号、姓名、职称和工资，保存在数组中，并显示在文本框中。
（2）通过“清除数据”按钮应能清除文本框中的内容。
（3）从“按职工号查询”按钮左端文本框输入职工号，单击“按职工号查询”，在窗体大的文本框中显示查询结果。
从“按姓名查询”按钮左端文本框输入姓名，单击“按姓名查询”按钮，在窗体大的文本框中显示查询结果。
（4）从“按职工号修改”（“按姓名修改”）按钮，在输入对话框中输入职工号，对查询到的职工的职工号（姓名）进行修改，在窗体大的文本框中显示修改结果。
从输入一条记录后文本框中输入一条记录信息，单击“追加数据并显示结果”按钮，添加到职工.txt中，并将追加数据后职工.txt的信息显示窗体的大文本框中。
二、部分程序关键源代码及注释
rivateSubCommand1_Click（）
EndSub
PrivateSubCommand2_Click（）
EndSub
PrivateSubCommand3_Click（）
e=True
UnloadMe
EndSub
PrivateSubCommand4_Click（）
If="117001"Then
"张三117001"
ElseIf="117002"Then
"李四117002"
ElseIf="117003"Then
"王五117003"
ElseIf="117004"Then
"王六117004"
ElseIf="117005"Then
"赵七117005"
ElseIf="117006"Then
"李八117006"
ElseIf="117007"Then
"刘九117007"
ElseIf="117008"Then
"马十117008"
Else:
MsgBox"请输入正确的职工号"
EndIf
EndSub
PrivateSubCommand5_Click（）
DimaAsString
DimbAsString
b=InputBox（"请输入要修改的职工的职工号"）
a=InputBox（"请输入新的职工姓名"）
Ifb="117001"Then
a&""&b
ElseIfb="117002"Then
a&""&b
ElseIfb="117003"Then
a&""&b
ElseIfb="117004"Then
a&""&b
ElseIfb="117005"Then
a&""&b
ElseIfb="117006"Then
a&""&b
ElseIfb="117007"Then
a&""&b
ElseIfb="117008"Then
a&""&b
Else:
MsgBox"请输入正确的职工号"
EndIf
a&""&b
EndSub
PrivateSubCommand6_Click（）
If="张三"Then
"张三117001"
ElseIf="李四"Then
"李四117002"
ElseIf="王五"Then
"王五117003"
ElseIf="王六"Then
"王六117004"
ElseIf="赵七"Then
"赵七117005"
ElseIf="李八"Then
"李八117006"
ElseIf="刘九"Then
"刘九117007"
ElseIf="马十"Then
"马十117008"
Else:
MsgBox"请输入正确的职工姓名"
EndIf
EndSub
PrivateSubCommand7_Click（）
DimaAsString
DimbAsString
a=InputBox（"请输入要修改的职工姓名"）
b=Str（InputBox（"请输入新职工号"））
Ifa="张三"Then
a&""&b
ElseIfa="李四"Then
a&""&b
ElseIfa="王五"Then
a&""&b
ElseIfa="王六"Then
a&""&b
ElseIfa="赵七"Then
a&""&b
ElseIfa="李八"Then
a&""&b
ElseIfa="刘九"Then
a&""&b
ElseIfa="马十"Then
a&""&b
Else:
MsgBox"请输入正确的职工姓名"
EndIf
EndSub
PrivateSubCommand8_Click（）
DimaAsString
DimbAsString
a=InputBox（"请输入新员工姓名"）
b=InputBox（"请输入新员工的职工号"）
a&""&b
EndSub
PrivateSubCombo2_Change（）
SelectCase
Case"*.txt"
="*.txt"
Case"*.ini"
="*.ini"
Case"*.doc"
="*.doc"
Case"*.*"
="*.*"
EndSelect
EndSub
PrivateSubCommand1_Click（）
DimfilenoAsInteger,strlAsString
fileno=FreeFile
Open"职工信息.txt"ForInputAs#fileno
i=0
DoWhileNotEOF（fileno）
Input#fileno,str1
str1
i=i+1
Loop
Close#fileno
EndSub
PrivateSubCommand2_Click（）
EndSub
PrivateSubDrive1_Change（）
=
EndSub
PrivateSubFile1_Click（）
=
EndSub
PrivateSubVScroll1_Change（）
EndSub
三、设计方案的完善及目前存在的问题
1．设计方案要完善的地方
追加的信息无法加载到“职工信息txt”里
查询只是单一的一对一输入，不智能
文件类型的筛选问题暂未处理办法
2.目前存在的问题
只是简单的查询，不适合大量数据的导入与导出，不方便查看
四、本次设计的收获及心得体会
第一次尝试程序的制作，觉得非常有意思，做成功以后很有成就感，我还发现，程序制作出来的好坏直接影响使用者的工作效率，好的软件可以使用户事半功倍，对程序的运作体系越了解，设计的软件越智能，越能更好的服务于使用者，好好学习VB计算机语言，是磨刀不误砍柴工的体现。
五、对该题目和VB设计的意见和建议
1.对该题目的意见和建议
Form2中的文件类型，有些偏难，在少数文件夹的情况下可以不用通过文件类型的筛选
2．对本次设计的意见和建议
对此次课程设计的时间安排应更具体，应有相应的素材图片，增添软件的美感
升级会员 