VB453 企业工资管理系统论文Access

3．2 “主窗体”模块详细设计
在这个项目中，选择使用多文档界面。使用这个窗体的好处是可以使程序更加有条理。对于一个多任务的应用程序，使用多文档窗体还可以减少占用的系统资源。
主窗体设计的界面是用菜单编辑器做的，主要由系统、工资信息设置、工资信息管理和关于这四个大模块组成。主窗体是进行相关操作的主界面。在这几个里，管理员有所有的权利进行各种操作。
 
3.3各项子模块详细设计
选择“系统”—>“添加用户”菜单，在添加用户的窗体里,输入新的用户名称和密码后，单击“确定”按钮，系统将会添加新的用户。
        sql = "insert into userinfo (userid,userpwd) values('" & username
       sql = sql & "','" & password & "')"
       Call transactsql(sql, "salary")
       MsgBox "添加成功", vbOKOnly + vbExclamation, "添加结果"
       username.Text = ""
       password.Text = ""
       confirmpwd.Text = "" [资料来源：http://THINK58.com]
       username.SetFocus 
      
选择“系统”—>“修改密码”菜单，在修改密码的窗体里，输入旧密码和2次输入新密码后，单击“确定”按钮，系统将会更改当前用户的密码。
userpassword = newpwd
sql = "update userinfo set userpwd='" & newpwd & "'where userid='" & strusername & "'"
Call transactsql(sql, "salary")
MsgBox "密码已经修改", vbOKOnly + vbExclamation, "修改结果" [资料来源：THINK58.com]

 
选择“工资信息设置”—>“基本工资设置”菜单设置员工的基本工资，可以根据员工的编号，或者根据员工职务设置基本工资，设置的基本工资为每个小时的工资。
Set rs = getrs(sql, "salary")
If rs.EOF = False Then
sql = "delete from salarysetting where stuffid='" & Me.comstuffid.Text & "'"
Call transactsql(sql, "salary")
End If
rs.Close
id = Me.comstuffid.Text
Call addrecord
MsgBox "已经设置基本工资", vbOKOnly + vbExclamation, "添加结果"
Call init
sql = "select * from salarysetting"
Call frmresult.basictopic
Call frmresult.showbasic(sql)
frmresult.Show
frmresult.ZOrder 0
Me.ZOrder 0 [来源：http://www.think58.com]

 
选择“工资信息设置”—>“其他项目设置”菜单，在其他项目设置的窗体中，设置员工当月的奖金、津贴、福利等项目。
sql = "select * from salaryother"
  If ichangeflag = 1 Then
     Call add
     MsgBox "已经添加记录", vbOKOnly + vbExclamation, "提示"
     Call frmresult.othertopic
     Call frmresult.showother(sql)
     frmresult.Show
     Unload Me
  Else
     If Me.optionbonus.Value = True Then
        itype = 1
     ElseIf Me.optionallowance.Value = True Then
        itype = 2
     ElseIf Me.optionwelfare.Value = True Then
        itype = 3
     ElseIf Me.optionabatement.Value = True Then
        itype = 4 copyright think58 [来源：http://think58.com]
     ElseIf Me.optionothers.Value = True Then
        itype = 5
    resumdate = recordtime
        sql = "delete from salaryother where stuffid='" & Me.comid.Text
think58 [资料来源：THINK58.com]