Vb課程設(shè)計報告報告-職工信息管理系統(tǒng)

1、-. z.職工信息管理系統(tǒng) 設(shè)計報告一、設(shè)計思路1.要達(dá)到的目的培養(yǎng)學(xué)生綜合利用VB語言進(jìn)行程序設(shè)計的能力，主要是培養(yǎng)學(xué)生綜合使用基本控件的、文件讀寫、數(shù)組操作等能力。利用讀取數(shù)據(jù)按鈕，打開選中的數(shù)據(jù)文件職工.t*t，并從該文件中讀取職工職工號、職稱和工資，保存在數(shù)組中，并顯示在文本框中。清除文本框中的職工的信息。在文本框中顯示職工的信息。按照職工號查詢職工信息，并顯示。按照查詢職工信息，并顯示。按照職工號修改職工信息，并顯示。按照修改職工信息，并顯示。追加一條記錄數(shù)據(jù)，并顯示。2.關(guān)鍵問題的解決通過讀取數(shù)據(jù)”按鈕應(yīng)能利用應(yīng)能利用右側(cè)圖示樣式窗體形式，打開選中的數(shù)據(jù)文件職工.t*t，并從該文件

2、中讀取職工職工號、職稱和工資，保存在數(shù)組中，并顯示在文本框中。通過清除數(shù)據(jù)”按鈕應(yīng)能清除文本框中的容。 從按職工號查詢”按鈕左端文本框輸入職工號，單擊按職工號查詢”，在窗體大的文本框中顯示查詢結(jié)果。從按查詢”按鈕左端文本框輸入，單擊按查詢”按鈕，在窗體大的文本框中顯示查詢結(jié)果。從按職工號修改” （按修改”）按鈕，在輸入對話框中輸入職工號，對查詢到的職工的職工號()進(jìn)行修改，在窗體大的文本框中顯示修改結(jié)果。從輸入一條記錄后文本框中輸入一條記錄信息，單擊追加數(shù)據(jù)并顯示結(jié)果”按鈕，添加到職工.t*t中，并將追加數(shù)據(jù)后職工.t*t的信息顯示窗體的大文本框中。二、部分程序關(guān)鍵源代碼及注釋rivate S

3、ub mand1_Click()Form2.ShowEnd SubPrivate Sub mand2_Click()List1.ClearEnd SubPrivate Sub mand3_Click()e = TrueUnload MeEnd SubPrivate Sub mand4_Click()List1.ClearIf Te*t3.Te*t = 117001 ThenList1.AddItem 三 117001ElseIf Te*t3.Te*t = 117002 ThenList1.AddItem 四 117002ElseIf Te*t3.Te*t = 117003 ThenList1.

4、AddItem 王五 117003ElseIf Te*t3.Te*t = 117004 ThenList1.AddItem 王六 117004ElseIf Te*t3.Te*t = 117005 ThenList1.AddItem 七 117005ElseIf Te*t3.Te*t = 117006 ThenList1.AddItem 八 117006ElseIf Te*t3.Te*t = 117007 ThenList1.AddItem 九 117007ElseIf Te*t3.Te*t = 117008 ThenList1.AddItem 馬十 117008Else: MsgBo* 請輸入

5、正確的職工號End IfEnd SubPrivate Sub mand5_Click()Dim a As StringDim b As Stringb = InputBo*(請輸入要修改的職工的職工號)a = InputBo*(請輸入新的職工)If b = 117001 ThenList1.AddItem a & & bElseIf b = 117002 ThenList1.AddItem a & & bElseIf b = 117003 ThenList1.AddItem a & & bElseIf b = 117004 ThenList1.AddItem a & & bElseIf b =

6、 117005 ThenList1.AddItem a & & bElseIf b = 117006 ThenList1.AddItem a & & bElseIf b = 117007 ThenList1.AddItem a & & bElseIf b = 117008 ThenList1.AddItem a & & bElse: MsgBo* 請輸入正確的職工號End IfList1.AddItem a & & bEnd SubPrivate Sub mand6_Click()List1.ClearIf Te*t2.Te*t = 三 ThenList1.AddItem 三 117001El

7、seIf Te*t2.Te*t = 四 ThenList1.AddItem 四 117002ElseIf Te*t2.Te*t = 王五 ThenList1.AddItem 王五 117003ElseIf Te*t2.Te*t = 王六 ThenList1.AddItem 王六 117004ElseIf Te*t2.Te*t = 七 ThenList1.AddItem 七 117005ElseIf Te*t2.Te*t = 八 ThenList1.AddItem 八 117006ElseIf Te*t2.Te*t = 九 ThenList1.AddItem 九 117007ElseIf Te*

8、t2.Te*t = 馬十 ThenList1.AddItem 馬十 117008Else: MsgBo* 請輸入正確的職工End IfEnd SubPrivate Sub mand7_Click()Dim a As StringDim b As Stringa = InputBo*(請輸入要修改的職工)b = Str(InputBo*(請輸入新職工號)If a = 三 ThenList1.AddItem a & & bElseIf a = 四 ThenList1.AddItem a & & bElseIf a = 王五 ThenList1.AddItem a & & bElseIf a = 王

9、六 ThenList1.AddItem a & & bElseIf a = 七 ThenList1.AddItem a & & bElseIf a = 八 ThenList1.AddItem a & & bElseIf a = 九 ThenList1.AddItem a & & bElseIf a = 馬十 ThenList1.AddItem a & & bElse: MsgBo* 請輸入正確的職工End IfEnd SubPrivate Sub mand8_Click()Dim a As StringDim b As Stringa = InputBo*(請輸入新員工)b = InputBo

10、*(請輸入新員工的職工號)List1.AddItem a & & bEnd SubPrivate Sub bo2_Change()Select Case b2.Te*tCase *.t*tFile1.Pattern = *.t*tCase *.iniFile1.Pattern = *.iniCase *.docFile1.Pattern = *.docCase *.*File1.Pattern = *.*End SelectEnd SubPrivate Sub mand1_Click()Dim fileno As Integer, strl As Stringfileno = FreeFile

11、Open 職工信息.t*t For Input As #filenoi = 0Do While Not EOF(fileno)Input #fileno, str1 Form1.List1.AddItem str1i = i + 1LoopClose #filenoForm1.ShowMe.HideEnd SubPrivate Sub mand2_Click()Form1.ShowEnd SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub File1_Click()Te*t3.Te*t = File1.FileNameEnd SubPrivate Sub VScroll1_Change()Form1.ShowEnd Sub三、設(shè)計方案的完善及目前存在的問題1設(shè)計方案要完善的地方追加的信息無法加載到職工信息t*t”里查詢只是單一的一對一輸入，不智能文件類型的篩選問題暫未處理辦法2. 目前存在的問題只是簡單的查詢，不適合大量數(shù)據(jù)的導(dǎo)入與導(dǎo)出，不方便查看四、本次設(shè)計的收獲及心得體會第一次嘗試程序的制作，覺得非常有意思，做成功以后很有成就感，我還發(fā)現(xiàn)，程序制作出來的好壞直接影響使用者的工作效率，