職工信息管理系統(tǒng)22測繪c111

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

2、的數(shù)據(jù)文件職工.txt，并職工職工號、和工資，保存在數(shù)組中，并顯示在文本框中。通過“清除數(shù)據(jù)”按鈕應(yīng)能清除文本框中的內(nèi)容。從“按職工號查詢”按鈕左端文本框輸入職工號，單擊“按職工號查詢”，在窗體大的文本框中顯示查詢結(jié)果。從“按查詢”按鈕左端文本框輸入中顯示查詢結(jié)果。，單擊“按查詢”按鈕，在窗體大的文本框（4）從“按職工號修改” （“按修改”）按鈕，在輸入框中輸入職工號，對查詢到的職工的職工號()進行修改，在窗體大的文本框中顯示修改結(jié)果。從輸入一條后文本框中輸入一條信息，單擊“追加數(shù)據(jù)并顯示結(jié)果”按鈕，添加到職工.txt 中，并將追加數(shù)據(jù)后職工.txt 的信息顯示窗體的大文本框中。二、部分程序關(guān)

3、鍵源代碼及注釋rivate Sub Form2.ShowEnd Subd1_Click()Private Subd2_Click()List1.ClearEnd SubPrivate Sub e = TrueUnload Med3_Click()End SubPrivate SubList1.Cleard4_Click()If Text3.Text = 117001 ThenList1.AddItem 117001ElseIf Text3.Text = 117002 ThenList1.AddItem 117002ElseIf Text3.Text = 117003 ThenList1.Add

4、Item 117003ElseIf Text3.Text = 117004 ThenList1.AddItem 117004ElseIf Text3.Text = 117005 ThenList1.AddItem 117005ElseIf Text3.Text = 117006 ThenList1.AddItem 117006ElseIf Text3.Text = 117007 ThenList1.AddItem 117007ElseIf Text3.Text = 117008 ThenList1.AddItem 117008Else: MsgBox 請輸入正確的職工號End IfEnd Su

5、bPrivate Sub Dim a As StringDim b As Stringd5_Click()b = InputBox(請輸入要修改的職工的職工號)a = InputBox(請輸入新的職工)If b = 117001 Then List1.AddItem a & ElseIf b = 117002 Then List1.AddItem a & ElseIf b = 117003 Then List1.AddItem a & ElseIf b = 117004 Then List1.AddItem a & ElseIf b = 117005 Then List1.AddItem a

6、& ElseIf b = 117006 Then List1.AddItem a & ElseIf b = 117007 Then List1.AddItem a & ElseIf b = 117008 ThenList1.AddItem a & & b & b & b & b & b & b & b & bElse: MsgBox 請輸入正確的職工號End IfList1.AddItem a & End Sub & bPrivate Sub List1.ClearIf Text2.Text = List1.AddItem ElseIf Text2.Text = List1.AddItem E

7、lseIf Text2.Text = List1.AddItem ElseIf Text2.Text = List1.AddItem ElseIf Text2.Text = List1.AddItem ElseIf Text2.Text = List1.AddItem ElseIf Text2.Text = List1.AddItem ElseIf Text2.Text = List1.AddItem d6_Click() Then 117001 Then 117002 Then 117003 Then 117004 Then 117005 Then 117006 Then 117007 Th

8、en117008Else: MsgBox 請輸入正確的職工End IfEnd SubPrivate SubDim a As String Dim b As Stringd7_Click()a = InputBox(請輸入要修改的職工b = Str(InputBox(請輸入新職工號)If a = ThenList1.AddItem a & & bElseIf a = ThenList1.AddItem a & & bElseIf a = ThenList1.AddItem a & & bElseIf a = ThenList1.AddItem a & & bElseIf a = ThenList

9、1.AddItem a & & bElseIf a = ThenList1.AddItem a & & bElseIf a = ThenList1.AddItem a & & bElseIf a = ThenList1.AddItem a & & bElse: MsgBox 請輸入正確的職工End IfEnd SubPrivate SubDim a As String Dim b As Stringd8_Click()a = InputBox(請輸入新員工)b = InputBox(請輸入新員工的職工號)List1.AddItem a & End Sub & bPrivate Sub Comb

10、o2_Change()Select Case Comb2.TextCase *.txt File1.Pattern = *.txt Case *.ini File1.Pattern = *.ini Case *.doc File1.Pattern = *.doc Case *.* File1.Pattern = *.*End SelectEnd SubPrivate Sub Dim fileno Asfileno = FreeFiled1_Click()eger, strl As StringOpen 職工信息.txt For Input As #fileno i = 0Do While No

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