VB课程设-职工信息系统.doc

此文档收集于网络，如有侵权，请联系网站删除职工信息系统设计报告学院 土木工程学院 班级 测绘C111 学号 117556 姓名 王圣治 成绩 一、设计思路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 usercancle CommonDialog1.ShowOpenusercancle:Text1 = 姓名 职称 工资fileno = FreeFileOpen CommonDialog1.FileName For Input As #filenoi = 1Do 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 + 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 i sum = sum + c(i)Next 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 i If c(i) = aver Then x = x + 1 l1 = a(i) & & b(i) & & c(i) Form2.Text1 = Form2.Text1 & vbNewLine & l1 End 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 i If c(i) = m1 And c(i) Val(c(j) Then 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 End If Next jNext ii = i - 1Form2.Text1 = 姓名 职称 工资For i = 1 To i str7 = a(i) & & b(i) & & c(i) Form2.Text1 = Form2.Text1 & vbNewLine & str7Next iForm2.Caption = 升序排序Load Form2Form2.ShowEnd SubPrivate Sub manu3_Click()Dim t As Stringg = iFor i = 1 To g - 1 For j = i + 1 To g If Val(c(i) Val(c(j) Then 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 End If Next jNext ii = i - 1Form2.Text1 = 姓名 职称 工资For i = 1 To i str7 = a(i) & & b(i) & & c(i) Form2.Text1 = Form2.Text1 & vbNewLine & str7Next iForm2.Caption = 降序排序Load Form2Form2.ShowEnd SubPrivate Sub manu5_Click() EndEnd Sub三、设计方案的完善及目前存在的问题1设计方案要完善的地方对编程语言的进一步完善对程序的调用程序不够人性化2. 目前存在的问题编程语言不够流畅。四、本次设计的收获及心得体会对VB理解不深刻，知识匮乏，但这是颇有实际用处的，认真学习vb，不断认识自己的不足，并不断改进。