【文章內(nèi)容簡(jiǎn)介】 Dim rst As sql = select 權(quán)限 from 用戶(hù)表 Set rst = ExecuteSQL(sql, ) For i = 1 To Next i End Sub 3． 4 各項(xiàng)子模塊詳細(xì)設(shè)計(jì) ． 1 添加用戶(hù)與刪除 選擇“系統(tǒng)” — “添加用戶(hù)與刪除”菜單，在添加用戶(hù)的窗體里 ,輸入新的用戶(hù)名稱(chēng)和密碼后，單擊“添加”按鈕，系統(tǒng)將會(huì)添加新的用戶(hù)。在窗體里輸入用戶(hù)名稱(chēng)和密碼，單擊“刪除”按鈕，系統(tǒng)將會(huì)刪除原來(lái)用戶(hù)。 Private Sub cmd_adduser_Click() Dim newrst As Dim sql As String sql = insert into 用戶(hù)表 values( amp。 39。 amp。 Trim() amp。 39。, _ amp。 39。 amp。 Trim() amp。 39。, _ amp。 39。 amp。 Trim(txt_power) amp。 39。 amp。 ) Set newrst = execute_sql(sql) sql = select * from 用戶(hù)表 Set newrst = select_sql(sql) Set = newrst End Sub Private Sub cmd_cancel_Click() Unload Me End Sub Private Sub cmd_delete_Click() Dim sql As String sql = select * from 用戶(hù)表 If txt_username Then Set objrs = ExecuteSQL(sql, ) Set = objrs 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 If End Sub Private Sub Form_Load() Dim newrst As Dim sql As String sql = select * from 用戶(hù)表 Set newrst = select_sql(sql) Set = newrst End Sub ． 2 修改用戶(hù) 選擇“系統(tǒng)” “修改用戶(hù)”菜單，在窗體里輸入新的用戶(hù)名稱(chēng)和用戶(hù)權(quán)限，單擊“修改”按鈕，系統(tǒng)將會(huì)修改原來(lái)用戶(hù)信息。 Private Sub cmd_adduser_Click() Dim newrst As Dim sql As String sql = insert into 用戶(hù)表 values( amp。 39。 amp。 Trim() amp。 39。, _ amp。 39。 amp。 Trim() amp。 39。, _ amp。 39。 amp。 Trim(txt_power) amp。 39。 amp。 ) Set newrst = execute_sql(sql) sql = select * from 用戶(hù)表 Set newrst = select_sql(sql) Set = newrst End Sub Private Sub cmd_cancel_Click() Unload Me End Sub Private Sub cmd_delete_Click() Dim sql As String sql = select * from 用戶(hù)表 If txt_username Then Set objrs = ExecuteSQL(sql, ) Set = objrs 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 If End Sub Private Sub Form_Load() Dim newrst As Dim sql As String sql = select * from 用戶(hù)表 Set newrst = select_sql(sql) Set = newrst End Sub 數(shù)據(jù)庫(kù)備份和恢復(fù) 選擇 “系統(tǒng)” “數(shù)據(jù)庫(kù)備份和恢復(fù)”菜單，在位置文本框中輸入備份或恢復(fù)的文件所在位置，單擊“備份”或“恢復(fù)”按鈕，數(shù)據(jù)庫(kù)將備份或恢復(fù)。 Option Explicit Private Sub cmd_recovery_Click() If = adStateOpen Then 39。如果已連接，關(guān)掉寬 End If driver={sql server}。server=HZ。uid=sa。pwd=heweiling。database=master 39。建一個(gè)連接用來(lái)獲得要還原數(shù)據(jù)庫(kù)的進(jìn)程標(biāo)識(shí)符（ spid） Dim rs As New 39。該記錄集保存進(jìn)程 ID 以備操作 select spid from sysprocesses where dbid=db_id(39。 工資管理系統(tǒng) 39。), Mod, adOpenDynamic, adLockPessimistic 39。解釋一下，這句話(huà)是為了將有關(guān)“工資管理系統(tǒng)”所有服務(wù)進(jìn)程 ID 查詢(xún)出來(lái) db_id 是 SQL中的一個(gè)函數(shù)具體語(yǔ)法你自己看它的幫助文件哦，這里就不贅述了 If = False Then Do While = True 39。掃描并關(guān)閉有關(guān)“工資管理系統(tǒng)”的服務(wù)進(jìn)程 (kill amp。 (0)) 39。kill 也是 SQL 的方法“殺”與 dos 下的 kill類(lèi)似啊，是吧，呵呵自己看看幫助文件很詳盡的 Loop End 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 Then On Error GoTo re = 正在恢復(fù)，請(qǐng)稍候?? 39。開(kāi)始一個(gè)事件 (restore database 工資管理系統(tǒng) from disk=39。 amp。 amp。 39。 with replace) 39。SQL 語(yǔ)句要是不會(huì)用，查看幫助文件 39。執(zhí)行 = 恢復(fù)成功 MsgBox 恢復(fù)成功 , vbOKOnly + vbInformation, 提示 Exit Sub re: 39。回滾（不執(zhí)行） = 恢復(fù)失敗 MsgBox 恢復(fù)失敗 , vbOKOnly + vbInformation, 提示 End If End Sub Private Sub cmd_back_Click() 39。下面是備份的代碼，處理的比較粗糙，你自己優(yōu)化了，呵呵，相信你能看懂的，我就不注釋了 If = adStateOpen Then End If = 所有文件（ *.*） |*.*|備份文件 (*.bak)|*.bak = txt_weizhi = driver={sql server}。server=HZ。uid=sa。pwd=heweiling。database=工資管理系統(tǒng) On Error GoTo back (backup database 工資管理系統(tǒng) to disk=39。 amp。 amp。 39。) MsgBox 成功地備份到 amp。 amp。 下 , vbOKOnly + vbInformation, 操作提示 Exit Sub back: MsgBox 備份失敗 , vbOKOnly + vbInformation, 提示 End Sub 39。到這里就告一段落了，是不是很簡(jiǎn)單呢，當(dāng)然這里有很多不足，你自己完善吧 Private Sub Form_Load() End Sub 退出 選 擇“ 系統(tǒng) ” “退 出 ” 菜單 ，單 擊則推 出主 菜單 界面。 基本工資 選擇“設(shè)置” “基本工資”菜單，可以單擊“添加”，“刪除”，“修改 ” ， “ 取 消 ” 按 鈕 來(lái) 實(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。插入符合條件的工資信息 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 庫(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 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è)置” “崗位工資”菜單，可以單擊“添加”，“刪除”，“修改 ” ， “ 取 消 ” 按 鈕 來(lái) 實(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。插入符合條件的工資信息 Set objrs = ExecuteSQL(select * from 崗位工資 ,