VFP仓库管理系统课程设计

1、课程设计任务书2011 2012 学年第一学期专业班级:计算机应用技术学号:姓名:课程名称:数据库系统与应用完成期限:自 2011年 12月 12日至 2011年 12月 18日 共 1 周课程设计题目设计目的 :仓库形态具有种种优点, 但在目前状况下, 它仍存在零售业企业所 共有的落后的一面,如:不能有效地管理每种商品,收款结算速度慢,而且在仓库管 理中,商品的进、销、存等决策以经验为主,缺乏实时分析功能,管理人员对及时传 递资料的要求始终得不到满足。 而该系统则可以方便的实现商品的录入, 查询, 添加, 删除等功能。使操作更简便效率功能要求:综合运用所学的数据库基本知识, 并能通过查阅相关

2、文献材料, 独立完成该课题的设计开发工作。要求根据本课题设计出合理的数据结构,并实现商 品的录入,查询,修改,删除等功能。一、设计的任务:完成教学管理系统中主要模块的设计和实现。二、开发工具:Visual FoxPro6.0 / Visual FoxPro8.0三、进度安排:第 17周进行课程设计、设计说明书的撰写和课程设计答辩。四、参考资料:2 范立南 . SQL Server 2000 实用教程 . 北京:清华大学出版社, 2003 3 李香敏 . SQL Server 2000 编程员指南 . 北京:北京希望电子出版社。 4 王丙义,胡鸿 . 数据库原理与 Visual Foxpro应用

