毕业论文--影片管理程序论文

1、摘要2第一章绪论3§1.1课题来源3§ 1.2项目确定3§ 1.3本文所做工作5第二章 影片租借系统设计分析5§2.1需求分析5§2.2系统功能模块划分8§2.3系统功能调查8第三章数据库设计11第四章系统功能模块设计13§4.1主控模块13§4.2分控模块13第五章 程序设计及说明17第六章系统特点与运行环境17第七章结束语18参考文献 附录1部分源程序附录2部分报样式随着计算机技术的飞速发展，计算机在商业管理中广泛普及，利用计算机实 现对影片租借管理是工作所需，也是办工自动化、现代化的内容之一，并且可以 提高影

2、像店的档次。本系统就是要将一个彫像店的各项工作流程，用计算机来实 现的过程。本系统采用visual foxpro 6.0开发完成，采用模块化设计。整个系统从符合操作简便、界而友好、灵活、实用、安全的要求岀发，完成 查询、租借、归还、结账、会员管理的全过程，包括影片岀租后岀租表的建立、 会员证的挂失、出租和归还引起影片出租状态的修改、影片资料查询、统计等工 作以及新影片、新会员的入库、坏影片的删除，等管理工作。论文主要介绍了本课题开发的过程和所要完成的功能。通过用户需求分析， 考虑到计算机管理的便利性和数据表的基本要求，精心设立了五个原始数据表。 在数据表的设计与规范过程中，严格遵守数据库系统设

3、计原则，以保证数据的完 整性与一致性，尽量减少数据冗余。根据功能需求建立了七个功能模块，分别为：碟库更新，影片查询，租借服 务，归还服务，汇总统计，会员管理，用户设置，用来管理影像店的具体工作。关键词：数据库，模块设计，visual foxpro 6. 0,影片租借系统第一章绪论§1.1 课题来源精彩的影片大大丰富了人们的业余生活，使之成为大家牛活中不可缺少的一 部分，而观看影片一般都愿意选择租碟的方式。影像店也就自然成为了人们常去 的地方，因此影片出租行业有着广泛的市场。目前的影像店管理工作大多是由手 工来完成的，而影像店对影片的管理是多方面的，由于店内的存碟量达到了几千 张，甚至

4、是几万张，而且类型众多、人们对其喜好各不相同，若影片分类不科学, 顾客要从众多的影片中找出一张满意的，恐怕需要好长的时间。而要把这些资料 整理好，用手工去完成，既繁琐又复杂，并且工作效率低，缺乏准确性，但是如 果利用数据库管理系统设计一个影片租借系统来管理的话,以上的问题都能迎刃 而解。所以针对这一情况，木人开发了这个影片租借系统，比较好地解决了 影像店所面临的这些问题。实践证明，影片岀租，影片归还，收费结算，统计报表，等一系列具体工作 使用计算机来完成，可以大大减轻管理人员的工作强度，同时计算机具有手工管 理所无法比拟的优点。例如：检索迅速，查找方便，可靠性高，存储量大，保密 性好等。这些优

5、点能够极大地提高工作效率，也是与现代化接轨的重要条件。1.2 项目确定当今是飞速发展的信息时代。在各行各业中离不开信息处理，计算机正被广 泛应用于信息管理系统。使用计算机进行信息控制，不仅提高了工作效率，而且 大大的提高了其安全性和准确性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信 息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统 就是为了管理好影像店而设计的。影片和顾客租借资料繁多，包含很多的信息数据，现今的影像店只是初步开 始使用，尚未全面使用计算机进行信息管理。根据调查得知，他们以前对影片租 借管理的主要方式是记录式的手工处理，对于影片租借情

6、况（如租借人，租借天 数、所付压金数）的统计和核实等往往采用对手抄记录进行人工检查，对客户的 租借（会员，非会员）权限、以及租借天数等用人工计算、手抄进行。数据信息 处理工作量大，容易出错；由于数据繁多，容易丢失，且不易查找。总的来说， 缺乏系统、规范的信息管理手段。数据处理手工操作，工作量人，出错率高，出错后不易更改。影像店采取手 工方式对租借情况进行人工管理，由于需记录的信息比较多，使得管理工作容易 混乱；一般租借情况是记录在本子上，工作人员也只是当时比较清楚，时间一长, 如再要进行查询，就得在众多的记录中翻阅、查找了，造成查询费时、费力。基于这此问题，我认为有必要建立一个影片租借系统，使

