員工工資管理系統(tǒng)(vbsql)(編輯修改稿)

　

【文章內(nèi)容簡介】 End If If = 0 Then MsgBox 庫中沒有記錄! 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()Dim newrst As Dim sql As Stringsql = select * from 用戶表Set newrst = select_sql(sql)Set = newrstEnd Sub．2 修改用戶選擇“系統(tǒng)”“修改用戶”菜單，在窗體里輸入新的用戶名稱和用戶權(quán)限，單擊“修改”按鈕，系統(tǒng)將會(huì)修改原來用戶信息。Private Sub cmd_adduser_Click()Dim newrst As Dim sql As Stringsql = insert into 用戶表 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 用戶表Set newrst = select_sql(sql)Set = newrstEnd SubPrivate Sub cmd_cancel_Click()Unload MeEnd SubPrivate Sub cmd_delete_Click()Dim sql As Stringsql = select * from 用戶表If txt_username Then Set objrs = ExecuteSQL(sql, ) Set = objrs 39。刷新網(wǎng)格，顯示操作后的結(jié)果 End If If = 0 Then MsgBox 庫中沒有記錄! 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()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ù)。Option ExplicitPrivate 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è)連接用來獲得要還原數(shù)據(jù)庫的進(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, adLockPessimistic39。解釋一下，這句話是為了將有關(guān)“工資管理系統(tǒng)”所有服務(wù)進(jìn)程ID查詢出來db_id是SQL中的一個(gè)函數(shù)具體語法你自己看它的幫助文件哦，這里就不贅述了If = False Then Do While = True 39。掃描并關(guān)閉有關(guān)“工資管理系統(tǒng)”的服務(wù)進(jìn)程 (kill amp。 (0)) 39。kill 也是SQL的方法“殺”與dos下的kill類似啊，是吧，呵呵自己看看幫助文件很詳盡的 LoopEnd If = 所有文件（*.*）|*.*|備份文件(*.bak)|*.bak = = Dim Mstr As String Mstr = 恢復(fù)主要數(shù)據(jù)庫？數(shù)據(jù)恢復(fù)操作將會(huì)覆蓋以前的所有數(shù)據(jù)并且覆蓋后無法恢復(fù)，您確定要進(jìn)行恢復(fù)操作嗎?If MsgBox(Mstr, vbYesNo + vbQuestion, 操作提示) = vbYes ThenOn Error GoTo re = 正在恢復(fù)，請(qǐng)稍候…… 39。開始一個(gè)事件 (restore database 工資管理系統(tǒng) from disk=39。 amp。 amp。 39。 with replace) 39。SQL語句要是不會(huì)用，查看幫助文件 39。執(zhí)行 = 恢復(fù)成功 MsgBox 恢復(fù)成功, vbOKOnly + vbInformation, 提示 Exit Subre: 39。回滾（不執(zhí)行） = 恢復(fù)失敗 MsgBox 恢復(fù)失敗, vbOKOnly + vbInformation, 提示End IfEnd SubPrivate 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 Subback: MsgBox 備份失敗, vbOKOnly + vbInformation, 提示 End Sub39。到這里就告一段落了，是不是很簡單呢，當(dāng)然這里有很多不足，你自己完善吧Private Sub Form_Load()End Sub選擇“系統(tǒng)”“退出”菜單，單擊則推出主菜單界面。選擇“設(shè)置”“基本工資”菜單，可以單擊“添加”，“刪除”，“修改”，“取消”按鈕來實(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。插入符合條件的工資信息 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 庫中沒有記錄! 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è)置”“崗位工資”菜單，可以單擊“添加”，“刪除”，“修改”，“取消”按鈕來實(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)