数据库论文(商品销售管理系统).pdf

论论 文文 题题 目 目 商品销售管理系统 学生 学号 专业计算机 层次本科 通讯地址 邮政编码 指导教师 西南大学网络教育学院 毕 业 论 文 1 商品销售管理系统商品销售管理系统 摘摘要要 本系统是为了适应企业进销存管理的信息化建设需要而设计的 采用 Visual Foxpro6 0 面向对象编程语言设计而成 能够稳定而快捷地完成企业的进销存管理的信息化任务 从而 取代了以往繁杂的人工劳动 提高了工作效率 关键词关键词 数据库 编码 信息系统 SummarySummary This system is to enter to sell the information construction need which depositted management and design for meeting enterprises adopt Visual Foxpro6 0 to face target s programming language to design can finish the entering and selling and storing the information based task of management of enterprises steadily and swiftly thus replaced miscellaneous artificial work in the past has improved working efficiency KeywordKeyword Database code information system 2 目目录录 摘要 1 第一章引 言 3 1 1 本 课 题 的 研 究 意 义 3 1 2 本 课 题 的 设 计 目 的 和 内 容 3 第二章研 究 现 状 及 设 计 目 标 3 2 1 设 计 目 标 3 2 2 系 统 设 计 中 存 在 的 问 题 及 解 决 办 法 3 第三章软 硬 件 环 境 4 3 1 软 件 环 境 4 3 2 硬 件 平 台 7 第四章可 行 性 分 析 7 第五章系 统 的 功 能 8 第六章数 据 库 设 计 11 第七章系 统 设 计 14 第八章性 能 测 试 与 分 析 45 第九章结 束 语 48 参 考 文 献 48 3 第一章第一章引言引言 1 1 本课题的研究意义 随着经济的高速发展 企业的信息化工作也在如火如荼地进行 由于企业规模的不断扩 大以及商务往来的日益增多 企业对进销存信息的掌握和使用就越来越多 因此以前的原始 的手工操作方式就不能适应企业快速发展的需要 在计算机科学技术日益发展和成熟的今天 运用其先进的技术性来管理日常工作中的各类客户信息数据 就可以极大地提高企业的工作 效率 因此 本人结合已学过的知识及在指导老师的帮助下 运用Microsoft Visual Foxpro6 0 中文版 在 Windows XP 中文版环境下开发成功本系统 经过在实践中的运行验证 本系统能 够正常和稳定地运行 为企业创造了较大的商业机会 保证了公司对进销存的管理信息化工 作的顺利进行 1 2 本课题的设计目的和内容 设计目的 帮助企业对进销存信息进行快速 准确的录入 修改 查询等工作 并可将 信息导入和导出 从而可将有关人员从以往烦琐的工作解脱出来 充分体验到信息时代的企 业信息化工作给企业的日常工作所带来的便利和快捷 体会到计算机的快速 准确 智能的 强大功能 但由于本人软件设计方面的经验不足 因此本系统在设计过程中出现了许多的困 难 我查阅了许多的资料 并参考了别人的程序 才最终完成了本系统的设计 第二章第二章研究现状及设计目标研究现状及设计目标 2 1 设计目标 本系统的开发 是以 Visual Foxpro6 0 中文版作为开发语言 以 Windows XP 中文版为 开发平台 本系统的界面比较美观 友好 操作简单 方便 比较具有人性化 同时 系统 运行速度较快 对计算机的硬件环境要求不高 能够完成公司进销存管理的大部分工作 2 2 系统设计中存在的问题及解决办法 在设计过程中 由于受到本人知识面所限 考虑不周 数据分析不全面 详细 对软件 工程的认识不足 也缺乏设计经验 所以曾出现过一些问题和错误 但是经过本人查询相关 的资料 参考有关软件的设计思想 并在指导老师的细心帮助下 这些问题后来基本上得到 4 了解决 使用单位也比较满意 第三章第三章软 硬件环境软 硬件环境 3 1 软件环境 操作系统选用目前较稳定的 Windows98 中文版 数据库系统采用关系型数据库系统 Microsoft Visual FoxPro6 0 中文版 由 Windows98 和 Microsoft Visual FoxPro6 0 共同 组成系统的开发环境 1 中文操作系统 Windows98 的特点 首先 操作系统采用完全图形化的用户界面 将使软件用户的培训大大简化 提高了工 作效率 其次 Windows98 的设备无关性使本系统软件开发时无须固定使用设备 有利于软件的 移植和硬件设备的更新换代 再次 Windows98 系统中文版支持信息交换用汉字编码字符集 完善的中文支持使二者 紧密结合 构成一个功能完备的软件开发环境 2 VFP6 0 中文版概述 A 概述 VFP6 0 中文版 它是运行于 Windows95 和 Windows NT 平台的 32 位数据库系统 充分发 挥了 32 位微处理器强大的 32 位数据处理性能 它功能强大 直观易用 支持客户 服务器结 构和面向对象编程 提供多种可视化编程工具 支持最新 Internet 技术 WWW 数据库的设 计 最新流行的 ActiveX 等 VFP6 0 中文版完全支持 OOP 面向对象 的应用程序设计方法 VFP 使用了真正的类 包 括继承性 封装性和多态性 用可视方式创建类 查看类及类代码 利用表单向导进行专业 级界面设计 对表关系进行可视化查看 可利用 OLE 自动化来包含其他软件 如 Excel Word 中的对象并使用这些软件 通过 Visual FoxPro 对象和事件模型 用户可以快速创建和实现 无模式 modeless 的应用程序 利用生成器和工具栏 开发人员可以快速开发应用程序 而省去编写大量的代码 定义繁多的属性 总之 VFP6 0 中文版是一种适用于专业人员的开 发工具 B 概念的发展 在 FoxPro 2 X 中一个表就是数据库 实际上是真正的数据库中表的概念 在 Visual 5 FoxPro 中 数据库指的是可以存储一个或者多个表 DBF 及视图的关系数据库 这才是真 正的关系型数据库的概念 对于一个大型的信息管理系统 它很可能需要对不同的用户各自创建一个大型的文件系 统 它包括许多表 而属于一个用户的一套表与属于另一个用户的一套表实际上是相同的 只是名称有所不同 而在 FoxPro2 x 中 需要建立大量的代码来区别和维护属于不同用户的 一套表 这套表的数量可能是非常庞大的 维护编码也是非常庞大的 然而 Visual FoxPro 中引入的真正的数据库的概念 使这一问题的解决变得非常的容易 设计人员只要为不同的 用户创建不同的数据库 然后在这些数据库下建立用户自己的表就可以很容易对每个用户进 行区别和维护了 而且 这样的数据库的关系能力更加强大 更加稳定可靠 C Visual FoxPro 的高效性 可扩展性 面向对象程序设计减少了开发时间 Visual FoxPro 通过使用面向对象的开发技术简化 了开发 它可以通过创建代码类和接口单元类来创建功能强大的 使用灵活的可重用对象库 利用内置工具管理类和类库管理类库资源 在应用程序中用类浏览器和组件集定位 查看 使用类 表面显示器会帮助我们建立更为稳定 更为高效的应用程序 下面的窗口显示代码的每 一行 指示其是否执行 执行次数 首次执行时间 平均执行时间 这些数据可以帮助我们 快速定位代码中的运行瓶颈 也可验证测试计划 用功能强大的可视化的 RAD 工具减少开发时间 减少开发工作 用有颜色的代码编辑器 和直接跟踪调试器使得写代码的工作比从前简单得多 这一改进来自 Microsoft Visual C 开发系统 使用 Microsoft Visual SourceSafe 简化了开发小组的开发工作 Microsoft Visual SourceSafe 版本控制系统与 Visual FoxPro 6 0 紧密关联 因此可以更好地管理源代码 不 论是个人独立编写程序 还是作为开发小组的其中一员编写程序 组件集使得查找和使用诸 如类库 表格 报表 代码的组件变得特别简单 仅需要拖动鼠标就可以快速将类从组件集 中移出 放置到表格和报表中 D 新特性 Visual FoxPro 基本类库 Visual FoxPro 6 0 提供了 100 多个未编译 可重用的类 开发人员 可以利用这些类实现应用程序的基本功能 直接使用这些类 或者用这些类的继承来实现一 定的扩展功能 6 应用程序向导和构建器 Visual FoxPro 6 0 包括一个完全的面向对象的应用程序框架 它是由 一组为应用程序提供基本功能的类组成的 新的应用程序向导就是基于这个框架创建项目的 新的应用程序构建器可以用来添加表格和报表 组件集 Component Gallery 组件集 Component Gallery 简化了类库的管理 简化了提供可视化工 具去组织和使用组件的其他组件的管理 组件可以从组件群中拖出 放置到可视化设计环境 中 诸如项目和表单 严格日期检查 编译日期信息时 Visual FoxPro 6 0 将检测会产生误解的日期描述 例如 01 01 56 开发人员可以利用这一特性检测现有代码的 2000 年问题 并且在新代码中 避免这一问题的出现 新的严格的日期格式强制日期以清楚形式描述 Coverage Profiler 开发人员可以运用表面显示器 Coverage Profiler 检查他们要测试的方案的有效性 这是用执行相应行代码的方式实现的 他们也可以执行 profiling 以查找瓶颈或其它执行 当中遇到的问题 这是通过检查每一行代码的执行时间实现的 访问和赋值方法 访问方法是当访问属性值时运行的代码 赋值方法是当改变属性值时运行的代码 访问 控制方法和访问权限指定方法使属性可用 并使那些内嵌属性容易使用 项目挂钩 项目挂钩是一个新的基类 当与一个项目相连时 可以通过它看到项目级事件 开发人 员可以写一些当项目打开 关闭 构建 添加文件时运行的代码 在应用程序之间进行拖放 从记忆字段拖出文本 把它放置到 Microsoft Word 中 然后可以对文本进行拼写检查 或者从 Windows Explorer 中拖出一个文件 把它放置到项目管理器中 文件将被添加到项目 中去 活动文档 活动文档是一个 Visual FoxPro 应用程序 挂接在 Internet Explorer 上 它提供了把 Visual FoxPro 的强大功能用在浏览器上的一种途径 活动文档同样也提供了一种在分布式 应用程序中使用 Web 的方法 7 微软传输服务器支持 由 Visual FoxPro 创建的 COM 组件 这些组件可以由微软传输服务器管理和调整 开发 人员可以构建基于数据的组件 充分利用微软传输服务器提供的调整组件的便利条件 企业应用程序开发 Visual FoxPro 6 0 与其它 Visual Studio 工具可以很好的配合 例如 运用 Visual InterDev 创建 Web 应用程序的开发人员可以很容易地使用 Visual FoxPro 来创建组件 用 Visual Basic 创建的 ActiveX 控件可以在 Visual FoxPro 应用程序中使用 以实现一些附 加功能 购买 Visual Studio 企业版的 Visual FoxPro 开发人员可以得到开发工具所提供的 全部好处 3 2 硬件平台 本系统主要采用单机操作 投入少 效率高 易于管理和维护 系统升级简单 适合企 业信息化管理的需要 基本要求如下 CPU 为 Intel Pentium100 以上 内存为 32MB 以上 硬盘至少为 3 2G 以上 配有光驱和软盘 第四章第四章可行性分析可行性分析 本系统的结构图如下 商品定购 入库商品出库 库存综合 采购 编号销售 分析 8 由于本系统管理的对象单一 数据内容基本是一致的 涉及的计算过程不是很复杂 因此 比较适合于采用数据库管理 且由于单位购进的微机的配置较低 在存储量 速度方面都能 满足数据库运行的要求 在技术难度方面 由于有指导老师的指导和相关参考文献 特别是 网上资料 以及相关人员提供的各种要求 完全可以实现 VFP6 0 中文版作为一个关系型数据库系统 它提供了面向对象的编程技术 可简化数 据库管理 使开发应用程序这项艰辛的工作就象堆积木那样简单方便 另外 用 VFP6 0 中文 版开发的应用程序可以独立运行于 windows 平台 第五章第五章系统的功能系统的功能 本系统共有如下所述的七大功能模块 A 进货管理模块 界面如下 该模块可以从多方面对供货的各种详细信息进行处理 如品名 规格 单价等 并可对 资金情况进行查询和打印 B 进货查询模块 该模块可以根据查询条件对进货的具体情况进行查询 并灵活地采用 各种排序方式以便方便地进行查询 并可进行进货资金情况进行打印 以方便对进货的管理 该模块界面如下 9 C 销售管理模块 该模块的主要功能是对公司所销货物进行实时的管理 以便及时进行查询 以为公司日 后的进货管理提供实际的依据 本模块的界面如下 D 本模块主要实现了对单位销货的情况进行信息的快速处理 并可以采用排序的方式进 行快速的查询 10 E 库存管理模块 本模块实现了对单位库存情况的快速统计 以方便对货物的及时查询 以及是否进行对货物进行补充进货 本模块也采用了排序方式进行管理 并可进行打印 F 系统维护模块 该模块的主要是对本系统进行管理 如数据的转入转出 系统的密码修改 以及其它的 诸如供货商等的设置 该模块的主要功能是为了保证本系统的安全稳定以及对一些重要数据 的备份处理 G 退出系统 退出本系统的使用 返回机器的原始状态 总体来说 本系统的设计可以完成以下的功 能描述 可以对经销商的进货 销和库存统计进行全面管理 程序设计是为了满足下列要求 1 方便用户的进销商品数据输入和修改 2 简单快捷的进销商品数据的查找 11 3 完整的进销商品收付资金管理 4 灵活的进销商品库存统计 第六章第六章数据库设计数据库设计 根据系统需求分析 需要设计以下数据库表 一 数据表的物理结构 1 进货数据库表 进货数据库表主要用于存储第一笔进货记录 其结构如下 字段字段名类型宽度小数位 1TAG 标志 字符型2 2NO 进货编号 字符型10 3RQ 进货日期 日期型8 4DW 进货单位 字符型30 5MC 进货名称 字符型20 6XH 进货规格型号 字符型30 7PZ 进货配置 字符型20 8DJ 单价 数值型102 9SJ 数量 数值型4 10YSL 剩余数量 数值型4 11YR 小计金额 数值型102 12JBR 经办人 字符型6 13BGR 保管人 字符型6 14FHR 发货人 字符型6 15YF 已付金额 数值型102 16YR 未付金额 数值型10 17YXJR 已销金额 数值型102 18YSJR 未收金额 数值型102 12 2 销货数据库表 销货数据库用于存储每一笔销货 其结构如下 字段字段名类型宽度小数位 1TAG 标志 字符型2 2NO 进货号 字符型10 3NO1 销货号 数值型4 4RQ 销货日期 日期型8 5DW 销货单位 字符型30 6MC 销货名称 字符型30 7XH 销货规格型号 字符型20 8PZ 销货配置 字符型20 9DJ 单价 数值型102 10SL 数量 数值型4 11JR 小计金额 数值型102 12JBR 经办人 字符型6 13SHR 收货人 字符型6 14BGR 保管人 字符型6 15YF 已收金额 数值型102 16YR 未收金额 数值型102 3 付款数据库 付款数据库是用于对第一笔进货的付款情况 其结构如下 字段字段名类型宽度小数位 1NO1 付款号 数值型4 2NO 进货号 字符型10 3RQ 付款日期 日期型8 4JR 付款金额 数值型102 5JBR 经办人 字符型6 6YR 未付金额 数值型102 7BZ 情况说明 字符型40 4 收款数据库表 13 书款数据库用于对每一笔销货的收款情况 其结构如下 字段字段名类型宽度小数位 1NO 进货号 字符型10 2NO1 销货号 数据值4 3NO2 收款号 数据型4 4RQ 收款日期 日期型8 5JR 收款金额 数值型102 6JBR 经办人 字符型6 7YR 未收金额 数值型102 8BR 情况说明 字符型40 5 往来单位数据库表 往来数据库用于存储经常往来单位名称 其结构如下 字段字段名类型宽度小数位 1DW字符型30 6 常用商品数据库表 常用商品数据库用于存储常用商品的名称 其结构如下 字段字段名类型宽度小数位 1MC字符型20 6 经办人数据库表 经办人数据库用于存储经办人姓名 其结构如下 字段字段名类型宽度小数位 1JBR 经办人 字符型6 7 临时表 临时表是一个产生报表中用到的临时表 其结构如下 字段字段名类型宽度小数位 1NO字符型10 2RQ日期型8 3DW字符型30 4MC字符型20 5XH字符型30 14 6PZ字符型20 7DJ数值型102 8SL数值型4 9JR数值型102 10JBR字符型6 11BGR字符型6 12FHR字符型6 13YF数值型102 14YR数值型102 15RQ1日期型8 16JB1数值型102 17JBR1字符型6 第七章第七章系统设计系统设计 本系统由上述的八个模块组成 分别由进货管理 进货查询 销售管理 销售查询 库 存管理 系统维护 退出系统等 6 个部分组成 在进入系统之前 先检查管理员的合法 避 免不合法用户进入本系统 系统结构图如下 N Y 启 动 界 检 查 用 户 合 不 能 进 进货管理进货查询销售管理退出系统系统维护库存管理销货查询 进货付款进货查询销售管理 进货收款 15 本系统的主要模块的代码如下 1 主文件设计 main6 prg screen windowstate 2 screen caption 进销存管理系统 screen closable F screen maxbutton F screen minbutton F close all clear all clea set sysmenu off set sysmenu to set talk off set date ansi set delete on set exact off set safety off set status bar off do form pass to num if num do form main read event endif set sysmenu to default set sysmenu on set status bar on use jh pack use jh1 16 pack use fk pack use fk1 pack use mcb pack use jbrb pack use dwb pack close all clear all return 2 pass 表单设计 确认命令代码 IF N 2 MESSAGEBOX 口令三次输入错误 不能使用本系统 48 信息提示 THISFORM CONT F THISFORM RELEASE ELSE IF ALLTRIM THISFORM PASS ALLTRIM THISFORM TEXT1 VALUE THISFORM CONT T THISFORM RELEASE ELSE MESSAGEBOX 口 令 不 正 确 重 新 输 入 48 信息提示 THISFORM TEXT1 VALUE SPACE 10 N N 1 THISFORM TEXT1 SETFOCUS ENDIF 17 ENDIF 3 进货管理表单设计 进货管理表单不仅包括添加 删除 修改 存储 取消 上一个 第一个 下一个 最 后一个等命令 还包括查找进销单 付款 打印付款等命令 查找进销单命令代码 public fchar 11 fname 11 ftype 11 fchar 1 进货编号 fname 1 no ftype 1 C fchar 2 进货日期 fname 2 rq ftype 2 D fchar 3 进货单位 fname 3 dw ftype 3 C fchar 4 品名 fname 4 mc ftype 4 C fchar 5 单价 fname 5 dj ftype 5 N fchar 6 数量 fname 6 sl ftype 6 N fchar 7 金额 fname 7 jr ftype 7 N fchar 8 剩余数量 fname 8 ysl ftype 8 N 18 fchar 9 经办人 fname 9 jbr ftype 9 C fchar 10 保管人 fname 10 bgr ftype 10 C fchar 11 发货人 fname 11 fhr ftype 11 C do form jh12 thisform refresh 付款命令代码 CHR 7 IF THISFORM TXTYR VALUE 0 MESSAGEBOX 本次进货余款已全部付清 不能选择本按钮 48 信息提示 ELSE PUBLIC BYR SELECT JH BYR YR thisform creatcond bo1 value thisform text1 value do case case thisform opg1 value 0 lcOperand case thisform opg1 value 1 cond cond AND case thisform opg1 value 2 cond cond OR endcase if thisform opg1 value0 cond cond fname bo3 value bo4 value thisform creatcond bo3 value thisform text2 va lue endif testcond 0 on error testcond 1 当过滤语句不正确时 执行 testcond 1 set filter to cond if testcond 1 messagebox 设置的查询条件不正确 48 信息提示 24 return endif go top thisform release 重置命令代码 bo1 value bo2 value bo3 value bo4 value thisform text1 value thisform text2 value bo3 enabled F bo4 enabled F thisform text2 enabled F thisform opg1 value 0 mand2 enabled F 取消命令代码 thisform release 6 进货查询表单设计 该表单只能用于查找 不能输入 修改和删除进货单 查找进货表单命令代码 public fchar 11 fname 11 ftype 11 fchar 1 进货编号 fname 1 no ftype 1 C fchar 2 进货日期 fname 2 rq ftype 2 D fchar 3 进货单位 fname 3 dw ftype 3 C 25 fchar 4 品名 fname 4 mc ftype 4 C fchar 5 单价 fname 5 dj ftype 5 N fchar 6 数量 fname 6 sl ftype 6 N fchar 7 金额 fname 7 jr ftype 7 N fchar 8 剩余数量 fname 8 ysl ftype 8 N fchar 9 经办人 fname 9 jbr ftype 9 C fchar 10 保管人 fname 10 bgr ftype 10 C fchar 11 发货人 fname 11 fhr ftype 11 C do form jh12 thisform refresh 打印资金表命令代码 public fchar 11 fname 11 ftype 11 fchar 1 进货编号 fname 1 no 26 ftype 1 C fchar 2 进货日期 fname 2 rq ftype 2 D fchar 3 进货单位 fname 3 dw ftype 3 C fchar 4 品名 fname 4 mc ftype 4 C fchar 5 单价 fname 5 dj ftype 5 N fchar 6 数量 fname 6 sl ftype 6 N fchar 7 金额 fname 7 jr ftype 7 N fchar 8 剩余数量 fname 8 ysl ftype 8 N fchar 9 经办人 fname 9 jbr ftype 9 C fchar 10 保管人 fname 10 bgr ftype 10 C fchar 11 发货人 fname 11 fhr 27 ftype 11 C do form jh12 thisform refresh 排序确认命令代码 SELECT JH SEL THISFORM OPTIONGROUP1 VALUE DO CASE CASE SEL 1 INDEX ON NO TO TEMPIDX CASE SEL 2 INDEX ON RQ TO TEMPIDX CASE SEL 3 INDEX ON DW TO TEMPIDX CASE SEL 4 INDEX ON MC TO TEMPIDX CASE SEL 5 INDEX ON XH TO TEMPIDX CASE SEL 6 INDEX ON JBR TO TEMPIDX ENDCASE GO TOP THISFORM GRID1 REFRESH 返回命令代码 close data THISFORM RELEASE 7 商品销售管理表单设计 确实销售本产品命令代码 if empty thisform txtno value messagebox 没有指定入库商品 不能销售 48 信息提示 else 28 public jhno jhmc jhxh jhpz jhysl jhysl jh ysl jhno jh no jhmc jh mc jhxh jh xh jhpz jh pz do form jh31 thisform txtysl value jhysl endif 第一个命令代码 SELECT JH GO TOP THISFORM REFRESH 上一个命令代码 SELECT JH SKIP 1 IF BOF GO TOP WAIT WINDOW 第一笔 NOWAIT ENDIF THISFORM REFRESH 下一个命令代码 SELECT JH SKIP IF EOF GO BOTTOM WAIT WINDOW 最后一笔 NOWAIT ENDIF THISFORM REFRESH 最后一个命令代码 29 SELECT JH GO BOTTOM THISFORM REFRESH 查询命令代码 PUBLIC fchar 11 fname 11 ftype 11 fchar 1 进货编号 fname 1 no ftype 1 C fchar 2 进货日期 fname 2 rq ftype 2 D fchar 3 进货单位 fname 3 dw ftype 3 C fchar 4 品名 fname 4 mc ftype 4 C fchar 5 单价 fname 5 dj ftype 5 N fchar 6 数量 fname 6 sl ftype 6 N fchar 7 金额 fname 7 jr ftype 7 N fchar 8 剩余数量 fname 8 ysl ftype 8 N fchar 9 经办人 30 fname 9 jbr ftype 9 C fchar 10 保管人 fname 10 bgr ftype 10 C fchar 11 发货人 fname 11 fhr ftype 11 C DO FORM JH12 THISFORM REFRESH 8 商品销售管理表单设计 为上一个服务 收款命令代码 CHR 7 if thisform txtyr value 0 messagebox 本次进货余款已全部付清 不能选择本按钮 48 信息提示 else public byr select jh1 byr yr 为本次进货记录的余额 select fk1 set filter to no jh1 no and no1 jh1 no1 count to bh do form jh32 with bh select jh1 repl yf with yf byr yr with yr byr thisform refresh endif 打印收款条命令代码 SELECT JH1 31 IF YF 0 SELECT REPTAB ZAP APPEND BLANK REPL NO WITH JH1 NO RQ WITH JH1 RQ DW WITH JH1 DW MC WITH JH1 MC REPL PZ WITH JH1 PZ XH WITH JH1 XH DJ WITH JH1 DJ SL WITH JH1 SL REPL JR WITH JH1 JR YF WITH JH1 YF YR WITH JH1 YR JBR WITH JH1 JBR REPL BGR WITH JH1 BGR FHR WITH JH1 SHR RQ1 WITH FK1 RQ JR1 WITH FK1 JR JBR1 WITH FK1 JBR REPO FORM FK1 PREVIEW SELECT JH1 ELSE MESSAGEBOX 没有选择任何收款单 不能打印 48 信息提示 ENDIF 返回命令代码 thisform release 第一个命令代码 go top thisform currno recno thisform setall enabled F textbox thisform setall enabled F combobox thisform refresh 上一个命令代码 skip 1 if bof go top endif thisform currno recno thisform setall enabled F textbox 32 thisform setall enabled F combobox thisform refresh 下一个命令代码 skip if eof go bottom endif thisform currno recno thisform setall enabled F textbox thisform setall enabled F combobox thisform refresh 最后一个命令代码 go bottom thisform currno recno thisform setall enabled F textbox thisform setall enabled F combobox thisform refresh 添加命令代码 select jh1 append blank thisform jls thisform jls 1 jhno1 jhno1 1 repl mc with jhmc xh with jhxh pz with jhpz repl no with jhno no1 with jhno1 thisform disp thisform setall enabled T textbox thisform setall enabled T combobox mand8 enabled T mand9 enabled T thisform opmode 1 33 thisform refresh bo1 setfocus 删除命令代码 if messagebox 记录一旦删除便不能恢复 真的要删除吗 48 4 信息提示 6 回 答 是 delete jhysl jhysl thisform txtsl value thisform jls thisform jls 1 thisform opmode 2 select fk1 delete for no jh1 no and no1 jh1 no1 thisform disp thisform refresh endif select jh1 修改命令代码 thisform setall enabled T textbox thisform setall enabled T combobox mand8 enabled T mand9 enabled T thisform opmode 3 thisform refresh bo1 setfocus 取消命令代码 ifmessagebox 是否放弃当前操作 48 4 信息提示 6 回答 是 tablerevert F 将数据恢复 this enabled F mand9 enabled F if thisform opmode 1 添加操作 thisform jls thisform jls 1 34 if thisform jls 0 若存在记录 则转向 取消 操作前的记录 go thisform currno endif endif thisform setall enabled F textbox thisform setall enabled F combobox thisform disp thisform refresh endif 存储命令代码 if tableupdate F F messagebox 数据保存不成功 48 信息提示 else this enabled F mand8 enabled F endif 打印命令代码 SELECT JH1 THISREC RECNO REPO FORM JH3 FOR RECNO THISREC PREVIEW 9 进货收款表单设计 收款确认命令代码 CHR 7 IF MESSAGEBOX 输入的付款正确吗 一旦付款 不能再改动 4 32 提示信息 6 SELECT FK1 APPEND BLANK REPL NO WITH JH1 no REPL NO1 WITH jh1 no1 repl no2 with THISFORM TEXT1 VALUE REPL RQ WITH THISFORM TEXT2 VALUE 35 REPL JR WITH THISFORM TEXT3 VALUE REPL JBR WITH THISFORM TEXT4 VALUE REPL YR WITH THISFORM TEXT5 VALUE REPL BZ WITH THISFORM TEXT6 VALUE BYR THISFORM TEXT3 VALUE 为本次收款金额 ENDIF THISFORM RELEASE 取消收款命令代码 BYR 0 BYR 0 THISFORM RELEASE 10 销货记录及收款情况的查询与打印表单 查找销货单命令代码 public fchar 12 fname 12 ftype 12 fchar 1 进货编号 fname 1 no ftype 1 C fchar 2 销售编号 fname 2 no1 ftype 2 N fchar 3 销货日期 fname 3 rq ftype 3 D fchar 4 发货单位 fname 4 dw ftype 4 C fchar 5 品名 fname 5 mc ftype 5 C fchar 6 单价 36 fname 6 dj ftype 6 N fchar 7 数量 fname 7 sl ftype 7 N fchar 8 金额 fname 8 jr ftype 8 N fchar 9 未收金额 fname 9 yr ftype 9 N fchar 10 经办人 fname 10 jbr ftype 10 C fchar 11 保管人 fname 11 bgr ftype 11 C fchar 12 收货人 fname 12 shr ftype 12 C do form jh12 thisform refresh 打印销货资金表命令代码 SELECT JH1 RECBH RECNO COUNT TO ZS IF ZS 0 MESSAGEBOX 没有选择任何要打印的销货记录 不能打印 48 信息提示 ELSE COND FILTER 37 IF EMPTY COND COND T ENDIF SET FILTER TO EMPTY TAG AND COND COUNT TO REC IF REC 0 MESSAGEBOX 没有选择任何要打印的销货记录 不能打印 48 信息提示 ELSE REPORT FORM JH1 PREVIEW ENDIF SET FILTER TO COND GO RECBH ENDIF 全部选定命令代码 SELECT JH1 RECBH RECNO COUNT TO REC IF REC 0 MESSAGEBOX 没 有 选 择 的 进 货 记 录 48 信息提示 ELSE REPL TAG WITH ALL GO RECBH ENDIF THISFORM REFRESH 全部取消命令代码 SELECT JH1 RECBH RECNO COUNT TO REC IF REC 0 MESSAGEBOX 没 有 选 择 的 进 货 记 录 48 信息提示 38 ELSE REPL TAG WITHSPACE 2 ALL GO RECBH ENDIF THISFORM REFRESH 选择或取消命令代码 SELECT JH1 IF TAG REPL TAG WITH SPACE 2 ELSE REPL TAG WITH ENDIF THISFORM REFRESH 排序确认命令代码 SELECT JH1 SEL THISFORM OPTIONGROUP1 VALUE DO CASE CASE SEL 1 INDEX ON NO STR NO1 TO TEMPIDX CASE SEL 2 INDEX ON RQ TO TEMPIDX CASE SEL 3 INDEX ON DW TO TEMPIDX CASE SEL 4 INDEX ON MC TO TEMPIDX CASE SEL 5 INDEX ON XH TO TEMPIDX CASE SEL 6 INDEX ON JBR TO TEMPIDX ENDCASE 39 GO TOP THISFORM GRID1 REFRESH 11 商品库存统计表单 排序确认命令代码 SELECT JH SEL THISFORM OPTIONGROUP1 VALUE DO CASE CASE SEL 1 INDEX ON NO TO TEMPIDX CASE SEL 2 INDEX ON RQ TO TEMPIDX CASE SEL 3 INDEX ON DW TO TEMPIDX CASE SEL 4 INDEX ON MC TO TEMPIDX CASE SEL 5 INDEX ON XH TO TEMPIDX CASE SEL 6 INDEX ON JBR TO TEMPIDX ENDCASE GO TOP THISFORM GRID1 REFRESH 打印商品库存表命令代码 SELECT JH RECBH RECNO COUNT TO ZS IF ZS 0 MESSAGEBOX 没有选择任何要打印的商品记录 不能打印 48 信息提示 ELSE COND FILTER 40 IF EMPTY COND COND T ENDIF SET FILTER TO EMPTY TAG AND COND COUNT TO REC IF REC 0 MESSAGEBOX 没有选择任何要打印的商品记录 不能打印 48 信息提示 ELSE REPORT FORM JH2 PREVIEW ENDIF SET FILTER TO COND GO RECBH ENDIF 12 系统维护表单 增加命令代码 SELECT JBRB APPEND BLANK THISFORM GRID3 REFRESH THISFORM GRID3 COLUMN1 SETFOCUS 删除命令代码 if messagebox 记录一旦删除 便不能恢复 真的删除吗 48 4 信息提示 6 select jbrb delete thisform grid3 refresh thisform grid3 column1 setfocus endif 设置供货单位命令代码 SELECT DWB 设置商品品名命令代码 SELECT MCB 41 GO TOP 设置经办人命令代码 SELECT JBRB GO TOP 数据初始化命令代码 chr 7 if messagebox 真的进行系统初始化 删除所有的数据 4 32 提示信息 6 use jh in 0 select jh delete all use in jh use jh1 in 0 select jh1 delete all use in jh1 use fk in 0 select fk delete all use in fk use fk1 in 0 select fk1 delete all use in fk1 select dwb delete all select jbrb delete all select mcb delete all messagebox 系统初始化过程己完成 48 信息提示 42 endif 修改系统密码命令代码 RESTORE FROM PASS ADDITIVE THISFORM CONTAINER1 TEXT1 VALUE PASS THISFORM CONTAINER1 TEXT2 VALUE space 10 进销存数据转出命令代码 if thisform testa F messagebox 请将要一张空白软盘插入到 A 驱动器中后再选择本选项 48 提示 信息 return endif use jh in 0 select jh if recc 0 copy to a jh use in jh use jh1 in 0 select