【正文】 p。 sd amp。 sd amp。 sd amp。對于所有的公共對話框，當(dāng)CancelError屬性為true，而且用戶單擊了對話框的“取消”按鈕時將生成一個錯誤。這個窗體的制作是非常復(fù)雜的，尤其是從VB導(dǎo)入到表格中。在連接完成之后，啟動“運行”工具就可以完成系統(tǒng)的運行工作。在所有的錯誤調(diào)試完成之后，啟動系統(tǒng)就可以對系統(tǒng)進行測試。開發(fā)本系統(tǒng)的過程中，首先要對企業(yè)工資管理進行系統(tǒng)調(diào)研，熟悉企業(yè)財務(wù)、人事、工資發(fā)放管理的流程、步驟；其次在系統(tǒng)需求分析過程中，要透過現(xiàn)象看本質(zhì)，敏銳觀察到企業(yè)工資管理中存在的各種問題，并在總體設(shè)計把握好對問題的分析、理解，進而解決問題；選用開發(fā)工具要選用自己最熟悉、應(yīng)用較多的開發(fā)工具，本系統(tǒng)開發(fā)選用MS Visual Basic ，其具有語言簡單、功能強大、組件眾多的優(yōu)點。特別是江晶老師，給了我很多耐心細致的指導(dǎo)，在此一并表示衷心的感謝！參考文獻[1] 周緒,管麗娜, 2000中文版入門與提高. 北京: 清華大學(xué)出版社, [2] 劉韜等, Basic . 北京:人民郵電出版社 , [3] 豐嵐等,.北京:北京希望電子出版社 , [4] 趙增敏,王慶建等, Basic 實用教程. 北京:電子工業(yè)出版社 , [5] 張海藩 (第三版) 北京:清華大學(xué)出版社, 48 / 48。運行結(jié)果證明，本企業(yè)工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終滿足企業(yè)財務(wù)管理、員工工資發(fā)放的需要，同時也成為現(xiàn)代化企業(yè)管理的標志。在整個測試過程中，可以看到整個系統(tǒng)的制作完全達到了任務(wù)書的要求，操作靈活簡單，并且在某些方面提高了要求更符合實際運用的需要。在調(diào)試過程中出現(xiàn)了較多的錯誤，在這里對調(diào)試過程中出現(xiàn)的錯誤進行一個總結(jié)。 工資表保存路徑界面這樣就可以在你保存的路徑里看到導(dǎo)出的Excel表格了。這個控件可以顯示“打開”和“另存為”對話框，可以在打開對話框之前用Filter屬性指定在“文件類型”列表框中顯示的文件過濾器列表。 Call listtopic Call showdata(sql) End Select End IfEnd Sub 用戶登錄所顯示的界面導(dǎo)出工資表窗體：建立導(dǎo)出工資表窗體的時候，這是工資管理的最重要的一步。 Call othertopic Call showother(sql) Case 2 sql = select * from salarystatistics where stuffid=39。 Call basictopic Call showbasic(sql) Case 1 sql = select * from salaryother where 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。窗體的部分代碼為：管理員的權(quán)限If strusername = admin Then sql = select stuffid from salarysetting Set rs = getrs(sql, salary) If = False Then While Not rs(0) Wend End If = 0 Select Case Case 0 sql = select * from salarysetting Call basictopic Call showbasic(sql) Case 1 sql = select * from salaryother Call othertopic Call showother(sql) Case 2 sql = select * from salarystatistics order by id desc Call listtopic Call showdata(sql) End Select Else ’ 用戶的權(quán)限 sql = select sid from stuffinfo where sname=39。不僅是因為它的設(shè)置，還有就是它的代碼和數(shù)據(jù)庫相連的操作。在計算實發(fā)工資的窗體里，如果輸入的月份的工資沒統(tǒng)計會彈出如下的對話框： 輸入月份工資沒統(tǒng)計界面否則會出現(xiàn)如下的對話框： 輸入月份有統(tǒng)計界面單擊“確定”后，就會出現(xiàn)工資信息列表，這時你將看見所有關(guān)于你想要的信息。這里的恢復(fù)默認值功能采用的方法比較簡單，就是在一個函數(shù)中設(shè)置了固定的默認值。還有就是每次添加成功后，系統(tǒng)需要初始化，更新一下。其他項目設(shè)置：在建立其他項目設(shè)置的窗體時，也在兩個地方使用，即添加和修改，在載入時也需要判斷狀態(tài)?；竟べY窗體：在建立基本工資窗體時，這個窗體會在兩個地方使用到，一個就是添加，另一個就是修改，在窗體載入時系統(tǒng)應(yīng)自動判斷狀態(tài)。而普通用戶則不能，我把它進行了權(quán)限設(shè)置，會彈出權(quán)限的對話框。在導(dǎo)出工資表的窗體中使用了CommondDialog控件，要使用這個控件需要在“控件”窗體中，選擇Microsoft Common Dialog (sp3)項，同時因為數(shù)據(jù)表格是導(dǎo)出到Excel，所以需要添加引用。在出勤統(tǒng)計窗體里：添加一個下拉列表、一個標簽和2個命令按鈕，然后設(shè)置相關(guān)的屬性。在基本工資窗體里：添加了2個選項按鈕、2個下拉列表、2個標簽、1個文本框和2個按鈕，然后設(shè)置它們的屬性。在添加用戶的窗體里：添加3個標簽、3個文本框和2個命令按鈕，然后設(shè)置它們相關(guān)的屬性。 導(dǎo)出記錄界面單擊“確定”按鈕打開導(dǎo)出的文件，單擊“取消”按鈕回到系統(tǒng)。 days Call sumsalary(firstday, lastday) sql = select * from salarystatistics = 員工工資統(tǒng)計列表 Call Call (sql) = 統(tǒng)計結(jié)果列表 0 Unload MeElse MsgBox 這個月的工資未統(tǒng)計, vbOKOnly + vbExclamation, 提示End If “查詢工資“窗體設(shè)計選擇“工資信息管理”—“查詢工資”菜單，系統(tǒng)顯示如圖的查詢信息窗體，系統(tǒng)默認的是查詢出數(shù)據(jù)庫中所有的記錄（當(dāng)管理員進入的時候），當(dāng)從“員工編號”下拉列表中選擇一個員工編號后，單擊“查詢單人”按鈕，就會查詢出符合這個員工編號的記錄；如果需要返回查詢所有信息，單擊“查詢所有”按鈕，系統(tǒng)就會返回所有員工的信息。 1) lastday = Year(Date) amp。 amp。 amp。界面及主要控件列表 計算公式界面 主要控件列表對 象屬 性設(shè) 置lablecaption界面所示mandcaption界面所示texttext空程序說明： = And IsNumeric() = True Then MsgBox 請輸入正常加班工資百分比, vbOKOnly + vbExclamation, 提示 = ElseIf = And IsNumeric() = False Then