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]