Vb课程设计职工信息系统.docx
- 文档编号:587996
- 上传时间:2022-10-11
- 格式:DOCX
- 页数:9
- 大小:16.79KB
Vb课程设计职工信息系统.docx
《Vb课程设计职工信息系统.docx》由会员分享,可在线阅读,更多相关《Vb课程设计职工信息系统.docx(9页珍藏版)》请在冰豆网上搜索。
Vb课程设计职工信息系统
职工信息系统设计报告
一、设计思路
1.要达到的目的
培养学生综合利用VB语言进行程序设计的能力,主要是培养学生综合使用基本控件的、文件读写、数组操作和菜单设计等能力。
2.关键问题的解决
①设置属性
设计时要注意一些功能需要在其它功能之后才能使用,如“平均工资”、“高于平均”等按钮需要在读入数据后才能使用,设计界面时需要将相应的按钮的Enable属性为false,在读入数据后才设置Enable属性为True。
②编写代码
需要对每一个窗体编写事件处理过程。
最主要的工作包含在主窗体中,代码包括事件处理过程和必要的声明。
变量声明部分声明本程序所需要的变量和数组,由于单击按钮时,都要对姓名、职称、工资进行操作,因此相应的数组和变量应定义为模块级的。
在编写事件处理过程代码时注意以下几点:
(1定义动态数组分别用于存放姓名、职称、工资数据。
(2单击“读取数据”按钮,利用通用对话框所提供的打开标准对话框来选择要打开的数据文件,并利
用文件的基本操作将该文件中的的数据依次读入到相应数组中。
注意为保留动态数组中存放的内容,在使用ReDim语句中要加上Preserve关键字。
(3计算职工的平均工资,并存放在平均工资变量,此变量应定位模块级的。
(4利用InputBox函数来输入要追加的学生的信息。
(5利用InputBox函数来输入要删除的职工的姓名。
利用MsgBox函数或另一个窗体来显示高于及等于(或低于平均工资和分类汇总的结果。
。
。
。
二、部分程序关键源代码及注释
DimiAsInteger,averAsSingle
Dima(AsString,b(AsString,c(AsString
PrivateSubCommand1_Click(
DimstrAsString
CommonDialog1.Filter="txt(*.txt|*.txt|allfile(*.*|*.*"
CommonDialog1.FilterIndex=1
OnErrorGoTousercancle
CommonDialog1.ShowOpen
usercancle:
Text1="姓名职称工资"
fileno=FreeFile
OpenCommonDialog1.FileNameForInputAs#fileno
i=1
DoWhileNotEOF(fileno
ReDimPreservea(i,b(i,c(i
Input#fileno,a(i,b(i,c(i
str=a(i&""&b(i&""&c(i
Text1=Text1+vbNewLine+str
i=i+1
Loop
Close#fileno
i=i-1
Printi
Command2.Enabled=True
Command5.Enabled=True
Command6.Enabled=True
Command7.Enabled=True
EndSub
PrivateSubCommand2_Click(
DimsumAsSingle,s1AsString,s2AsString,nAsInteger
Printi
sum=0
Fori=1Toi
sum=sum+c(i
Nexti
i=i-1
Printi
aver=sum/i
s1="职工的平均工资为:
"&aver
s2="职工总人数:
"&i
MsgBoxs1&vbCrLf&s2,,"zh1"
Command3.Enabled=True
Command4.Enabled=True
EndSub
PrivateSubCommand3_Click(
DimxAsInteger,l1AsString,m1AsString
Form2.Text1="姓名职称工资"
Form2.Text1=Form2.Text1&vbNewLine&"--------------------------"x=0
Printi
Fori=1Toi
Ifc(i>=averThen
x=x+1
l1=a(i&""&b(i&""&c(i
Form2.Text1=Form2.Text1&vbNewLine&l1
EndIf
Nexti
i=i-1
Printi
Form2.Text1=Form2.Text1&vbNewLine&"--------------------------"m1="工资大于等于平均工资的人数"&x
Form2.Text1=Form2.Text1&vbNewLine&m1
Form2.Caption="工资大于等于平均工资的人数"
LoadForm2
Form2.Show
EndSub
PrivateSubCommand4_Click(
DimyAsInteger,l2AsString,m2AsString
Form2.Text1="姓名职称工资"
Form2.Text1=Form2.Text1&vbNewLine&"--------------------------"y=0
Printi
Fori=1Toi
Ifc(i y=y+1 l2=a(i&""&b(i&""&c(i Form2.Text1=Form2.Text1&vbNewLine&l2 EndIf Nexti i=i-1 Printi Form2.Text1=Form2.Text1&vbNewLine&"--------------------------"m2="工资小于平均工资的人数"&y Form2.Text1=Form2.Text1&vbNewLine&m2 Form2.Caption="工资小于平均工资的人数" LoadForm2 Form2.Show EndSub PrivateSubCommand5_Click( Dimn1AsInteger,n2AsInteger,n3AsInteger,n4AsInteger Dimstr1AsString,str2AsString,str3AsString,str4AsString Fori=1Toi Ifa(i="教授"Then n1=n1+1 ElseIfb(i="副教授"Then n2=n2+1 ElseIfc(i="讲师"Then n3=n3+1 Else n4=n4+1 EndIf Nexti i=i-1 str1="教授人数"&n1 str2="副教授人数"&n2 str3="讲师人数"&n3 str4="助教人数"&n4 Form2.Text1=str1&vbNewLine&str2&vbNewLine&str3&vbNewLine&str4Form2.Caption="分类汇总" LoadForm2 Form2.Show EndSub PrivateSubCommand6_Click( DimpAsString i=i+1 ReDimPreservea(i,b(i,c(i a(i=InputBox("输入姓名","输入职工信息" b(i=InputBox("输入职称","输入职工信息" c(i=InputBox("输入工资","输入职工信息" p=a(i&""&b(i&""&c(i Text1=Text1&vbNewLine&p Printi EndSub PrivateSubCommand7_Click( DimqAsString,rAsInteger,str0AsString q=InputBox("输入姓名","输入职工信息" Printi e=i Fori=1Toe Ifq=a(iThen f=i ExitFor EndIf Nexti Ifi=e+1Then MsgBox"没有该职工姓名" Else Fori=fToe-1 a(i=a(i+1 b(i=b(i+1 c(i=c(i+1 Nexti i=i-1 ReDimPreservea(i,b(i,c(i Text1="姓名职称工资" Fori=1Toi str0=a(i&""&b(i&""&c(iText1=Text1+vbNewLine+str0 Nexti EndIf i=i-1 Printi EndSub PrivateSubmanu1_Click( Dimm1AsInteger,m2AsInteger m1=InputBox("请输入工资下限" m2=InputBox("请输入工资上限" Form2.Text1="姓名职称工资" r=1 Fori=1Toi Ifc(i>=m1Andc(i<=m2Then r=r+1 str5=a(i&""&b(i&""&c(i Form2.Text1=Form2.Text1&vbCrLf&str5 EndIf Nexti i=i-1 str6="工资在"&m1&"至"&m2&"范围内的人数为"&r Form2.Text1=Form2.Text1&vbCrLf&"-------------------"&vbCrLf&str6Form2.Caption="某工资段职工统计" LoadForm2 Form2.Show EndSub PrivateSubmanu2_Click( DimtAsString g=i Fori=1Tog-1 Forj=i+1Tog IfVal(c(i>Val(c(jThen t=c(i c(i=c(j c(j=t t=a(i a(i=a(j a(j=t t=b(i b(i=b(j b(j=t EndIf Nextj Nexti i=i-1 Form2.Text1="姓名职称工资" Fori=1Toi str7=a(i&""&b(i&""&c(iForm2.Text1=Form2.Text1&vbNewLine&str7 Nexti Form2.Caption="升序排序" LoadForm2 Form2.Show EndS
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Vb 课程设计 职工 信息系统