【正文】 stuffid=39。 Set rs = getrs(sql, salary) While Not rs(0) Wend sd = rs(0) = 0 Select Case Case 0 sql = select * from salarysetting where stuffid=39。不僅是因為它的設置，還有就是它的代碼和數(shù)據(jù)庫相連的操作。這里的恢復默認值功能采用的方法比較簡單，就是在一個函數(shù)中設置了固定的默認值。其他項目設置：在建立其他項目設置的窗體時，也在兩個地方使用，即添加和修改，在載入時也需要判斷狀態(tài)。而普通用戶則不能，我把它進行了權限設置，會彈出權限的對話框。在出勤統(tǒng)計窗體里：添加一個下拉列表、一個標簽和2個命令按鈕，然后設置相關的屬性。在添加用戶的窗體里：添加3個標簽、3個文本框和2個命令按鈕，然后設置它們相關的屬性。 days Call sumsalary(firstday, lastday) sql = select * from salarystatistics = 員工工資統(tǒng)計列表 Call Call (sql) = 統(tǒng)計結果列表 0 Unload MeElse MsgBox 這個月的工資未統(tǒng)計, vbOKOnly + vbExclamation, 提示End If “查詢工資“窗體設計選擇“工資信息管理”—“查詢工資”菜單，系統(tǒng)顯示如圖的查詢信息窗體，系統(tǒng)默認的是查詢出數(shù)據(jù)庫中所有的記錄（當管理員進入的時候），當從“員工編號”下拉列表中選擇一個員工編號后，單擊“查詢單人”按鈕，就會查詢出符合這個員工編號的記錄；如果需要返回查詢所有信息，單擊“查詢所有”按鈕，系統(tǒng)就會返回所有員工的信息。 amp。界面及主要控件列表 計算公式界面 主要控件列表對 象屬 性設 置lablecaption界面所示mandcaption界面所示texttext空程序說明： = And IsNumeric() = True Then MsgBox 請輸入正常加班工資百分比, vbOKOnly + vbExclamation, 提示 = ElseIf = And IsNumeric() = False Then MsgBox 請輸入特殊加班工資百分比, vbOKOnly + vbExclamation, 提示 = ElseIf = And IsNumeric() = False Then MsgBox 請輸入出差工資, vbOKOnly + vbExclamation, 提示 = ElseIf = And IsNumeric() = False Then MsgBox 請輸入曠工扣發(fā)工資, vbOKOnly + vbExclamation, 提示 = ElseIf = And IsNumeric() = False Then MsgBox 請輸入遲到早退扣發(fā)工資, vbOKOnly + vbExclamation, 提示 = Else Call setvalue Call init End If “計算實發(fā)工資”窗體設計實現(xiàn)目標：選擇“工資信息管理”—“計算實發(fā)工資”菜單，在這個窗體中選擇需要統(tǒng)計的月份。 amp。在這幾個里，管理員有所有的權利進行各種操作。 amp。其他項目設置獎金津貼福利扣發(fā) 其他項目實體ER圖系統(tǒng)部分：包括添加用戶和修改密碼。開發(fā)這個系統(tǒng)的目的就是幫助企業(yè)的財務主管部門提高工作效率，實現(xiàn)企業(yè)工資信息管理的系統(tǒng)化、規(guī)范化和自動化。資金是企業(yè)生存的主要元素，資金的流動影響到企業(yè)的整體運作，企業(yè)員工的工資是企業(yè)資金管理的一個重要的組成部分。抽象就是除去問題的表面，提取問題的本質(zhì)，建立問題的邏輯模型，以便于以后階段的系統(tǒng)的設計實現(xiàn)。SQL語言是關系型數(shù)據(jù)庫的標準化語言，已得到了廣泛的應用。對數(shù)據(jù)庫的一切操作，包括定義、更新及各種控制,都是通過DBMS進行的。早期工資管理多采取紙質(zhì)材料和具有較強的時間限制。 第9至14周：整體調(diào)試并進行必要修改。它具有較小的冗余度，較高的系數(shù)據(jù)獨立性和易擴展性等特征，可以讓多個用戶在不同的權限下使用。早期的工資統(tǒng)計和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費財務人員大量的時間且不易保存，往往由于個人的因素抄寫不慎或計算疏忽，出現(xiàn)工資發(fā)放錯誤的現(xiàn)象。Ⅲ、畢 業(yè)設計(論文)工作內(nèi)容：1. 查找資料，撰寫開題報告。二．國外研究概況及發(fā)展趨勢：20世紀80年代后期，進入到數(shù)據(jù)管理階段。這套系統(tǒng)包含以下幾個功能模塊：1．工資信息設置 2 工資信息管理 3. 系統(tǒng)其功能模塊圖如下所示：企業(yè)工資管理系統(tǒng)系統(tǒng)部分企業(yè)工資信息設置企業(yè)工資信息管理修改密碼基本工資設置其他工資設置工資公式設置計算實發(fā)工資查詢工資退出系統(tǒng)出勤統(tǒng)計添加用戶導出工資表 圖一 系統(tǒng)功能模塊圖本人研究的是以下幾個功能模塊：（1）工資信息設置這個模塊的作用是包括設置員工的基本工資和其他項目的金額，如獎金等。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來越復雜。VB6是一種面向?qū)ο蟮拈_發(fā)工具，具有組件豐富、語言簡單、功能強大的優(yōu)點。MS Access 2000就是一種關系型數(shù)據(jù)庫管理系統(tǒng)。同時工資的發(fā)放具有較強的時間限制，必須嚴格按照單位規(guī)定的時間完成計算和發(fā)放工作。通常需求分為兩種類型：一種是功能性需求，一種是非功能性需求，這一點也需要有一種清楚的認識。基于以上原因，企業(yè)工資管理系統(tǒng)使用電腦安全保存、快速計算、全面統(tǒng)計，實現(xiàn)工資管理的系統(tǒng)化、規(guī)范化、自動化。企業(yè)工資信息設置部分：包括設置員工的基本工資和其他項目的金額，如獎金等。良好的數(shù)據(jù)庫設計，可以提高數(shù)據(jù)信息的存儲效率，確保數(shù)據(jù)信息的完整性和一致性。在使用的時，要把應用程序和這兩個數(shù)據(jù)庫保存在同一個文件夾中。 Set rs = getrs(sql, salary) If iflag = 1 Then If = True ThenMsgBox 沒有這個用戶，請重新輸入, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then strusername = Trim() userpassword = Trim() Unload Me Else MsgBox 密碼不正確，請重新輸入, vbOKOnly + vbExclamation, 警告 = End If End If End If End If pwdcount = pwdcount + 1 If pwdcount = 3 Then Unload Me End IfEnd SubPrivate Sub Form_Load() pwdcount = 0 strusername = userpassword = End Sub3．2 “主窗體”模塊詳細設計1實現(xiàn)目標：在這個項目中，選擇使用多文檔界面。 amp。 and YearMonth= amp。界面：程序說明：If = 4 Then firstday = Year(Date) amp。 + 1 amp。選擇月份和保存位置后，單擊“導出”按鈕，系統(tǒng)會開始導出數(shù)據(jù)。在這個模塊里，普通用戶沒有任何權利進行相關的操作。在工資統(tǒng)計列表窗體里：使用了SSTab控件，在每一個標簽上添加一個MSFlexGrid控件，然后設置它們的屬性。單擊“取消”按鈕就卸載此窗體，添加用戶的過程到此完成。這里還有一個DTPicker控件是用來記錄添加其他項目的時間，我覺得這個控件非常好。計算實發(fā)工資：建立計算實發(fā)工資的窗體，這個窗體的建立和統(tǒng)計出勤記錄的窗體比較相似，選擇月份后，單擊“開始統(tǒng)計”按鈕，即可統(tǒng)計員工工資。他沒有任何權限，只能看到自己的信息，這是我做這個窗體的特色。 39。 39。建立導出工資表的窗體，當單擊“保存為”文本框右邊的按鈕，會提示用戶選擇保存路徑，然后單擊“導出”，會導到你所要保存的文件夾里。在系統(tǒng)運行之后，就可以根據(jù)當前模塊的功能設置對模塊進行所需要的操作