VB課程設(shè)-18測(cè)繪C111王宇晨

1、.職工信息查詢系統(tǒng)設(shè)計(jì)報(bào)告學(xué)院 土木工程學(xué)院 班級(jí) 測(cè)繪C111 學(xué)號(hào) 117557 姓名 王宇晨 成績(jī) 一、設(shè)計(jì)思路1.要達(dá)到的目的n 利用“打開(kāi)”對(duì)話框，打開(kāi)選中的數(shù)據(jù)文件zgxx.txt，并從該文件中讀取職工姓名、職稱和工資，保存在數(shù)組中，并顯示在文本框中。n 清除文本框中的職工的信息。n 在文本框中顯示職工的信息。n 按照姓名查詢職工信息，并顯示。n 查詢具有某一職稱的職工信息和人數(shù)，并顯示。n 查詢工資高于某個(gè)數(shù)值的職工的信息和人數(shù)，并顯示。2.關(guān)鍵問(wèn)題的解決設(shè)置屬性設(shè)計(jì)時(shí)要注意一些功能需要在其它功能之后才能使用，如 “清除數(shù)據(jù)”、“顯示數(shù)據(jù)”等按鈕需要在讀入數(shù)據(jù)后才能使用，設(shè)計(jì)界面

2、時(shí)需要將相應(yīng)的按鈕的Enable屬性為false，在讀入數(shù)據(jù)后才將按鈕的Enable屬性設(shè)置為T(mén)rue。編寫(xiě)代碼需要對(duì)每一個(gè)窗體編寫(xiě)事件處理過(guò)程。最主要的工作包含在主窗體中，代碼包括事件處理過(guò)程和必要的聲明。變量聲明部分聲明本程序所需要的變量和數(shù)組，由于單擊按鈕時(shí)，都要對(duì)姓名、職稱、工資進(jìn)行操作，因此相應(yīng)的數(shù)組和變量應(yīng)定義為模塊級(jí)的。在編寫(xiě)事件處理過(guò)程代碼時(shí)注意以下幾點(diǎn)：（1） 定義模塊級(jí)動(dòng)態(tài)數(shù)組分別用于存放姓名、職稱、工資數(shù)據(jù)，這些數(shù)組應(yīng)定義為模塊級(jí)的。（2） 單擊“讀取數(shù)據(jù)”按鈕，利用通用對(duì)話框所提供的打開(kāi)標(biāo)準(zhǔn)對(duì)話框來(lái)選擇要打開(kāi)的數(shù)據(jù)文件，并利用文件的基本操作將該文件中的的數(shù)據(jù)依次讀入到相

3、應(yīng)數(shù)組中。（3） 利用InputBox 函數(shù)來(lái)輸入要查詢的職工的姓名、職稱或工資。（4） 利用MsgBox 函數(shù)或另一個(gè)窗體來(lái)顯示高于高于或等于某個(gè)數(shù)值的職工信息。（5） 在“職稱查詢”或“工資查詢”，定義數(shù)組分別用于存放符合要求的職工的姓名、職稱、工資數(shù)據(jù)，由于不能確定符合要求的職工人數(shù)，所以數(shù)組要定義為動(dòng)態(tài)的。（6） 注意為保留動(dòng)態(tài)數(shù)組中存放的內(nèi)容，在使用ReDim語(yǔ)句中要加上Preserve關(guān)鍵字。二、模塊之間的調(diào)用關(guān)系，或程序流程圖三、部分程序關(guān)鍵源代碼及注釋Private Sub Command1_Click()CloseComDlg.Filter = "文本文件(*.tx

4、t)|*.txt|所有文件(*.*)|*.*" 選擇文件夾ComDlg.FilterIndex = 0ComDlg.ShowOpenfilepath = ComDlg.FileNameOpen filepath For Input As #1Command2.Enabled = TrueCommand3.Enabled = TrueCommand5.Enabled = TrueCommand6.Enabled = TrueCommand7.Enabled = TrueText1.Text = "姓名 職稱 工資" & vbCrLf & "

5、-" & vbCrLf Dim StrLine As String, a() As String 在循環(huán)中存放每行的內(nèi)容 i = 0 Do While Not EOF(1) EOF為文尾測(cè)試函數(shù) Line Input #1, StrLine 將讀入的一行存到變量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

6、 To num For n = 0 To 3 Text1.Text = Text1.Text & data(m, n) & Space(4) Next Text1.Text = Text1.Text & vbCrLf NextEnd Sub四、設(shè)計(jì)方案的完善及目前存在的問(wèn)題1設(shè)計(jì)方案要完善的地方可以加入背景圖片2. 目前存在的問(wèn)題文件讀取不穩(wěn)定五、本次設(shè)計(jì)的收獲及心得體會(huì)提高了我綜合利用VB語(yǔ)言進(jìn)行程序設(shè)計(jì)的能力，增強(qiáng)了使用基本控件的、文件讀寫(xiě)、數(shù)組操作和菜單設(shè)計(jì)等能力，提高了我對(duì)學(xué)習(xí)VB的興趣。在這一周里經(jīng)過(guò)了對(duì)VB的查找和詢問(wèn)，確確實(shí)實(shí)的學(xué)到了很多東西。真重用到時(shí)才發(fā)發(fā)現(xiàn)自己的不足，其間參考了老師做的范例，也借助網(wǎng)絡(luò)查找了一些資料。通過(guò)本次的課程設(shè)計(jì)，不僅使我在知識(shí)上有了很大增長(zhǎng)，也使