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