职工信息系统设计报告一、设计思路1.要达到的目的培养学生综合利用VB语言进行程序设计的能力,主要是培养学生综合使用基本控件的、文件读写、数组操作和菜单设计等能力。2.关键问题的解决设置属性设计时要注意一些功能需要在其它功能之后才能使用,如“平均工资”、“高于平均”等按钮需要在读入数据后才能使用,设计界面时需要将相应的按钮的Enable属性为false,在读入数据后才设置Enable属性为True。编写代码需要对每一个窗体编写事件处理过程。最主要的工作包含在主窗体中,代码包括事件处理过程和必要的声明。变量声明部分声明本程序所需要的变量和数组,由于单击按钮时,都要对姓名、职称、工资进行操作,因此相应的数组和变量应定义为模块级的。在编写事件处理过程代码时注意以下几点:(1定义动态数组分别用于存放姓名、职称、工资数据。(2单击“读取数据”按钮,利用通用对话框所提供的打开标准对话框来选择要打开的数据文件,并利用文件的基本操作将该文件中的的数据依次读入到相应数组中。注意为保留动态数组中存放的内容,在使用ReDim语句中要加上Preserve关键字。(3计算职工的平均工资,并存放在平均工资变量,此变量应定位模块级的。(4利用InputBox 函数来输入要追加的学生的信息。(5利用InputBox 函数来输入要删除的职工的姓名。利用MsgBox 函数或另一个窗体来显示高于及等于(或低于平均工资和分类汇总的结果。二、部分程序关键源代码及注释Dim i As Integer, aver As SingleDim a( As String, b( As String, c( As StringPrivate Sub Command1_Click(Dim str As StringCommonDialog1.Filter = txt (*.txt|*.txt|all file(*.*|*.*CommonDialog1.FilterIndex = 1On Error GoTo usercancleCommonDialog1.ShowOpenusercancle:Text1 = 姓名职称工资fileno = FreeFileOpen CommonDialog1.FileName For Input As #filenoi = 1Do While Not EOF(filenoReDim Preserve a(i, b(i, c(iInput #fileno, a(i, b(i, c(istr = a(i & & b(i & & c(iText1 = Text1 + vbNewLine + stri = i + 1LoopClose #filenoi = i - 1Print iCommand2.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueEnd SubPrivate Sub Command2_Click(Dim sum As Single, s1 As String, s2 As String, n As IntegerPrint isum = 0For i = 1 To isum = sum + c(iNext ii = i - 1Print iaver = sum / is1 = 职工的平均工资为: & avers2 = 职工总人数: & iMsgBox s1 & vbCrLf & s2, , zh1Command3.Enabled = TrueCommand4.Enabled = TrueEnd SubPrivate Sub Command3_Click(Dim x As Integer, l1 As String, m1 As StringForm2.Text1 = 姓名职称工资Form2.Text1 = Form2.Text1 & vbNewLine & - x = 0Print iFor i = 1 To iIf c(i = aver Thenx = x + 1l1 = a(i & & b(i & & c(iForm2.Text1 = Form2.Text1 & vbNewLine & l1End IfNext ii = i - 1Print iForm2.Text1 = Form2.Text1 & vbNewLine & - m1 = 工资大于等于平均工资的人数 & xForm2.Text1 = Form2.Text1 & vbNewLine & m1Form2.Caption = 工资大于等于平均工资的人数Load Form2Form2.ShowEnd SubPrivate Sub Command4_Click(Dim y As Integer, l2 As String, m2 As StringForm2.Text1 = 姓名职称工资Form2.Text1 = Form2.Text1 & vbNewLine & - y = 0Print iFor i = 1 To iIf c(i = m1 And c(i Val(c(j Thent = c(ic(i = c(jc(j = tt = a(ia(i = a(ja(j = tt = b(ib(i = b(jb(j = tEnd IfNext jNext ii = i - 1Form2.Text1 = 姓名职称工资For i = 1 To istr7 = a(i & & b(i & & c(i Form2.Text1 = Form2.Text1 & vbNewLine & str7Next iForm2.Caption = 升序排序Load Form2Form2.ShowEnd SubPrivate Su