号。",16,"提示"
bhtxt.SetFocus
EndIf
EndIf
EndSub
PrivateSubCommand4_Click()
zgxxForm.Hide
EndSub
PrivateSubCommand5_Click()
bhtxt.Text=""
xmtxt.Text=""
bmcom.Text=""
jlRTB.Text=""
bhtxt.Locked=False
bhtxt.SetFocus
EndSub
PrivateSubForm_Activate()
bmcom.Clear
bmcom.AddItem("销售部")
bmcom.AddItem("工程部")
bmcom.AddItem("软件部")
bmcom.AddItem("培训部")
EndSub
PrivateSubForm_Load()
Setcn=NewADODB.Connection
cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+App.Path+"\gz.mdb;PersistSecurityInfo=False"
cn.CursorLocation=adUseClient
EndSub
3.2.3职工信息查询模块
此项功能为针对于员工的信息进行查询在"姓名或个人编号"里面输入你要查询人的"姓名"或"个人编号",按"查询"键,这样在下方就出现一个对话框,把你所要查找的个人信息显示出来.屏幕格式设计如下
图3.4职工信息查询
各控件的属性设置如下表所示:
表3.7控件的属性
控件名称
属性
值
Label2
Caption
姓名或个人编号
FONT
宋体五号字
控件名称
属性
值
Label2
HEIGHT
210
LEFT
120
TOP
420
WIDTH
1470
Command1
Caption
查询
FONT
宋体
Command2
Caption
退出
FONT
宋体
职工信息查询设计代码:
PrivateSubCommand_click()
DimcnAsADODB.Connection
DimrsAsADODB.Recordset
PrivateSubCommand1_Click()
Setrs=NewADODB.Recordset
sql="select*fromzgxxwhere个人编号like"+"'%"+Trim(xmtxt.Text)+"%'"+"or"+"姓名like"+"'%"+Trim(xmtxt.Text)+"%'"
rs.Opensql,cn,adOpenDynamic,adLockOptimistic
SetMSHFlexGrid1.DataSource=rs
rsLabel.Caption=Str(rs.RecordCount)
EndSub
PrivateSubCommand2_Click()
zgxxcxForm.Hide
EndSub
PrivateSubForm_Load()
Setcn=NewADODB.Connection
cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+App.Path+"\gz.mdb;PersistSecurityInfo=False"
cn.CursorLocation=adUseClient
EndSub
PrivateSubLabel2_Click()
EndSub
3.2.4职工信息删除
此项功能为删除职工信息通过个人编号进行删除.当输入编号以后按删除键.这样给你一个提示删除完成.,不过些操作将永久删除职工所有的信息,所以当使用本操作时一定要慎重小心.如果你不想删除时可以按退出键。屏幕格式设计:
图3.5职工信息删除
各控件的属性设置如下表所示
表3.8控件的属性
控件名称
属性
值
Frame1
Caption
注意
height
975
left
360
top
120
width
3975
Label1
Caption
个人编号
font
宋体
left
600
top
1440
Command1
Caption
删除
font
宋体
控件名称
属性
值
Command2
Caption
退出
font
宋体
职工信息删除模块代码:
DimcnAsADODB.Connection
DimrsAsADODB.Recordset
PrivateSubCommand1_Click()
Ifbhtxt.Text=""Then
MsgBox"请输入个人编号。"
Else
Setrs=NewADODB.Recordset
sql="deletefromzgxxwhere个人编号="+"'"+bhtxt.Text+"'"
rs.Opensql,cn
sql="deletefromgzxxwhere个人编号="+"'"+bhtxt.Text+"'"
rs.Opensql,cn
MsgBox"删除完成。",48,"提示"
EndIf
EndSub
PrivateSubCommand2_Click()
scForm.Hide
EndSub
PrivateSubForm_Load()
Setcn=NewADODB.Connection
cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+App.Path+"\gz.mdb;PersistSecurityInfo=False"
cn.CursorLocation=adUseClient
EndSub
3.2.5职工工资信息管理模块
工资信息管理模块功能说明此项功能为员工工资的项目明细在个人编号当中输入编号之后在项目名称当中进行选择"基本工资""职务工资或奖金.按保存一键这样你所录入的文件将根据你自己所做的选择进行保存了.如果你想把此项删除就按删除一键就可以.如果想查询某项的奖金就按查询一键就可以了.否则退出.屏幕格式设计如下图:
图3.6职工工资信息管理
各控件的属性如下表
表3.8控件的属性
控制名称
属性
值
Label1
caption
个人编号
font
宋体
wordwrap
false
xmcom
font
宋体
Left
1560
text
空格
width
1575
Command1
caption
删除
font
宋体
Left
1680
top
5760
Command2
caption
退出
font
宋体
Command3
caption
保存
font
宋体
Command4
caption
查询
font
宋体
职工工资信息管理模块代码:
DimcnAsADODB.Connection
DimrsAsADODB.Recordset
PrivateSubCommand1_Click()
bh=bhtxt.Text
xm=xmcom.Text
Setrs=NewADODB.Recordset
Ifbh=""Orxm=""Then
MsgBox"数据错误。",32,"提示"
Else
sql="deletefromgzxx"+"where"+"个人编号="+"'"+bh+"'and"+"项目名称="+"'"+xm+"'"
rs.Opensql,cn,adOpenDynamic,adLockOptimistic
MsgBox"删除完成。"
EndIf
EndSub
PrivateSubCommand2_Click()
gzxmForm.Hide
EndSub
PrivateSubCommand3_Click()
bh=bhtxt.Text
xm=xmcom.Text
je=jetxt.Text
Ifbh=""Orxm=""OrIsNumeric(je)=FalseThen
MsgBox"数据错误。",32,"提示"
Else
Setrs=NewADODB.Recordset
sql="select*fromgzxx"+"where"+"个人编号="+"'"+bh+"'and"+"项目名称="+"'"+xm+"'"
rs.Opensql,cn,adOpenDynamic,adLockOptimistic
Ifrs.RecordCount=0Then
rs.Close
sql="insertintogzxx(个人编号,项目名称,金额)values("+"'"+bh+"','"+xm+"',"+je+")"
rs.Opensql,cn,adOpenDynamic,adLockOptimistic
MsgBox"新增保存完成。"
Else
rs.Close
sql="updategzxxset金额="+je+"where"+"个人编号="+"'"+bh+"'and"+"项目名称="+"'"+xm+"'"
rs.Opensql,cn,adOpenDynamic,adLockOptimistic
MsgBox"修改保存完成"
EndIf
EndIf
EndSub
PrivateSubCommand4_Click()
bh=bhtxt.Text
xm=xmcom.Text
Setrs=NewADODB.Recordset
sql="select*fromgzxx"+"where"+"个人编号="+"'"+bh+"'and"+"项目名称="+"'"+xm+"'"
rs.Opensql,cn,adOpenDynamic,adLockOptimistic
Ifrs.RecordCount=1Then
jetxt.Text=rs.Fields("金额").Value
Else
MsgBox"错误的个人编号或项目名称。"
EndIf
EndSub
PrivateSubForm_Load()
xmcom.Clear
xmcom.AddItem("基本工资")
xmcom.AddItem("职务工资")
xmcom.AddItem("奖金")
Setcn=NewADODB.Connection
cn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="+App.Path+"\gz.mdb;PersistSecurityInfo=False"
cn.CursorLocation=adUseClient
EndSub
PrivateSubjetxt_Change()
EndSub
3.2.6职工工资信息查询模块
工资信息查询模块功能说明此项功能为按个人编号进行的.能够查出所输入的编号的基本工资,职务工资和奖金,也同时能够合计出总金额.否则退出.屏幕格式设计:
图3.7职工工资信息查询
各控件的属性设置如下表.
表3.8控件的属性
控制名称
属性
值
Label1
caption
个人编号
font
宋体
wordwrap
false
MSHFlexGrid1
font
宋体
fontfixed
宋体
Fontwidth
0
fontwidthfixed
0
控制名称
属性
值
Command1
caption
退出
font
宋体
Left
1
上一篇:
VB工资管理系统vb+access源代码+可执行程序+论文+开题报告+外文翻译+答辩ppt(论文和程序)
下一篇:
让我掉下眼泪的