VB職工信息管理系統(tǒng)設計報告

職工信息管理系統(tǒng)課程設計報告（VB）編號：22職工信息管理系統(tǒng)設計報告一、設計思路1.要達到的目的①培養(yǎng)學生綜合利用VB語言進行程序設計的能力，提高學生綜合、熟練地使用基本控件，文件讀寫，數(shù)組操作的能力。②為了公司更加簡單方便的管理公司員工信息，可以簡單方便的查詢到職工的信息。②利用讀取數(shù)據(jù)按鈕，以順序文件的度操作打開“職工信息.txt”文件，讀取文件信息，并顯示到list1中，以便接下來對職工信息進行操作。③通過清除按鈕，清除list1中的職工的信息。④在list1中顯示職工的信息。⑤按照職工號查詢職工信息，并顯示。⑥按照姓名查詢職工信息，并顯示。⑦按照職工號修改職工信息，并顯示。⑧按照姓名修改職工信息，并顯示。⑨追加一條記錄數(shù)據(jù)，并顯示。2.關鍵問題的解決通過“讀取數(shù)據(jù)”按鈕能利用右側圖示樣式窗體形式，打開選中的數(shù)據(jù)文件職工.txt，并從該文件中讀取職工的職工號、姓名、職稱和工資，保存在數(shù)組中，并顯示在list1中。通過“清除數(shù)據(jù)”按鈕能夠清除list1中的內容。從“按職工號查詢”按鈕左端文本框輸入職工號，單擊“按職工號查詢”，在窗體list1中顯示查詢結果。從“按姓名查詢”按鈕左端文本框輸入姓名，單擊“按姓名查詢”按鈕，在窗體大的list1中顯示查詢結果。從“按職工號修改”（“按姓名修改”）按鈕，在輸入對話框中輸入職工號，對查詢到職工的職工號(姓名)進行修改，在窗體list1中顯示修改結果。從輸入一條記錄后文本框中輸入一條記錄信息，再將記錄信息通過追加數(shù)據(jù)按鈕添加到list1中，再通過數(shù)組將內容寫入到文件中。三、部分程序關鍵源代碼及注釋PrivateSubCommand1_Click()Form2.Show’顯示窗體2，以簡單易懂EndSubDimfilenoAsInteger,strlAsStringfileno=FreeFileOpen"職工信息.txt"ForInputAs#fileno’用open語句以Input式打開文件i=0DoWhileNotEOF(fileno)’循環(huán)至文件尾Input#fileno,str1’將數(shù)據(jù)讀入對應的框中Form1.List1.AddItemstr1i=i+1LoopClose#fileno‘關閉文件PrivateSubForm_Load()‘初始化，為組合框添加文件類型項目Item="所有文件（*.*）"Combo2.AddItemItem+Space(20-Len(Item))Item="窗體文件(*.frm)"Combo2.AddItemItem+Space(20-Len(Item))Item="文本文件(*.txt)"Combo2.AddItemItem+Space(20-Len(Item))Combo2.ListIndex=2PrivateSubCommand8_Click()List1.AddItemText1.Text’將追加的記錄添加的框中PrivateSubCommand2_Click()List1.Clear’清除用過的數(shù)據(jù)EndSubPrivateSubCommand3_Click()e=TrueUnloadMe’退出系統(tǒng)EndSubPrivateSubCommand5_Click()DimaAsStringDimbAsStringb=InputBox("請輸入要修改的職工的職工號")a=InputBox("請輸入新的職工姓名")List1.AddItem"新職工姓名"&""&"職工號"Ifb="143101"ThenList1.AddItema&""&bElseIfb="143102"ThenList1.AddItema&""&bElseIfb="143103"ThenList1.AddItema&""&bElseIfb="143104"ThenList1.AddItema&""&bElseIfb="143105"ThenList1.AddItema&""&bElseIfb="143106"ThenList1.AddItema&""&bElseIfb="143107"ThenList1.AddItema&""&bElseIfb="143108"ThenList1.AddItema&""&bElse:MsgBox"請輸入正確的職工號"EndIfEndSubPrivateSubCommand6_Click()’用姓名查詢職工信息List1.ClearIfText2.Text="葛茹"ThenList1.AddItem"葛茹143101經理6000（元）"ElseIfText2.Text="林海"ThenList1.AddItem"林海143002副經理5500（元）"ElseIfText2.Text="王丹"ThenList1.AddItem"王丹143103秘書3000（元）"ElseIfText2.Text="唐樂"ThenList1.AddItem"唐樂143104司機3000（元）"ElseIfText2.Text="王倩"ThenList1.AddItem"王倩143005工程師4000（元）"ElseIfText2.Text="林強"ThenList1.AddItem"林強143106總工程師4500（元）"ElseIfText2.Text="李仁"ThenList1.AddItem"李仁143007工人3500（元）"ElseIfText2.Text="高翔"ThenList1.AddItem"高翔143108工人3500（元）"Else:MsgBox"請輸入正確的職工姓名"EndIfEndSubPrivateSubCommand7_Click()’按姓名修改職工號DimaAsStringDimbAsStringa=InputBox("請輸入要修改的職工姓名")b=Str(InputBox("請輸入新職工號"))List1.AddItem"職工姓名"&""&"新職工號"Ifa="葛茹"ThenList1.AddItema&""&bElseIfa="林海"ThenList1.AddItema&""&bElseIfa="王丹"ThenList1.AddItema&""&bElseIfa="唐樂"ThenList1.AddItema&""&bElseIfa="王倩"ThenList1.AddItema&""&bElseIfa="林強"ThenList1.AddItema&""&bElseIfa="李仁"ThenList1.AddItema&""&bElseIfa="高翔"ThenList1.AddItema&""&bElse:MsgBox"請輸入正確的職工姓名"’MsgBox提示信息錯誤EndIfEndSub四、設計方案的完善及目前存在的問題1．設計方案要完善的地方①該設計方案創(chuàng)新部分完成較少，對于創(chuàng)新部分已有自己的思路，但細節(jié)不太會，導致程序不能運行，所以沒有寫。查詢工資在某一區(qū)間的應該對數(shù)組中的數(shù)用選擇結構進行整理。②對工資進行排序，升序降序問題不能夠有效地解決。③設計方案較為繁瑣，只能查詢，不利于大量信息的導入。2.目前存在的問題本程序在編寫時按姓名修改和按職工號修改都要通過數(shù)組實現(xiàn)，自己的文件時通過數(shù)組導入的，在編寫程序時沒有用數(shù)組，而是用了比較麻煩的方法，對數(shù)組的應用還不太熟悉。五、本次設計的收獲及心得體會這是自己第一次獨立設計程序，而且該程序實際意義很大，自己在完成基本要求后有大的成就感。在程序設計過程中，查閱了大量的資料，看了很多書上沒有講到的內容，再有不會的也通過老師弄懂了思路，體驗到了獨立學習的樂趣，也從內心對vb有了深入的了解。臨近考試，通過這