vb人事管理系(项羽)(论文和程序)
vb人事管理系(项羽)(论文和程序)-系统图片展示 |
vb人事管理系(项羽)(论文和程序)-包括论文和程序列表 |
包括目录名称:
vb人事管理系(项羽)(论文和程序) - 5 文件数, 4 目录数.
包括目录名称:
DBGRID32 - 1 文件数, 0 目录数.
..\DBGRID32.OCX
包括目录名称:
vb人事管理系(项羽087060494) - 0 文件数, 3 目录数.
包括目录名称:
DBGRID32 - 1 文件数, 0 目录数.
..\DBGRID32.OCX
包括目录名称:
人事管理源程序 - 47 文件数, 0 目录数.
..\008.jpg
..\CLOCK05.ICO
..\DBGRID32.OCA
..\DBGRID32.OCX
..\FOXUSER.DBF
..\FOXUSER.FPT
包括目录名称:
论文 - 5 文件数, 0 目录数.
..\中期报告(doc)457.doc
..\封面(doc)454.doc
..\开题报告(doc)455.doc
..\正文1(doc)456.doc
..\程序清单(doc)453.doc
包括目录名称:
人事管理源程序 - 47 文件数, 0 目录数.
..\008.jpg
..\CLOCK05.ICO
..\DBGRID32.OCA
..\DBGRID32.OCX
..\FOXUSER.DBF
..\FOXUSER.FPT
包括目录名称:
论文 - 0 文件数, 0 目录数.
..\中期报告(doc)462.doc
..\封面(doc)459.doc
..\开题报告(doc)460.doc
..\正文1(doc)461.doc
..\程序清单(doc)458.doc
vb人事管理系(项羽)(论文和程序)-论文部分内容 |
程序清单(doc)458-部分内容毕业设计程序清单
OptionExplicit
DimBupdataAsBoolean
DimiAsInteger
PrivateSubCmbdegree_Click()
IfCmbdegree.Text="定制"Then
FrmTable.Show
Cmbdegree.ListIndex=0
EndIf
EndSub
PrivateSubCmbdepart_Click()
IfCmbdepart.Text="定制"Then
FrmTable.Show
Cmbdepart.ListIndex=0
EndIf
EndSub
PrivateSubCmdAddNew_Click()
IfCmdAddNew.Caption="添加"Then
CmdAddNew.Caption="确认"
CmdDel.Enabled=False
CmdOK.Enabled=False
DataA.ReadOnly=False
Fori=1To12
IfTxt(i).Text=""ThenTxt(i).Text=0'DataA.Recordset.Fields(i)=0
Nexti
DataA.Recordset.AddNew
Txt(0).Locked=False
IfFrmMain.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
ElseIfFrmMain.cutable="leave"Then
DataA.Recordset.Fields(8)=frmLogin.EmploID
DataA.Recordset.Fields(9)=Now
Else
DataA.Recordset.Fields(13)=frmLogin.EmploID
DataA.Recordset.Fields(14)=Now
EndIf
Txt(0).SetFocus
Else'OK
IfTxt(0).Text=""Then
MsgBox"不可以为空"
Txt(0).SetFocus
ExitSub
EndIf
Fori=1To12
IfTxt(i).Text=""ThenTxt(i).Text=0'DataA.Recordset.Fields(i)=0
Nexti
IfFrmMain.cutable="employee"Then
DataB.Recordset.FindFirst"职工编号="+Txt(0).Text
IfNotDataB.Recordset.NoMatchThen
MsgBox"职员编号重复"
Txt(0).Text=""
Txt(0).SetFocus
ExitSub
EndIf
ElseIfFrmMain.cutable="leave"Then
DataB.Recordset.FindFirst"假条编号="+Txt(0).Text
IfNotDataB.Recordset.NoMatchThen
MsgBox"假条编号重复"
Txt(0).Text=""
Txt(0).SetFocus
ExitSub
EndIf
Else
Fori=4To10
IfNotIsNumeric(Txt(i).Text)Then
MsgBox"notanumber"
Txt(i).SetFocus
ExitSub
EndIf
Nexti
DataB.Recordset.FindFirst"工资编号="+Txt(0).Text
IfNotDataB.Recordset.NoMatchThen
MsgBox"工资编号重复"
Txt(0).Text=""
Txt(0).SetFocus
ExitSub
EndIf
EndIf
DataA.Recordset.Update
DataA.Recordset.MoveLast
FrmMain.DataA.Refresh
FrmMain.DataB.Refresh
DataB.Refresh
CmdAddN