VB课程设-18测绘C111王宇晨.docVIP

职工信息查询系统设计报告 学院 土木工程学院 班级 测绘C111 学号 117557 姓名 王宇晨 成绩 一、设计思路 1.要达到的目的 利用“打开”对话框，打开选中的数据文件zgxx.txt，并从该文件中读取职工姓名、职称和工资，保存在数组中，并显示在文本框中。 清除文本框中的职工的信息。 在文本框中显示职工的信息。 按照姓名查询职工信息，并显示。 查询具有某一职称的职工信息和人数，并显示。 查询工资高于某个数值的职工的信息和人数，并显示。 2.关键问题的解决 ①设置属性 设计时要注意一些功能需要在其它功能之后才能使用，如 “清除数据”、“显示数据”等按钮需要在读入数据后才能使用，设计界面时需要将相应的按钮的Enable属性为false，在读入数据后才将按钮的Enable属性设置为True。 ②编写代码 需要对每一个窗体编写事件处理过程。最主要的工作包含在主窗体中，代码包括事件处理过程和必要的声明。变量声明部分声明本程序所需要的变量和数组，由于单击按钮时，都要对姓名、职称、工资进行操作，因此相应的数组和变量应定义为模块级的。在编写事件处理过程代码时注意以下几点： 定义模块级动态数组分别用于存放姓名、职称、工资数据，这些数组应定义为模块级的。 单击“读取数据”按钮，利用通用对话框所提供的打开标准对话框来选择要打开的数据文件，并利用文件的基本操作将该文件中的的数据依次读入到相应数组中。 利用InputBox 函数来输入要查询的职工的姓名、职称或工资。 利用MsgBox 函数或另一个窗体来显示高于高于或等于某个数值的职工信息。 在“职称查询”或“工资查询”，定义数组分别用于存放符合要求的职工的姓名、职称、工资数据，由于不能确定符合要求的职工人数，所以数组要定义为动态的。 注意为保留动态数组中存放的内容，在使用ReDim语句中要加上Preserve关键字。 二、模块之间的调用关系，或程序流程图 三、部分程序关键源代码及注释 Private Sub Command1_Click() Close ComDlg.Filter = 文本文件(*.txt)|*.txt|所有文件(*.*)|*.* 选择文件夹 ComDlg.FilterIndex = 0 ComDlg.ShowOpen filepath = ComDlg.FileName Open filepath For Input As #1 Command2.Enabled = True Command3.Enabled = True Command5.Enabled = True Command6.Enabled = True Command7.Enabled = True Text1.Text = 姓名 职称 工资 vbCrLf --------------------------------------------- vbCrLf Dim StrLine As String, a() As String 在循环中存放每行的内容 i = 0 Do While Not EOF(1) EOF为文尾测试函数 Line Input #1, StrLine ’将读入的一行存到变量中 If StrLine Then a() = Split(StrLine, ,) For n = 0 To 2 data(i, n) = a(n) Next End If i = i + 1 Loop num = i For m = 0 To num For n = 0 To 3 Text1.Text = Text1.Text data(m, n) Space(4) Next Text1.Text = Text1.Text vbCrLf Next End Sub 四、设计方案的完善及目前存在的问题 1．设计方案要完善的地方 可以加入背景图片 2. 目前存在的问题 文件读取不稳定 五、本次设计的收获及心得体会 提高了我综合利用语言进行程序设计的能力， 职工信息查询系统课程设计报告 编号：18