7、影片租借管理工作规范 化，系统化，程序化，使之能够及时、准确、有效的查询和修改影片情况，避免 给影像店带来不必的损失。本系统要达到以下目标：(1) 能详细，准确地记录所有影片的基木信息。建立影片基木数据库表，按 照影片的属性及特征所建数据表的结构:影片编号、影片名称、主演、影片类型、 片籍、片长、片数、岀租状态、内容简介等记录。(2) .能准确快速地查询出顾客所需影片信息。提供多种条件查询的功能。有 时，顾客想看某个影片却不一定都能说上名字来，使用这个系统，只需说出几个 条件就能找出顾客想要的碟来。所以该系统应能够根据不同的关键字来查找到影 片的相关信息。比如,可以根据主演来查，也可以根据影片

8、类型进行查询，还可以 根据片籍来查，也可以结合几个不同关键字实现复合查找(3) .能准确地记录顾客租还信息。(4) .能准确记录和计算出所有费用，包括压金，租碟天数，应付租金数，应 退还压金数，做到账面清楚。还要考虑影片的出租状态，会员的优惠政策等。(5) .能准确地管理会员的信息。在会员的管理问题上，除了能增删会员外， 另外为了维护会员的利益，会员证丢失后还可以挂失。(6) .能把所有需要的信息制成报表，方便将来统计、查询，并将其打印出来。(7) .能保证系统的安全性，不得有非法用户进入木系统。因为它关系到店主 的切身利益，不允许那些非法用户来随意改动记录，由此可知，本系统应设置登录 密码，

9、只允许店主木人进入该系统进行管理，若密码不小心泄露，还可以随时改变 密码。当然，如果有必要，还可以增删用户。对此，木人对系统做了简单的可行性分析。这个系统是个单用户的系统，界 面友好，略懂电脑操作的人就可使用，而也不需要增加其它设备，在现有的 机器上完全可以运行。在技术特性上，本人学习过数据库原理、面向对象程序设计、软件工程、 visual foxpro等课程，具备了软件开发的基本条件。在指导老师的正确指导下, 能够独立完成该系统的开发，在做岀详细的系统分析，能保证数据的止确性。 对整个系统开发的过程，大体安排如下： 系统需求分析一个星期； 系统功能设计一个星期； 程序编码两个星期； 系统调试

10、和测试一个星期；加上开发过程中不可预知的因素，整个系统开发大约为一个半月左右。1.3本文所做工作绪论部分叙述了课题提岀背景、目前应用现状，分析了影片租借系统设计的 特点和任务。第二章结合软件工程方法，对系统进行需求分析、功能划分、数据流程图设 计，并结合数据库原理和功能划分进行er图的绘制。第三章设计了系统的数据库结构。第四章根据用户需求对系统功能进行了划分和详细设计。第五章介绍了本系统的开发工具。第六章介绍了系统特点和运行坏境。第七章介绍了设计体会和编程体会，并指出了系统设计中的不足和改进的方向。第二章影片租借系统设计分析§ 2.1需求分析本系统的软件需求分析是以影像店管理人员的工

11、作过程作为系统原理的基 础，把它模型化、抽象化后设计出来的，在了解现有系统的不足，以及用户的需 求后，设计岀逻辑模型实例化，变成物理模型，在这个基础上，把物理模型具体 化，就得到了目标系统。影片租借系统需要满足来自三方面的需求，这三个方面分别是普通客户、会员客 户、影像店管理员。普通客户的需求是查询影片的信息及个人租借情况；会员客 户除了享有普通客户的需求外，还应享有会员的优惠政策。管理人员对客户的租 借及归还进行操作的同吋应考虑会员跟非会员的区别，为客户保存租碟和归还记 录，并打印生成相应的报表给客户查看和确认。根据以上所做的需求分析，并略掉一些细节（如不考虑用户的登录；对记录 的维护），得

