(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.Fields(i).Name
Txt(i).DataField=DataA.Recordset.Fields(i).Name
Nexti
Txt(13).DataField=DataA.Recordset.Fields(10).Name
IfFrmMain.cuAp>-1Then
DataA.Recordset.Move(FrmMain.cuAp)
Else
DataA.Recordset.MoveFirst
EndIf
Else'salary
Frame1.Visible=False
Cmbdegree.Visible=False
Cmbdepart.Visible=False
Fori=0To12
Lab(i).Caption=DataA.Recordset.Fields(i).Name
Txt(i).DataField=DataA.Recordset.Fields(i).Name
Nexti
Txt(13).DataField=DataA.Recordset.Fields(15).Name
Txt(7).Locked=True
Txt(11).Locked=True
Txt(12).Locked=True
IfFrmMain.cuAp>-1Then
DataA.Recordset.Move(FrmMain.cuAp)
Else
DataA.Recordset.MoveFirst
EndIf
EndIf
EndSub
PrivateSubForm_Unload(CancelAsInteger)
FrmMain.Enabled=True
FrmMain.SetFocus
UnloadMe
FrmMain.DataB.Refresh
EndSub
OptionExplicit
ConstMxUser=100
PublicEmploIDAsInteger
PublicCurUserAsString
PublicCurIdAsString
PublicCurPswAsString
Dimuser(MxUser),pws(MxUser),state(MxUser),Emplo(MxUser)AsString
PrivateSubForm_Load()
DimiAsInteger
IfApp.PrevInstanceThen
MsgBox("程序已经运行,不能再次装载。"),vbExclamation
UnloadMe
EndIf
'本段代码用于判定本程序是否已经装载于内存中,以避免程序的多重启动
i=0
OpenApp.Path+"\user.ini"ForInputAs#1
DoWhileNotEOF(1)
Input#1,user(i),pws(i),state(i),Emplo(i)
Ifstate(i)="A"Then
Combo1.AddItemuser(i)
EndIf
i=i+1
Loop
Close#1
Combo1.ListIndex=1
'在窗口装载阶段读取用户设置文件获取用户信息并装载于用户列表框中
EndSub
PrivateSubCmdCancel_Click()
UnloadMe
End
EndSub
PrivateSubcmdOK_Click()
IftxtPassword=pws(Combo1.ListIndex)Then
CurId=Combo1.ListIndex
EmploID=Emplo(CurId)
CurUser=user(CurId)
CurPsw=pws(CurId)
Me.Hide
'LoadFrmMain
FrmMain.Show
Else
MsgBox"InvalidPassword,tryagain!",,"Login"
txtPassword.SetFocus
SendKeys"{Home}+{End}"
EndIf
EndSub
PrivateSubForm_Unload(CancelAsInteger)
UnloadMe
End
EndSub
OptionExplicit
PubliccuTabChAsBoolean
PubliccutableAsString
PubliccuApAsInteger'当前指针位置
DimiAsInteger
PublicPwinAsString
PublicSubshowemployee()
DataA.RecordSource="select*fromemployee"
DataA.Refresh
DBGA.Columns("性别").Button=True
DBGA.Columns("学历").Button=True
DBGA.Columns("部门").Button=True
Fori=0To2
Mtab(i).Checked=False
Nexti
Mtab(0).Checked=True
cutable="employee"
cuTabCh=True
EndSub
PublicSubshowleave()
DataA.RecordSource="select*fromleave"
DataA.Refresh
Fori=0To2
Mtab(i).Checked=False
Nexti
Mtab(1).Checked=True
cutable="leave"
cuTabCh=True
EndSub
PublicSubshowsalary()
DataA.RecordSource="select*fromsalary"
DataA.Refresh
Fori=0To2
Mtab(i).Checked=False
Nexti
Mtab(2).Checked=True
cutable="salary"
cuTabCh=True
EndSub
PrivateSubForm_Load()
Dimfil,tbcount,iAsInteger
DimTbstr(50),Tbnam(50)AsString
DataA.DatabaseName=App.Path+"\sm.mdb"
DataB.DatabaseName=App.Path+"\sm.mdb"
DataB.RecordSource="select*fromemployee"
Callshowemployee
IfDir(App.Path+"\table.ini")=""Then
LsDegree.AddItem"定制"
LsDepart.AddItem"定制"
Else
fil=FreeFile()
OpenApp.Path+"\table.ini"ForInputAs#fil
DoWhileNotEOF(fil)
Input#fil,Tbnam(i),Tbstr(i)
i=i+1
Loop
Close#fil
tbcount=i
Fori=0Totbcount
IfTbnam(i)="lsdegree"Then
LsDegree.AddItemTbstr(i)
ElseIfTbnam(i)="lsdepart"Then
LsDepart.AddItemTbstr(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))+"姓名:"+CStr(.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.Reco
上一篇:
VB书店管理系统(vb+access)(论文和程序)
下一篇:
爱情只不过就是,爱与不爱