【正文】 參考文獻(xiàn)：[1] Visual Basic 程序設(shè)計(jì)教程(高等教育出版社) 龔沛曾 陸慰民 楊志強(qiáng) 編著[2]Visual Basic 數(shù)據(jù)庫(kù)編程與實(shí)例(人民教育出版社) 四維科技 趙斯思 編著 [3]Visual Basic 用戶(hù)編程手冊(cè)（人民郵電出版社） 林永 張樂(lè)強(qiáng) 編著[4]數(shù)據(jù)庫(kù)系統(tǒng)概論（高等教育出版社） 薩師煊 王珊 編著[5]VB數(shù)據(jù)庫(kù)程序設(shè)計(jì)高手（科學(xué)出版社） 溫賢發(fā) 編著 39 / 39。在報(bào)告的寫(xiě)作過(guò)程中，王老師給了我許許多多的幫助和關(guān)懷，王磊老師治學(xué)嚴(yán)謹(jǐn)，待人平易近人，在王磊老師的細(xì)心指導(dǎo)下，我學(xué)到了扎實(shí)的專(zhuān)業(yè)知識(shí)。運(yùn)行結(jié)果證明，本企業(yè)工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終滿(mǎn)足企業(yè)財(cái)務(wù)管理、員工工資發(fā)放的需要，同時(shí)也成為現(xiàn)代化企業(yè)管理的標(biāo)志謝辭 從擬定題目到定稿，歷時(shí)數(shù)月。開(kāi)發(fā)本系統(tǒng)的過(guò)程中，首先要對(duì)企業(yè)工資管理進(jìn)行系統(tǒng)調(diào)研，熟悉企業(yè)財(cái)務(wù)、人事、工資發(fā)放管理的流程、步驟；其次在系統(tǒng)需求分析過(guò)程中，要透過(guò)現(xiàn)象看本質(zhì)，敏銳觀(guān)察到企業(yè)工資管理中存在的各種問(wèn)題，并在總體設(shè)計(jì)把握好對(duì)問(wèn)題的分析、理解，進(jìn)而解決問(wèn)題；選用開(kāi)發(fā)工具要選用自己最熟悉、應(yīng)用較多的開(kāi)發(fā)工具，本系統(tǒng)開(kāi)發(fā)選用MS Visual Basic ，其具有語(yǔ)言簡(jiǎn)單、功能強(qiáng)大、組件眾多的優(yōu)點(diǎn)。Dim As New 39。啟動(dòng)事務(wù) sql 39。Initial Catalog=工資管理系統(tǒng)。Integrated Security=SSPI。定義一個(gè)數(shù)據(jù)庫(kù)的連接對(duì)象Dim rst As 39。Dim As New 39。Initial Catalog=工資管理系統(tǒng)。Integrated Security=SSPI。定義一個(gè)數(shù)據(jù)庫(kù)的記錄集對(duì)象On Error GoTo sql_err: 39。Data Source=.End Function模塊二：Public Function select_sql(sql As String) As Dim As 39。Persist Security Info=False。 Resume ExecuteSQL_ExitEnd FunctionPublic Function connectstring() As Stringconnectstring = Provider=。 amp。 AND = AND =Set objrs = ExecuteSQL(searchsql, msg_sql)Set = objrsEnd Sub模塊一：Public power As StringPublic tempuser As StringPublic Mod As New Public UserName As StringPublic UserPwd As StringPublic Function ExecuteSQL(ByVal sql As String, MsgString As String) As Dim n As Dim rst As Dim sTokens() As StringOn Error GoTo ExecuteSQL_ErrorsTokens = Split(sql)Set n = New connectstringIf InStr(INSERT,DELETE,UPDATE, UCase$(sTokens(0))) Then sqlMsgString = sTokens(0) amp。 39。 _ amp。Dim msg_sql As StringDim objrs As Private Sub cmd_cancel_Click() = False 39。 39。 amp。 Dim msg_sql As StringDim objrs As Private Sub cmd_cancel_Click() = False 39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 salary amp。 , amp。 39。 amp。 水電費(fèi)= amp。 gangwei amp。 , amp。, msg_sql)gangwei = (1)salary = jiben + gangwei Trim()updatesql = update 工資信息 set 基本工資= amp。 Trim() amp。, msg_sql)jiben = (1)Set rst = ExecuteSQL(select * from 崗位工資 where 工資級(jí)別=39。 Trim() amp。, msg_sql) = (0)If = 0 ThenMsgBox 請(qǐng)將修改后的信息填寫(xiě)完整！, vbOKOnly + vbExclamation, 警告ElseIf 0 ThenIf MsgBox(確定修改嗎？, vbYesNo + vbExclamation, 警告) = vbYes ThenSet rst = ExecuteSQL(select * from 基本工資 where 工資級(jí)別=39。 Trim() amp。 = (1) = (1) = (2) = (3)End SubPrivate Sub cmd_delete_Click() If 0 Then If MsgBox(確定刪除該員工的工資信息嗎？, vbYesNo + vbQuestion, 警告) = vbYes Then Set rst = ExecuteSQL(select * from 工資信息, sql) Set = rst MsgBox 刪除成功!, vbOKOnly + vbExclamation, 提示 End If End IfEnd SubPrivate Sub cmd_cancel_Click()Unload MeEnd SubPrivate Sub Form_Load()Set rst = ExecuteSQL(select * from 工資信息, sql)Set = rstEnd SubDim rst As Dim msg_sql As StringDim jiben, gangwei, salary As DoubleDim addsalarysql As StringPrivate Sub cmd_alter_Click()Dim updatesql As String = FalseSet rst = ExecuteSQL(select * from 員工信息 where 員工編號(hào)=39。Dim rst As Dim sql As StringPrivate Sub cmd_add_Click()End SubPrivate Sub cmd_alter_Click()39。, msg_sql)Set rst = ExecuteSQL(select * from 基部門(mén)信息, msg_sql)Set = objrsMsgBox 修改成功！, vbOKOnly + vbExclamation, 警告 = = = = End IfEnd IfEnd SubPrivate Sub cmd_cancel_Click()Unload MeEnd SubPrivate Sub cmd_delete_Click() If = 0 Then MsgBox 庫(kù)中沒(méi)有記錄!ElseIf 0 ThenIf MsgBox(真的要?jiǎng)h除該部門(mén)?, vbYesNo + vbQuestion, 警告) = vbYes ThenMsgBox 刪除成功!, vbInformation, 提示 End If End If End IfEnd SubPrivate Sub Form_Load()Set objrs = ExecuteSQL(select * from 部門(mén)信息, msg_sql)Set = objrsEnd Sub選擇“信息維護(hù)”“員工管理”菜單，可以單擊“添加”，“刪除”，“修改”，“取消”按鈕來(lái)實(shí)現(xiàn)相應(yīng)功能。 Trim() amp。 where 部門(mén)編號(hào) = 39。 Trim() amp。, msg_sql)Set rst = ExecuteSQL(update 部門(mén)信息 set 部門(mén)人數(shù)=39。 Trim() amp。 where 部門(mén)編號(hào) = 39。 Trim() amp。, msg_sql)Set rst = ExecuteSQL(update 部門(mén)信息 set 部門(mén)負(fù)責(zé)人=39。 Trim() amp。 where 部門(mén)編號(hào) = 39。 Trim() amp。 ), msg_sql) Set objrs = ExecuteSQL(select * from 部門(mén)信息, msg_sql) Set = objrs MsgBox 添加成功！, vbOKOnly + vbExclamation, 警告 End If End IfEnd SubPrivate Sub cmd_alter_Click()If Trim() = Or Trim() = Or Trim() = Or Trim() = ThenMsgBox 請(qǐng)將修改后的信息填寫(xiě)完整！, vbOKOnly + vbExclamation, 警告ElseIf MsgBox(確定修改嗎？, vbYesNo + vbExclamation, 警告) = vbYes ThenSet rst = ExecuteSQL(update 部門(mén)信息 set 部門(mén)名稱(chēng)=39。 ,39。