音像制品出租及销售管理系统程序.doc

1、音像管理cdm.frmDimynAsNewyn定义yn为yn类OptionExplicitPrivateSubCombo1_Click()Me.PopupMenulist弹出LIST菜单EndSubPrivateSubCombo1_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13Then如果按回车键就添加一个记录Me.Combo1.AddItemMe.Combo1.TextMe.Combo1.SelStart=0Me.Combo1.SelLength=Len(Me.Combo1.Text)EndIfEndSubPrivateSubcomsel_KeyPress(IndexAsInteger,KeyAsciiAsInteger)IfKeyAscii=13Then如果按回车键就执行查询功能Callsearch_Click(0)EndIfEndSubPrivateSubdele_Click()Me.Combo1.RemoveItemMe.Combo1.ListIndex单击后删除指定记录EndSubPrivateSubdelecd_Click()msg=删除音像Me.TabStrip1.Tabs(4).Selected=True4被选中DimaAsStringa=Me.MSHFlexGrid1.TextMe.MSHFlexGrid1.Row=0Me.MSHFlexGrid1.Col=Me.MSHFlexGrid1.Col-1Msel(0).Text=Me.MSHFlexGrid1.TextMe.txtselect(0).Text=a赋值方便查询IfMsel(0).Text=影片编号OrMsel(0).Text=影片名称OrMsel(0).Text=导演OrMsel(0).Text=影片类型OrMsel(0).Text=影片格式OrMsel(0).Text=影片语言Thendb=select*from影片资料where&Msel(0).Text&=&Me.txtselect(0).Text&Callyn.opendb(db)IfNotyn.myrec.EOFThenCallyn.myrec.DeleteCallyn.myrec.UpdateMsgBox此音像记录已成功删除！,vbInformation+vbOKOnly,音像制品出租及销售管理系统Callyn.closedbdb=select*from影片资料where&Msel(0).Text&=&Me.txtselect(0).Text&Callyn.opendb(db)SetMe.MSHFlexGrid1.DataSource=yn.myrecCallyn.closedbElseMe.MSHFlexGrid1.Visible=FalseMe.Frame1.Visible=TrueCallyn.closedbEndIfElsedb=select*from影片资料where&Msel(0).Text&=&Me.txtselect(0).Text&Callyn.opendb(db)Callyn.myrec.DeleteCallyn.myrec.UpdateMsgBox此音像记录已成功删除！,vbInformation+vbOKOnly,音像制品出租及销售管理系统Callyn.closedbdb=select*from影片资料where&Msel(0).Text&=&Me.txtselect(0).Text&Callyn.opendb(db)SetMe.MSHFlexGrid1.DataSource=yn.myrecCallyn.closedbEndIfEndSubPrivateSubForm_Load()OnErrorResumeNextMe.Caption=Me.Caption&msgSelectCasemsgCaseIs=添加音像Me.TabStrip1.Tabs(2).Selected=TrueFori=0To8Me.txtinfo(i).BackColor=vbWhiteNextMe.Combo1.BackColor=vbWhite设置白色代表有效Me.Combo2.BackColor=vbWhiteMe.Combo3.BackColor=vbWhiteMe.Combo4.BackColor=vbWhiteMe.txtselect(0).Visible=FalseMe.Labinfo(1).Visible=FalseMsel(0).Visible=FalseMe.search(0).Visible=FalseMe.Combo1.ClearMe.Combo2.ClearMe.Combo3.ClearMe.Combo4.ClearCallyn.opendb(select*from影片类型)DoWhileyn.myrec.EOF=FalseMe.Combo2.AddItemyn.myrec.Fields(影片类型)yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendb(select*from影片格式)DoWhileyn.myrec.EOF=FalseMe.Combo3.AddItemyn.myrec.Fields(影片格式)yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendb(select*from影片语言)DoWhileyn.myrec.EOF=FalseMe.Combo4.AddItemyn.myrec.Fields(影片语言)yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendb(select*from自定义)Me.txtinfo(6).Text=yn.myrec.Fields(购买价格)Me.txtinfo(5).Text=yn.myrec.Fields(出租价格)Callyn.closedbCaseIs=修改音像Me.txtselect(0).TabIndex=0Msel(0).TabIndex=1Me.TabStrip1.Tabs(3).Selected=TrueFori=0To8Me.txtinfo(i).BackColor=vbWhiteNextMe.Combo1.BackColor=vbWhite设置白色代表有效Me.Combo2.BackColor=vbWhiteMe.Combo3.BackColor=vbWhiteMe.Combo4.BackColor=vbWhiteMe.Combo1.ClearMe.Combo2.ClearMe.Combo3.ClearMe.Combo4.ClearCallyn.opendb(select*from影片类型)DoWhileyn.myrec.EOF=FalseMe.Combo2.AddItemyn.myrec.Fields(影片类型)yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendb(select*from影片格式)DoWhileyn.myrec.EOF=FalseMe.Combo3.AddItemyn.myrec.Fields(影片格式)yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendb(select*from影片语言)DoWhileyn.myrec.EOF=FalseMe.Combo4.AddItemyn.myrec.Fields(影片语言)yn.myrec.MoveNextLoopCallyn.closedbCaseIs=音像查询Me.TabStrip1.Tabs(1).Selected=TrueMe.Combo1.Visible=FalseFori=0To8Me.txtinfo(i).Locked=TrueNextMe.tx