MsgBox"修改成功!!!",vbInformation
'Fori=0To8
'Me.txtinfo(i).Text=""
'Next
EndIf
CaseIs="删除光盘"
IfMe.txtinfo(0).Text<>""Then
db="select*from影片资料where影片名称='"&Me.txtinfo(1).Text&"'"
Callyn.opendb(db)
Callyn.myrec.Delete
Callyn.myrec.Update
Callyn.closedb
Callyn.opendb("select*from演员")
yn.mycon.Execute"deletefrom演员where影片编号='"&cdm.txtinfo(0).Text&"'"
Callyn.closedb
Fori=0To8
Me.txtinfo(i).Text=""
Next
Me.Combo1.Text=""
Me.Combo2.Text=""
Me.Combo3.Text=""
Me.Combo4.Text=""
Me.comsel(0).Text=""
Me.txtselect(0).Text=""
Me.lstinfo.Clear
MsgBox"此光盘记录已删除!!!",vbInformation
EndIf
EndSelect
EndSub
PrivateSubqx_Click()
UnloadMe
EndSub
PrivateSubsearch_Click(IndexAsInteger)
IfMe.comsel(0).Text<>""AndMe.txtselect(0).Text<>""Then
SelectCasemsg
CaseIs="修改光盘"
Me.Combo1.Clear
Callselec
CaseIs="光盘查询"
Me.lstinfo.Clear
Callselec
CaseIs="删除光盘"
Me.lstinfo.Clear
Callselec
EndSelect
Else
MsgBox"请输入查询条件!!!",vbInformation
EndIf
EndSub
PrivateSubTabStrip1_Click()
ResumeNext
SelectCaseMe.TabStrip1.SelectedItem.Index
CaseIs=1
msg="光盘查询"
Me.Caption="光盘管理---------"&msg
Me.comsel(0).Visible=True
Me.txtselect(0).Visible=True
Me.Labinfo(1).Visible=True
Me.search(0).Visible=True
Me.Combo1.Visible=False
Me.lstinfo.Visible=True
Me.MSHFlexGrid1.Visible=False
Me.Frame1.Visible=True
Fori=0To8
Me.txtinfo(i).Text=""
Me.txtinfo(i).Locked=True
Next
Me.Combo1.Text=""
Me.Combo2.Text=""
Me.Combo3.Text=""
Me.Combo4.Text=""
Me.comsel(0).Text=""
Me.txtselect(0).Text=""
Me.lstinfo.Clear
Fori=0To8
Me.txtinfo(i).BackColor=&H80000004
Next
Me.Combo1.BackColor=&H80000004
Me.Combo2.BackColor=&H80000004
Me.Combo3.BackColor=&H80000004
Me.Combo4.BackColor=&H80000004
CaseIs=2
msg="添加光盘"
Me.Caption="光盘管理---------"&msg
Me.comsel(0).Visible=False
Me.txtselect(0).Visible=False
Me.Labinfo(1).Visible=False
Me.search(0).Visible=False
Me.Combo1.Visible=True
Me.lstinfo.Visible=False
Me.MSHFlexGrid1.Visible=False
Me.Frame1.Visible=True
Fori=0To8
Me.txtinfo(i).Text=""
Me.txtinfo(i).Locked=False
Next
Me.Combo1.Text=""
Me.Combo2.Text=""
Me.Combo3.Text=""
Me.Combo4.Text=""
Me.Combo1.Clear
Me.Combo2.Clear
Me.Combo3.Clear
Me.Combo4.Clear
Me.lstinfo.Clear
Fori=0To8
Me.txtinfo(i).BackColor=vbWhite
Next
Me.Combo1.BackColor=vbWhite
Me.Combo2.BackColor=vbWhite
Me.Combo3.BackColor=vbWhite
Me.Combo4.BackColor=vbWhite
Callyn.opendb("select*from影片类型")
DoWhileyn.myrec.EOF=False
Me.Combo2.AddItemyn.myrec.Fields("影片类型")
yn.myrec.MoveNext
Loop
Callyn.closedb
Callyn.opendb("select*from影片格式")
DoWhileyn.myrec.EOF=False
Me.Combo3.AddItemyn.myrec.Fields("影片格式")
yn.myrec.MoveNext
Loop
Callyn.closedb
Callyn.opendb("select*from影片语言")
DoWhileyn.myrec.EOF=False
Me.Combo4.AddItemyn.myrec.Fields("影片语言")
yn.myrec.MoveNext
Loop
Callyn.closedb
Callyn.opendb("select*from自定义")
Me.txtinfo(6).Text=yn.myrec.Fields("购买价格")
Me.txtinfo(5).Text=yn.myrec.Fields("出租价格")
Callyn.closedb
CaseIs=3
msg="修改光盘"
Me.Caption="光盘管理---------"&msg
Me.comsel(0).Visible=True
Me.txtselect(0).Visible=True
Me.Labinfo(1).Visible=True
Me.search(0).Visible=True
Me.Combo1.Visible=True
Me.lstinfo.Visible=False
Me.MSHFlexGrid1.Visible=False
Me.Frame1.Visible=True
Fori=0To8
Me.txtinfo(i).Text=""
Me.txtinfo(i).Locked=False
Next
Me.Combo1.Text=""
Me.Combo1.Clear
Me.Combo2.Clear
Me.Combo3.Clear
Me.Combo4.Clear
Me.Combo2.Text=""
Me.Combo3.Text=""
Me.Combo4.Text=""
Me.comsel(0).Text=""
Me.txtselect(0).Text=""
Me.lstinfo.Clear
Fori=0To8
Me.txtinfo(i).BackColor=vbWhite
Me.txtinfo(i).Locked=False
Next
Me.Combo1.BackColor=vbWhite
Me.Combo2.BackColor=vbWhite
Me.Combo3.BackColor=vbWhite
Me.Combo4.BackColor=vbWhite
Callyn.opendb("select*from影片类型")
DoWhileyn.myrec.EOF=False
Me.Combo2.AddItemyn.myrec.Fields("影片类型")
yn.myrec.MoveNext
Loop
Callyn.closedb
Callyn.opendb("select*from影片格式")
DoWhileyn.myrec.EOF=False
Me.Combo3.AddItemyn.myrec.Fields("影片格式")
yn.myrec.MoveNext
Loop
Callyn.closedb
Callyn.opendb("select*from影片语言")
DoWhileyn.myrec.EOF=False
Me.Combo4.AddItemyn.myrec.Fields("影片语言")
yn.myrec.MoveNext
Loop
Callyn.closedb
CaseIs=4
msg="删除光盘"
Me.Caption="光盘管理---------"&msg
Me.comsel(0).Visible=True
Me.txtselect(0).Visible=True
Me.Labinfo(1).Visible=True
Me.search(0).Visible=True
Me.Combo1.Visible=False
Me.lstinfo.Visible=True
Me.MSHFlexGrid1.Visible=False
Me.Frame1.Visible=True
Fori=0To8
Me.txtinfo(i).Text=""
Me.txtinfo(i).Locked=True
Next
Me.Combo1.Text=""
Me.Combo2.Text=""
Me.Combo3.Text=""
Me.Combo4.Text=""
Me.comsel(0).Text=""
Me.txtselect(0).Text=""
Me.lstinfo.Clear
Fori=0To8
Me.txtinfo(i).BackColor=&H80000004
Next
Me.Combo1.BackColor=&H80000004
Me.Combo2.BackColor=&H80000004
Me.Combo3.BackColor=&H80000004
Me.Combo4.BackColor=&H80000004
EndSelect
EndSub
PrivateSubtxtinfo_KeyPress(IndexAsInteger,KeyAsciiAsInteger)
IfIndex=3OrIndex=4OrIndex=5OrIndex=6OrIndex=7Then
SelectCaseKeyAscii
CaseAsc("0")ToAsc("9")
CaseElse
KeyAscii=0
MsgBox"请输入数字!!!",vbInformation
EndSelect
EndIf
EndSub
PrivateSubselec()'=======查询过程
ResumeNext
IfMe.comsel(0).Text="影片编号"OrMe.comsel(0).Text="影片名称"Then
Me.MSHFlexGrid1.Visible=False
Me.Frame1.Visible=True
db="select*from影片资料where"&Me.comsel(0).Text&"='"&Me.txtselect(0).Text&"'"
Callyn.opendb(db)
Ifyn.myrec.EOFThen
MsgBox"无此盘!!!",vbQuestion
Else
cdm.txtinfo(0).Text=yn.myrec.Fields("影片编号")
cdm.txtinfo(1).Text=yn.myrec.Fields("影片名称")
cdm.txtinfo(4).Text=yn.myrec.Fields("时间长度")
cdm.txtinfo(2).Text=yn.myrec.Fields("导演")
cdm.txtinfo(3).Text=yn.myrec.Fields("发行年度")
cdm.txtinfo(8).Text=yn.myrec.Fields("影片介绍")
cdm.txtinfo(6).
上一篇:
vb音像制品出租及销售管理系统(论文和程序)
下一篇:
试析影响公路路面平整度的因素及应采取的施工措施