Vb课程设计-职工信息系统.

1、职工信息系统设计报告一、设计思路1. 要达到的目的培养学生综合利用 VB 语言进行程序设计的能力，主要是培养学生综合使用基 本控件的、文件读写、数组操作和菜单设计等能力。2. 关键问题的解决1设置属性设计时要注意一些功能需要在其它功能之后才能使用，如平均工资”、高于平 均”等按钮需要在读入数据后才能使用，设计界面时需要将相应的按钮的 En able 属性 为false,在读入数据后才设置 Enable 属性为 True。2编写代码需要对每一个窗体编写事件处理过程。最主要的工作包含在主窗体中，代码包括事件处理过程和必要的声明。变量声明部分声明本程序所需要的变量和数组，由于单击按钮时，都要对姓名、

2、职称、工资进行操作，因此相应的数组和变量应定义为 模块级的。在编写事件处理过程代码时注意以下几点：(1 定义动态数组分别用于存放姓名、职称、工资数据。(2 单击 读取数据”按钮，利用通用对话框所提供的打开标准对话框来选择要打 开的数据文件，并利用文件的基本操作将该文件中的的数据依次读入到相应数组中。注意为保留动 态数组中存放的内容，在使用 ReDim 语句中要加上 Preserve 关键字。(3 计算职工的平均工资，并存放在平均工资变量，此变量应定位模块级的(4 利用 InputBox 函数来输入要追加的学生的信息。(5 利用 InputBox 函数来输入要删除的职工的姓名。利用 MsgBox

3、 函数或另一个窗体来显示高于及等于(或低于平均工资和分类汇 纟吉果。000二、部分程序关键源代码及注释Dim i As In teger, aver As Si ngleDim a( As Stri ng, b( As Stri ng, c( As Stri ngPrivate Sub Comma nd1_Click(Dim str As StringCommo nDialog1.Filter = txt (*.txt|*.txt|all file(*.*|*.*Common Dialog1.FilterI ndex = 1On Error GoTo userca ncleCommon Dia

4、log1.ShowOpe nuserca ncle:Text1 =姓名职称工资file no = FreeFileOpen Common Dialog1.FileName For In put As #file noi = 1Do While Not EOF(file noFori = 1 To iReDim Preserve a(i, b(i, c(iIn put #file no, a(i, b(i, c(istr = a(i & & b(i & & c(iText1 = Text1 + vbNewLi ne + stri = i + 1LoopClose

5、#file noi = i - 1Print iComma nd2.E nabled = TrueComma nd5.E nabled = TrueComma nd6.E nabled = TrueComma nd7.E nabled = TrueEnd SubPrivate Sub Comma nd2_Click(Dim sum As Sin gle, s1 As Stri ng, s2 As Stri ng, n As In tegerPrint isum = 0sum = sum + c(ix = x + 1Next ii = i - 1Print iaver = sum / isi =

6、职工的平均工资为:& avers2 =职工总人数:& iMsgBox si & vbCrLf & s2, , zh1Comma nd3.E nabled = TrueComma nd4.E nabled = TrueEnd SubPrivate Sub Comma nd3_Click(Dim x As In teger, 11 As Stri ng, mi As Stri ngForm2.Text1 =姓名职称工资Form2.Text1 = Form2.Text1 & vbNewL ine & - x = 0Print iFori = 1 To

7、iIf c(i = aver Then11 = a(i & & b(i & & c(iForm2.Text1 =Form2.Text1 & vbNewLine & 11Fori = 1 To iEnd IfNext ii = i - 1Print iForm2.Text1 =Form2.Text1 & vbNewL ine & ”- m1 = 工资大于等于平均工资的人数&xForm2.Text1 =Form2.Text1 & vbNewL ine & m1Form2.C aptio n =工资大于等于平均工

8、资的人数Load Form2Form2.ShowEnd SubPrivate Sub Comma nd4_Click(Dim y As In teger, 12 As Stri ng, m2 As Stri ngForm2.Text1 =姓名职称工资Form2.Text1 =Form2.Text1 & vbNewL ine & ”- y = 0Print iIf c(i = m1 And c(i Val(c(j The n t = c(i c(i = c(j c(j = t t = a(i a(i = a(j a(j = t t = b(ib(i = b(jb(j = tEnd

9、 IfNext jNext ii = i - 1Form2.Text1 =姓名职称工资Fori = 1 To istr7 = a(i & & b(i & & c(i Form2.Text1 = Form2.Text1 & vbNewLi ne & str7Next iForm2.Caption =升序排序Load Form2Form2.ShowEnd SubPrivate Sub man u3_Click(Dim t As Stri ngg = iFor i = 1 To g - 1For j = i + 1 To gIf Val(c(i Val

10、(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 =姓名职称工资Fori = 1 To istr7 = a(i & & b(i & & c(i Form2.Text1 = Form2.Text1 & vbNewLi ne & str7Next iForm2.Caption =降序排序Load Form2Form2.ShowEnd SubPrivate Sub man u5_Click(EndEnd Sub三、设计方案的完善及目前存在的问题1. 设计方案要完善的地方1对编程语言的进一步完善2对程序的调用3程序不够人性化2. 目前存在的问题编程语言不够流畅。四、本次设计的收获及心得体会对 VB 理解不深刻，知识匮乏，但这是颇有实际用处的，认真学习 vb,不断认识自己的