【正文】 ox 請先錄入崗位工資信息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 ((0)) Next iSet rst = ExecuteSQL(select * from 崗位工資, msg_sql)For i = 1 To ((0)) 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 If Set rst = ExecuteSQL(select * from 員工信息 where 員工編號=39。 amp。 Trim() amp。 39。, msg_sql) = (0)End Sub 按員工查詢選擇“工資查詢”“按員工查詢”，輸入員工編號和姓名，單擊“查詢”即可查看個人工資情況。 Dim msg_sql As StringDim objrs As Private Sub cmd_cancel_Click() = False 39。在這里設(shè)計非管理員用戶的權(quán)限，這里我假設(shè)讓非管理員用戶不能用菜單中的‘系統(tǒng)’ = False = FalseUnload MeEnd SubPrivate Sub cmd_search_Click()Set objrs = ExecuteSQL(select * from 工資信息 where 員工編號=39。 amp。 Trim() amp。 39。, msg_sql)Set = objrsEnd Sub 按部門查詢選擇“工資查詢”“按部門查詢”，輸入部門編號和名稱，單擊“查詢”即可查看工資。Dim msg_sql As StringDim objrs As Private Sub cmd_cancel_Click() = False 39。在這里設(shè)計非管理員用戶的權(quán)限，這里我假設(shè)讓非管理員用戶不能用菜單中的‘系統(tǒng)’ = False = FalseUnload MeEnd SubPrivate Sub cmd_search_Click()Dim searchsql As Stringsearchsql = select ,姓名,基本工資,崗位工資,水電費,實發(fā)金額 from 工資信息,部門信息,員工信息 where =39。 _ amp。 Trim() amp。 39。 _ 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。 操作成功ElseSet rst = New Trim$(sql), n, adOpenKeyset, adLockOptimisticSet ExecuteSQL = rstMsgString = 查詢到 amp。 amp。 條記錄 End IfExecuteSQL_Exit:Set rst = NothingSet n = NothingExit FunctionExecuteSQL_Error:MsgString = 查詢錯誤: amp。 Resume ExecuteSQL_ExitEnd FunctionPublic Function connectstring() As Stringconnectstring = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=工資管理系統(tǒng)。Data Source=.End Function模塊二：Public Function select_sql(sql As String) As Dim As 39。定義一個數(shù)據(jù)庫的連接對象Dim rst As 39。定義一個數(shù)據(jù)庫的記錄集對象On Error GoTo sql_err: 39。容錯處理Set = New Set rst = New Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=工資管理系統(tǒng)。Data Source=. sql, , 3, 2Set select_sql = rst39。Dim As New 39。集定義和初始化為一體sql_err:Set = NothingSet rst = NothingEnd FunctionPublic Function execute_sql(sql As String) As Dim As 39。定義一個數(shù)據(jù)庫的連接對象Dim rst As 39。定義一個數(shù)據(jù)庫的記錄集對象On Error GoTo sql_err:Set = New Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=工資管理系統(tǒng)。Data Source=. 39。啟動事務(wù) sql 39。執(zhí)行這個SQL語句 39。Dim As New 39。集定義和初始化為一體sql_err:Set = NothingSet rst = NothingEnd Function第四章：結(jié) 束 語 企業(yè)工資管理系統(tǒng)是一個典型的信息管理系統(tǒng)，其主要通過軟件工程方面的選擇課題、需求分析、總體設(shè)計、選用工具、程序模塊、系統(tǒng)測試等幾個步驟來實現(xiàn)。開發(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)點。程序模塊的編制中，重點把握系統(tǒng)內(nèi)部完整性、功能性、實用性、便捷性，使其能夠協(xié)調(diào)統(tǒng)一、運行無誤。運行結(jié)果證明，本企業(yè)工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終滿足企業(yè)財務(wù)管理、員工工資發(fā)放的需要，同時也成為現(xiàn)代化企業(yè)管理的標志謝辭 從擬定題目到定稿，歷時數(shù)月。在本課程設(shè)計完成之際，首先向我的指導(dǎo)老師王磊老師以誠摯的謝意。在報告的寫作過程中，王老師給了我許許多多的幫助和關(guān)懷，王磊老師治學(xué)嚴謹，待人平易近人，在王磊老師的細心指導(dǎo)下，我學(xué)到了扎實的專業(yè)知識。同時，衷心感謝我的同窗同學(xué)們，在我畢業(yè)論文寫作中，與同情阿門的探討交流使我受益頗多；同時，他們也給了我很多無私的幫助和支持，我深表謝意。參考文獻：[1] Visual Basic 程序設(shè)計教程(高等教育出版社) 龔沛曾 陸慰民 楊志強 編著[2]Visual Basic 數(shù)據(jù)庫編程與實例(人民教育出版社) 四維科技 趙斯思 編著 [3]Visual Basic 用戶編程手冊（人民郵電出版社） 林永 張樂強 編著[4]數(shù)據(jù)庫系統(tǒng)概論（高等教育出版社） 薩師煊 王珊 編著[5]VB數(shù)據(jù)庫程序設(shè)計高手（科學(xué)出版社） 溫賢發(fā) 編著 39 / 39