ow.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.List(i)
FrmMain.LsDepart.AddItemLsDepart.List(i)
FrmEdit.Cmbdepart.AddItemLsDepart.List(i)
Nexti
Close#fil
FrmMain.LsDegree.AddItem"定制"'添加最末的定制条目
FrmMain.LsDepart.AddItem"定制"
FrmEdit.Cmbdegree.AddItem"定制"
FrmEdit.Cmbdepart.AddItem"定制"
FrmEdit.Cmbdegree.ListIndex=0
FrmEdit.Cmbdepart.ListIndex=0
EndIf
Me.Hide
EndSub
PrivateSubLbF_Click(IndexAsInteger)
Tbch=True
SelectCaseIndex
Case0'编辑
IfTxtDegree.Text=""ThenExitSub
IfLsDegree.ListIndex<>-1Then
LsDegree.List(LsDegree.ListIndex)=TxtDegree.Text
EndIf
Case1'添加
Fori=0ToLsDegree.ListCount-1
IfLsDegree.List(i)=TxtDegree.TextThen
MsgBox"该条目已经存在"
ExitSub
EndIf
Nexti
LsDegree.AddItemTxtDegree.Text
Case2'删除
IfLsDegree.ListIndex<>-1Then
LsDegree.RemoveItem(LsDegree.ListIndex)
EndIf
Case3'编辑
IfTxtDegree.Text=""ThenExitSub
IfLsDepart.ListIndex<>-1Then
LsDepart.List(LsDepart.ListIndex)=TxtDepart.Text
EndIf
Case4'添加
Fori=0ToLsDepart.ListCount-1
IfLsDepart.List(i)=TxtDepart.TextThen
MsgBox"该条目已经存在"
ExitSub
EndIf
Nexti
LsDepart.AddItemTxtDepart.Text
Case5'删除
IfLsDepart.ListIndex<>-1Then
LsDepart.RemoveItem(LsDepart.ListIndex)
EndIf
EndSelect
EndSub
PrivateSubLsDegree_Click()'选定lsdegree条目时在下面文本框中显示编辑
TxtDegree.Text=LsDegree.Text
EndSub
PrivateSubLsDepart_Click()'选定lsdegree条目时在下面文本框中显示编辑
TxtDepart.Text=LsDepart.Text
EndSub
PrivateSubForm_Load()
Tbch=False
fil=FreeFile()
OpenApp.Path+"\table.ini"ForInputAs#fil'写入table条目信息
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
EndSub
PrivateSubForm_Unload(CancelAsInteger)'卸载窗体
FrmMain.Enabled=True
FrmMain.SetFocus
UnloadMe
EndSub
??
??
??
??
31
上一篇:
vb企业人事管理系(论文和程序)
下一篇:
对硕士毕业生迁移失业目的地的实证研讨