VB+access企业工资管理系统 第7页
If Me.commonth.Text = 4 Then
firstday = Year(Date) & "-" & Me.commonth.Text & "-1"
days = DateDiff("d", Year(Date) & "-" & Me.commonth.Text & "-1", _
Year(Date) & "-" & Me.commonth.Text + 1 & "-1")
lastday = Year(Date) & "-" & Me.commonth.Text & "-" & days
Call sumsalary(firstday, lastday)
sql = "select * from salarystatistics"
frmresult.SSTab1.Caption = "员工工资统计列表"
Call frmresult.listtopic
Call frmresult.showdata(sql)
frmresult.Caption = "统计结果列表"
frmresult.ZOrder 0
Unload Me
Else
MsgBox "这个月的工资未统计", vbOKOnly + vbExclamation, "提示"
End If
选择“工资信息管理”—>“查询工资”菜单，系统显示如图的查询信息窗体，系统默认的是查询出数据库中所有的记录（当管理员进入的时候），当从“员工编号”下拉列表中选择一个员工编号后，单击“查询单人”按钮，就会查询出符合这个员工编号的记录；如果需要返回查询所有信息，单击“查询所有”按钮，系统就会返回所有员工的信息。在“员工工资统计列表”中单击鼠标右键，会弹出下图的菜单，在“员工其他项目列表”中单击鼠标右键也会出现下图的菜单。
如果要选择“删除基本工资设置”，出现如下的提示：
具体的操作这里就不详细介绍。
选择“工资信息管理”—>“导出工资表”菜单，会出现下图的“导出记录”窗体中选择需要导出工资的月份。选择月份和保存位置后，单击“导出”按钮，系统会开始导出数据。
单击“确定”按钮打开导出的文件，单击“取消”按钮回到系统。
导出的工资记录
3．4 各项子模块编写要点
在登录的这个窗体里，我做的特点是：只要在数据库里有用户信息的，都可以登录，然后显示相关自己的信息，而管理员显示所有的信息。当输入的用户名或密码不正确的时候，会出现如下的对话框：
或者
在主窗体的设计中，我在系统的下拉菜单里包括有添加用户、修改密码和
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] 下一页
VB+access企业工资管理系统 第7页下载如图片无法显示或论文不完整，请联系qq752018766
