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

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

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

3、應(yīng)數(shù)組中。（3） 利用InputBox 函數(shù)來輸入要查詢的職工的姓名、職稱或工資。（4） 利用MsgBox 函數(shù)或另一個窗體來顯示高于高于或等于某個數(shù)值的職工信息。（5） 在“職稱查詢”或“工資查詢”，定義數(shù)組分別用于存放符合要求的職工的姓名、職稱、工資數(shù)據(jù)，由于不能確定符合要求的職工人數(shù)，所以數(shù)組要定義為動態(tài)的。（6） 注意為保留動態(tài)數(shù)組中存放的內(nèi)容，在使用ReDim語句中要加上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為文尾測試函數(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è)計方案的完善及目前存在的問題1設(shè)計方案要完善的地方可以加入背景圖片2. 目前存在的問題文件讀取不穩(wěn)定五、本次設(shè)計的收獲及心得體會提高了我綜合利用VB語言進行程序設(shè)計的能力，增強了使用基本控件的、文件讀寫、數(shù)組操作和菜單設(shè)計等能力，提高了我對學習VB的興趣。在這一周里經(jīng)過了對VB的查找和詢問，確確實實的學到了很多東西。真重用到時才發(fā)發(fā)現(xiàn)自己的不足，其間參考了老師做的范例，也借助網(wǎng)絡(luò)查找了一些資料。通過本次的課程設(shè)計，不僅使我在知識上有了很大增長，也使