【正文】 理窗體，特殊項(xiàng)管理窗體，工資發(fā)放窗體，統(tǒng)計(jì)報(bào)表窗體和退出程序。然后刷新ADO數(shù)據(jù)控件，保證數(shù)據(jù)庫(kù)和DataGrid控件中的數(shù)據(jù)一致性。窗體初始化時(shí)，會(huì)把“人員管理”窗體中選中的數(shù)據(jù)顯示到TxtValue控件數(shù)組中，用戶修改用戶單擊“刪除職位”按鈕，則彈出對(duì)話框確認(rèn)，無(wú)誤之后執(zhí)行SQL語(yǔ)句，刪除職位，然后刷新ADO數(shù)據(jù)控件，保證數(shù)據(jù)一致性。Persist Security Info=False = SQLSet = Adodc1 創(chuàng)建添加職位窗體本窗體實(shí)現(xiàn)添加一條記錄到職位表，并刷新人員管理窗體中的ADO數(shù)據(jù)控件，保持?jǐn)?shù)據(jù)的一致性。該窗口實(shí)現(xiàn)對(duì)特殊項(xiàng)的添加，刪除和修改功能。用戶選擇對(duì)應(yīng)的員工姓名，程序能夠自動(dòng)查找到對(duì)應(yīng)的職工ID：響應(yīng)cmbName的單擊事件，單擊姓名的時(shí)候會(huì)自動(dòng)查找相對(duì)應(yīng)的職工ID。單擊“發(fā)放工資”按鈕，發(fā)放工資，即將工資月表中的“發(fā)放完畢”字段設(shè)置為1。計(jì)算得到Public mSum As Double 統(tǒng)計(jì)報(bào)表模塊的設(shè)計(jì)與實(shí)現(xiàn) 用戶點(diǎn)擊主界面“報(bào)表”菜單，系統(tǒng)顯示報(bào)表。對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。Access數(shù)據(jù)庫(kù)文件的名稱Public gFile As String39。Data Source= amp。關(guān)閉數(shù)據(jù)庫(kù)連接 39。打開(kāi)數(shù)據(jù)集Public Sub OpenRS(SQL As String) 39。打開(kāi)錯(cuò)誤處理陷阱 Dim intErrFileNo As Integer 39。調(diào)用人員管理窗體Private Sub HRManage_Click() End Sub39。顯示添加員工窗體Private Sub cmdAddEmployee_Click() End Sub39。 ?, vbYesNo) Then 39。把錯(cuò)誤信息保存在文件里 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) + cmdDeleteEmployee_Click(HRForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNoEnd Sub39。 CurEm = 39。 。自由文件號(hào) On Error GoTo ErrGoto 39。 , SQL = SQL amp。執(zhí)行SQL語(yǔ)句 SQL 39。退出程序Private Sub cmdCancel_Click() End Sub39。 txtValue(1).Text amp。 txtValue(5).Text amp。 Exit Sub 39。自由文件號(hào) On Error GoTo ErrGoto 39。把錯(cuò)誤信息保存在文件里 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) + cmdDelete_Click(PosForm) + Chr(34), Chr(34) + + Chr(34) Close intErrFileNoEnd SubPrivate Sub cmdRefresh_Click() Exit Sub 39。 amp。當(dāng)前行 = 39。打開(kāi)連接 OpenDBFile 39。 txtValue(3).Text amp。 39。 Exit Sub 39。 , SQL = SQL amp。 , SQL = SQL amp。ErrGoto: 39。自由文件號(hào) On Error GoTo ErrGoto 39。End Sub39。關(guān)閉數(shù)據(jù)庫(kù)連接 CloseDBFile 39。自由文件號(hào) On Error GoTo ErrGoto 39。調(diào)用工資發(fā)放窗體Private Sub PayoffTable_Click() End Sub39。ErrGoto: 39。 Exit Sub 39。 39。Persist Security Info=False39。打開(kāi)數(shù)據(jù)庫(kù)文件Public Sub OpenDBFile()39。其次，我還要感謝我的同事，當(dāng)我遇到難題時(shí)他們幫助我一起解決，使我能在最短的時(shí)間里解決這些難題。通過(guò)這次畢業(yè)設(shè)計(jì)的實(shí)際“練兵”，使我對(duì)管理信息系統(tǒng)和數(shù)據(jù)庫(kù)有了更深刻更直觀的認(rèn)識(shí)。動(dòng)態(tài)生成39。用戶單擊“取消”按鈕，退出該窗體。用戶單擊“修改特殊項(xiàng)”按鈕，則顯示修改特殊項(xiàng)窗體，并將相關(guān)的用戶選定信息傳遞給修改特殊項(xiàng)窗體。窗體初始化時(shí)，會(huì)把“職位管理”窗體中選中的數(shù)據(jù)顯示到TxtValue控件數(shù)組中。Data Source= amp。： 　　　　　　　　　　 職位管理模塊的設(shè)計(jì)與實(shí)現(xiàn)點(diǎn)擊主窗口“職位”菜單后，顯示職位信息管理窗口。當(dāng)前選定行號(hào)Public CurEm As Integer 創(chuàng)建添加員工窗體 本窗體實(shí)現(xiàn)添加一條記錄到職工表，并刷新人員管理窗體中的ADO數(shù)據(jù)控件，保持?jǐn)?shù)據(jù)的一直性。 人員管理模塊的設(shè)計(jì)與實(shí)現(xiàn)人員管理窗體的功能主要實(shí)現(xiàn)人員的增改刪功能。數(shù)據(jù)庫(kù)文件的名稱Public gFile As String39。：職工姓名性別出生年月工作年月職位職工IDn屬性1職位職位基本工資津貼11發(fā)放考核1n工資特殊項(xiàng)時(shí)間金額名稱職工ID職工ID工資取畢合計(jì)工資 系統(tǒng)實(shí)體關(guān)系圖 邏輯設(shè)計(jì)關(guān)系模式1：?jiǎn)T工檔案（員工ID，職位，姓名，性別，出生年月，工作年月)主鍵：?jiǎn)T工ID外鍵：職位關(guān)系模式2：工資(員工ID，工資取畢，合計(jì)工資)主鍵：?jiǎn)T工ID關(guān)系模式3：特殊項(xiàng)(特殊項(xiàng)ID，職工ID，特殊項(xiàng)名稱，特殊項(xiàng)金額，特殊項(xiàng)時(shí)間)主鍵：特殊項(xiàng)ID外鍵：?jiǎn)T工ID關(guān)系模式4：職位(職位，基本工資，津貼)主鍵：職位根據(jù)上面分析的各種功能要求，以下列出數(shù)據(jù)庫(kù)中所建立的各個(gè)表的具體設(shè)置：職工表名稱職工字段名稱類型(寬度)關(guān)鍵字可為空編碼規(guī)則取值范圍職工ID文本（10）PKnot null姓名文本(10)性別文本(2)男，女職位文本(10)FKNot null出生年月日期(8)工作年月日期(8)工資表名稱工資字段名稱類型(寬度)關(guān)鍵字可為空編碼規(guī)則取值范圍缺省值職工ID文本(10)PKnot null工資取畢是否合計(jì)工資貨幣職位表名稱職位字段名稱類型(寬度)關(guān)鍵字可為空編碼規(guī)則取值范圍缺省值職位文本(10)PKnot null津貼貨幣補(bǔ)助貨幣特殊項(xiàng)表名稱特殊項(xiàng)字段名稱類型(寬度)關(guān)鍵字可為空編碼規(guī)則取值范圍缺省值特殊項(xiàng)ID文本（10）PKnot null職工ID文本(10)FK特殊項(xiàng)名稱文本(100)特殊項(xiàng)金額貨幣特殊項(xiàng)時(shí)間日期(8) 4. 詳細(xì)設(shè)計(jì)與模塊的實(shí)現(xiàn) 創(chuàng)建數(shù)據(jù)庫(kù)打開(kāi)Access，創(chuàng)建數(shù)據(jù)庫(kù)，命名為職工工資管理系統(tǒng)。“關(guān)系”的基數(shù)類型（Cardinality）可以改變，而不必刪除這個(gè)關(guān)系然后再重新生成一個(gè)新關(guān)系。根據(jù)條件羅列、統(tǒng)計(jì)已經(jīng)發(fā)放的工資。主要用來(lái)統(tǒng)一各個(gè)職位的與工資有關(guān)的基本信息。主要完成每期對(duì)員工進(jìn)行考核。最新的是 ADO，它是比RDO和 DAO 更加簡(jiǎn)單，然而更加靈活的對(duì)象模型。數(shù)據(jù)庫(kù)應(yīng)用總是會(huì)涉及到這3個(gè)方面的問(wèn)題：前端程序、數(shù)據(jù)庫(kù)結(jié)構(gòu)、前端程序和數(shù)據(jù)庫(kù)之間的連接， 在這里Visual Basic 。：基于事件驅(qū)動(dòng)的編程方法體現(xiàn)在程序的執(zhí)行是依靠系統(tǒng)能夠被識(shí)別的觸發(fā)事件啟動(dòng)的。可視化環(huán)境下創(chuàng)作前端界面就如同做拼圖游戲那樣簡(jiǎn)單，Visual Basic之所以成為Windows環(huán)境下快捷、便利的前端開(kāi)發(fā)工具，并獲得最廣泛的用戶群體支持，其所具有高度智能的人性化開(kāi)發(fā)環(huán)境起了很大的作用。我們所開(kāi)發(fā)的工資管理信息系統(tǒng)是基于這一業(yè)務(wù)流程的。4) 輸出：?jiǎn)T工信息、員工工資，報(bào)表等。這些優(yōu)點(diǎn)能夠極地提高工資管理的效率,也是企業(yè)的科