12、出以下的数据流图和部分er图。图21系统顶层数据流图客户若要租借影片，首先便要对碟库里的影片进行查询，再将查询后的符合在影像店的工作过程中，查询是很重要的一个工作环节，查询到符合客户需 求的影片后，接着就要出租影片了。它需要完成的任务是：记录客户租、借影片的过程及资料，在这个过程中， 乂要核对客户预租影片是否已被租出，再来决定客户是否能租它，等客户将影片归还后又要在记录中将其出租状态改为“否”，还有交纳租金等问题。租借需求 分析就是要实现这一流程。出租：i片'图2.4影片租借e-r图影片归还流程实现过程是：普通客户还碟时，管理员可根据客户姓名来查询 租借的影片名称及数量（会员则是按会员

13、编号查询），再将所述影片序号告诉计 算机，计算机将应付的租金数计算并显视出来，管理员收取租金后便可将碟库中 影片的岀租状态改为'否'图2.5影片归还流程§ 2. 2系统功能模块划分总体设计：根据功能分析，可分为以下儿类模块：主控模块、分控模块、功 能模块。主控模块 显示系统总体功能，提供用户选择，根据选择实现分支，进入分 控模块或功能模块。分控模块根据各分支功能进行设置。根据系统功能要求、系统结构化的程序思想进行设计,把整个系统分成七个 子模块，在每个子模块下，又分为儿个功能模块，每个功能模块执行各自的功能。 根据以上考虑，系统功能模块结构图如下：影 片 查 询归 还

14、 服 务ill租服务归 还 服 务影片租借系统会 员 管 理统报表会 员 入 会会 员 出 会会 员 id： 挂 失会 员iia-见会 员 需知v v v v图2.6系统力能模块结构图影 片 资 料 汇 总收 入 情 况 总 汇用退户出设本置系统密 码 修 改影片出租情况图2.7系统模块流程图§ 2. 4. 1系统功能调查整个系统从总体上分为影片管理、租还管理、会员管理、系统维护四大部分, 每一部分应实现的功能如下：2.3.1影片管理功能新影片的信息输入影片基木信息维护:包括修改、删除影片基木信息查询：支持多条件查询，可以选择名称、主演、产地、类型、 出租状态进行查询，也可以组合这些

15、关键字查询。2.3.2租还管理功能影片出租：包括影片信息，会员信息的核对，出租表的改写。影片归还：包括最后的结账，影片出租状态的改写2.33会员管理功能新会员的入会会员注消会费的管理2.34系统维护功能用户管理：包括新增用户、删除用户、修改用户密码等第三章数据库设计按关系数据的耍求，尽量减少冗余数据。本系统共设计了五个原始数据表， 其中ypzl. dbf和clzu. dbe是核心表,分别用于存放影片的基本资料和顾客租借 影片的详细资料和信息。在数据表的设计与规范过程中，严格遵守数据库系统设 计原则，以保证数据的完整性与一致性，为了计算和查询的方便，有时采取了牺 牲数据冗余小这个原则，将有些衍生

16、数据也进行存储。比如说租金是可以通过一 定的法则进行运算岀来的，但是运算牵涉的因素多，计算繁琐，有会员跟非会员 的差别（会员不需耍交压金，租金有优惠）为了在结账的时候，做到让顾客心中 有数，在设计库结构的时候就有了压金，应付租金和实付租金字段。以下是本系统中数据表的结构：mima dbf说明：为了便于多个用户管理该系统，建立此表，用于用户身份验证，增加用户，删除用户。其结构如下:字段字段名类型宽度小数位索引排序nulls1用户名字符型1 0普通2密码字符型1 0否ypzl.dbf功能：用于存储影片资料，它是进行影片管理的基础。其结构如下:字段字段名类型宽度小数位索引排序nulls1影片序号字符

17、型6唯一升2影片名称字符型203剧情类型字符型104影片类型字符型85影片产地字符型86主演字符型167片长字符型108集数字符型59出租状态字符型210内容简介字符型100cuzu.dbf功能：用于记录影片的租还记录。为保证数据的一致性和历史资料的完整, 表的记录不能被删除，如果影片归还，只更改其状态为归还其结构如下：字段字段名类型宽度小数位索引排序nulls1影片序号字符型6普通升2影片名称字符型20普通升3租借人字符型8普通升4会员编号字符型6普通升5是否会员字符型26出租集数字符型47出租日期日期型88归还日期日期型89租碟天数字符型410压金货币型811应付租金货币型812应退租金货

