员工工资管理系统(vbsql

员工工资管理系统(vbsql内容摘要：

Dim rst As sql = select 权限 from 用户表 Set rst = ExecuteSQL(sql, ) For i = 1 To Next i End Sub 3． 4 各项子模块详细设计 ． 1 添加用户与删除 选择“系统” — “添加用户与删除”菜单，在添加用户的窗体里 ,输入新的用户名称和密码后，单击“添加”按钮，系统将会添加新的用户。 在窗体里输入用户名称和密码，单击“删除”按钮，系统将会删除原来用户。 Private Sub cmd_adduser_Click() Dim newrst As Dim sql As String sql = 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 = newrst End Sub Private Sub cmd_cancel_Click() Unload Me End Sub Private Sub cmd_delete_Click() Dim sql As String sql = select * from 用户表 If txt_username Then Set objrs = ExecuteSQL(sql, ) Set = objrs 39。 刷新网格，显示操作后的结果 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 修改用户 选择“系统” “修改用户”菜单，在窗体里输入新的用户名称和用户权限，单击“修改”按钮，系统将会修改原来用户信息。 Private Sub cmd_adduser_Click() Dim newrst As Dim sql As String sql = 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 = newrst End Sub Private Sub cmd_cancel_Click() Unload Me End Sub Private Sub cmd_delete_Click() Dim sql As String sql = select * from 用户表 If txt_username Then Set objrs = ExecuteSQL(sql, ) Set = objrs 39。 刷新网格，显示操作后的结果 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 数据库备份和恢复 选择 “系统” “数据库备份和恢复”菜单，在位置文本框中输入备份或恢复的文件所在位置，单击“备份”或“恢复”按钮，数据库将备份或恢复。 Option Explicit Private Sub cmd_recovery_Click() If = adStateOpen Then 39。 如果已连接，关掉宽 End If driver={sql server}。 server=HZ。 uid=sa。 pwd=heweiling。 database=master 39。 建一个连接用来获得要还原数据库的进程标识符（ spid） Dim rs As New 39。 该记录集保存进程 ID 以备操作 select spid from sysprocesses where dbid=db_id(39。 工资管理系统 39。 ), Mod, adOpenDynamic, adLockPessimistic 39。 解释一下，这句话是为了将有关“工资管理系统”所有服务进程 ID 查询出来 db_id 是 SQL中的一个函数具体语法你自己看它的帮助文件哦，这里就不赘述了 If = False Then Do While = True 39。 扫描并关闭有关“工资管理系统”的服务进程 (kill amp。 (0)) 39。 kill 也是 SQL 的方法“杀”与 dos 下的 kill类似啊，是吧，呵呵自己看看帮助文件很详尽的 Loop End If = 所有文件（ *.*） |*.*|备份文件 (*.bak)|*.bak = = Dim Mstr As String Mstr = 恢复主要数据库。 数据恢复操作将会覆盖以前的所有数据并且覆盖后无法恢复，您确定要进行恢复操作吗 ? If MsgBox(Mstr, vbYesNo + vbQuestion, 操作提示 ) = vbYes Then On Error GoTo re = 正在恢复，请稍候„„ 39。 开始一个事件 (restore database 工资管理系统 from disk=39。 amp。 amp。 39。 with replace) 39。 SQL 语句要是不会用，查看帮助文件 39。 执行 = 恢复成功 MsgBox 恢复成功 , vbOKOnly + vbInformation, 提示 Exit Sub re: 39。 回滚（不执行） = 恢复失败 MsgBox 恢复失败 , vbOKOnly + vbInformation, 提示 End If End Sub Private Sub cmd_back_Click() 39。 下面是备份的代码，处理的比较粗糙，你自己优化了，呵呵，相信你能看懂的，我就不注释了 If = adStateOpen Then End If = 所有文件（ *.*） |*.*|备份文件 (*.bak)|*.bak = txt_weizhi = driver={sql server}。 server=HZ。 uid=sa。 pwd=heweiling。 database=工资管理系统 On Error GoTo back (backup database 工资管理系统 to disk=39。 amp。 amp。 39。 ) MsgBox 成功地备份到 amp。 amp。 下 , vbOKOnly + vbInformation, 操作提示 Exit Sub back: MsgBox 备份失败 , vbOKOnly + vbInformation, 提示 End Sub 39。 到这里就告一段落了，是不是很简单呢，当然这里有很多不足，你自己完善吧 Private Sub Form_Load() End Sub 退出 选 择“ 系统 ” “退 出 ” 菜单 ，单 击则推 出主 菜单 界面。 基本工资 选择“设置” “基本工资”菜单，可以单击“添加”，“删除”，“修改 ” ， “ 取 消 ” 按 钮 来 实 现 相 应 功 能。 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。 刷新网格，显示操作后的结果 = = 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 数据非法 = End If End Sub 岗位工资 选择“设置” “岗位工资”菜单，可以单击“添加”，“删除”，“修改 ” ， “ 取 消 ” 按 钮 来 实 现 相 应 功 能。 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 岗位工资 ,。