【正文】 ql)Set = rstEnd SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd Sub “添加或修改工資模塊”詳細設計 單擊主窗體“信息維護”菜單下的“發(fā)放工資”命令，會彈出“發(fā)放工資”窗口，單擊“添加”或“修改”按鈕，彈出“添加或修改員工工資”窗口，可對員工工資信息進行添加或修改。Dim rst As Dim msg_sql As StringDim jiben, gangwei, salary As IntegerDim addsalarysql As StringPrivate Sub cmd_alter_Click()Dim updatesql As String = FalseSet rst = ExecuteSQL(select * from 員工信息 where 員工編號=39。 amp。 Trim() amp。 39。, msg_sql) = (1)If = 0 ThenMsgBox 請將修改后的信息填寫完整！, vbOKOnly + vbExclamation, 警告ElseIf 0 ThenIf MsgBox(確定修改嗎？, vbYesNo + vbExclamation, 警告) = vbYes ThenSet rst = ExecuteSQL(select * from 基本工資 where 工資金額=39。 amp。 Trim() amp。 39。, msg_sql)jiben = (1)Set rst = ExecuteSQL(select * from 崗位工資 where 工資金額=39。 amp。 Trim() amp。 39。, msg_sql)gangwei = (1)salary = jiben Trim() + gangweiSet rst = ExecuteSQL(update 工資信息 set 基本工資=39。 amp。 jiben amp。 39。 where 員工編號 = 39。 amp。 Trim() amp。 39。, msg_sql)Set rst = ExecuteSQL(update 工資信息 set 崗位工資=39。 amp。 gangwei amp。 39。 where 員工編號 = 39。 amp。 Trim() amp。 39。, msg_sql)Set rst = ExecuteSQL(update 工資信息 set 水電費=39。 amp。 Trim() amp。 39。 where 員工編號 = 39。 amp。 Trim() amp。 39。, msg_sql)Set rst = ExecuteSQL(update 工資信息 set 實發(fā)工資=39。 amp。 salary amp。 39。 where 員工編號 = 39。 amp。 Trim() amp。 39。, msg_sql)MsgBox 修改成功！, vbOKOnly + vbExclamation, 提示Set rst = ExecuteSQL(select * from 工資信息, msg_sql) Set = rstUnload Me = = = = = End IfEnd IfEnd IfEnd SubPrivate Sub cmd_cancel_Click()Unload MeEnd SubPrivate Sub cmd_ok_Click()Set rst = ExecuteSQL(select * from 基本工資, msg_sql)If = 0 ThenMsgBox 請先錄入基本工資信息ElseIf = 0 ThenMsgBox 請先錄入崗位工資信息ElseSet rst = ExecuteSQL(select * from 基本工資 where 工資金額=39。 amp。 Trim() amp。 39。, msg_sql)jiben = (1)Set rst = ExecuteSQL(select * from 崗位工資 where 工資金額=39。 amp。 Trim() amp。 39。, msg_sql)gangwei = (1)salary = jiben + gangwei Trim()addsalarysql = insert into 工資信息 values (39。 amp。 Trim() amp。 39。,39。 amp。 jiben amp。 39。,39。 amp。 gangwei amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 salary amp。 39。) Set rst = ExecuteSQL(addsalarysql, msg_sql) Unload Me Set rst = ExecuteSQL(select * from 工資信息, msg_sql) Set = rstEnd IfEnd IfEnd SubPrivate Sub Form_Load()Set rst = ExecuteSQL(select * from 基本工資, msg_sql)For i = 1 To ((1)) Next iSet rst = ExecuteSQL(select * from 崗位工資, msg_sql)For i = 1 To ((1)) Next iEnd SubPrivate Sub txt_bianhao_LostFocus()Set rst = ExecuteSQL(select * from 員工信息 where 員工編號=39。 amp。 Trim() amp。 39。, msg_sql)If = 0 Then MsgBox 無此人 = Exit Sub End IfSet rst = ExecuteSQL(select * from 員工信息 where 員工編號=39。 amp。 Trim() amp。 39。, msg_sql) = (1)End Sub “查詢員工工資模塊”詳細設計 單擊主窗體“工資查詢”菜單下的“查詢員工工資”命令，會彈出“查詢員工工資”窗口，輸入員工編號，可查詢員工工資信息。Dim msg_sql As StringDim objrs As Private Sub cmd_cancel_Click() = TrueUnload MeEnd SubPrivate Sub cmd_search_Click()If ThenSet objrs = ExecuteSQL(select * from 工資信息 where 員工編號=39。 amp。 Trim() amp。 39。, msg_sql)Set = objrsElseMsgBox 請輸入員工編號！, vbOKOnly + vbExclamation, 警告End IfEnd SubPrivate Sub Form_Unload(Cancel As Integer) = TrueEnd Sub五、系統(tǒng)測試經(jīng)過多次的測試，本系統(tǒng)也基本完成，美中不足的一點就是運行時可以直接通過DataGrid控件里面的單元格來修改數(shù)據(jù)，而有可能使數(shù)據(jù)的不統(tǒng)一，比如我直接在單元格修改基本工資的內(nèi)容，實發(fā)工資的內(nèi)容本是應該隨之改變的，但是它不能改變。而禁止用戶選擇DataGrid控件里面的內(nèi)容，又導致修改時的麻煩，幾番折騰，還是沒能解決這個問題，這也算是本系統(tǒng)的一個漏洞吧。才開始修改功能是沒有的，后來添加上去也測試成功了?？梢哉f系統(tǒng)測試的結果還是很令人滿意的。六、結束語工資管理系統(tǒng)是一個典型的信息管理系統(tǒng)，其主要通過需求分析、數(shù)據(jù)庫設計、開發(fā)平臺、程序設計、系統(tǒng)測試等幾個步驟來實現(xiàn)。開發(fā)本系統(tǒng)的過程中，首先要對企業(yè)工資管理進行系統(tǒng)調研，熟悉企業(yè)財務、人事、工資發(fā)放管理的流程、步驟；其次在系統(tǒng)需求分析過程中，要透過現(xiàn)象看本質，敏銳觀察到企業(yè)工資管理中存在的各種問題，并在總體設計把握好對問題的分析、理解，進而解決問題；選用開發(fā)工具要選用應用較多的開發(fā)工具，本系統(tǒng)開發(fā)選用Microsoft Visual Basic ，其具有語言簡單、功能強大、組件眾多的優(yōu)點。程序模塊的編制中，重點把握系統(tǒng)內(nèi)部完整性、功能性、實用性、便捷性，使其能夠協(xié)調統(tǒng)一、運行無誤。運行結果證明，本企業(yè)工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終滿足企業(yè)財務管理、員工工資發(fā)放的需要，同時也成為現(xiàn)代化企業(yè)管理的標志關于本系統(tǒng)的不足，主要還是我對VB很多功能的使用還不熟悉，畢竟我是自己鉆研的，而且時間有限。其實還可以做得更好的，但是我是最后兩周又把所有的東西重新做了一遍，包括數(shù)據(jù)庫。一邊學習一邊做，學到的東西有很多。在此，也要感謝我的老師和同學，在做本系統(tǒng)的過程中遇到了不少問題，或多或少得到了解答。本系統(tǒng)遇到的最大的麻煩就是數(shù)據(jù)庫的連接，由于我的計算機名用的是中文，我完全按照書本的連接方法，就是連接不上，還找不到原因，這個問題困擾了很久，后來抱著試試看的心態(tài)將計算機名改成英文，終于連接上了，當時是非常欣喜的。數(shù)據(jù)庫一連接上，基本上就沒出現(xiàn)過什么太大的坎了。關于系統(tǒng)的測試成功，還是很激動的。從做這次系統(tǒng)看來，做事要有規(guī)劃，要有明確的目的，遇到困難要善于發(fā)現(xiàn)，發(fā)現(xiàn)不了就要多試，只有試多了，問題也就發(fā)現(xiàn)的越多，學得也就越多。