18、币型813状态字符型4huike. dbf功能：用于记录客户基木资料，其结构如下:字段字段名类型宽度小数位索引排序nulls1会员编号字符型6普通升2姓名字符型83性别字符型24身份证字符型155电话字符型126地址字符型307入会时间日期型88状态字符型4普通huifei. dbf说明：用于记录会员交费情况。字段字段名类型宽度小数位数索引排序nulls1会员编号字符型6普通升2交费金额货币型83交费日期日期型84交费年份字符型7第四章系统功能模块设计§ 4.1、主控模块主程序的设计 程序名：main, prg主程序主要有几项功能：设置运行环境（包括设置必要的全局变量）、运行表单及建

19、立事件循环。主程序将首先调用seteven程序设置运行环境，然后设置默认目录和搜索路径，最后运行欢迎界面（表单welcome, sex） o密码验证就放在此表单中，用于防止非法用户闯入本系统，保证系统的安全，输入口令时屏幕显示为“*”以利保密。要求输入密码，允许输入三次，密码错误不能进入木系统,输入正确继续执行，进入主表单（表单：main, sex）。通过主表单运行系统功能。§ 4. 2分控模块（1）新碟入库模块（表单：ypzl.scx）功能：该表单用于实现影片资料的输入，完成成新影片的入库，初始状态 下所有输入和选择框均无效，只有点击“增加新影片”按钮后才可用。其屏幕中 用文本框输

20、入影片基本数据，每部彫片的序号是唯一的。该表单内有三个组合框, 分别是“影片类型”、“影片产地”、“剧情类型”，数据源来自与数据表ypzl.dbf 的字段。在该表单中，可以实现增加新影片、修改影片、删除影片功能，若操作错 误，取消操作可取消对表所做的修改。（2）影片查询模块（表单：ypfind.scx）功能：可以根据不同的条件组合，查询影片的基本信息，查询条件包括影片 名称、主演、剧情类型、影片产地、出租状态，条件可以任意组合。多条件查询 是本模块重点考虑的内容，本设计完成了对多字段、多条件的查询，用起来比较 方便。该屏幕分为两个部分，上半部分用于查询条件的选择，由五个复选框和一 个命令按钮组

21、成。选择好查询的关键字后单击“确定”便可击活下半部文本 框，输入查询条件，单击“显示查询结果”就能快速地得到影片的信息。 其运行界面如图所示：；forml-|51x|影片租还1新碟入库统计报表1用尸设置1会员管理1退出岀租服务模块（表单：chuzu. sex）功能：本模块用于实现影片的出租。模块中影片的名字与序号之间设定有 绑定的关系，只需输入影片的序号，影片的名字就会自动填入，会员编号跟租 借人也有绑定关系。用户输入完后，点“确定”，系统先会对输入的资料进行核 对，在影片借出的同时，并将影片总库里的出租状态改为“是二表示此碟已被借 走。同时还会对会员进行核实，若会员证被挂失，系统会马上提示，

22、能很好地 保护会员的利益。其运行界而如图所示:（4）归还服务模块（表单:guihuan.scx）功能：可实现影片归还后资金的结算。在表单中，输入租借人的姓名或是 会员编号，在下面的表格中便会将其所借影片记录显视出来，结账按钮，用于 结算顾客应付的租金，因为会员跟非会员在价格方面有很大的区别，所以将其 分开显视。等顾客交完钱后就可点下面的“还碟确定”了，这样他的租碟状态就 会改为“已还=同时也将影片资料表中的“出租状态"改为否，这样下一个客户 乂可以租它了。为了避免错误操作，这个按钮在没有点击结账前是灰色不可用 的状态。其运行界面如图所示: <影片厚号影片名称租常人合员編号776

23、67788090909好好好王小姐123123xixi小徉儿000030999999hijj"还碟确定此键在未点结账之 前的状态为不可用for mlq祖借兀1确宗i会员编号1应退还压金1（非会员）¥返回应付租金归还服务（4）会员管理模块（表单：huyuan.scx）功能：为适应当今社会的发展趋势，专门设定了这个会员管理的模块，利 用会员可以享受很多优惠政策的方式，来吸引顾客，以提高经济效益。木模块 设有，添加会员、删除会员、会费管理，会员一览表。其运行界面如图所示：（5）用户设置模块（表单：user.scx）功能：用于实现管理用户的功能（有添加用户、修改密码、删除用户三个子

