已阅读5页,还剩24页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
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
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 世界动物日英文
- 三年级修辞手法
- 大兴安岭地区塔河县2024年小升初常考易错语文检测卷含答案
- 北京2024年小升初必考题语文检测卷含答案
- 冀教版五年级数学上册课件《平行四边形面积》
- 2024年中考数学冲刺:阅读理解型问题-巩固练习(基础)
- 家庭纺织品的时尚潮流与创意设计
- 化学矿的生产自动化与智能制造
- 电机制造中的电机市场分析与预测
- 2024年中学生物教研工作计划
- 艺用解剖学教案
- 水稳层施工方案(最终版)
- 地质灾害防灾避险工作明白卡
- 瓶片清洗工艺和操作要求
- 备品备件库房管理制度
- 日立伺服电机中文操作手册,AD系列操作手册,参数调试指导_图
- 白油化学品安全技术说明书
- 五讲四美三热爱活动方案
- 五金厂品质月报统计表
- (精选)烧结工艺技术操作要点
- 会议工作安排表
评论
0/150
提交评论