VB+access企业工资管理系统 第4页
  登录模块的详细设计主要是用户登录的一个界面，判断登录的用户是管理员还是普通用户，进入后将面对的是主界面，从而进行相关的操作。    登录的界面主要由用户名和密码的信息，还有一些标题设置，确定和取消的按钮组成。通过标题可以知道此系统的大概内容，由此，登录界面的设计完成。 
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 = ""
       username.SetFocus        
选择“系统”—>“修改密码”菜单，在修改密码的窗体里，输入旧密码和2次输入新密码后，单击“确定”按钮，系统将会更改当前用户的密码。
userpassword = newpwd
sql = "update userinfo set userpwd='" & newpwd & "'where userid='" & strusername & "'"
Call transactsql(sql, "salary")
MsgBox "密码已经修改", vbOKOnly + vbExclamation, "修改结果"
选择“工资信息设置”—>“基本工资设置”菜单设置员工的基本工资，可以根据员工的编号，或者根据员工职务设置基本工资，设置的基本工资为每个小时的工资。
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

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页