24、 页框），添加用户子页框它能够完成添加用户的功能。修改密码模块:当管理人员发现密码泄露后，可用此项功能修改密码。删除模块用于用户注销（6）汇总统计模块（表单：baobiao.scx）功能：本模块有三项汇总功能，分别是：月收入汇总，会员情况汇总，影 片资料汇总。（7）退出模块（表单：quit.scx）功能：调用本表单后，结束语由表单下端向上升，四秒后自动退出本系统。各模块的调用关系统如：main.prg第五章程序设计与说明因为vfp是一个专业的数据库管理系统，功能齐全，加上其面向对像的特征, 使得程序具有设计简单等特点。木人选择了 visual foxpro 6.0作为系统开发工具。 作为程序设

25、计的主要任务是完成用户需求分析的功能，所以设计时力求功能的 完善与实用，其次考虑操作界面的美观性与操作的便利性。在系统开发过程中，使用了 vfp中的报表向导工具。在设计过程中，由于初次涉及系统项目开发，所以借鉴了其他的一些系统, 从中吸取了不少经验，为今后的工作奠定了基础。程序源代码见附录。第六章系统特点与运行环境系统运行的环境：1、硬件环境：586/100m/64m/20g/tnt显卡或配置在其以上的机器，并配有鼠标。2、软件环境：操作系统平台：windows98或 windows me装有 visual foxpro 6.0 系统系统特点：(1) 界面友好，容易撑握使用方法，也能很方便的找

26、到需要的信息。(2) 设计的条理比较清楚，基木符合影像店工作的要求，尤其是影片查询和 租还服务两个模块，是系统中比较突岀的两个模块。第七章结束语这是本人参与的第一次项目开发，但在整个设计过程中，本人都认真的作好 了各项工作，尤其是系统需求分析和功能模块的分析。在设计的过程中，有很多 借鉴其它系统的地方，也遇到了不少疑难，在指导老师的精心指导下，才得以解 决。visual f0xr0 6.0是本人的口学课程之一，由于时间和水平的局限，本系 统中还有不足之处，敬请各位老师指教。通过这次项目开发，熟悉了项目开发的 流程，相信在以后的工作中，也能独立完成小型系统的开发。参考文献1. 数据库原理郑若忠编

27、著国防科大出版社2. 软件工程齐治昌编著 高等教育出版社3visual foxpro 6.0数据库系统开发实例导航邵洋谷宇何旭洪编著 人民邮电岀版社4.visual foxpro 6.0入门与应用实例李俊徳 编著 清华大学出版社附录1报表式样 报表(huike.frx)03/31/03会员编号：88姓名：8性别：8身份证号：8电话：8地址：8入会日期：03/23/03交费年份状态：停用交费金颔交费日期50 00/ /2000.150.0003/284332000.9150.0003/284332001.350.0003/28x)32002.1050.0003/28/032002.1100.00

28、03/28/032003 1扌艮表2 (mm.frx)月收入总汇031/03月份影片轄影片名称应付租金3000030小叮当0.00分类汇邕3:0.0040909090070.90分矣汇总4：0.9031231235.00776677云朵全花0.00分类汇总3:5.00主程序main.prg_screen.left=-l 0000public mypathset talk offset excl onset dele onmypath=sys(5)+sys(2003)set defa to (mypath)set path to data,forms,tutu,progs,reportsjibs

29、do form welcomeread events1欢迎界面(vvelcome.scx)'确定'按钮的chick事件set exact onselect mimaif n>2messagebox(”三次密码错误，不能使用本系系统！ “)thisform.releaseset sysmenu to defaultclear readelseloca for allt(用户名)=allt(thisform.text 1 .value)if found()if allt(密码)=ant(thisform.text2. value)thisform.releasedo form

30、 mainelsemessagebox("密码错误! ”)thisform.text2.value=space(l 0) n=n+lthisform.refreshthisform.text2.setfocusendifelsemessagebox(m没有此用户!")thisform.text 1 .v alue=space(l 0)thisform.text2.value=space( 10)n=n+lthisform.refreshthisform.text 1 .setfocusendifendif2主界面(maimscx)'t imer 1'的 ti

