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

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

   首页 人人文库网 > 资源分类 > DOC文档下载

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

  • 资源星级:
  • 资源大小:166.50KB   全文页数:29页
  • 资源格式: DOC        下载权限:注册会员/VIP会员
您还没有登陆,请先登录。登陆后即可下载此文档。
  合作网站登录: 微信快捷登录 支付宝快捷登录   QQ登录   微博登录
友情提示
2:本站资源不支持迅雷下载,请使用浏览器直接下载(不支持QQ浏览器)
3:本站资源下载后的文档和图纸-无水印,预览文档经过压缩,下载后原文更清晰   

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

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

注意事项

本文(音像制品出租及销售管理系统程序.doc)为本站会员(网游小王子)主动上传,人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。 若此文所含内容侵犯了您的版权或隐私,请立即通知人人文库网(发送邮件至renrendoc@163.com或直接QQ联系客服),我们立即给予删除!

温馨提示:如果因为网速或其他原因下载失败请重新下载,重复下载不扣分。

copyright@ 2015-2017 人人文库网网站版权所有
苏ICP备12009002号-5