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

收藏 分享

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

1、音像管理CDMFRMDIMYNASNEWYN定义YN为YN类OPTIONEXPLICITPRIVATESUBCOMBO1_CLICKMEPOPUPMENULIST弹出LIST菜单ENDSUBPRIVATESUBCOMBO1_KEYDOWNKEYCODEASINTEGER,SHIFTASINTEGERIFKEYCODE13THEN如果按回车键就添加一个记录MECOMBO1ADDITEMMECOMBO1TEXTMECOMBO1SELSTART0MECOMBO1SELLENGTHLENMECOMBO1TEXTENDIFENDSUBPRIVATESUBCOMSEL_KEYPRESSINDEXASINTEGER,KEYASCIIASINTEGERIFKEYASCII13THEN如果按回车键就执行查询功能CALLSEARCH_CLICK0ENDIFENDSUBPRIVATESUBDELE_CLICKMECOMBO1REMOVEITEMMECOMBO1LISTINDEX单击后删除指定记录ENDSUBPRIVATESUBDELECD_CLICKMSG删除音像METABSTRIP1TABS4SELECTEDTRUE4被选中DIMAASSTRINGAMEMSHFLEXGRID1TEXTMEMSHFLEXGRID1ROW0MEMSHFLEXGRID1COLMEMSHFLEXGRID1COL1MECOMSEL0TEXTMEMSHFLEXGRID1TEXTMETXTSELECT0TEXTA赋值方便查询IFMECOMSEL0TEXT影片编号ORMECOMSEL0TEXT影片名称ORMECOMSEL0TEXT导演ORMECOMSEL0TEXT影片类型ORMECOMSEL0TEXT影片格式ORMECOMSEL0TEXT影片语言THENDBSELECTFROM影片资料WHEREMECOMSEL0TEXTMETXTSELECT0TEXTCALLYNOPENDBDBIFNOTYNMYRECEOFTHENCALLYNMYRECDELETECALLYNMYRECUPDATEMSGBOX此音像记录已成功删除,VBINFORMATIONVBOKONLY,音像制品出租及销售管理系统CALLYNCLOSEDBDBSELECTFROM影片资料WHEREMECOMSEL0TEXTMETXTSELECT0TEXTCALLYNOPENDBDBSETMEMSHFLEXGRID1DATASOURCEYNMYRECCALLYNCLOSEDBELSEMEMSHFLEXGRID1VISIBLEFALSEMEFRAME1VISIBLETRUECALLYNCLOSEDBENDIFELSEDBSELECTFROM影片资料WHEREMECOMSEL0TEXTMETXTSELECT0TEXTCALLYNOPENDBDBCALLYNMYRECDELETECALLYNMYRECUPDATEMSGBOX此音像记录已成功删除,VBINFORMATIONVBOKONLY,音像制品出租及销售管理系统CALLYNCLOSEDBDBSELECTFROM影片资料WHEREMECOMSEL0TEXTMETXTSELECT0TEXTCALLYNOPENDBDBSETMEMSHFLEXGRID1DATASOURCEYNMYRECCALLYNCLOSEDBENDIFENDSUBPRIVATESUBFORM_LOADONERRORRESUMENEXTMECAPTIONMECAPTIONMSGSELECTCASEMSGCASEIS添加音像METABSTRIP1TABS2SELECTEDTRUEFORI0TO8METXTINFOIBACKCOLORVBWHITENEXTMECOMBO1BACKCOLORVBWHITE设置白色代表有效MECOMBO2BACKCOLORVBWHITEMECOMBO3BACKCOLORVBWHITEMECOMBO4BACKCOLORVBWHITEMETXTSELECT0VISIBLEFALSEMELABINFO1VISIBLEFALSEMECOMSEL0VISIBLEFALSEMESEARCH0VISIBLEFALSEMECOMBO1CLEARMECOMBO2CLEARMECOMBO3CLEARMECOMBO4CLEARCALLYNOPENDBSELECTFROM影片类型DOWHILEYNMYRECEOFFALSEMECOMBO2ADDITEMYNMYRECFIELDS影片类型YNMYRECMOVENEXTLOOPCALLYNCLOSEDBCALLYNOPENDBSELECTFROM影片格式DOWHILEYNMYRECEOFFALSEMECOMBO3ADDITEMYNMYRECFIELDS影片格式YNMYRECMOVENEXTLOOPCALLYNCLOSEDBCALLYNOPENDBSELECTFROM影片语言DOWHILEYNMYRECEOFFALSEMECOMBO4ADDITEMYNMYRECFIELDS影片语言YNMYRECMOVENEXTLOOPCALLYNCLOSEDBCALLYNOPENDBSELECTFROM自定义METXTINFO6TEXTYNMYRECFIELDS购买价格METXTINFO5TEXTYNMYRECFIELDS出租价格CALLYNCLOSEDBCASEIS修改音像METXTSELECT0TABINDEX0MECOMSEL0TABINDEX1METABSTRIP1TABS3SELECTEDTRUEFORI0TO8METXTINFOIBACKCOLORVBWHITENEXTMECOMBO1BACKCOLORVBWHITE设置白色代表有效MECOMBO2BACKCOLORVBWHITEMECOMBO3BACKCOLORVBWHITEMECOMBO4BACKCOLORVBWHITEMECOMBO1CLEARMECOMBO2CLEARMECOMBO3CLEARMECOMBO4CLEARCALLYNOPENDBSELECTFROM影片类型DOWHILEYNMYRECEOFFALSEMECOMBO2ADDITEMYNMYRECFIELDS影片类型YNMYRECMOVENEXTLOOPCALLYNCLOSEDBCALLYNOPENDBSELECTFROM影片格式DOWHILEYNMYRECEOFFALSEMECOMBO3ADDITEMYNMYRECFIELDS影片格式YNMYRECMOVENEXTLOOPCALLYNCLOSEDBCALLYNOPENDBSELECTFROM影片语言DOWHILEYNMYRECEOFFALSEMECOMBO4ADDITEMYNMYRECFIELDS影片语言YNMYRECMOVENEXTLOOPCALLYNCLOSEDBCASEIS音像查询METABSTRIP1TABS1SELECTEDTRUEMECOMBO1VISIBLEFALSEFORI0TO8METXTINFOILOCKEDTRUENEXTMETXTSELECT0TABINDEX0MECOMSEL0TABINDEX1CASEIS删除音像METABSTRIP1TABS4SELECTEDTRUEMETXTSELECT0TABINDEX0MECOMSEL0TABINDEX1ENDSELECTENDSUBPRIVATESUBMODICD_CLICK
编号:201311181638101571    类型:共享资源    大小:166.50KB    格式:DOC    上传时间:2013-11-18
  
5
关 键 词:
专业文献 学术论文 精品文档 音像制品
  人人文库网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:音像制品出租及销售管理系统程序.doc
链接地址:http://www.renrendoc.com/p-101571.html

当前资源信息

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

官方联系方式

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

精品推荐

相关阅读

人人文库
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服客服 - 联系我们

网站客服QQ:2846424093    人人文库上传用户QQ群:460291265   

[email protected] 2016-2018  renrendoc.com 网站版权所有   南天在线技术支持

经营许可证编号:苏ICP备12009002号-5