31、mer 事件if i=0thisform label2. fontsize二26thisform. 1abel3 fontsize=26thisform. iabel2. forecolor=16711935thisform. label3. forecolor=65535 i=lj=j+lelsethisform. iabel2 fontsize=22thisform. label3. fontsize=36thisform. iabel3. forecolor=16711935thisform label2. forecolor=65535i=0j 二 j+1endif3. 碟库更新(yp

32、zl.scx)彳上一个'的chick事件skip -1if bof ()messagebox(*已是第一个记录',48,'信息窗口')this parent command1. enabled=. ft his. pare nt. command2. enabled 二.f.skipelsethis parent, commandl. enabled二.t.this, parent command2 enabled=.t.endi fthis, parent. command3. enabled, t.this pare nt. comma nd4 cn ab

33、1 ed=. t thisform. refresh'第一个'的chick事件goto topthis parent commandl. onabled=. f.this, pare nt. comma nd3 en abled=. t.this, pare nt. comma nd4. enabled, t.thisform. refresh，下一个，的chick事件skipif eof ()messagebox (，己是最后一个记录',48,'信息窗口') skip -1this parent command3. enabled二 fthis par

34、ent command4 enabled=. felsethis, parent. command3- enabled=.t.this, parent, command4 enabled二.t.end i fthis, parent command1 enabled.tthis, parent, command2. enabled=. t. thisform. refresh'最后一个'的chick事件goto bottomthis, pare nt. comma nd3. enabledr f.this, pare nt. comma ndl. enabled t.this

35、parent. command2 onablcd= tthisform. refresh'新增影片'的chick事件thisform. commandgroup2. enabled=. f.thisform. command2. cnabled=. f.thisform conimand3 enabled. fthi sform command4. enabled=. tif thisform. command 1. caption二'增加新影片' thisform. containerl. textl. enabled=. t.thisform. contai

36、ncrl. tcxt2 cnabled=. tthisform container1. combo1 enabled二.t.thisform container1 combo2 enabled.t.thisform. containerl. text3. enabled=. t.thisform containerl. text4. enabled. t. thisform containerl. texts enabled=. t thisform containerl. combo3 enabled=.t. thisform. containerl. combo4. enabled.t.

37、thisform. containerl. editl. enabled=. t.append blank thisform command 1. caption二，保存， thisform. refresh thisform containerl. textl. setfocus elsegetid=al1 trim(th is form containerl. text 1.value)empty(getjob) or empty (getuse) orgetname二alltrim(thisform. containerl. text2. value) getsex=al1trim(th

38、isform. containerl. combol value) getjob=alltrim(thisform. containerl. combo2> value) getindate=alltrim(thisform. containerl.text3.value) getrank二alitrim(thisform containerl. text4. value) getgood=al11rim(thisform containerl. text5. value) getuse=al1trim(thisform. containerl. combo3. value) getgo

39、d=alltrim(thisform. containerl. combod- value) gethp=alltrim(thisform. containerl. editl. value) i f empty (getid) or empty(getname) or empty (getsex) empty (get indate) or empty (getrank) or empty (getgood) empty (getgod) or empty (gethp)messagebox(zz资料不足"，48，"错误") elsethisform. comm

40、and 1. caption增加新记录' tabl eupdate (. t.)thisform containerl. textl. enabled二.f. thisform. con tai nc rl. tcxt2. cn abled=. f. thisform containerl. combo1 enabled二 f. thisform containerl. combo2 enabled=. f. thisform. containerl. text3. enabled二.f. thisform containerl. textd. enabled二.f. thisform

41、. con tai nc rl. texts, cn abled=. f. thisform containerl. combo3 enabled. f thisform container1 combo4 enabled. f. thisform. containerl. editl. enabled=. f. thisform. commandgroupl. enabled二.t. thisform. command2. cnabled=. t. thisform conimand3 enabled=. t thi sform command4. enabled=. f endi fend

42、 if"修改影片'的chick事件thi sform. command 1 enabled=. f. thisform. command3. enabled=. f. thisform command4 enabled=. t. thisform commandgroup2 cnab1ed=. t if thisform. command2 caption二'彳彥改这条i己录' thisform. containerl. textl. enabled=. t. thisform. containerl. text2. enabled二.t. thisform

43、container1 combo1 enabled二.t. thisform containcrl. combo2 cnabled= t thisform. containerl. text3. enabled=. t thisform. containerl. text4. enabled=. t. thisform. containerl. text5. enabled=. t. thisform containerl. combo3. enabled二.t. thisform container1. combo4 enabled二.t. thisform containerl. edit

44、l. enabled=. t thi sform. command2. caption修改确认' thisform. containerl.refresh thisform containerl. textl. setfocus elsethisform command2 caption=，«參改这条i己录' tabl eupdate (. t.)thisform. con tai nerl. textl. enabled 二.f. thisform containerl. text2. enabled二.f. thisform containerl. combo1

45、cnabled= f thisform container1 combo2 enabled.f. thisform. containerl. text3. enabled=. f. thisform. con tai nerl. textd. enabled 二.f. thisform containcrl. texts enabled, f. thisform containerl. combo3 cnabled= f thisform. containerl. combo4 enabled=.f. thisform. containerl. editl. enabled=. f. this

46、form. command1. enabled=. t. thisform. command3. cnabled=. t. thisform command4. enabled. f thisform commandgroup2 enabled. t. endif'删除影片'的chick事件 getid=alltrim(thisform containerl. textl. value) thisform containerl. textl. controlsource=，' thi sform. contai nerl. text2. control source二八

47、 thisform containerl. combo1. controlsource=， thisform containerl. combo2 controlsource=" thisform. containerl. text3 controlsource= thisform. containerl. text4. controlsource' thisform. containerl. text5. controlsource=> ” thisform containerl. combo3. controlsource=， thisform containerl

48、. combo4. controlsource=， thisform containerl. edit! controlsource= use ypzl exclusiveset order to影片序号seek gelid delete packthisform. containerl. textl. controlsource=，影片序号 thisform containerl. text2. controlsource=，影片名称 thisform container 1. combo 1 controlsource二'影片类型' thisform container 1

49、 combo2 controlsource=，影丿f j'"地' thisform. containerl. text3. controlsource=，主演' thisform. containerl. text4. controlsource=，片长' thisform containerl. texts. controlsource=，集数 thisform containerl. combo3 controlsource二'册情类苑 thisform container 1 combo4 controlsource二'出租状态&

50、#39; thi sform. containerl. editl. control source内容简介' thisform refreshthisform containerl. text 1. enabled=. f thisform containerl. text2. enabled=. f thisform. containerl. combol. enabled=> f. thisform containerl. combo2. enabled=. f. thisform containcrl. tcxt3 enabled. f. thisform containe

51、rl. text4 enabled=. f thisform containerl. text5. enabled二.f thisform. containerl. combo3. enabled=> f. thisform containerl. combol. enabled=. f. thisform. con tai nc rl. editl. cn abled=. f.'取消操作'的chick事件if thi sform. command 1. caption增加确认' thisform command 1. captio增力口新i己录' thi

52、sform. command2. cnabled=. t. thisform conimand3 enabled=. t thi sform commandgroup2 enabled=.t. tabl erevert (. f.)end ifi f thisform. command2. caption修改确认' thisform command2 caption二'0參改这条i己录' thi sform. command1. enabled=. t.thisform. command3. enabled=. t. tablerevert (. f.) end i f

53、thisform containerl. text 1. enabled二.fthisform. containerl. text2. enabled=. f.thisform. con tai nerl. combo 1. enabled f.thisform containcrl. combo2 enabled. fthisform container】. text3 enab1ed=. fthisform containerl. text4. enabled二.f thisform. containerl. text5. enabled=. f. thisform. containerl

54、. combo3. enabled, f. thisform containerl. combo4. enabled二.f. thisform containerl. editl. enabled=. f thisform refresh'froml'的 init 事件set multilocks oncursorsetprop(，zbufferin3)4. 出租服务(chuzu. sex)'取消'的chick事件thisform pageframel. pagel. textl. value=，'thisform pageframe1. page1. text2 value=，' thisform pageframe1. page1. text3 value二'' thisform. pageframe1 pagel. text4. value' thisform pageframe1 pagel. text5. value=，' thisform pageframe1. page1. te