VB+access企业工资管理系统 第9页
如果输入的月份有统计记录则弹出如下的对话框：
然后弹出出勤结果的窗体，显示数据库中统计信息相关的记录。
管理员能看到的界面
这是用户登录所显示的用户信息
建立计算实发工资的窗体，这个窗体的建立和统计出勤记录的窗体比较相似，选择月份后，单击“开始统计”按钮，即可统计员工工资。在计算实发工资的窗体里，如果输入的月份的工资没统计会弹出如下的对话框：
否则会出现如下的对话框：
单击“确定”后，就会出现工资信息列表，这时你将看见所有关于你想要的信息。
建立工资查询的窗体，在选择员工编号后，单击“查询单人”按钮，返回选择员工的相关信息。单击“查询全部”按钮，系统返回全部员工的信息。在建立工资查询（即工资统计结果列表）的窗体时，我觉得这是一个最难的窗体。不仅是因为它的设置，还有就是它的代码和数据库相连的操作。在这个窗体中使用了SSTab控件，在每一个标签上添加一个MSFlexGrid控件。当你是管理员登录的时候，他的权限是所有，当你是用户登录的时候，窗体只显示登录用户本人的相关信息。他没有任何权限，只能看到自己的信息，这是我做这个窗体的特色。
窗体的部分代码为：
If strusername = "admin" Then ’管理员的权限
sql = "select stuffid from salarysetting"
Set rs = getrs(sql, "salary")
If rs.EOF = False Then
While Not rs.EOF
Me.comid.AddItem rs(0)
rs.MoveNext
Wend
rs.Close
End If
Me.comid.ListIndex = 0
Select Case Me.SSTab1.Tab
Case 0
sql = "select * from salarysetting"
Call basictopic
Call showbasic(sql)
Case 1
sql = "select * from salaryother"
Call othertopic
Call showother(sql)
Case 2
sql = "select * from salarystatistics order by id desc"
Call listtopic
Call showdata(sql)
End Select
Else ’ 用户的权限
sql = "select sid from stuffinfo where sname='" & strusername & "'"
Set rs = getrs(sql, "salary")
While Not rs.EOF
Me.comid.AddItem rs(0)
rs.MoveNext
Wend
rs.MoveFirst
sd = rs(0)
rs.Close
Me.comid.ListIndex = 0
Select Case Me.SSTab1.Tab
Case 0
sql = "select * from salarysetting where stuffid='" & sd & "'"
Call basictopic
Call showbasic(sql)
Case 1
sql = "select * from salaryother where stuffid='" & sd & "'"
Call othertopic
Call showother(sql)
Case 2
sql = "select * from salarystatistics where stuffid='" & sd & "'"
Call listtopic
Call showdata(sql是非常复杂的，尤其是从VB导入到表格中。建立导出工资表的窗体，当单击“保存为”文本框右边的按钮，会提示用户选择保存路径，然后单击“导出”，会导到你所要保存的文件夹里。
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9]
VB+access企业工资管理系统 第9页下载如图片无法显示或论文不完整，请联系qq752018766
