1、職工信息管理系統設計報告（VB編號：22職工信息管理系統設計報告學院姓名土木工程馬驍飛班級成績測繪C111學號117551、設計思路1. 要達到的目的培養學生綜合利用 VB語言進行程序設計的能力，主要是培養學生綜合使用基本控件的、文件讀寫、數組操 作等能力。利用讀取數據按鈕，打開選中的數據文件職工.txt，并從該文件中讀取職工職工號、姓名、職稱和工資，保存在數組中，并顯示在文本框中。清除文本框中的職工的信息。在文本框中顯示職工的信息。按照職工號查詢職工信息，并顯示。按照姓名查詢職工信息，并顯示。按照職工號修改職工信息，并顯示。按照姓名修改職工信息，并顯示。追加一條記錄數據，并顯示 。2. 關鍵

2、問題的解決txt ，并（1）通過“讀取數據”按鈕應能利用應能利用右側圖示樣式窗體形式，打開選中的數據文件職工 從該文件中讀取職工職工號、姓名、職稱和工資，保存在數組中，并顯示在文本框中。（2）通過“清除數據”按鈕應能清除文本框中的內容。（3） 從“按職工號查詢”按鈕左端文本框輸入職工號，單擊“按職工號查詢”，在窗體大的文本框中顯示查 詢結果。從“按姓名查詢”按鈕左端文本框輸入姓名，單擊“按姓名查詢”按鈕，在窗體大的文本框中顯示查詢結果。（4） 從“按職工號修改”（“按姓名修改”）按鈕，在輸入對話框中輸入職工號，對查詢到的職工的職工號 （姓名）進行修改，在窗體大的文本框中顯示修改結果。 txt

3、中,從輸入一條記錄后文本框中輸入一條記錄信息，單擊“追加數據并顯示結果”按鈕，添加到職工 并將追加數據后職工.txt的信息顯示窗體的大文本框中。、部分程序關鍵源代碼及注釋rivate Sub Command1_Click()Form2.ShowEnd SubPrivate Sub Command2_Click()Listl.ClearEnd SubPrivate Sub Command3_Click() e = TrueUnload MeEnd SubPrivate Sub Command4_Click()List1.ClearIf Text3.Text = "1 仃001"

4、; ThenList1.Addltem "張三 1仃 001"ElseIf Text3.Text = "1 仃002" ThenList1.AddItem "李四 1仃002"ElseIf Text3.Text = "1 仃003" ThenList1.AddItem "王五 1仃003"ElseIf Text3.Text = "1 仃004" ThenList1.AddItem "王六 1仃004"ElseIf Text3.Text = "1

5、仃005" ThenList1.AddItem "趙七 1仃005"ElseIf Text3.Text = "1 仃006" ThenList1.AddItem "李八 1仃006"ElseIf Text3.Text = "1 仃007" ThenList1.AddItem "劉九 1仃007"ElseIf Text3.Text = "1 仃008" ThenList1.AddItem "馬十117008"Else: MsgBox "青

6、輸入正確的職工號"End IfEnd SubPrivate Sub Command5_Click()Dim a As StringDim b As String b = Inp utBox（"請輸入要修改的職工的職工號 "） a = InputBox（"請輸入新的職工姓名"）If b = "117001" ThenList1.AddItem a & "IIElseIf b = "1 仃002" ThenList1.AddItem a & "IIElseIf b = &q

7、uot;1 仃003" ThenList1.AddItem a & "IIElseIf b = "117004" ThenList1.AddItem a & "IIElseIf b = "1 仃005" ThenList1.AddItem a & "IIElseIf b = "1 仃006" ThenList1.AddItem a & "IIElseIf b = "1 仃007" ThenList1.AddItem a & &

8、quot;IIElseIf b = "1 仃008" ThenList1.AddItem a & "IIElse: MsgBox "請輸入正確的職工號"End IfList1.AddItem a & "End SubPrivate Sub Command6_Click（）Listl.ClearIf Text2.Text ="張三"ThenListl.AddItem "張三 1仃 001"ElseIf Text2.Text ="李四"ThenListl.AddI

9、tem "李四 1仃002"Elself Text2.Text ="王五"ThenListl.AddItem "王五 1仃003"Elself Text2.Text ="王六"ThenList1.AddItem "王六 1仃004"ElseIf Text2.Text ="趙七"ThenList1.AddItem "趙七 1仃005"ElseIf Text2.Text ="李八"ThenList1.AddItem "李八 1仃0

10、06"ElseIf Text2.Text ="劉九"ThenList1.AddItem "劉九 1仃007"ElseIf Text2.Text ="馬十"ThenList1.AddItem "馬十117008"Else: MsgBox "青輸入正確的職工姓名"End IfEnd SubPrivate Sub Command7_Click()Dim a As StringDim b As String a = InputBox（"請輸入要修改的職工姓名"） b = S

11、tr(InputBox("請輸入新職工號")If a ="張三"ThenList1.AddItem a & "Elself a ="李四"ThenListl.AddItem a & "IIElself a ="王五"ThenListl.AddItem a & "IIElself a ="王六"ThenListl.AddItem a & "IIElself a ="趙七"ThenListl.AddItem

12、a & "IIElseIf a ="李八"ThenListl.AddItem a & "IIElseIf a ="劉九"ThenListl.AddItem a & "IIElseIf a ="馬十"ThenListl.AddItem a & "IIElse: MsgBox "青輸入正確的職工姓名"End IfEnd SubPrivate Sub Command8_Click()Dim a As StringDim b As String a =

13、 InputBox（"請輸入新員工姓名"） b = InputBox（"請輸入新員工的職工號"）List1.AddItem a & "End SubPrivate Sub Combo2_Change()Select Case Comb2.TextCase "*.txt"Filel.Pattern ="*.txt"Case "*.ini"Filel.Pattern ="*.ini"Case "*.doc"Filel.Pattern =&qu

14、ot;*.doc"Case "*.*"Filel.Pattern = I*End SelectEnd SubPrivate Sub Command1_Click()Dim fileno As Integer, strl As String fileno = FreeFileOpen "職工信息.txt" For Input As #filenoDo While Not EOF(fileno)Input #fileno, str1Form1.List1.Addltem str1LoopClose #filenoForm1.ShowMe.HideE

15、nd SubPrivate Sub Command2_Click()Form1.ShowEnd SubPrivate Sub Drive1_Change()Dirl.Path = Drivel.DriveEnd SubPrivate Sub File1_Click()Text3.Text = File1.FileNameEnd SubPrivate Sub VScroll1_Change()Form1.ShowEnd Sub三、設計方案的完善及目前存在的問題1.設計方案要完善的地方追加的信息無法加載到“職工信息txt ”里查詢只是單一的一對一輸入，不智能文件類型的篩選問題暫未處理辦法2.目前存在的問題只是簡單的查詢，不適合大量數據的導入與導出，不方便查看四、本次設計的收獲及心得體會第一次嘗試程序的制