【文章內(nèi)容簡介】 數(shù)組，lblField是一個Label控件數(shù)組，用于顯示字段名稱，txtValue用于輸入這些字段的值；另外還有一個“添加”按鈕和“取消”按鈕，分別實現(xiàn)添加員工和退出窗體的功能。： 添加員工窗體 創(chuàng)建修改員工窗體 在窗體顯示的時候，保證窗體上面的數(shù)據(jù)與在人員管理窗體上選定的行的數(shù)據(jù)一致，同時保證職工ID不可改動。當用戶單擊“修改”按鈕時，生成并執(zhí)行對應(yīng)的修改語句。窗體初始化時，會把“人員管理”窗體中選中的數(shù)據(jù)顯示到TxtValue控件數(shù)組中，用戶修改txtValue控件數(shù)組中的文字內(nèi)容。單擊“修改”按鈕，則生成并執(zhí)行ＳＱＬ語句，實現(xiàn)修改功能。單擊“取消”按鈕，退出該窗體。： 　　　　　　　　　　 職位管理模塊的設(shè)計與實現(xiàn)點擊主窗口“職位”菜單后，顯示職位信息管理窗口。該模塊實現(xiàn)職位信息的添加、刪除、修改功能。： 職位管理窗體用戶重新選擇DataGrid1控件中的行列，則記錄用戶所在的行。用戶單擊“添加職位”按鈕，則顯示添加職位窗體。用戶單擊“刪除職位”按鈕，則彈出對話框確認，無誤之后執(zhí)行SQL語句，刪除職位，然后刷新ADO數(shù)據(jù)控件，保證數(shù)據(jù)一致性。用戶單擊“修改職位”按鈕，則顯示修改職位窗體，并將相關(guān)用戶選定信息傳遞給修改職位窗體。操作完畢，用戶單擊“取消”按鈕，可以退出本窗體。其中為了保證數(shù)據(jù)庫和DataGrid控件中的數(shù)據(jù)一致性，實現(xiàn)DataGrid控件的數(shù)據(jù)顯示要進行以下操作：SQL = SELECT * FROM 職位 = Provider=。Data Source= amp。 gFile amp。 。Mode=ReadWrite。Persist Security Info=False = SQLSet = Adodc1 創(chuàng)建添加職位窗體本窗體實現(xiàn)添加一條記錄到職位表，并刷新人員管理窗體中的ADO數(shù)據(jù)控件，保持數(shù)據(jù)的一致性。在窗體初始化的時候，初始化為1b1Field控件數(shù)組。用戶對txtValue控件數(shù)組的屬性進行修改，當用戶單擊“添加”時，生成SQL語句并執(zhí)行，同時刷新職位管理窗體的數(shù)據(jù)。: 添加職位窗體 創(chuàng)建修改職位窗體 本窗體在顯示的時候，保證窗體上面的數(shù)據(jù)與在職位管理窗體上選定的行的數(shù)據(jù)一致，同時保證職位不可改動。窗體初始化時，會把“職位管理”窗體中選中的數(shù)據(jù)顯示到TxtValue控件數(shù)組中。用戶單擊“修改”按鈕，則生成并執(zhí)行SQL語句，實現(xiàn)修改的功能。用戶單擊“取消”按鈕，退出該窗體。： 修改職位窗體 特殊項管理模塊的設(shè)計與實現(xiàn)點擊主界面“特殊項管理”菜單后，顯示特殊項窗口。該窗口實現(xiàn)對特殊項的添加，刪除和修改功能。其界面如下圖所示： 特殊項管理界面初始進入界面時，界面左側(cè)顯示表所有查詢記錄，右側(cè)設(shè)有4個按鈕，分別實現(xiàn)增改刪的功能。用戶單擊“添加特殊項”按鈕，則顯示添加特殊項窗體。用戶單擊“刪除特殊項”按鈕，則彈出對話框確認，無誤后執(zhí)行SQL語句，刪除特殊項，刷新ADO數(shù)據(jù)控件，保證數(shù)據(jù)的一致性。用戶單擊“修改特殊項”按鈕，則顯示修改特殊項窗體，并將相關(guān)的用戶選定信息傳遞給修改特殊項窗體。操作完畢，用戶單擊“取消”按鈕，可以退出本窗體。 創(chuàng)建添加特殊項窗體本窗體實現(xiàn)添加一條記錄到特殊項表，并刷新人員管理窗體中的ADO數(shù)據(jù)控件，保持數(shù)據(jù)的一致性。在窗體初始化的時候，初始化1b1Field控件數(shù)組。用戶選擇對應(yīng)的員工姓名，程序能夠自動查找到對應(yīng)的職工ID：響應(yīng)cmbName的單擊事件，單擊姓名的時候會自動查找相對應(yīng)的職工ID。39。保證姓名與ID一致Private Sub cmbName_Click() = ()End Sub ： 添加特殊項窗體 創(chuàng)建修改特殊項窗體 窗體初始化時，會把“特殊項管理”窗體中選種的數(shù)據(jù)顯示到TxtValue控件數(shù)組中。用戶單擊“修改”按鈕，則生成并執(zhí)行SQL語句，實現(xiàn)修改的功能。用戶單擊“取消”按鈕，退出該窗體。： 修改特殊項窗體 工資發(fā)放管理模塊的設(shè)計與實現(xiàn)用戶點擊主界面“工資”菜單，顯示發(fā)放工資窗口。本窗體實現(xiàn)的具體功能如下：動態(tài)生成當月的工資表，查詢指定員工的工資信息，發(fā)放工資，打印工資憑條。： 工資發(fā)放界面用戶進入界面，首先選擇要發(fā)工資的月份和職工的姓名，點擊“生成月表”按鈕，系統(tǒng)便將生成的工資記錄顯示在界面左側(cè)的數(shù)據(jù)柵格中。單擊“發(fā)放工資”按鈕，發(fā)放工資，即將工資月表中的“發(fā)放完畢”字段設(shè)置為1。編寫窗體代碼，首先要聲明兩個窗體變量。分別是月表的名稱和員工的工資總額：Option Explicit39。月表的名稱39。動態(tài)生成39。在cmbMonth中用戶可以填入20036, 200306, 20030601等格式39。而月表的名稱都會變?yōu)?00306Public mTableName As String39。員工工資總額39。計算得到Public mSum As Double 統(tǒng)計報表模塊的設(shè)計與實現(xiàn) 用戶點擊主界面“報表”菜單，系統(tǒng)顯示報表。如下圖所示： 統(tǒng)計報表運行時界面本系統(tǒng)中只實現(xiàn)了前3個按鈕的功能。本窗體的工作流程就是在用戶單擊需要的按鈕，顯示相應(yīng)的窗體。窗體的代碼如下：Private Sub cmdMonthAll_Click() End SubPrivate Sub cmdMonthSpecial_Click() End SubPrivate Sub cmdThisMonthSalary_Click() End SubPrivate Sub cmdYears_Click()End SubPrivate Sub Form_Load()End Sub 42 / 425. 結(jié)束語本系統(tǒng)從開始到完成用了幾個月的時間，其中包括熟悉環(huán)境，設(shè)計編程與程序調(diào)試，最后撰寫畢業(yè)論文。通過這次畢業(yè)設(shè)計的實際“練兵”，使我對管理信息系統(tǒng)和數(shù)據(jù)庫有了更深刻更直觀的認識。平時課堂上的理論經(jīng)過自己的親身實踐，我對管理系統(tǒng)的開發(fā)過程包括需求分析、概要設(shè)計、詳細設(shè)計、代碼編寫、測試等都有深刻的體驗和全面的認識。經(jīng)過這段時間的設(shè)計和開發(fā)，工資管理系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成公司人員檔案的存儲和工資的查詢。對于數(shù)據(jù)的一致性的問題也通過程序進行了有效的解決。但是由于畢業(yè)設(shè)計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不夠等多方面問題。這些都有待在以后的版本中進一步改善。致 謝首先我要感謝我的指導(dǎo)老師王貴珍。其次，我還要感謝我的同事，當我遇到難題時他們幫助我一起解決，使我能在最短的時間里解決這些難題。在此，對于這些給予我?guī)椭娜藗儽磉_我深深地謝意！并祝他們永遠快樂！參考文獻【】作者：王興晶，出版社：電子工業(yè)出版社，出版日期：【數(shù)據(jù)庫設(shè)計】作者：Ryan ,Ronald ，何玉潔 武欣 鄧一凡 等譯，出版社：機械工業(yè)出版社，出版時間：【Visual Basic 數(shù)據(jù)庫應(yīng)用系統(tǒng)開發(fā)從基礎(chǔ)到實踐】作者：李長林 張麗華 王紅，出版社：電子工業(yè)出版社，出版時間：【VB 】 作者：新智工作室編著，出版社：電子工業(yè)出版社，出版時間：【數(shù)據(jù)庫應(yīng)用基礎(chǔ) Access 2003】 作者：張平主編，出版社：人民郵電出版社，出版時間：【數(shù)據(jù)庫原理與系統(tǒng)開發(fā)教程】 作者：伍俊良主編，出版社：清華大學(xué)出版社，出版時間：【VB語言程序設(shè)計】 作者：林卓然編著，出版社：電子工業(yè)出版社，出版時間：【】 作者：楊克玉主編，出版社：機械工業(yè)出版社，出版時間：【】 作者：羅朝盛主編，出版社：人民郵電出版社，出版時間：【Scot Hillier39。s COM+ Programming with Visual Basic】 作者：Scot Hillier，出版社：Sams，出版時間：1畢業(yè)設(shè)計過程中查閱的網(wǎng)站： 附錄 源程序清單一、標準模塊39。變量要求聲明Option Explicit39。Access數(shù)據(jù)庫文件的名稱Public gFile As String39。數(shù)據(jù)庫連接對象Public gCon As New 39。數(shù)據(jù)庫集合對象Public gRst As New 39。Excel程序?qū)ο驪ublic gX As 39。打開數(shù)據(jù)庫文件Public Sub OpenDBFile()39。打開錯誤處理陷阱Dim intErrFileNo As Integer 39。自由文件號On Error GoTo ErrGoto39。 Provider=。Data Source= amp。 gFile amp。 。Mode=ReadWrite。Persist Security Info=False39。 Exit Sub 39。ErrGoto:39。把錯誤信息保存在文件里 intErrFileNo = FreeFile()Open For Append As intErrFileNo Print intErrFileNo, Chr(34) + Format(Now, YYYYMMDD HH:MM:SS) + Chr(34), Chr(34) + 信息 + Chr(34), Chr(34) + + Chr(34), Chr(34) + OpenDBFile(Module1) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNoEnd Sub 39。關(guān)閉數(shù)據(jù)庫連接 39。Public Sub CloseDBFile() 39。打開錯誤處理陷阱 Dim intErrFileNo As Integer 39。自由文件號 On Error GoTo ErrGoto 39。