员工工资管理系统VB+SQL1(3)

End Sub

Private Sub yonghutianjia_Click() Dim sql As String

Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)

If Trim(power) <> \管理员\

MsgBox \您无权进行该操作！\警告\Else

If Trim(power) = \管理员\frm_tianjiayushanchu.Show Unload Me End If End If End Sub

Private Sub Form_Load() Dim i As Integer Dim sql As String

Dim rst As ADODB.Recordset sql = \权限 from 用户表 \ Set rst = ExecuteSQL(sql, \ For i = 1 To rst.RecordCount rst.MoveNext Next i

3．3 “主窗体”模块详细设计

在这个项目中，选择使用多文档界面。使用这个窗体的好处是可以使程序更加有条理。

对于一个多任务的应用程序，使用多文档窗体还可以减少占用的系统资源。

主窗体设计的界面是用菜单编辑器做的，主要由系统、工资信息设置、工资信息管理

和关于这四个大模块组成。主窗体是进行相关操作的主界面。在这几个里，管理员有所有的权利进行各种操作。 主窗体及核心代码：

Private Sub bumenxinxi_Click() Dim sql As String

Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)

If Trim(power) <> \管理员\

MsgBox \您无权进行该操作！\警告\Else

If Trim(power) = \管理员\frm_bumenxinxi.Show Unload Me End If End If End Sub

Private Sub gangweigongzi_Click() Dim sql As String

Dim rst As New ADODB.Recordset sql = \用户表 \

Set rst = ExecuteSQL(sql, \power = rst.Fields(2)

If Trim(power) <> \管理员\

MsgBox \您无权进行该操作！\警告\Else

If Trim(power) = \管理员\frm_gangweigongzi.Show Unload Me End If End If End Sub

Private Sub jiben_Click() Dim sql As String

Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)

If Trim(power) <> \管理员\

MsgBox \您无权进行该操作！\警告\Else

If Trim(power) = \管理员\frm_jiben.Show Unload Me End If End If End Sub

Private Sub yonghushanchu_Click() Dim sql As String

Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)

If Trim(power) <> \管理员\

MsgBox \您无权进行该操作！\警告\Else

If Trim(power) = \管理员\frm_tianjiayushanchu.Show Unload Me End If End If End Sub

Private Sub yonghutianjia_Click() Dim sql As String

Dim rst As New ADODB.Recordset sql = \用户表 \Set rst = ExecuteSQL(sql, \power = rst.Fields(2)

If Trim(power) <> \管理员\

MsgBox \您无权进行该操作！\警告\Else

If Trim(power) = \管理员\frm_tianjiayushanchu.Show Unload Me End If End If End Sub

Private Sub Form_Load() Dim i As Integer Dim sql As String

Dim rst As ADODB.Recordset sql = \权限 from 用户表 \ Set rst = ExecuteSQL(sql, \ For i = 1 To rst.RecordCount rst.MoveNext Next i End Sub

3．4 各项子模块详细设计

3.4．1添加用户与删除

选择“系统”—>“添加用户与删除”菜单，在添加用户的窗体里,输入新的用户名称和密码后，单击“添加”按钮，系统将会添加新的用户。在窗体里输入用户名称和密码，单击“删除”按钮，系统将会删除原来用户。

Private Sub cmd_adduser_Click() Dim newrst As ADODB.Recordset Dim sql As String

sql = \用户表 values(\

& \ & \Set newrst = execute_sql(sql) sql = \用户表\Set newrst = select_sql(sql)

Set DataGrid1.DataSource = newrst End Sub

Private Sub cmd_cancel_Click() Unload Me End Sub

Private Sub cmd_delete_Click() Dim sql As String

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库员工工资管理系统VB+SQL1(3)在线全文阅读。