会员注册 | 登录 | 微信快捷登录 支付宝快捷登录 QQ登录 微博登录 | 帮助中心 人人文库renrendoc.com美如初恋!
站内搜索 百度文库

热门搜索: 直缝焊接机 矿井提升机 循环球式转向器图纸 机器人手爪发展史 管道机器人dwg 动平衡试验台设计

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

宽屏显示 收藏 分享

资源预览需要最新版本的Flash Player支持。
您尚未安装或版本过低,建议您

1、音像管理cdm.frmDimynAsNewyn定义yn为yn类OptionExplicitPrivateSubCombo1_ClickMe.PopupMenulist弹出LIST菜单EndSubPrivateSubCombo1_KeyDownKeyCodeAsInteger,ShiftAsIntegerIfKeyCode13Then如果按回车键就添加一个记录Me.Combo1.AddItemMe.Combo1.TextMe.Combo1.SelStart0Me.Combo1.SelLengthLenMe.Combo1.TextEndIfEndSubPrivateSubcomsel_KeyPressIndexAsInteger,KeyAsciiAsIntegerIfKeyAscii13Then如果按回车键就执行查询功能Callsearch_Click0EndIfEndSubPrivateSubdele_ClickMe.Combo1.RemoveItemMe.Combo1.ListIndex单击后删除指定记录EndSubPrivateSubdelecd_Clickmsg删除音像Me.TabStrip1.Tabs4.SelectedTrue4被选中DimaAsStringaMe.MSHFlexGrid1.TextMe.MSHFlexGrid1.Row0Me.MSHFlexGrid1.ColMe.MSHFlexGrid1.Col1Me.comsel0.TextMe.MSHFlexGrid1.TextMe.txtselect0.Texta赋值方便查询IfMe.comsel0.Text影片编号OrMe.comsel0.Text影片名称OrMe.comsel0.Text导演OrMe.comsel0.Text影片类型OrMe.comsel0.Text影片格式OrMe.comsel0.Text影片语言Thendbselectfrom影片资料whereMe.comsel0.TextMe.txtselect0.TextCallyn.opendbdbIfNotyn.myrec.EOFThenCallyn.myrec.DeleteCallyn.myrec.UpdateMsgBox此音像记录已成功删除,vbInformationvbOKOnly,音像制品出租及销售管理系统Callyn.closedbdbselectfrom影片资料whereMe.comsel0.TextMe.txtselect0.TextCallyn.opendbdbSetMe.MSHFlexGrid1.DataSourceyn.myrecCallyn.closedbElseMe.MSHFlexGrid1.VisibleFalseMe.Frame1.VisibleTrueCallyn.closedbEndIfElsedbselectfrom影片资料whereMe.comsel0.TextMe.txtselect0.TextCallyn.opendbdbCallyn.myrec.DeleteCallyn.myrec.UpdateMsgBox此音像记录已成功删除,vbInformationvbOKOnly,音像制品出租及销售管理系统Callyn.closedbdbselectfrom影片资料whereMe.comsel0.TextMe.txtselect0.TextCallyn.opendbdbSetMe.MSHFlexGrid1.DataSourceyn.myrecCallyn.closedbEndIfEndSubPrivateSubForm_LoadOnErrorResumeNextMe.CaptionMe.CaptionmsgSelectCasemsgCaseIs添加音像Me.TabStrip1.Tabs2.SelectedTrueFori0To8Me.txtinfoi.BackColorvbWhiteNextMe.Combo1.BackColorvbWhite设置白色代表有效Me.Combo2.BackColorvbWhiteMe.Combo3.BackColorvbWhiteMe.Combo4.BackColorvbWhiteMe.txtselect0.VisibleFalseMe.Labinfo1.VisibleFalseMe.comsel0.VisibleFalseMe.search0.VisibleFalseMe.Combo1.ClearMe.Combo2.ClearMe.Combo3.ClearMe.Combo4.ClearCallyn.opendbselectfrom影片类型DoWhileyn.myrec.EOFFalseMe.Combo2.AddItemyn.myrec.Fields影片类型yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendbselectfrom影片格式DoWhileyn.myrec.EOFFalseMe.Combo3.AddItemyn.myrec.Fields影片格式yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendbselectfrom影片语言DoWhileyn.myrec.EOFFalseMe.Combo4.AddItemyn.myrec.Fields影片语言yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendbselectfrom自定义Me.txtinfo6.Textyn.myrec.Fields购买价格Me.txtinfo5.Textyn.myrec.Fields出租价格Callyn.closedbCaseIs修改音像Me.txtselect0.TabIndex0Me.comsel0.TabIndex1Me.TabStrip1.Tabs3.SelectedTrueFori0To8Me.txtinfoi.BackColorvbWhiteNextMe.Combo1.BackColorvbWhite设置白色代表有效Me.Combo2.BackColorvbWhiteMe.Combo3.BackColorvbWhiteMe.Combo4.BackColorvbWhiteMe.Combo1.ClearMe.Combo2.ClearMe.Combo3.ClearMe.Combo4.ClearCallyn.opendbselectfrom影片类型DoWhileyn.myrec.EOFFalseMe.Combo2.AddItemyn.myrec.Fields影片类型yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendbselectfrom影片格式DoWhileyn.myrec.EOFFalseMe.Combo3.AddItemyn.myrec.Fields影片格式yn.myrec.MoveNextLoopCallyn.closedbCallyn.opendbselectfrom影片语言DoWhileyn.myrec.EOFFalseMe.Combo4.AddItemyn.myrec.Fields影片语言yn.myrec.MoveNextLoopCallyn.closedbCaseIs音像查询Me.TabStrip1.Tabs1.SelectedTrueMe.Combo1.VisibleFalseFori0To8Me.txtinfoi.LockedTrueNextMe.txtselect0.TabIndex0Me.comsel0.TabIndex1CaseIs删除音像Me.TabStrip1.Tabs4.SelectedTrueMe.txtselect0.TabIndex0Me.comsel0.TabIndex1EndSelectEndSubPrivateSubmodicd_Click
编号:201311181638101571    大小:166.50KB    格式:DOC    上传时间:2013-11-18
  【编辑】
5
关 键 词:
专业文献 学术论文 精品文档 音像制品
温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供交流平台,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
  人人文库网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
0条评论

还可以输入200字符

暂无评论,赶快抢占沙发吧。

当前资源信息

4.0
 
(2人评价)
浏览:11次
网游小王子上传于2013-11-18

官方联系方式

客服手机:13961746681   
2:不支持迅雷下载,请使用浏览器下载   
3:不支持QQ浏览器下载,请用其他浏览器   
4:下载后的文档和图纸-无水印   
5:文档经过压缩,下载后原文更清晰   

相关资源

相关资源

相关搜索

专业文献   学术论文   精品文档   音像制品  
关于我们 - 网站声明 - 网站地图 - 友情链接 - 网站客服客服 - 联系我们
copyright@ 2015-2017 人人文库网网站版权所有
苏ICP备12009002号-5