【正文】 ,39。 + ,39。Dim objrs As Dim msg_sql As StringPrivate 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)格，顯示操作后的結果 = = End IfEnd SubPrivate Sub cmd_cancel_Click()Unload MeEnd SubPrivate 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 IfEnd SubPrivate Sub Form_Load()Set objrs = ExecuteSQL(select * from 基本工資, msg_sql)Set = objrsEnd SubPrivate Sub Text_pay_LostFocus()If Val() 0 Or Val() = 10000 Then MsgBox 數(shù)據(jù)非法 = End IfEnd Sub選擇“設置”“崗位工資”菜單，可以單擊“添加”，“刪除”，“修改”，“取消”按鈕來實現(xiàn)相應功能。Dim objrs As Dim msg_sql As StringPrivate Sub cmd_add_Click()If Then Set objrs = ExecuteSQL(insert into 基本工資 values( + Str() + , + () + ), msg_sql) 39。到這里就告一段落了，是不是很簡單呢，當然這里有很多不足，你自己完善吧Private Sub Form_Load()End Sub選擇“系統(tǒng)”“退出”菜單，單擊則推出主菜單界面。 amp。 39。 amp。pwd=heweiling。server=HZ?；貪L（不執(zhí)行） = 恢復失敗 MsgBox 恢復失敗, vbOKOnly + vbInformation, 提示End IfEnd SubPrivate Sub cmd_back_Click()39。SQL語句要是不會用，查看幫助文件 39。 39。 amp。kill 也是SQL的方法“殺”與dos下的kill類似啊，是吧，呵呵自己看看幫助文件很詳盡的 LoopEnd If = 所有文件（*.*）|*.*|備份文件(*.bak)|*.bak = = Dim Mstr As String Mstr = 恢復主要數(shù)據(jù)庫？數(shù)據(jù)恢復操作將會覆蓋以前的所有數(shù)據(jù)并且覆蓋后無法恢復，您確定要進行恢復操作嗎?If MsgBox(Mstr, vbYesNo + vbQuestion, 操作提示) = vbYes ThenOn Error GoTo re = 正在恢復，請稍候…… 39。掃描并關閉有關“工資管理系統(tǒng)”的服務進程 (kill amp。), Mod, adOpenDynamic, adLockPessimistic39。該記錄集保存進程ID以備操作 select spid from sysprocesses where dbid=db_id(39。database=master 39。uid=sa。如果已連接，關掉寬End If driver={sql server}。刷新網(wǎng)格，顯示操作后的結果 End If If = 0 Then MsgBox 庫中沒有記錄! Exit Sub End If If 0 Then If MsgBox(真的要刪除該級用戶信息嗎?, 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ù)庫備份和恢復”菜單，在位置文本框中輸入備份或恢復的文件所在位置，單擊“備份”或“恢復”按鈕，數(shù)據(jù)庫將備份或恢復。 amp。 Trim(txt_power) amp。 39。 39。 amp。, _ amp。 Trim() amp。 39。刷新網(wǎng)格，顯示操作后的結果 End If If = 0 Then MsgBox 庫中沒有記錄! Exit Sub End If If 0 Then If MsgBox(真的要刪除該級用戶信息嗎?, 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．2 修改用戶選擇“系統(tǒng)”“修改用戶”菜單，在窗體里輸入新的用戶名稱和用戶權限，單擊“修改”按鈕，系統(tǒng)將會修改原來用戶信息。 amp。 Trim(txt_power) amp。 39。 39。 amp。, _ amp。 Trim() amp。 39。在窗體里輸入用戶名稱和密碼，單擊“刪除”按鈕，系統(tǒng)將會刪除原來用戶。在這幾個里，管理員有所有的權利進行各種操作。主窗體設計的界面是用菜單編輯器做的，主要由系統(tǒng)、工資信息設置、工資信息管理和關于這四個大模塊組成。使用這個窗體的好處是可以使程序更加有條理。try_times = try_times + 1 39。在這里設計非管理員用戶的權限，這里我假設讓非管理員用戶不能用菜單中的‘系統(tǒng)’ = False = False End If UserName = Trim() Unload Me Else MsgBox 密碼不正確，請重新輸入, vbOKOnly + vbExclamation, 警告 = try_times = try_times + 1 Exit Sub 39。 39。 amp。通過標題可以知道此系統(tǒng)的大概內容，由此，登錄界面的設計完成。員工信息表員工編號char (8)主鍵，不允許重復姓名char (8)性別char (2)出生年月datetime所屬部門char (4)外鍵文化程度char (4)職稱char (12)部門信息部門編號char (4)主鍵,不允許重復部門名稱char (20)部門負責人char (8)部門人數(shù)int基本工資工資級別char (2)主鍵,不允許重復工資金額numeric (8, 2)崗位工資工資級別char (2)主鍵,不允許重復工資金額numeric (8, 2)工資信息員工編號char (8)主鍵,不允許重復； 外鍵基本工資numeric (8, 2)崗位工資numeric (8, 2)水電費numeric (8, 2)實發(fā)金額numeric (8, 2)用戶表用戶名char (8)主鍵,不允許重復密碼char (20)權限char (20)ER圖： 第三章：企業(yè)工資管理系統(tǒng)應用程序設計3．1操作流程圖初始登入用戶:admin 密碼為:admin用戶登入錄入口令是否正確？進入工資管理主界面職員管理工資項目/工資數(shù)據(jù)錄入/工資報