3、 . 北京:中国铁道出版 计划答辩时间 :2011 年 12 月 18 日指导教师(签字 :2011 年 月 日目 录第 1章 引言 .- 1 - 第 2章 需求分析 .- 1 - 2.1系统概述 . .- 1 - 2.2运行环境 . .- 1 - 2.3功能需求描述 . .- 1 - 第 3章 总体设计 .- 2 - 3.1系统设计 . .- 2 - 3.2系统模块结构图 .- 2 - 3.3模块设计 . .- 3 - 3.4数据库设计 .- 4 - 3.4数据库概念结构设计 .- 5 - 第 4章 详细设计 . .- 7 - 4.1功能选择界面的设计 .- 7 - 4.2设备入库模块的设计

4、 .- 8 - 4.3设备出库模块的设计 . - 10 - 4.4 设备还库模块的设计 . - 11 - 4.5 设备需求模块的设计 . - 12 - 4.6 设备采购模块的设计 . - 13 - 4.7 显示报表模块的设计 . - 14 - 第 5章 系统的编译和发行 . - 16 - 5.1 设置主文件 . - 16 - 5.2 构造主文件 . - 16 - 5.3 在 .app 和 .exe 文件中包含和排除文件 . - 16 - 第 6章 小结 . - 17 - 6.1系统的功能和特点 . . - 17 - 6.2存在的问题与改进方向 . . - 17 - 6.3自我体会 . . -

5、18 - 参考文献 . - 19 - 附录 1:部分程序源代码 . - 19 - 附录 2:程序运行界面: . - 28 -第 1章 引言企业的物资供应管理往往是很复杂的,烦琐的。由于所掌握的物资种类众多,订货,管理, 发放的渠道各有差异,各个企业之间的管理体制不尽相同,各类统计计划报表繁多,因此物资管 理必须实现计算机化,而且必须根据企业的具体情况制定相应的方案。仓库管理部门是企业中的 一个重要部门 , 每天都有大量的业务在这里产生。对于一个现代化的企业来说 , 如何把仓库部门每 天发生的业务如实的记录下来 , 保证仓库有条理地进行 , 同时确保相关数据的安全 , 信息处理的高 效 , 并保

6、证系统的实用性强 , 这是要本系统设计实现的基本要求,并要求在每一步骤的设计过程中 都能生动清晰地有所体现。第 2章 需求分析2.1系统概述管理信息系统是一个利用计算机软硬件资源,手工作业,分析、计划、控制和决策模型以及 数据库的人 -机系统。它能提供信息支持企业或组织的运行、管理和决策功能。2.2运行环境处理器:Intel Pentium 166 mx 或更高内存: 32MB以上硬盘空间:1GB 以上显卡:SVGA 显示适配器2.3功能需求描述仓库管理各种信息的输入,包括入库、出库、还库、需求信息的输入等。仓库管理各种信息的查询、修改和维护。设备采购报表的生成。在库存管理中加入最高储备和最低

7、储备字段,对仓库中的物资设备实现监控和报警。企业各个部门的物资需求的管理。操作日志的管理。仓库管理的使用帮助。第 3章 总体设计3.1系统设计1. 系统目标设计系统开发的总体任务是实现企业物资设备管理的系统化,规范化和自动化,从而达到提高企 业物资管理的效率的目的。2. 开发设计思想仓库管理的特点是信息处理量比较大。所管理的物资设备种类繁多,而且由于入库单,出库 单,需求单等单据发生量特别大,关联信息多,查询和统计的方式各不相同。因此在管理上实现 起来有一定的困难。在管理的过程中经常会出现信息的重复传递,单据,报表种类繁多,各个部 门管理规格不统一等问题。在本系统的设计过程中,为了克服以上困难

8、,满足计算机管理的需要,我们采取了下面的一 些原则: 统一各种原始的单据的格式,统一帐目和报表的格式。 删除不必要的管理冗余,实现管理规范化、科学化。 程序代码标准化,软件统一化,确认软件的可维护行和实用性。 界面尽量简单化,做到实用、方便,尽量满足企业中不同层次员工的需要。 建立操作日志,系统自动记录所进行的各种操作。3.2系统模块结构图 3.3模块设计按照前面的分析,我们将管理系统的逻辑模块统一到 6个实际功能模块中,如图所示。切换 面板用于切换不同的操作,每项具体操作结束后,都会返回到切换面板。 下面对各模块的作用进行说明:1. 设备入库模块:添加设备到库存中。2. 设备出库模块:将设备

9、从库存取出并记录。3. 设备还库模块:将归并到库存的设备保存到数据库。4. 设备需求模块:记录各部门的设备需求。5. 设备采购模块:记录要采购的设备。6. 切换面板:用于切换到不同的操作,如设备入库、设备出库等。7. 显示报表:显示库存过多、库存不足等信息。3.4数据库设计在仔细调查企业仓库物资设备管理过程的基础上,得到本系统所处理的时间流程如图所示:数据流程图在本设计中,通过对企业仓库管理的内容和数据流程分析,设计的数据项和数据结构如下:1. 设备代码信息。包括的数据项有设备号、设备名称。2. 现有库存信息。包括的数据项有现有设备、现有数目、总数目、最大库存、最小库存等。3. 设备使用信息。

10、包括的数据项有使用的设备、使用部门、数目、使用时间、出库时状态。4. 设备采购信息。包括的数据项有采购的设备、采购员、供应商、采购数目、采购时间等。5. 设备归还信息。包括的数据项有归还设备、归还部门、归还数目、归还时间、经手人等。6. 设备需求信息。包括的数据项有需求的部门、需求设备、需求数目、需求时间等。 有了上面的数据结构、数据项和数据流程,就能进行下面的数据库设计。3.4数据库概念结构设计这一设计阶段是在需求分析的基础上,设计出能够满足用户需求的各种实体,以及它们之间 的关系,为后面的逻辑结构设计打下基础。本设计根据上面的设计规划出的实体有库存实体、入库实体、出库实体、采购实体、还库实

11、 体、需求实体。仓库管理系统数据库中的各个表格的设计结果如下面的几个表格所示。每个表格 表示在数据库中的一个表。 2. 设备入库表: 3. 设备出库表: 4. 现有库存表: 5. 部门需求表: 6. 设备还库表: 7. 操作日志表: 8. 设备采购计划表: 第 4章 详细设计4.1功能选择界面的设计这一模块的主要功能是作为系统主界面为进入本系统不同功能界面选择提供一个接口,使用 一个窗口来实现这一功能。首先建立一个表单,设取“ caption ”属性为“仓库管理” 。在该表单上添加 6个“按钮”控 件,它们的“ caption ”属性分别为“设备入库” , “设备出库” , “设备还库” ,

12、“部门需求” , “设备 采购” , “显示报表” 。然后在表单上添加“图象控件” ,并设其“ stretch ”属性为“ 2-strech (扩 展 ” , “ pictrue ”属性为图片所在的位置,本例中为“ c:仓库管理 001.jpg” 。1. 在“ comm.and1” (“ caption ”属性为“设备入库” 控件的“ click ”事件中添加如下代 码:do form 设备入库表thisform.release2. 在“ comm.and2” (“ caption ”属性为“设备出库” 控件的“ click ”事件中添加如下代码:do form 设备出库表thisform.r

13、elease3. 在“ comm.and3” (“ caption ”属性为“设备还库” 控件的“ click ”事件中添加如下代 码:do form 设备还库表thisform.release4. 在“ comm.and4” (“ caption ”属性为“部门需求” 控件的“ click ”事件中添加如下代 码:do form 部门需求表thisform.release5. 在“ comm.and5” (“ caption ”属性为“设备采购” 控件的“ click ”事件中添加如下代 码:do form 设备采购表thisform.release6. 在“ comm.and6” (“ c

14、aption ”属性为“显示报表” 控件的“ click ”事件中添加如下代 码:do form 显示报表thisform.release7. 在“ form1”的属性里选择“ autocenter ”设置为“ .T.-真” ,同时将“ backcolor ”设置 为“ 255,255,255” , “ windowstate ”设置为“ 0-普通” 。8. 添加“ form1”的“ init ”事件的代码如下:set directory to c:仓库管理 *将程序的默认的路径指向资源所在的文件夹 4.2设备入库模块的设计在设备入库模块中将实现设备数据的添加和入库等功能。 本模块设计采用先用

15、向导生成表单, 然后用修改的方法实现。首先在项目管理器的文档视图下单击“新建”按钮,在接下来的向导中, “数据库和表”选择“仓库管理”以及“设备入库表” 。值得注意的是,在结束表单向导前,可选择“保存表单以备将来使用” , “保存并运行表单” , 或者“保存表单并用表单设计器修改表单” 。由于 Visual FoxPro6.0向导生成的表单只具有普遍 性,对于当前设计的仓库管理系统还需要一定的改变,因此以我们选择“保存表单并用表设计器 修改表单” 。单击“完成”按钮系统提示保存表单,将表单保存为“设备入库表 .scx ” ,存于 c:仓库管理 目录下。根据功能需求,把“ cmdprint ”

16、、 “” cmdexit 、 “ cmdDelete ”和“ cmdedit ”的 Visible 属性 都设为“ .F.-假” 。添加 2个命令按钮, Caption 属性分别设为“修改库存”和“回主界面” 。 在“回主界面”命令按钮的 click 事件中添加代码如下:thisform.releasedo form 仓库管理在修改库存命令按钮的 click 事件中添加代码如下:select 现有库存表set order to 设备号seek getidif found(update 现有库存表 set 现有库存 =(现有库存 +getnum where (设备号 =getidelseinse

17、rt into 现有库存表 (设备号 , 现有库存 , 最大库存 , 最小库存 ;endifinsert into 操作日志表 (操作员 , 操作内容 , 操作时间 ;保存后运行表单。4.3设备出库模块的设计在设备出库模块中将实现设备出库数据的添加和修改库存等功能。该模块的功能和设备入库 的功能相似。在表单的左上角加上了显示当前时间的功能, 添加标签 label2的 caption 属性设为 “当前时 间” ;添加 label3的 caption 属性设为空;为当前表单的 label3init 事件添加如下代码: this.caption=dtoc(date(该模块具体实现过程不再一一详细说明

18、。下面列出了表单中所用到控件的属性值。1. Form1控件的主要属性: 2. ButtonSet1控件的主要属性: 下面时设备出库表单中“修改库存”命令按钮的 click 事件的代码:select 现有库存表*先在该表单的数据环境中添加现有库存表set order to 设备号seek getid*在现有库存表中查找设备号等于 getid 的纪录if found(update 现有库存表 set 现有库存 =(现有库存 -getnum where (设备号 =getid*如果库存表中有该项设备,则更新库存表insert into 操作日志表 (操作员 , 操作内容 , 操作时间 ;elseme

19、ssagebox("出错 ",1," 错误的设备号 "endif4.4 设备还库模块的设计在设备还库模块中将实现设备还库数据的添加和修改库存等功能,按照前面介绍的步骤设计 设备还库表。设备还库表所可能用到的控件的属性如表所示:1. Form1控件的主要属性: 2. ButtonSet1控件的主要属性: 下面是设备还库表中“修改库存”命令按钮的 click 事件的代码:select 现有库存表*先在该表单的数据环境中添加现有库存表set order to 设备号seek getid*在现有库存表中查找设备号等于 getid 的纪录if found(upda

20、te 现有库存表 set 现有库存 =(现有库存 -getnum where (设备号 =getidinsert into 操作日志表 (操作员 , 操作内容 , 操作时间 ;*如果库存表中有该项设备,则更新库存表 , 同时更新操作日志elsemessagebox("出错 ",1," 错误的设备号 "*如果没有该设备号则报告出错信息endif保存后运行表单。4.5 设备需求模块的设计在设备需求模块中将实现设备需求数据的添加和保存日志等功能。首先通过 Visual Foxpro的表单向导生成所需的设备需求表单,选择部门需求表的所有可用字段,然后为保持程序风

21、格的 一致,继续采用表单的阴影式和图片按钮的风格。在“步骤 3-排序次序”时。选择设备号的升序 排列。最后单击“完成”按钮,把表单保存在“ c:仓库管理 ”目录下,名为“设备需求 .scx ” 。 1. Form1控件的主要属性: 2. ButtonSet1控件的主要属性: 在表单设计器中,双击“保存日志”命令按钮。添加 click 事件代码如下:insert into 操作日志表 (操作员 , 操作内容 , 操作时间 values (username,'设备需求 ',date(双击回主界面命令按钮,添加 click 事件代码如下:thisform.releasedo form

22、 仓库管理保存对表单所作的修改。4.6 设备采购模块的设计在设备采购模块中将实现设备采购数据的添加和保存日志等功能。1. 由数据表生成表单通过 Visual Foxpro的表单向导,生成设备采购计划表单。在选择数据库和表时,选择仓库 管理数据库和设备采购计划表。在选择字段时,选择所有可用字段,选择阴影式和图片按钮作为 设备采购计划表的样式。选择计划采购时间的升序排列作为设备采购计划表的索引。2. 为窗体修改和添加命令按钮添加 2个命令按钮“保存日志”和“回主界面” 。设置表单中控件的属性。下面的表列出了需 要修改的控件的名称以及属性值。1 Form1控件的主要属性: 2 ButtonSet1控

23、件的主要属性: 3 为按钮添加 click 事件代码:在表单设计器中,双击保存日志命令按钮。添加 click 事件代码如下:insert into 操作日志表 (操作员 , 操作内容 , 操作时间 ;values (username,"设备需求 ",date(*把设备需求写入操作日志表中双击回主界面按钮,添加 click 事件代码如下:thisform.release*释放本表单do form 仓库管理*运行仓库管理界面4.7 显示报表模块的设计在该模块中,一共要显示 3个报表,分别提供库存不足,库存过多和操作日志等信息。 1. 设计显示报表表单在空白表单中添加一个页框控件

24、,并按照下表设置页框的属性,同时在数据环境里添加现有 库存表和操作日志表。 分别为每个 page 添加一个表格 grid1。设置表格控件的属性,如表所示:grid1控件的主要属性表: 2. 代码设计运行“显示报表”表单,界面所图所示:local Custs1select 设备号 , 最大库存 , 现有库存 from 现有库存表 where (现有库存 >最大库存 into cursor Custs1thisform. 页框 . 库存过多 . 库存过多表 .recordsource="Custs1"local Custs2select 设备号 , 最小库存 , 现有库存

25、 from 现有库存表 where (现有库存 <最小库存 into cursor Custs2thisform. 页框 . 库存不足 . 库存不足表 .recordsource="Custs2"local Custs3select * from 操作日志表 into cursor Custs3thisform. 页框 . 操作日志 . 操作日志表 1.recordsource="Custs3"运行“显示报表”表单。第 5章 系统的编译和发行5.1 设置主文件用主图标标记的文件是用户在启动 .app 或者 .exe 时被调用的文件。 它可以是一个表

26、单、 菜单 或者程序,建议使用程序作为主文件。5.2 构造主文件如果主文件是一个程序,它将调用应用程序框架中的各个功能组件,然后由这些组件调用应 用程序的其余部分。如果要建立一个简单的主程序,可以按下列步骤进行。1. 现设置应用环境界面。2. 建立初始用户界面。3. 建立事件循环。4. 恢复环境,退出应用程序。5.3 在 .app 和 .exe 文件中包含和排除文件如果在发布的应用程序中不想再更改这些文件, 可把它们放在项目中并设置为 “包含” 。 那么 这些文件变成只读的,不能修改。如果想修改这些文件,把它们放在项目中并设置为“排除” ,然 后作为独立文件随着应用程序一起发布。在默认情况下,

27、 Visual FoxPro6.0在嵌放的过程中排除了数据库、表格、成为 .ff 的 c 库文 件和 .app 文件。建议除了一些特定的表格,最好不要包含这类文件。数据库和表格需要变化和添加, 而如果编译后包含自 .exe 或者是 .app 文件中, 由于这二个文件被创建后都是静态的, 因此被 包含的文件也是静态的和只读的。把数据库和表格包含在这些文件中很明显会带来问题。因为这些文件不能被包含在文件 .exe 或者是 .app 文件中, 所以要在发布一个应用程序之前为 这些文件做好准备。如要排除可修改的文件,首先在项目管理器中,选择可修改的文件,然后从“项目”菜单中 选择“排除”命令。在一个文

28、件被排除后,则在文件的左方加入一个排除符号。第 6章 小结6.1系统的功能和特点一个完整的企业物资供应管理系统应该包括计划管理, 合同托收管理, 仓库管理, 定额管理, 统计管理,财务管理等模块。其中仓库管理是整个物资供应管理系统的核心。管理信息系统是一 个利用计算机软硬件资源,手工作业,分析、计划、控制和决策模型以及数据库的人 -机系统。它 能提供信息支持企业或组织的运行、管理和决策功能。数据库软件用来管理数据的优势在于可以迅速从成千上万的数据中找到我们需要的数据,而 查询功能的设计也是数据库应用软件设计过程中的重点也是难点。本设计过程中利用表单向导强 大的功能,轻松完成了数据的查询功能。而

29、且表单向导生成的查询功能非常强大,完全可以满足 数据库应用软件的需要。为了快速开发高效的软件,本设计中的多数表单的设计采用利用表单设计向导生成,然后在 生成的表单的基础上修改。6.2存在的问题与改进方向界面设计相对单一,数据库结构不够完美,代码设计不够完整而系统,本设计除了以简单实 现其功能外,对 VFP 的掌握运用不够成熟和全面,对其数据库和数据库的操作有待提高,对 VFP 系统中工具栏的使用以及项目管理器、设计器、生成器的了解不到位,在表设计器中建立索引和 在命令中使用索引等内容学习起来不够扎实,不会使用查询设计器和向导知识,在报表中使用控 件以及连编应用程序更是难懂,其它的相对接触也不是

30、很多,不敢妄言发表看法。无论是针对何种系统的设计和查询过程,都会把对表单设计放在比较引人注目的位置上,熟练掌握表单设计器以及常用表单控件的应用知识外,还要对菜单设计的相应细节和主要知识点重 点处理,这部分设计由于直观,充满视觉冲击力,直接影响到达到客户理想中的实际要求!如果 这一点完成得不够令人满意,恐怕间接地也会影响到用户们对整个数据库应用系统设计的质量标 准。另外还有对应用程序的相互重视,一个好的系统,是系统的,还是非系统形式的,程序代码 的正确而持久性地执行 , 操作 , 查询,管理,备份,恢复等功能的实现对整个软件开发生命周期起 到关键性的作用。 现在的程序员未来的前景一片辉煌, 比如

31、, 目前广泛使用的 JAVA 编程, 编程, C#编程,本系统的主文件便是使用程序完成的来代替菜单设计。6.3自我体会在整个计算机学科中,我所热爱的就是数据管理技术一块,同样,我照样报考了今年四月份 的全国计算机等级考试四级数据库工程师。正是一心执著于对整个数据库技术的深刻认识和 专研学问, 而且眼下又要面临大专生就业的严酷现实, 更是希望找到一份从事数据库项目的工作。 我知道,数据库技术是计算机科学与技术学科知识领域的一个重要组成部分,它的极速发展 极大地促进了基于计算机的数据管理技术在各领域的广泛应用。针对本设计结果来看,离我理想 状态下的信息管理系统距离巨远,对自身面临的微不足道的境遇深

32、感惭愧。自今往后,我愿认真 学好数据库技术,确定结合自身条件发展的可行性目标,围绕着这一目标切实做出一番事业来!参考文献陶宏才 . 数据库原理及设计 . 北京:清华大学出版社, 2001 范立南 . SQL Server 2000 实用教程 . 北京:清华大学出版社, 2003李香敏 . SQL Server 2000 编程员指南 . 北京:北京希望电子出版 社, 2004王丙义,胡鸿 . 数据库原理与 Visual Foxpro 应用 . 北京:中国铁道 出版社 ,2005附录 1:部分程序源代码1. 密码修改表单的修改按钮的 click 事件源代码:mess=messagebox(&quo

33、t;用户名不能为空! ",48," 警告 "elsemess=messagebox("旧密码不能为空! ",48," 警告 "elsemess=messagebox("新密码不能为空! ",48," 警告 "elsemess=messagebox("重复密码不能为空! ",48," 警告 "elsemess=messagebox("二次密码不一致! ",48," 警告 "elseif eof(mess=me

34、ssagebox("密码错误, 系统将取消你的修改权利! ",48," 警告 "thisform.releaseelseendif2. 添加操作员表单的最首按钮的 click 事件源代码:go top3. 添加操作员表单的上一个按钮的 click 事件源代码:skip-1if bof(? chr(7=messagebox("警告,这已经是第一条记录! ",48," 信息窗口 "go topendif4. 添加操作员表单的下一个按钮的 click 事件源代码:skipif eof(? chr(7=messagebox

35、("警告,这已经是最后一条记录! ",48," 信息窗口 " go bottomendif5. 添加操作员表单的最末按钮的 click 事件源代码:go bottom6. 主要控件的源代码清单:1 主程序源代码:SET TALK offset sysmenu offset cent on_screen.windowstate=2_screen.icon="iconshappy.ico"_screen.maxbutton=0_screen.minbutton=1_screen.closable=.f.modify window scre

36、en nocloseMODIFY WINDOW SCREEN TITLE " 仓库管理信息系统 "ZOOM WINDOW SCREEN MAXset default to datado form 登录表单read eventsclearclose allreturnendif2 登录表单的确定按钮控件的 click 源代码:if !eof(if alltrim(级别 ="管理员 "public jb,usernamejb=1elsepublic jb,usernamejb=0endifdo menu.mprthisform.releasedo form

37、仓库管理else#define missmatch_loc "用户或口令错,请重新登录! "wait window missmatch_loc timeout 1numcount=numcount+1if numcount=4numcount=0mess =messagebox("三次口令错,将退出程序! ",4+16+2,"退出 "clear eventrelease thisformendifendif3 密码修改表单的修改按钮的 click 事件源代码:mess=messagebox("用户名不能为空! ",

38、48," 警告 "elsemess=messagebox("旧密码不能为空! ",48," 警告 "elsemess=messagebox("新密码不能为空! ",48," 警告 "elsemess=messagebox("重复密码不能为空! ",48," 警告 "elsemess=messagebox("二次密码不一致! ",48," 警告 "elseif eof(mess=messagebox("密码错

39、误, 系统将取消你的修改权利! ",48," 警告 " thisform.releaseelsemess=messagebox("密码修改成功! ",48," 信息 "thisform.releaseendif4 添加操作员表单的最首按钮的 click 事件源代码:go top5 添加操作员表单的上一个按钮的 click 事件源代码:skip-1if bof(? chr(7=messagebox("警告,这已经是第一条记录! ",48," 信息窗口 "go topendif6 添加操作

40、员表单的下一个按钮的 click 事件源代码:skipif eof(? chr(7=messagebox("警告,这已经是最后一条记录! ",48," 信息窗口 " go bottomendif7 添加操作员表单的最末按钮的 click 事件源代码:go bottom8 添加操作员表单的修改按钮的 click 事件源代码:elseendif9 添加操作员表单的添加按钮的 click 事件源代码:appe blanelseendif10 添加操作员表单的删除按钮的 click 事件源代码:cMessageTitle='系统警告 'cMess

41、ageText='确认要删除吗? 'nDialogType=4+32nanswer=messagebox(cMessageText,nDialogType,cMessageTitleif nanswer=6deleendif11 类 baseform 的 picrecord 的源代码:RETURNENDIFTHIS.REFRESH(* Check if we have blank record already from txtbtns IF GETFLDSTATE(1 #3THIS.AddRecord(ENDIFENDIFENDIF12 类 baseform 的 queryun

42、load 的源代码:IF !THIS.ResolveConflicts(NODEFAULTRETURN .F.ENDIFRETURNENDIFIF DODEFAULT(NODEFAULTRETURN .F.ENDIFELSENODEFAULTRETURN .F.ENDIF13 类 baseform 的 release 的源代码:IF !THIS.Queryunload(NODEFAULTRETURN .F.ENDIF14 类 baseform 的 resolveconflicts 的源代码:#DEFINE PROMPTTOSAVE_LOC "Data has been changed

43、. Would you like to save changes?" IF !THIS.lSaveBufferedDataRETURNENDIFLOCAL nDECursors, aDECursors, cDataEnvRef, lPromptSave,lHadPromptLOCAL lcAlias, lnFields, nPromptSave, i, loCurrentControl* Flush current controlPEMSTATUS(THIS.ActiveControl,"value",5 AND;PEMSTATUS(THIS.ActiveCont

44、rol,"controlsource",5 AND;loCurrentControl = THIS.ActiveControl* Check if data actually changedIF !EVAL(loCurrentControl.controlsource= loCurrentControl.ValueloCurrentControl.Value = loCurrentControl.ValueENDIFloCurrentControl=""ENDIFnDECursors = 0cDataEnvRef = ""DIMENSION aDECursors1DO CASECASE TYPE("THISFORM.DataEnvironment" = "O"nDECursors = AMEMBERS(aDECurs