rdset.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
EndSub
PrivateSubMtab_Click(IndexAsInteger)
DimiAsInteger
Fori=0To2
Mtab(i).Checked=False
Nexti
Mtab(Index).Checked=True
SelectCaseIndex
Case0
Callshowemployee
Case1
Callshowleave
Case2
Callshowsalary
EndSelect
EndSub
PrivateSubToolbar1_Butt(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Index
Case1'edit
FrmEdit.Show
FrmMain.Enabled=False
Case2'del
IfDBGA.SelBookmarks.Count=1Then
IfMsgBox("确定要删除吗?",vbOKCancel,"确定")=vbOKThenDataA.Recordset.Delete
cuAp=0
Else
MsgBox"请选择要删除的条目!"
EndIf
Case3'seek
FrmSearch.Show
Case4'setup
FrmSetup.Show
EndSelect
EndSub
PrivateSubToolbar2_Butt(ByValButtonAsMSComctlLib.Button)
SelectCaseButton.Index
Case1
Callshowemployee
Case2
Callshowleave
Case3
Callshowsalary
Case4
IffrmLogin.CurUser="root"Then
FrmSys.Show
Else
FrmPsw.Show
Pwin="Frmmain"
FrmMain.Enabled=False
EndIf
EndSelect
EndSub
OptionExplicit
ConstMxUser=100
Dimuser(MxUser),pws(MxUser),state(MxUser),Emplo(MxUser)AsString
PrivateSubCmdCancel_Click()
Me.Hide
IfFrmMain.Pwin="Frmmain"Then
FrmMain.Enabled=True
FrmMain.SetFocus
Else
CallFrmSys.ActiveAll
FrmSys.SetFocus
EndIf
EndSub
PrivateSubcmdOK_Click()
Dimfil,i,UsercountAsInteger
IfTxtNew1.Text<>TxtNew2.TextThen
MsgBox"twotimesnoyizhi"
TxtNew1.SetFocus
TxtNew2.Text=""
SendKeys"{Home}+{End}"
ExitSub
ElseIfTxtold.Text<>frmLogin.CurPswThen
MsgBox"oldpasswordwrong"
Txtold.SetFocus
TxtNew1.Text=""
TxtNew2.Text=""
SendKeys"{Home}+{End}"
ExitSub
Else
fil=FreeFile()
OpenApp.Path+"\user.ini"ForInputAs#fil
i=0
DoWhileNotEOF(fil)
Input#fil,user(i),pws(i)
Input#fil,state(i),Emplo(i)
i=i+1
Loop
Usercount=i
Close#fil
pws(frmLogin.CurId)=TxtNew1.Text
frmLogin.CurPsw=TxtNew1.Text
fil=FreeFile()
OpenApp.Path+"\user.ini"ForOutputAs#fil
Fori=0ToUsercount-1
Print#fil,user(i);",";pws(i);",";state(i);",";Emplo(i)
Nexti
Close#fil
Txtold.Text=""
TxtNew1.Text=""
TxtNew2.Text=""
Me.Hide
IfFrmMain.Pwin="Frmmain"Then
FrmMain.Enabled=True
FrmMain.SetFocus
Else
CallFrmSys.ActiveAll
FrmSys.SetFocus
EndIf
EndIf
EndSub
PrivateSubForm_LostFocus()
FrmPsw.SetFocus
EndSub
PrivateSubForm_Unload(CancelAsInteger)
'FrmMain.Enabled=True
'FrmMain.SetFocus
UnloadMe
EndSub
OptionExplicit
PrivateSubCmb1_Click()
WithCmb1
If.Text="职工编号"Or.Text="交通补助"Or.Text="加班补助"Or.Text="工资编号"Or.Text="假条编号"Or.Text="身份证号"Or.Text="出生日期"Or.Text="中止日期"Or.Text="Edit"Or.Text="年份"Or.Text="月份"Or.Text="天数"Or.Text="基本工资"Or.Text="总工资"Or.Text="考勤扣除"Or.Text="扣税"Or.Text="总扣除"Or.Text="保险扣除"Then
Cmb2.Clear
Cmb2.AddItem">"
Cmb2.AddItem"="
Cmb2.AddItem"<"
Cmb2.ListIndex=0
Else
Cmb2.Clear
Cmb2.AddItem"等于"
Cmb2.AddItem"相似"
Cmb2.ListIndex=0
EndIf
EndWith
EndSub
PrivateSubCmb3_Click()
WithCmb3
If.Text="职工编号"Or.Text="工资编号"Or.Text="假条编号"Or.Text="身份证号"Or.Text="出生日期"Or.Text="中止日期"Or.Text="Edit"Or.Text="年份"Or.Text="月份"Or.Text="天数"Or.Text="基本工资"Or.Text="总工资"Or.Text="考勤扣除"Or.Text="扣税"Or.Text="总扣除"Or.Text="保险扣除"Then
Cmb4.Clear
Cmb4.AddItem">"
Cmb4.AddItem"="
Cmb4.AddItem"<"
Cmb4.ListIndex=0
Else
Cmb4.Clear
Cmb4.AddItem"等于"
Cmb4.AddItem"相似"
Cmb4.ListIndex=0
EndIf
EndWith
EndSub
PrivateSubCmdCancel_Click()
Me.Hide
FrmMain.Enabled=True
EndSub
PrivateSubcmdOK_Click()
Dimmysqls,strAsString
Err.Clear
IfTxt1.Text=""ThenExitSub:
mysqls="select*from"+FrmMain.cutable+"where"
IfCmb2.Text="等于"Then
mysqls=mysqls+Cmb1.Text+"="""+Txt1.Text+""""
ElseIfCmb2.Text="相似"Then
mysqls=mysqls+Cmb1.Text+"Like"""+Txt1.Text+""""
Else
mysqls=mysqls+Cmb1.Text+Cmb2.Text+Txt1.Text
EndIf
IfFrame1.Enabled=TrueThen
str=""
IfOptsex(1).ValueThen
str="and性别="+"""男"""
ElseIfOptsex(2)Then
str="and性别="+"""女"""
EndIf
EndIf
mysqls=mysqls+str
IfNotOpt(0)Then
IfOpt(1).ValueThen
str="and"
ElseIfOpt(2).ValueThen
str="or"
EndIf
mysqls=mysqls+str+Cmb3.Text
IfCmb2.Text="等于"Then
mysqls=mysqls+"="""+Txt2.Text+""""
ElseIfCmb2.Text="相似"Then
mysqls=mysqls+"Like"""+Txt2.Text+""""
Else
mysqls=mysqls+Cmb4.Text+Txt2.Text
EndIf
EndIf
FrmMain.DataA.RecordSource=mysqls
GoToexp:
Txtsql.Text=mysqls
FrmMain.DataA.Refresh
ExitSub
exp:
Txtsql.Text="搜索语句错误:"+mysqls
EndSub
PrivateSubForm_Activate()
DimiAsInteger
Cmb1.Clear
Cmb3.Clear
Txt1.Text=""
Txt2.Text=""
Fori=0ToFrmMain.DBGA.Columns.Count-4
IfFrmMain.DBGA.Columns(i).Visible=TrueThen
Cmb1.AddItem(FrmMain.DBGA.Columns(i).Caption)
Cmb3.AddItem(FrmMain.DBGA.Columns(i).Caption)
EndIf
Nexti
Cmb1.ListIndex=0
Cmb3.ListIndex=0
IfFrmMain.cutable="employee"Then
Frame1.Enabled=True
Else
Frame1.Enabled=False
EndIf
EndSub
PrivateSubForm_Load()
Cmb2.AddItem"="
Cmb4.AddItem"="
Cmb2.AddItem">"
Cmb4.AddItem">"
Cmb2.AddItem"<"
Cmb4.AddItem"<"
Cmb2.ListIndex=0
Cmb4.ListIndex=0
EndSub
PrivateSubOpt_Click(IndexAsInteger)
Cmb3.Enabled=NotOpt(0).Value
Cmb4.Enabled=NotOpt(0).Value
Txt2.Enabled=NotOpt(0).Value
EndSub
PrivateSubCommand1_Click()
Dimi,jAsInteger
Fori=0ToFrmMain.DBGA.Columns.Count-1
FrmMain.DBGA.Columns(i).Visible=True
Forj=0ToLshide.ListCount-1
IfFrmMain.DBGA.Columns(i).Caption=Lshide.List(j)Then
FrmMain.DBGA.Columns(i).Visible=False
GoToxt:
EndIf
Nextj
xt:
Nexti
FrmMain.SetFocus
FrmMain.Enabled=True
FrmMain.cuTabCh=False
Me.Hide
EndSub
PrivateSubCommand2_Click()
FrmMain.Enabled=True
Me.Hide
EndSub
PrivateSubForm_Activate()
DimaAsInteger
IfFrmMain.cuTabChThen
Lsshow.Clear
Lshide.Clear
a=FrmMain.DBGA.Columns.Count
Ifa>0Then
Fori=0Toa-1
Lsshow.AddItem(FrmMain.DBGA.Columns(i).Caption)
Nexti
EndIf
EndIf
EndSub
PrivateSubLbadd_Click()
IfLshide.Text<>""Then
Lsshow.AddItem(Lshide.Text)
Lshide.RemoveItem(Lshide.ListIndex)
EndIf
EndSub
PrivateSubLbdec_Click()
IfLsshow.Text<>""Then
Lshide.AddItem(Lsshow.Text)
Lsshow.RemoveItem(Lsshow.ListIndex)
EndIf
EndSub
PrivateSubLsshow_DblClick()
Lshide.AddItem(Lsshow.Text)
Lsshow.RemoveItem(Lsshow.ListIndex)
EndSub
PrivateSubLshide_DblClick()
Lsshow.AddItem(Lshide.Text)
Lshide.RemoveItem(Lshide.ListIndex)
EndSub
PrivateSubForm_Unload(CancelAsInteger)
FrmMain.Enabled=True
FrmMain.SetFocus
UnloadMe
EndSub
OptionExplicit
DimTbnam(50),Tbstr(50)AsString'最大条目数预设为100
Dimfil,tbcount,iAsInteger
DimTbchAsBoolean
PrivateSubCmdCancel_Click()
Me.Hide
EndSub
PrivateSubcmdOK_Click()
IfTbchThen'如果table条目变动则保存变动
FrmMain.LsDegree.Clear
FrmMain.LsDepart.Clear
FrmEdit.Cmbdegree.Clear
FrmEdit.Cmbdepart.Clear
fil=FreeFile()
OpenApp.Path+"\table.ini"ForOutputAs#fil'写入table条目信息
Fori=0ToLsDegree.ListCount-1
Print#fil,"lsdegree";",";LsDegree.List(i)
FrmMain.LsDegree.AddItemLsDegree.List(i)
FrmEdit.Cmbdegree.AddItemLsDegree.List(i)
Nexti
Fori=0ToLsDepart.ListCount-1
Print#fil,"lsdepart";",";LsDepart.L
上一篇:
VB书店管理系统(vb+access)(论文和程序)
下一篇:
白色姜花,略微开了