str(i)
EndIf
Nexti
LsDegree.AddItem"定制"
LsDepart.AddItem"定制"
EndIf
EndSub
PrivateSubForm_Unload(CancelAsInteger)
End
EndSub
PrivateSubDBGA_Butt(ByValColIndexAsInteger)
DimCoAsColumn
SetCo=DBGA.Columns(ColIndex)
SelectCaseColIndex
Case4
Lssex.Left=DBGA.Left+Co.Left+Co.Width
Lssex.Top=DBGA.Top+DBGA.RowTop(DBGA.Row)
Lssex.Visible=True
Lssex.ZOrder0
Lssex.SetFocus
Case7'degree
LsDegree.Left=DBGA.Left+Co.Left+Co.Width
LsDegree.Top=DBGA.Top+DBGA.RowTop(DBGA.Row)
LsDegree.Visible=True
LsDegree.ZOrder0
LsDegree.SetFocus
Case8'department
LsDepart.Left=DBGA.Left+Co.Left+Co.Width
LsDepart.Top=DBGA.Top+DBGA.RowTop(DBGA.Row)
LsDepart.Visible=True
LsDepart.ZOrder0
LsDepart.SetFocus
EndSelect
EndSub
PrivateSubDBGA_HeadClick(ByValColIndexAsInteger)
DBGA.ClearSelCols
EndSub
PrivateSubDBGA_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
IfButton=2Then
FrmMain.PopupMenuMp
EndIf
EndSub
PrivateSubDBGA_RowColChange(LastRowAsVariant,ByValLastColAsInteger)
cuAp=DataA.Recordset.AbsolutePosition
IfcuAp>-1Then
DataB.Recordset.FindFirst"职工编号="+CStr(DataA.Recordset.Fields("职工编号"))
IfDataB.Recordset.NoMatchThen
Lab.Caption="没有此职员"
Else
WithDataB.Recordset
Lab.Caption="工号:"+CStr(.Fields(0))+"Fields(1))+"性别:"+CStr(.Fields(4))+"部门:"+CStr(.Fields(8))+"职位:"+CStr(.Fields(9))+"电话:"+CStr(.Fields(11))
EndWith
EndIf
EndIf
EndSub
PrivateSubLsDegree_Click()
IfLsDegree.Text="定制"Then
FrmTable.Show
Else
DataA.Recordset.Edit
DataA.Recordset.Fields(7)=LsDegree.Text
DataA.Recordset.Fields(13)=CStr(frmLogin.CurId)
DataA.Recordset.Fields(14)=CStr(Now)
DataA.Recordset.Update
DataB.Refresh
EndIf
EndSub
PrivateSubLsDepart_Click()
IfLsDepart.Text="定制"Then
FrmTable.Show
Else
DataA.Recordset.Edit
DataA.Recordset.Fields(8)=LsDepart.Text
DataA.Recordset.Fields(13)=CStr(frmLogin.CurId)
DataA.Recordset.Fields(14)=CStr(Now)
DataA.Recordset.Update
DataB.Refresh
EndIf
EndSub
PrivateSubLssex_Click()
DataA.Recordset.Edit
DataA.Recordset.Fields(4)=Lssex.Text
DataA.Recordset.Fields(13)=CStr(frmLogin.CurId)
DataA.Recordset.Fields(14)=CStr(Now)
DataA.Recordset.Update
DataB.Refresh
EndSub
'#################################
PrivateSubLssex_LostFocus()
Lssex.Visible=False
EndSub
PrivateSubLsdegree_LostFocus()
LsDegree.Visible=False
EndSub
PrivateSubLsdepart_LostFocus()
LsDepart.Visible=False
EndSub
PrivateSubDBGA_Scroll(CancelAsInteger)
Lssex.Visible=False
LsDegree.Visible=False
LsDepart.Visible=False
EndSub
'#################################
PrivateSubMAbout_Click()
frmAbout.Show
EndSub
PrivateSubMhelp_Click()
FrmHelp.Show
EndSub
PrivateSubMoption_Click(IndexAsInteger)
IfIndex=0Then
IffrmLogin.CurUser="root"Then
FrmSys.Show
Else
FrmPsw.Show
Pwin="Frmmain"
FrmMain.Enabled=False
EndIf
Else
End
EndIf
EndSub
PrivateSubMpop_Click(IndexAsInteger)
SelectCaseIndex
Case1
FrmEdit.Show
FrmMain.Enabled=False
Case2
IfDBGA.SelBookmarks.Count=1Then
IfMsgBox("确定要删除吗?",vbOKCancel,"确定")=vbOKThenDataA.Recordset.Delete
cuAp=0
Else
MsgBox"请选择要删除的条目!"
EndIf
Case3
FrmSearch.Show
EndSelect
End
上一篇:
vb企业人事管理系(论文和程序)
下一篇:
对硕士毕业生迁移失业目的地的实证研讨