Vb课程设计职工信息管理系统.docx
- 文档编号:2965746
- 上传时间:2023-05-05
- 格式:DOCX
- 页数:8
- 大小:15.95KB
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.对本次设计的意见和建议
对此次课程设计的时间安排应更具体,应有相应的素材图片,增添软件的美感
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Vb 课程设计 职工 信息管理 系统