Integer)
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企业人事工资管理系统+论文(论文和程序)
下一篇:
2018年汽车自驾运动营地攻防箭大赛总决赛圆满落幕