VB课程设-职信息系统.docVIP

职工信息系统设计报告 学院 土木工程学院 班级 测绘C111 学号 117556 姓名 王圣治 成绩 一、设计思路 1.要达到的目的 培养学生综合利用语言进行程序设计的能力，主要是培养学生 2.关键问题的解决 ①设置属性 设计时要注意一些功能需要在其它功能之后才能使用，如 “平均工资”、“高于平均”等按钮需要在读入数据后才能使用，设计界面时需要将相应的按钮的Enable属性为false，在读入数据后才设置Enable属性为True。 ②编写代码 需要对每一个窗体编写事件处理过程。最主要的工作包含在主窗体中，代码包括事件处理过程和必要的声明。变量声明部分声明本程序所需要的变量和数组，由于单击按钮时，都要对姓名、职称、工资进行操作，因此相应的数组和变量应定义为模块级的。在编写事件处理过程代码时注意以下几点： 定义动态数组分别用于存放姓名、职称、工资数据。 单击“读取数据”按钮，利用通用对话框所提供的打开标准对话框来选择要打开的数据文件，并利用文件的基本操作将该文件中的的数据依次读入到相应数组中。注意为保留动态数组中存放的内容，在使用ReDim语句中要加上Preserve关键字。 计算职工的平均工资，并存放在平均工资变量，此变量应定位模块级的。 利用InputBox 函数来输入要追加的学生的信息。 利用InputBox 函数来输入要删除的职工的姓名。 利用MsgBox 函数或另一个窗体来显示高于及等于（或低于）平均工资和分类汇总的结果。。。。 二、部分程序关键源代码及注释 Dim i As Integer, aver As Single Dim a() As String, b() As String, c() As String Private Sub Command1_Click() Dim str As String CommonDialog1.Filter = txt (*.txt)|*.txt|all file(*.*)|*.* CommonDialog1.FilterIndex = 1 On Error GoTo usercancle CommonDialog1.ShowOpen usercancle: Text1 = 姓名 职称 工资 fileno = FreeFile Open CommonDialog1.FileName For Input As #fileno i = 1 Do While Not EOF(fileno) ReDim Preserve a(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 Print i Command2.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True End Sub Private Sub Command2_Click() Dim sum As Single, s1 As String, s2 As String, n As Integer Print i sum = 0 For i = 1 To i sum = sum + c(i) Next i i = i - 1 Print i aver = sum / i s1 = 职工的平均工资为： aver s2 = 职工总人数： i MsgBox s1 vbCrLf s2, , zh1 Command3.Enabled = True Command4.Enabled = True End Sub Private Sub Command3_Click() Dim x As Integer, l1 As String, m1 As String Form2.Text1 = 姓名 职称 工资 Form2.Text1 = Form2.Text1 vbNewLine -------------------------- x = 0 Print i For i = 1 To i If c(i) = aver Then x = x + 1 l1 = a(i) b(i) c(i) Form2.Text1