【正文】 程人員的工作量，也簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。同時(shí)工資的發(fā)放具有較強(qiáng)的時(shí)間限制，必須嚴(yán)格按照單位規(guī)定的時(shí)間完成計(jì)算和發(fā)放工作。關(guān)系模型和層次、網(wǎng)狀模型的最大判別是用關(guān)鍵碼而不是用指針導(dǎo)航數(shù)據(jù)，表格簡單用戶易懂，編程時(shí)并不涉及存儲結(jié)構(gòu)，訪問技術(shù)等細(xì)節(jié)。MSsqlserve2000就是一種關(guān)系型數(shù)據(jù)庫管理系統(tǒng)。DBMS是數(shù)據(jù)庫系統(tǒng)的核心組成部分。VB6是一種面向?qū)ο蟮拈_發(fā)工具，具有組件豐富、語言簡單、功能強(qiáng)大的優(yōu)點(diǎn)。早期的工資統(tǒng)計(jì)和發(fā)放都是使用人工方式處理紙質(zhì)材料，不僅花費(fèi)財(cái)務(wù)人員大量的時(shí)間且不易保存，往往由于個(gè)人的因素抄寫不慎或計(jì)算疏忽，出現(xiàn)工資發(fā)放錯(cuò)誤的現(xiàn)象。隨著企業(yè)人員數(shù)量增加，企業(yè)的工資管理工作也變得越來越復(fù)雜。工資管理既涉及到企業(yè)勞動(dòng)人事的管理，同時(shí)也是企業(yè)財(cái)務(wù)管理的重要組成部分。早期工資管理多采取紙質(zhì)材料和具有較強(qiáng)的時(shí)間限制。sqlserve2000數(shù)據(jù)庫具有與VB6無縫連接、操作簡單、易于使用的優(yōu)點(diǎn)。對數(shù)據(jù)庫的一切操作，包括定義、更新及各種控制,都是通過DBMS進(jìn)行的。關(guān)系模型主要是用二維表格結(jié)構(gòu)表達(dá)實(shí)體集，用外鍵表示實(shí)體間聯(lián)系。SQL語言是關(guān)系型數(shù)據(jù)庫的標(biāo)準(zhǔn)化語言，已得到了廣泛的應(yīng)用。正是企業(yè)工資管理的這種重復(fù)性、規(guī)律性、時(shí)間性，使得企業(yè)工資管理計(jì)算機(jī)化成為可能。因此，本系統(tǒng)使用MS Visual Basic 。項(xiàng)目組信息的添加、修改、刪除和查詢。系統(tǒng)最終實(shí)現(xiàn)的主要功能如下。企業(yè)工資信息管理部分：包括統(tǒng)計(jì)出勤、計(jì)算工資、查詢工資和導(dǎo)出工資表。數(shù)據(jù)庫設(shè)計(jì)的好與壞，直接影響到這個(gè)系統(tǒng)的運(yùn)行效率。通過標(biāo)題可以知道此系統(tǒng)的大概內(nèi)容，由此，登錄界面的設(shè)計(jì)完成。 39。try_times = try_times + 1 39。主窗體設(shè)計(jì)的界面是用菜單編輯器做的，主要由系統(tǒng)、工資信息設(shè)置、工資信息管理和關(guān)于這四個(gè)大模塊組成。在窗體里輸入用戶名稱和密碼，單擊“刪除”按鈕，系統(tǒng)將會(huì)刪除原來用戶。 Trim() amp。 amp。 39。 amp。 39。, _ amp。 39。 Trim(txt_power) amp。刷新網(wǎng)格，顯示操作后的結(jié)果 End If If = 0 Then MsgBox 庫中沒有記錄! Exit Sub End If If 0 Then If MsgBox(真的要?jiǎng)h除該級用戶信息嗎?, vbYesNo + vbQuestion, 警告) = vbYes Then MsgBox 刪除成功!, vbInformation, 提示 End If End IfEnd SubPrivate Sub Form_Load()Dim newrst As Dim sql As Stringsql = select * from 用戶表Set newrst = select_sql(sql)Set = newrstEnd Sub選擇“系統(tǒng)”“數(shù)據(jù)庫備份和恢復(fù)”菜單，在位置文本框中輸入備份或恢復(fù)的文件所在位置，單擊“備份”或“恢復(fù)”按鈕，數(shù)據(jù)庫將備份或恢復(fù)。uid=sa。該記錄集保存進(jìn)程ID以備操作 select spid from sysprocesses where dbid=db_id(39。掃描并關(guān)閉有關(guān)“工資管理系統(tǒng)”的服務(wù)進(jìn)程 (kill amp。 amp。SQL語句要是不會(huì)用，查看幫助文件 39。server=HZ。 amp。 amp。Dim objrs As Dim msg_sql As StringPrivate Sub cmd_add_Click()If Then Set objrs = ExecuteSQL(insert into 基本工資 values( + Str() + , + () + ), msg_sql) 39。插入符合條件的工資信息 Set objrs = ExecuteSQL(select * from 崗位工資, msg_sql) Set = objrs 39。 + ,39。 ,39。 Trim() amp。 Trim() amp。 Trim() amp。 Trim() amp。 Trim() amp。 Trim() amp。Dim rst As Dim sql As StringPrivate Sub cmd_add_Click()End SubPrivate Sub cmd_alter_Click()39。 Trim() amp。 Trim() amp。 Trim() amp。 , amp。 水電費(fèi)= amp。 39。 salary amp。 39。 39。 39。 39。 39。 39。 39。 39。 39。 39。 amp。Dim msg_sql As StringDim objrs As Private Sub cmd_cancel_Click() = False 39。 39。 amp。Persist Security Info=False。定義一個(gè)數(shù)據(jù)庫的記錄集對象On Error GoTo sql_err: 39。Initial Catalog=工資管理系統(tǒng)。定義一個(gè)數(shù)據(jù)庫的連接對象Dim rst As 39。Initial Catalog=工資管理系統(tǒng)。Dim As New 39。運(yùn)行結(jié)果證明，本企業(yè)工資管理系統(tǒng)極大提高了工作效率，節(jié)省了人力和物力，最終滿足企業(yè)財(cái)務(wù)管理、員工工資發(fā)放的需要，同時(shí)也成為現(xiàn)代化企業(yè)管理的標(biāo)志謝辭 從擬定題目到定稿，歷時(shí)數(shù)月。參考文獻(xiàn)：[1] Visual Basic 程序設(shè)計(jì)教程(高等教育出版社) 龔沛曾 陸慰民 楊志強(qiáng) 編著[2]Visual Basic 數(shù)據(jù)庫編程與實(shí)例(人民教育出版社) 四維科技 趙斯思 編著 [3]Visual Basic 用戶編程手冊（人民郵電出版社） 林永 張樂強(qiáng) 編著[4]數(shù)據(jù)庫系統(tǒng)概論（高等教育出版社） 薩師煊 王珊 編著[5]VB數(shù)據(jù)庫程序設(shè)計(jì)高手（科學(xué)出版社） 溫賢發(fā) 編著 39 / 39。在報(bào)告的寫作過程中，王老師給了我許許多多的幫助和關(guān)懷，王磊老師治學(xué)嚴(yán)謹(jǐn)，待人平易近人，在王磊老師的細(xì)心指導(dǎo)下，我學(xué)到了扎實(shí)的專業(yè)知識。開發(fā)本系統(tǒng)的過程中，首先要對企業(yè)工資管理進(jìn)行系統(tǒng)調(diào)研，熟悉企業(yè)財(cái)務(wù)、人事、工資發(fā)放管理的流程、步驟；其次在系統(tǒng)需求分析過程中，要透過現(xiàn)象看本質(zhì)，敏銳觀察到企業(yè)工資管理中存在的各種問題，并在總體設(shè)計(jì)把握好對問題的分析、理解，進(jìn)而解決問題；選用開發(fā)工具要選用自己最熟悉、應(yīng)用較多的開發(fā)工具，本系統(tǒng)開發(fā)選用MS Visual Basic ，其具有語言簡單、功能強(qiáng)大、組件眾多的優(yōu)點(diǎn)。啟動(dòng)事務(wù) sql 39。Integrated Security=SSPI。Dim As New 39。Integrated Security=SSPI。Data Source=.End Function模塊二：Public Function select_sql(sql As String) As Dim As 39。 Resume ExecuteSQL_ExitEnd FunctionPublic Function connectstring() As Stringconnectstring = Provider=。 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。 _ amp。 39。 Dim msg_sql As StringDim objrs As Private Sub cmd_cancel_Click() = False 39。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 amp。 , amp。 amp。 gangwei amp。, msg_sql)gangwei = (1)salary = jiben + gangwei Trim()updatesql = update 工資信息 set 基本工資= amp。, msg_sql)jiben = (1)Set rst = ExecuteSQL(select * from 崗位工資 where 工資級別=39。, msg_sql) = (0)If = 0 ThenMsgBox 請將修改后的信息填寫完整！, vbOKOnly + vbExclamation, 警告ElseIf 0 ThenIf MsgBox(確定修改嗎？, vbYesNo + vbExclamation, 警告) = vbYes ThenSet rst = ExecuteSQL(select * from 基本工資 where 工資級別=39。 = (1) = (1) = (2) = (3)