vb课程设-18测绘c111王宇晨

《vb课程设-18测绘c111王宇晨》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、职工信息查询系统课程设计报告编号：18职工信息查询系统设计报告学院土木工程学院班级测绘C111学号117557姓名王宇晨成绩一、设计思路1.要达到的目的n利用“打开”对话框，打开选中的数据文件zgxx.txt，并从该文件中读取职工姓名、职称和工资，保存在数组中，并显示在文本框中。n清除文本框中的职工的信息。n在文本框中显示职工的信息。n按照姓名查询职工信息，并显示。n查询具有某一职称的职工信息和人数，并显示。n查询工资高于某个数值的职工的信息和人数，并显示。2.关键问题的解决①设置属性设计时要注意一些功能需要在

2、其它功能之后才能使用，如“清除数据”、“显示数据”等按钮需要在读入数据后才能使用，设计界面时需要将相应的按钮的Enable属性为false，在读入数据后才将按钮的Enable属性设置为True。②编写代码需要对每一个窗体编写事件处理过程。最主要的工作包含在主窗体中，代码包括事件处理过程和必要的声明。变量声明部分声明本程序所需要的变量和数组，由于单击按钮时，都要对姓名、职称、工资进行操作，因此相应的数组和变量应定义为模块级的。在编写事件处理过程代码时注意以下几点：（1）定义模块级动态数组分别用于存放姓名、职称、工

3、资数据，这些数组应定义为模块级的。（2）单击“读取数据”按钮，利用通用对话框所提供的打开标准对话框来选择要打开的数据文件，并利用文件的基本操作将该文件中的的数据依次读入到相应数组中。（3）利用InputBox函数来输入要查询的职工的姓名、职称或工资。（4）利用MsgBox函数或另一个窗体来显示高于高于或等于某个数值的职工信息。（5）在“职称查询”或“工资查询”，定义数组分别用于存放符合要求的职工的姓名、职称、工资数据，由于不能确定符合要求的职工人数，所以数组要定义为动态的。（6）注意为保留动态数组中存放的内容，

4、在使用ReDim语句中要加上Preserve关键字。二、模块之间的调用关系，或程序流程图职工信息查询系统课程设计报告编号：18三、部分程序关键源代码及注释PrivateSubCommand1_Click()CloseComDlg.Filter="文本文件(*.txt)

5、*.txt

6、所有文件(*.*)

7、*.*"选择文件夹ComDlg.FilterIndex=0ComDlg.ShowOpenfilepath=ComDlg.FileNameOpenfilepathForInputAs#1Command2.Enable

8、d=TrueCommand3.Enabled=TrueCommand5.Enabled=TrueCommand6.Enabled=TrueCommand7.Enabled=TrueText1.Text="姓名职称工资"&vbCrLf&"---------------------------------------------"&vbCrLfDimStrLineAsString,a()AsString在循环中存放每行的内容i=0DoWhileNotEOF(1)EOF为文尾测试函数LineInput#1,StrLi

9、ne’将读入的一行存到变量StrLine中IfStrLine<>""Thena()=Split(StrLine,",")Forn=0To2data(i,n)=a(n)Next职工信息查询系统课程设计报告编号：18EndIfi=i+1Loopnum=iForm=0TonumForn=0To3Text1.Text=Text1.Text&data(m,n)&Space(4)NextText1.Text=Text1.Text&vbCrLfNextEndSub四、设计方案的完善及目前存在的问题1．设计方案要完善的地方可以

10、加入背景图片2.目前存在的问题文件读取不稳定五、本次设计的收获及心得体会提高了我综合利用VB语言进行程序设计的能力，增强了使用基本控件的、文件读写、数组操作和菜单设计等能力，提高了我对学习VB的兴趣。在这一周里经过了对VB的查找和询问，确确实实的学到了很多东西。真重用到时才发发现自己的不足，其间参考了老师做的范例，也借助网络查找了一些资料。通过本次的课程设计，不仅使我在知识上有了很大增长，也使我对待学问的态度又很跟大转变。六、对该题目和VB设计的意见和建议1.对该题目的意见和建议希望能简单的操作和设计。2．对本

11、次设计的意见和建议功能单一，实际作用小，无法得到广泛应用。可视性不强！