BGA.Columns("学历").Button=True
FrmMain.DBGA.Columns("部门").Button=True
EndIf
EndSub
PrivateSubCmdDel_Click()
DataA.ReadOnly=False
DataA.Recordset.Delete
DataA.Recordset.MoveNext
IfDataA.Recordset.EOFThen
DataA.Recordset.MoveLast
EndIf
FrmMain.DataA.Refresh
EndSub
PrivateSubcmdOK_Click()
IfTxt(0).Text=""Then
MsgBox"不可以为空"
Txt(0).SetFocus
ExitSub
EndIf
Bupdata=False
DataA.Recordset.Edit
IfFrmMain.cutable="leave"Then
DataA.Recordset.Fields(8)=frmLogin.EmploID
DataA.Recordset.Fields(9)=Now
ElseIfFrmMain.cutable="employee"Then
DataA.Recordset.Fields(13)=frmLogin.EmploID
DataA.Recordset.Fields(14)=Now
IfOpsex(0)Then
DataA.Recordset.Fields(4)="男"
Else
DataA.Recordset.Fields(4)="女"
EndIf
DataA.Recordset.Fields(7)=Cmbdegree.Text
DataA.Recordset.Fields(8)=Cmbdepart.Text
DataA.Recordset.Fields(13)=frmLogin.EmploID
DataA.Recordset.Fields(14)=Now
Else
Fori=4To10
IfNotIsNumeric(Txt(i).Text)Then
MsgBox"notanumber"
Txt(i).SetFocus
ExitSub
EndIf
Nexti
DataA.Recordset.Fields(13)=frmLogin.EmploID
DataA.Recordset.Fields(14)=Now
EndIf
Fori=1To12
IfTxt(i).Text=""ThenTxt(i).Text=0'DataA.Recordset.Fields(i)=0
Nexti
DataA.Recordset.Update
FrmMain.DataA.Refresh
DataB.Refresh
EndSub
PrivateSubDataA_Validate(ActionAsInteger,SaveAsInteger)
IfAction=11AndBupdataThen
Save=0
EndIf
EndSub
PrivateSubLab_Click(IndexAsInteger)
EndSub
PrivateSubTxt_KeyPress(IndexAsInteger,KeyAsciiAsInteger)
If(KeyAscii<48OrKeyAscii>57)AndKeyAscii<>vbKeyBackAndIndex=0Then
KeyAscii=0
ExitSub
EndIf
IfFrmMain.cutable="leave"AndIndex=1Then
If(KeyAscii<48OrKeyAscii>57)AndKeyAscii<>vbKeyBackThen
KeyAscii=0
ExitSub
EndIf
EndIf
IfFrmMain.cutable="salary"Then
IfIndex<=3Then
If(KeyAscii<48OrKeyAscii>57)AndKeyAscii<>vbKeyBackThen
KeyAscii=0
ExitSub
EndIf
EndIf
IfIndex=13ThenExitSub
If(KeyAscii<48OrKeyAscii>57)AndKeyAscii<>vbKeyBackAndKeyAscii<>46Then
KeyAscii=0
ExitSub
EndIf
EndIf
EndSub
PrivateSubTxt_change(IndexAsInteger)
IfBupdata=FalseThenBupdata=True
IfFrmMain.cutable="salary"Then
IfTxt(Index).Text=""ThenExitSub
IfIndex>=4AndIndex<=6Then
Txt(7).Text=Val(Txt(4).Text)+Val(Txt(5).Text)+Val(Txt(6).Text)
Txt(12).Text=Val(Txt(7).Text)-Val(Txt(11).Text)
EndIf
IfIndex>=8AndIndex<=10Then
Txt(11).Text=Val(Txt(8).Text)+Val(Txt(9).Text)+Val(Txt(10).Text)
Txt(12).Text=Val(Txt(7).Text)-Val(Txt(11).Text)
EndIf
EndIf
EndSub
PrivateSubForm_Load()
DataA.DatabaseName=App.Path+"\sm.mdb"
DataB.DatabaseName=App.Path+"\sm.mdb"
DataA.Caption=FrmMain.cutable
DataA.RecordSource="select*from"+FrmMain.cutable
DataB.RecordSource="select*from"+FrmMain.cutable
DataA.Refresh
Txt(0).Locked=True
'IfFrmMain.DBGA.Row=0ThenExitSub
IfFrmMain.cutable="employee"Then'employee
Fori=0To12
Lab(i).Caption=DataA.Recordset.Fields(i).Name
Nexti
Txt(0).DataField=DataA.Recordset.Fields(0).Name
Txt(1).DataField=DataA.Recordset.Fields(1).Name
Txt(2).DataField=DataA.Recordset.Fields(2).Name
Txt(3).DataField=DataA.Recordset.Fields(3).Name
Txt(4).Visible=False
Txt(5).DataField=DataA.Recordset.Fields(5).Name
Txt(6).DataField=DataA.Recordset.Fields(6).Name
Txt(7).Visible=False
Txt(8).Visible=False
Txt(9).DataField=DataA.Recordset.Fields(9).Name
Txt(10).DataField=DataA.Recordset.Fields(10).Name
Txt(11).DataField=DataA.Recordset.Fields(11).Name
Txt(12).DataField=DataA.Recordset.Fields(12).Name
Txt(13).DataField=DataA.Recordset.Fields(15).Name
IfFrmMain.cuAp>-1Then
DataA.Recordset.Move(FrmMain.cuAp)
Else
DataA.Recordset.MoveFirst
EndIf
IfDataA.Recordset.Fields(4)="男"Then
Opsex(0).Value=True
Else
Opsex(1).Value=True
EndIf
'设置lsdegree的显示项
Fori=0ToFrmMain.LsDegree.ListCount-2
Cmbdegree.AddItemFrmMain.LsDegree.List(i)
IfFrmMain.LsDegree.List(i)=DataA.Recordset.Fields(7)Then
Cmbdegree.ListIndex=i
EndIf
Nexti
IfCmbdegree.ListIndex=-1Then
Cmbdegree.AddItemDataA.Recordset.Fields(7)
Cmbdegree.ListIndex=Cmbdegree.ListCount-1
EndIf
Cmbdegree.AddItem"定制"
'设置lsdepart的显示项
Fori=0ToFrmMain.LsDepart.ListCount-2
Cmbdepart.AddItemFrmMain.LsDepart.List(i)
IfFrmMain.LsDepart.List(i)=DataA.Recordset.Fields(8)Then
Cmbdepart.ListIndex=i
EndIf
Nexti
IfCmbdepart.ListIndex=-1Then
Cmbdepart.AddItemDataA.Recordset.Fields(8)
Cmbdepart.ListIndex=Cmbdepart.ListCount-1
EndIf
Cmbdepart.AddItem"定制"
'设置完毕
ElseIfFrmMain.cutable="leave"Then'leave
Txt(7).Visible=True
Cmbdegree.Visible=False
Cmbdepart.Visible=False
Frame1.Visible=False
Fori=8To12
Lab(i).Visible=False
Txt(i).Visible=False
Nexti
Fori=0To7
Lab(i).Caption=DataA.Recordset.Fi
上一篇:
vb企业人事管理系(论文和程序)
下一篇:
对硕士毕业生迁移失业目的地的实证研讨