Vb课程设计-职工信息系统.（合集）.docx

Vb课程设计-职工信息系统.（合集）

第一篇：Vb课程设计-职工信息系统.职工信息系统设计报告一、设计思路1.要达到的目的培养学生综合利用VB语言进行程序设计的能力,主要是培养学生综合使用基本控件的、文件读写、数组操作和菜单设计等能力。2.关键问题的解决①设置属性设计时要注意一些功能需要在其它功能之后才能使用,如“平均工资”、“高于平均”等按钮需要在读入数据后才能使用,设计界面时需要将相应的按钮的Enable属性为false,在读入数据后才设置Enable属性为True。②编写代码需要对每一个窗体编写事件处理过程。最主要的工作包含在主窗体中,代码包括事件处理过程和必要的声明。变量声明部分声明本程序所需要的变量和数组,由于单击按钮时,都要对姓名、职称、工资进行操作,因此相应的数组和变量应定义为模块级的。在编写事件处理过程代码时注意以下几点:(1定义动态数组分别用于存放姓名、职称、工资数据。(2单击“读取数据”按钮,利用通用对话框所提供的打开标准对话框来选择要打开的数据文件,并利用文件的基本操作将该文件中的的数据依次读入到相应数组中。注意为保留动态数组中存放的内容,在使用ReDim语句中要加上Preserve关键字。(3计算职工的平均工资,并存放在平均工资变量,此变量应定位模块级的。(4利用InputBox函数来输入要追加的学生的信息。(5利用InputBox函数来输入要删除的职工的姓名。利用MsgBox函数或另一个窗体来显示高于及等于(或低于平均工资和分类汇总的结果。。二、部分程序关键源代码及注释DimiAsInteger,averAsSingleDima(AsString,b(AsString,c(AsStringPrivateSubCommand1_Click(DimstrAsStringCommonDialog1.Filter=“txt(*.txt|*.txt|allfile(*.*|*.*”CommonDialog1.FilterIndex=1OnErrorGoTousercancleCommonDialog1.ShowOpenusercancle:Text1=“姓名职称工资”fileno=FreeFileOpenCommonDialog1.FileNameForInputAs#filenoi=1DoWhileNotEOF(filenoReDimPreservea(i,b(i,c(iInput#fileno,a(i,b(i,c(istr=a(i&“”&b(i&“”&c(iText1=Text1+vbNewLine+stri=i+1LoopClose#filenoi=i1Printiaver=sum/is1=“职工的平均工资为:”&avers2=“职工总人数:”&iMsgBoxs1&vbCrLf&s2,,“zh1”Command3.Enabled=TrueCommand4.Enabled=TrueEndSubPrivateSubCommand3_Click(DimxAsInteger,l1AsString,m1AsStringForm2.Text1=“姓名职称工资”Form2.Text1=Form2.Text1&vbNewLine&“--------------------------”x=0PrintiFori=1ToiIfc(i>=averThenx=x+1l1=a(i&“”&b(i&“”&c(iForm2.Text1=Form2.Text1&vbNewLine&l1EndIfNextii=i1PrintiForm2.Text1=Form2.Text1&vbNewLine&“--------------------------”m2=“工资小于平均工资的人数”&yForm2.Text1=Form2.Text1&vbNewLine&m2Form2.Caption=“工资小于平均工资的人数”LoadForm2Form2.ShowEndSubPrivateSubCommand5_Click(Dimn1AsInteger,n2AsInteger,n3AsInteger,n4AsIntegerDimstr1AsString,str2AsString,str3AsString,str4AsStringFori=1ToiIfa(i=“教授”Thenn1=n1+1ElseIfb(i=“副教授”Thenn2=n2+1ElseIfc(i=“讲师”Thenn3=n3+1Elsen4=n4+1EndIfNextii=i1a(i=a(i+1b(i=b(i+1c(i=c(i+1Nextii=i1PrintiEndSubPrivateSubmanu1_Click(Dimm1AsInteger,m2AsIntegerm1=InputBox(“请输入