音像制品出租及銷售管理系統(tǒng)程序.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如果按回車鍵就執(zhí)行查詢功能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=導(dǎo)演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,音像制品出租及銷售管理系統(tǒng)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,音像制品出租及銷售管理系統(tǒng)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設(shè)置白色代表有效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設(shè)置白色代表有效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