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

《Vb课程设计职工信息系统.doc》由会员分享，可在线阅读，更多相关《Vb课程设计职工信息系统.doc（15页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、职工信息系统设计报告一、设计思路培养学生综合利用VB语言进展程序设计的能力,主要是培养学生综合使用根本控件的、文件读写、数组操作与菜单设计等能力。设置属性设计时要注意一些功能需要在其它功能之后才能使用,如“平均工资、“高于平均等按钮需要在读入数据后才能使用,设计界面时需要将相应的按钮的Enable属性为false,在读入数据后才设置Enable属性为True。编写代码需要对每一个窗体编写事件处理过程。最主要的工作包含在主窗体中,代码包括事件处理过程与必要的声明。变量声明局部声明本程序所需要的变量与数组,由于单击按钮时,都要对姓名、职称、工资进展操作,因此相应的数组与变量应定义为模块级的。在编写

2、事件处理过程代码时注意以下几点:(1定义动态数组分别用于存放姓名、职称、工资数据。(2单击“读取数据按钮,利用通用对话框所提供的翻开标准对话框来选择要翻开的数据文件,并利用文件的根本操作将该文件中的的数据依次读入到相应数组中。注意为保存动态数组中存放的内容,在使用ReDim语句中要加上Preserve关键字。(3计算职工的平均工资,并存放在平均工资变量,此变量应定位模块级的。(4利用InputBox 函数来输入要追加的学生的信息。(5利用InputBox 函数来输入要删除的职工的姓名。利用MsgBox 函数或另一个窗体来显示高于及等于(或低于平均工资与分类汇总的结果。二、局部程序关键源代码及注

3、释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 usercancleusercancle:Text1 = 姓名职称工资fileno = FreeFileOpen CommonDialog1. For Inpu

4、t 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

5、 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_Cl

6、ick(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 & - m

7、1 = 工资大于等于平均工资的人数 & xForm2.Text1 = Form2.Text1 & vbNewLine & m1Form2.Caption = 工资大于等于平均工资的人数Load Form2End 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 Then

8、t = 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 Form2End SubPrivate Sub manu3_Click(Dim t As Stringg = iFor i = 1 To

9、 g - 1For j = i + 1 To gIf Val(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 Form2End SubPrivate Sub manu5_Click(EndEnd Sub三、设计方案的完善及目前存在的问题对编程语言的进一步完善对程序的调用程序不够人性化2. 目前存在的问题编程语言不够流畅。四、本次设计的收获及心得体会对VB理解不深刻,知识匮乏,但这是颇有实际用处的,认真学习vb,不断认识自己的缺乏,并不断改良。认真学习科学知识,在学习中充分实践。把运用与学习结合在一起。五、对该题目与VB设计的意见与建议1. 对该题目的意见与建议该程序应该充分与现实结合。让程序更容易让顾客进展操作。更加人性化。设计课程比拟实用,但颇有难度,希望以后能给我们较多时间进展设计,并请教师多帮助解决疑难问题,谢谢。第 15 页