【正文】 + ,39。 Dim objrs As Dim msg_sql As String Private Sub cmd_add_Click() Dim sqlbianhao, sqlmingcheng, sqlfuzeren, sqlrenshu As String sqlbianhao = sqlmingcheng = sqlfuzeren = sqlrenshu = If And Then If MsgBox(確定添加嗎？ , vbYesNo + vbExclamation, 警告 ) = vbYes Then Set objrs = ExecuteSQL(insert into 部門信息 values( + 39。插入符合條件的工資信息 Set objrs = ExecuteSQL(select * from 崗位工資 , msg_sql) Set = objrs 39。刷新網(wǎng)格，顯示操作后的結(jié)果 = = End If End Sub Private Sub cmd_cancel_Click() Unload Me End Sub Private Sub cmd_delete_Click() If = 0 Then MsgBox 庫中沒有記錄 ! Exit Sub End If If 0 Then If MsgBox(真的要刪除該級別工 資信息嗎 ?, vbYesNo + vbQuestion, 警告 ) = vbYes Then MsgBox 刪除成功 !, vbInformation, 提示 = = End If End If End Sub Private Sub Form_Load() Set objrs = ExecuteSQL(select * from 基本工資 , msg_sql) Set = objrs End Sub Private Sub Text_pay_LostFocus() If Val() 0 Or Val() = 10000 Then MsgBox 數(shù)據(jù)非法 = End If End Sub 崗位工資 選擇“設(shè)置” “崗位工資”菜單，可以單擊“添加”，“刪除”，“修改 ” ， “ 取 消 ” 按 鈕 來 實(shí) 現(xiàn) 相 應(yīng) 功 能 。 Dim objrs As Dim msg_sql As String Private Sub cmd_add_Click() If Then Set objrs = ExecuteSQL(insert into 基本工資 values( + Str() + , + () + ), msg_sql) 39。到這里就告一段落了，是不是很簡單呢，當(dāng)然這里有很多不足，你自己完善吧 Private Sub Form_Load() End Sub 退出 選 擇“ 系統(tǒng) ” “退 出 ” 菜單 ，單 擊則推 出主 菜單 界面。 amp。 39。 amp。pwd=heweiling。server=HZ?；貪L（不執(zhí)行） = 恢復(fù)失敗 MsgBox 恢復(fù)失敗 , vbOKOnly + vbInformation, 提示 End If End Sub Private Sub cmd_back_Click() 39。SQL 語句要是不會用，查看幫助文件 39。 39。 amp。kill 也是 SQL 的方法“殺”與 dos 下的 kill類似啊，是吧，呵呵自己看看幫助文件很詳盡的 Loop End If = 所有文件（ *.*） |*.*|備份文件 (*.bak)|*.bak = = Dim Mstr As String Mstr = 恢復(fù)主要數(shù)據(jù)庫？數(shù)據(jù)恢復(fù)操作將會覆蓋以前的所有數(shù)據(jù)并且覆蓋后無法恢復(fù)，您確定要進(jìn)行恢復(fù)操作嗎 ? If MsgBox(Mstr, vbYesNo + vbQuestion, 操作提示 ) = vbYes Then On Error GoTo re = 正在恢復(fù)，請稍候?? 39。掃描并關(guān)閉有關(guān)“工資管理系統(tǒng)”的服務(wù)進(jìn)程 (kill amp。), Mod, adOpenDynamic, adLockPessimistic 39。該記錄集保存進(jìn)程 ID 以備操作 select spid from sysprocesses where dbid=db_id(39。database=master 39。uid=sa。如果已連接，關(guān)掉寬 End If driver={sql server}。刷新網(wǎng)格，顯示操作后的結(jié)果 End If If = 0 Then MsgBox 庫中沒有記錄 ! Exit Sub End If If 0 Then If MsgBox(真的要刪除該級用戶信息嗎 ?, vbYesNo + vbQuestion, 警告 ) = vbYes Then MsgBox 刪除成功 !, vbInformation, 提示 End If End If End Sub Private Sub Form_Load() Dim newrst As Dim sql As String sql = select * from 用戶表 Set newrst = select_sql(sql) Set = newrst End Sub 數(shù)據(jù)庫備份和恢復(fù) 選擇 “系統(tǒng)” “數(shù)據(jù)庫備份和恢復(fù)”菜單，在位置文本框中輸入備份或恢復(fù)的文件所在位置，單擊“備份”或“恢復(fù)”按鈕，數(shù)據(jù)庫將備份或恢復(fù)。 amp。 Trim(txt_power) amp。 39。 39。 amp。, _ amp。 Trim() amp。 39。刷新網(wǎng)格，顯示操作后的結(jié)果 End If If = 0 Then MsgBox 庫中沒有記錄 ! Exit Sub End If If 0 Then If MsgBox(真的要刪除該級用戶 信息嗎 ?, vbYesNo + vbQuestion, 警告 ) = vbYes Then MsgBox 刪除成功 !, vbInformation, 提示 End If End If End Sub Private Sub Form_Load() Dim newrst As Dim sql As String sql = select * from 用戶表 Set newrst = select_sql(sql) Set = newrst End Sub ． 2 修改用戶 選擇“系統(tǒng)” “修改用戶”菜單，在窗體里輸入新的用戶名稱和用戶權(quán)限，單擊“修改”按鈕，系統(tǒng)將會修改原來用戶信息。 amp。 Trim(txt_power) amp。 39。 39。 amp。, _ amp。 Trim() amp。 39。在窗體里輸入用戶名稱和密碼，單擊“刪除”按鈕，系統(tǒng)將會刪除原來用戶。在這幾個里，管理員有所有的權(quán)利進(jìn)行各種操作。 主窗體設(shè)計的界面是用菜單編輯器做的，主要由系統(tǒng)、工資信息設(shè)置、工資信息管理和關(guān)于這四個大模塊組成。使用這個窗體的好處是可以使程序更加有條理。try_times = try_times + 1 39。在這里設(shè)計非管理員用戶的權(quán)限，這里我假設(shè)讓非管理員用戶不能用菜單中的‘系統(tǒng)’ = False = False End If UserName = Trim() Unload Me Else MsgBox 密碼不正確，請重新輸入 , vbOKOnly + vbExclamation, 警告 = try_times = try_times + 1 Exit Sub 39。 39。 amp。通過標(biāo)題可以知道此系統(tǒng)的大概內(nèi)容，由此，登錄界面的設(shè)計完成。 員工信息表 員工編號 char (8) 主鍵，不允許重復(fù) 姓名 char (8) 性別 char (2) 出生年月 datetime 所屬部門 char (4) 外鍵 文化程度 char (4) 職稱 char (12) 部門信息 部門編號 char (4) 主鍵 ,不允許重復(fù) 部門名稱 char (20) 部門負(fù)責(zé)人 char (8) 部門人數(shù) int 基本工資 工資級別 char (2) 主鍵 ,不允許重復(fù) 工 資金額 numeric (8, 2) 崗位工資 工資級別 char (2) 主鍵 ,不允許重復(fù) 工資金額 numeric (8, 2) 工資信息 員工編號 char (8) 主鍵 ,不允許重復(fù)； 外鍵 基本工資 numeric (8, 2) 崗位工資 numeric (8, 2) 水電費(fèi) numeric (8, 2) 實(shí)發(fā)金額 numeric (8, 2) 用戶表 用戶名 char (8) 主鍵 ,不允許重復(fù) 密碼 char (20) 權(quán)限 char (20) ER 圖： 第三章： 企業(yè)工資管理系統(tǒng)應(yīng)用程序設(shè)計 3． 1 操作流程圖 初始登入用戶 :admin 密碼為 :admin 用戶登入 錄入口 令是否正確？ 職員管理 3． 2 “登錄模塊”詳細(xì)設(shè)計 登錄模塊的詳細(xì)設(shè)計主要是用戶登錄的一個界面，判斷登錄的用戶是管理員還是普通用戶，進(jìn)入后將面對的是主界面，從而進(jìn)行相關(guān)的操作。 針對企業(yè)工資信息管理系統(tǒng)的需求，通過對員工工資計算過程的內(nèi)容分析，為本系統(tǒng)設(shè)計如下的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)： 數(shù)據(jù)庫設(shè)計 的好與壞，直接影響到這個系統(tǒng)的運(yùn)行效率。系統(tǒng)部分：包括添加用戶和修改密碼。企業(yè)工資信息管理部分：包括統(tǒng)計出勤、計算工資、查詢工資和導(dǎo)出工資表。企業(yè)工資信息設(shè)置部分：包括設(shè)置員工的基本工資和其他項(xiàng)目的金額，如獎金等。系統(tǒng)最終實(shí)現(xiàn)的主要功能如下。 軟件項(xiàng)目管理模塊包括項(xiàng)目基本信息管理、軟件模塊管理和軟件缺陷管理等功能 開發(fā) 這個系統(tǒng)的目的就是幫助企業(yè)的財務(wù)主管部門提高工作效率，實(shí)現(xiàn)企業(yè)工資信息管理的系統(tǒng)化、規(guī)范化和自動化。 項(xiàng)目組信息的添加、修改、刪除和查詢?；拘畔?xiàng)目類型信息，項(xiàng)目狀態(tài)信息，模塊狀態(tài)信息和缺陷級別信息等。因此，本系統(tǒng)使用 MS Visual Basic 開發(fā)。 開發(fā)工具 微軟公司的 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。正是企業(yè)工資管理的這種重復(fù)性、規(guī)律性、時間性，使得企業(yè)工資管理計算機(jī)化成為可能。最初的工資統(tǒng)計和發(fā)放都是使用人工方式處理，工作量大的時候，出現(xiàn)錯誤的機(jī)率也隨之升高，不僅花費(fèi)財務(wù)人員大量的時間，而且往往由于抄寫不慎，或者由于計算的疏忽，出現(xiàn)工資發(fā)放錯誤的現(xiàn)象。 SQL 語言是關(guān)系型數(shù)據(jù)庫的標(biāo)準(zhǔn)化語言，已得到了廣泛的應(yīng)用。關(guān)系模式相當(dāng)于前面提到的記錄類型，每個關(guān)系實(shí)際上 是一張二維表格。 關(guān)系模型主要是用二維表格結(jié)構(gòu)表達(dá)實(shí)體集，用外鍵表示實(shí)體間聯(lián)系。根據(jù)數(shù)據(jù)模型的不同， DBMS 可以分成層次型、網(wǎng)狀型、關(guān)系型、面向?qū)ο笮偷取?shù)據(jù)庫的一切操作，包括定義、更新及各種控制 ,都是通過 DBMS 進(jìn)行的。 第一章 緒論 數(shù)據(jù)庫管理系統(tǒng) 數(shù)據(jù)庫管理系統(tǒng)（ DBMS） 是指數(shù)據(jù)庫系統(tǒng)中管理數(shù)據(jù)的軟件系統(tǒng)。 sql