房屋销售管理系统

中央广播电视大学 毕业设计（论文）评审表 题 目： 房屋销售管理系统 省校_宁夏广播电视大学_ 级 别 03 春 姓 名 侯大武 学 号 037000194 专 业 计算机应用 教育层次 专科 2 指导教师 吴国立 分校(工作站) 直属 分校 学 生 毕 业 设 计 （ 论 文 ） 评 审 表 学生毕业设计（论文）终稿(由学生填写) ： 【摘要】本文简要介绍了房屋销售管理系统从设计到开发的过程。首 先，通过需求分析，最终决定针对房地产开发企业房屋销售管理的实际情 况，结合具体工作环境要求和工作实际，在 WINDOWS 操作系统环境下，采 用 MICROSOFT VISUAL FOXPRO 6.0 设计房屋销售管理系统 ；其次，根 据房地产开发企业房屋销售管理工作实际情况划分该系统的功能模块；介 绍整个系统功能模块中用到的数据库以及数据流程；最后，以具体开发各 功能模块的程序代码；以及对最终开发出的应用程序进行的系统性能测试 及分析等等。 关键词：房屋 销售 管理系统 3 目 录 内 容 提 要 2 第 一 章 引 言 4 1.1 本课题研究的意 义 4 1.2 设计房屋销售管理系统的可行性 4 第二章 系统分 析 6 2.1 需求分析 4 6 2.2 数据流程分析 6 第三章 系统功能模块 12 3.1 系统各功能模块划 分 12 3.2 系统功能模块结 构 图 15 第四章 系统数据结 构 16 4.1 数据字 典 16 4.2 数 据 库 表 结 构 17 第五章 应用系统实现 20 5.1 应用程序编 码 20 5 5.1.1 主程 序 20 5.1.2 登录窗口设 计 22 5.1.3 顶层表单（窗口）的设计过程、主要属性、方法程 序23 5.2 主要功能模块设 计 24 5.2.1 系统设置功能设 计 24 5.2.2 信息录入功能设 计 31 5.2.3 信息查询功能设 计 38 5.2.4 销售管理功能设 计 45 第六章 结束 语 47 6 第一章 引 言 1.1 本课题研究的意义 随着市场经济和计算机软、硬件技术的迅速发展，企业管理的信息随 之急剧增加以及计算机的应用领域不断地扩大，微型计算机的应用已深入 到社会生活的各个方面。在这种情况下单靠人工来处理和管理信息不但显 得速度特别慢，而且力不从心、极容易出错，所以大量信息需要由计算机 来处理。 房屋销售管理系统是计算机代替人工执行一系列诸如增加新 项目基本情况、用户信息以及修改、查询、统计及打印等操作。这样就使 销售管理人员可以轻松快捷地完成销售管理的任务。销售管理人员也可对 项目房屋销售的各个环节实施监督。房屋销售管理数据采集量大、面广， 数据汇总、调取工作比较繁锁。设计一个销售管理系统软件，采用计算机 进行销售工作进行管理将会对房屋销售管理工作及上级部门抽取数据工作 带来更大的便利，也提高了工作效率。 1.2 设计房屋销售管理系统的可行性 在计算机软件工程中，要求应用程序的用户界面设计充分地满足使用 者的需求。这种需求包括系统功能的完备性，更要求降低使用难度，迎合 用户的心理，以确保系统的使用效率。WINDOWS 系统为所有应用系统提供 一种统一的图形用户界面。WINDOWS 操作系统环境一般使用者都可以很快 学会，不会花费很多时间。 7 选择一个优秀的数据库管理系统，会给正常的数据处理带来极大方便。 Microsoft Visual FoxPro6.0 具有易学、易用、易维护的优点，用 Microsoft Visual FoxPro6.0 来开发应用软件效率高、成本低、投资小、 见效快。而 Microsoft Visual FoxPro6.0 是为数据库应用程序开发而设 计的功能强大、面向对象的编程工具。Microsoft Visual FoxPro6.0 使组 织数据、定义数据库规则和建立应用程序等工作变得简单易行，如利用可 视化的设计工具和向导，用户可以快速创建表单、查询和报表等等。针对 统计房屋销售工作中实际情况，结合具体工作环境要求和工作实际，在 WINDOWS 操作系统环境下，采用 Microsoft Visual FoxPro6.0 设计房屋 销售管理系统是完全可行。 本人从事多年的房地产开发管理工作，特别是对房屋销售管理有很大 的兴趣。所以，这次开发房屋销售管理系统的目的是：完成房屋销售 管理系统数据的录入、修改、查询、报表、打印等。 第二章 系统分析 2.1 需求分析 房屋销售管理是随着房地产的开发而产生的一项新的工作。近年来， 随着房地产开发的迅速发展，房屋销售管理的要求也越来越高，信息处理 8 要求也越来越快，信息量也越来越大，所以对系统的输入工作量要求要少； 能按给定的查询范围和输入的查询内容进行查询，便于提高查询速度；能 按给定条件打印所选表的数据；在进入系统时要求密码验证，而且密码要 求不能被直接识别，用户可以设置新密码，可以增加操作员，操作员不能 对系统进行管理等。 2.2 数据流程分析 系统分析员的首要任务是了解用户的要求，用户需要一个新的计算机 信息系统的目的。因此，第一步是弄清将要开发的新系统要产生的输出， 第二步分析为了产生输出应把什么数据组织起来，第三步是如何获得这些 数据，第四步是弄清数据在系统内的转换过程。也就是通常所说的画数据 流程图。 数据流程图有四种成分：源点或终点，处理逻辑，数据存储，数据流。 源点或终点是指不受系统控制，在系统以外的事件或人，它表达了该 系统数据的外部来源或去处。数据流指出了数据的流动方向，可以由某一 个源点或终点产生，也可以由某一个处理逻辑产生，也可以来自某一个数 据存储。处理逻辑表达了对数据的逻辑处理功能，也就是对数据的变换功 能，变换方式有两种：变换数据的结构、在原有的数据内容基础上产生新 的数据内容。数据存储指出了数据保存的地方，只是对数据存储的逻辑描 述。 画 数 据 流 图 的 基 本 目 的 是 利 用 它 作 为 交 流 的 信 息 工 具 。 系 统 分 析 9 员 把 他 对 现 有 的 认 识 或 对 目 标 系 统 的 设 想 用 数 据 流 图 描 绘 出 来 ， 供 有 关 人 员 审 查 确 认 。 由 于 在 数 据 流 图 中 通 常 仅 仅 使 用 四 种 基 本 符 号 ， 并 且 不 包 含 任 何 有 关 物 理 实 现 的 细 节 ， 因 此 ， 绝 大 多 数 用 户 都 可 以 理 解 和 评 价 它 。 数 据 流 图 的 另 一 个 主 要 用 途 是 作 为 分 析 和 设 计 的 工 具 。 系 统 分 析 员 在 研 究 现 有 的 系 统 时 常 用 系 统 流 程 图 ， 表 达 他 对 系 统 的 认 识 ， 这 种 描 绘 方 法 形 象 具 体 ， 比 较 容 易 验 证 它 的 正 确 性 ， 但 是 ， 开 发 工 程 的 目 标 往 往 不 是 完 全 复 制 现 有 的 系 统 ， 而 是 创 造 一 个 能 够 完 全 相 同 的 或 类 似 的 功 能 的 新 系 统 ， 用 系 统 流 程 图 描 绘 一 个 系 统 时 ， 系 统 的 功 能 和 实 现 每 个 功 能 的 具 体 方 案 是 混 在 一 起 的 。 因 此 ， 系 统 分 析 员 希 望 以 另 外 一 种 方 式 进 一 步 总 结 现 有 的 系 统 ， 这 种 方 式 应 该 着 重 描 绘 系 统 所 完 成 的 功 能 而 不 是 系 统 的 物 理 方 案 。 数 据 流 图 是 实 现 这 个 目 标 的 极 好 手 段 。 房 屋 销 售 管 理 系 统 主 要 是 为 了 管 理 客 户 的 基 本 情 况 、 房 屋 的 基 本 情 况 、 合 同 的 基 本 情 况 等 。 所 以 主 要 的 数 据 源 应 是 客 户 的 各 种 信 息 包 括 客 户 名 称 、 客 户 证 件 号 、 客 户 联 系 方 式 、 客 户 的 地 址 。 房 屋 编 号 、 项 目 名 称 的 相 关 信 息 等 ， 以 及 相 关 的 合 同 信 息 等 。 它 们 在 系 统 中 流 动 和 处 理 详 细 见 下 面 的 数 据 流 程 图 ： 1） 、 客 户 基 本 情 况 模 块 信 息 流 程 图 添加新记录 修改记录 10 客 户 号 等 信 息 统 计 条 件 流 程 图 分 析 ： 从 流 程 图 上 可 以 看 出 ： 客 户 基 本 信 息 的 流 动 首 先 是 以 客 户 号 的 特 征 为 流 动 方 向 的 依 据 。 非 0 客 户 号 可 以 继 续 流 动 ， 并 检 验 数 据 库 中 是 否 已 经 注 册 ， 已 经 注 册 的 信 息 可 以 修 改 、 查 询 、 并 将 查 询 结 果 报 表 。 未 注 册 的 信 息 可 以 录 入 到 数 据 库 中 。 这 里 可 以 分 析 得 出 ： 要 实 现 客 户 基 本 信 息 的 流 动 ， 需 要 设 计 一 个 客 户 基 本 信 息 数 据 库 表 (KHXX.DBF)。 并 对 该 表 实 现 信 息 的 录 入 、 修 改 、 查 询 、 统 计 、 报 表 。 2） 、 房 屋 基 本 信 息 的 流 程 图 ： 房 屋 编 号 等 信 息 KHXXB检查是否注册输入客户相关信息 删 除 记 录 检 索 表单 报表 统计KHXXB 输入 条件 添加新记录 修改记录 SPXXB检查是否注册输入房屋相关信息 删 除 记 录 11 流 程 图 分 析 ： 从 流 程 图 上 可 以 看 出 ： 销 售 的 房 屋 基 本 信 息 的 流 动 首 先 是 以 房 屋 编 号 的 特 征 为 流 动 方 向 的 依 据 。 非 0 房 屋 编 号 可 以 继 续 流 动 ， 并 检 验 数 据 库 中 是 否 已 经 注 册 ， 已 经 注 册 的 信 息 可 以 修 改 、 查 询 、 并 将 查 询 结 果 报 表 。 未 注 册 的 信 息 可 以 录 入 到 数 据 库 中 。 这 里 可 以 分 析 得 出 ： 要 实 现 房 屋 基 本 信 息 的 流 动 ， 需 要 设 计 一 个 房 屋 基 本 信 息 数 据 库 表 (SPXX.DBF)。 并 对 该 表 实 现 信 息 的 录 入 、 修 改 、 查 询 、 统 计 、 报 表 。 3） 、 房 屋 销 售 信 息 的 流 程 图 ： 检 索 表单 报表 SPXXB 12 房 屋 编 号 等 信 息 流 程 图 分 析 ： 从 数 据 流 图 上 容 易 看 出 该 系 统 应 具 有 对 销 售 的 商 品 销 售 合 同 信 息 可 以 录 入 到 数 据 库 中 ， 可 以 修 改 甚 至 删 除 数 据 库 中 相 关 信 息 资 料 。 可 以 对 数 据 库 的 信 息 按 某 些 字 段 或 字 段 组 合 进 行 检 索 。 并 且 最 后 可 以 将 检 索 的 结 果 输 出 的 打 印 机 。 4） 、 销 售 统 计 的 流 程 图 客 户 号 职 员 号 从流出图分析可知：房屋销售管理系统可以根据客户号，销售职员号 作为统计对象，对房屋销售信息表中的数据进行统计，将统计结果保存到 临时表中，然后显示到表单对象中。 系统相关的数据存储如下： 添加新记录 修改记录 GMXXB检查是否注册输入房屋销售 合同信息 删 除 记 录 检 索 表单 GMXXB 输入统计信息 临 时 数 据 表 表单对象GMXXB 13 (1)D1: 客户信息数据(khxxb.dbf) 客户号，客户名称，客户类别，证件名称，证件号，联系电 话，地址，购买用途，购买时间 (2) D2: 房屋基本数据(spxxb.dbf) 房屋编号，项目名称，房屋类别，预售证号，销售价格，施 工单位，物业管理，交房日期，状态 (3) D3: 销售合同数据(gmxxb.dbf) 客户号，项目名称，房屋编号，销售价格，付款方式，已付 款，合同编号，合同备注，销售职员号 （4）D4: 销售计划数据(xsjh.dbf) 计划号，计划类别，计划时间，计划凛内容 （5）D3: 销售职员数据(gmxxb.dbf) 销售职员号，职员名，销售部门，所在地区，文化程度，专 业，家庭住址，入公司时间，出生年月 第三章 系统功 能模块 3.1 系统各功能模块划分 通过数据流程图已经对系统的主要功能有了一个初步的了解，下面将 系统的功能再作一些深入分析，最后得出系统的功能结构图 房屋销售管理系统是为了利用计算机实现一个房屋销售公司对整 14 个房屋销售过程进行计算机工作。因此，系统应该有一个全局管理功能， 以方便实现不同的功能的选择。也就是应具备全局管理功能。这里用总控 模块实现。由于要处理的信息包括客户信息、房屋信息、购买房屋合同信 息等的不同处理，总控模块管理有四种不同的信息的处理。即系统信息处 理、客户基本信息处理、房屋信息的处理、和购买房屋相关购买合同等的 管理。由于每种信息的处理涉及到对信息多方面的不同子功能，所以又涉 及到各自的子功能的管理。系统可以分成 4 个主模块，分别是：系统管理、 信息录入、信息查询、销售管理。 在前面的系统分析说明书中，已经从用户的角度初步地划分了本系统 的各功能模块，并且从用户的角度对主要的功能模块设置作了分析。下面 我将对每个模块的总体设计作简要说明。 系统管理分为二个子功能模块：添加操作员、修改密码，它们的具体 功能叙述如下： 添加操作员：主要是用来设置管理员和操作员各自权限。 修改密码：主要是用来修改用户密码，保证系统的安全的。可以避免 长期使用某一密码而被他人知道，从而进行非法操作造成数据丢失。 信息录入又分为五个子功能模块：客户信息录入、房屋信息录入、项 目信息录入；合同信息录入、员工信息录入。它们可以实现对信息库中的 信息记录的录入、修改、添加、删除等编辑操作。这里，房屋信息编辑子 模块是是本系统实现其它功能的基础，数据库内没有准确的数据源，那么 其它功能就没有实现的价值了。而修改，添加可以达到准确维护数据库的 15 目的。 信息查询：主要按要求根据输入内容完成客户信息、房屋信息、项目 信息；合同信息、员工信息的查询。它们的具体功能叙述如下： 1） 、 客 户 信 息 查 询 子 模 块 这 个 模 块 是 客 户 基 本 情 况 信 息 模 块 的 重 要 子 模 块 。 因 为 资 料 录 入 到 数 据 库 的 目 的 就 是 便 于 以 后 对 库 内 的 信 息 进 行 查 询 。 它 能 够 用 单 一 条 件 或 组 合 条 件 两 种 方 式 对 满 足 条 件 的 客 户 记 录 予 以 显 示 ， 力 图 从 数 据 的 任 何 一 个 角 度 反 映 整 个 数 据 表 的 信 息 。 该 模 块 将 用 SQL 语 言 实 现 ， 主 要 的 检 索 条 件 有 ： 客 户 号 、 客 户 名 称 、 客 户 证 件 号 ， 时 间 等 ， 检 索 结 果 将 显 示 在 网 格 控 件 中 。 2） 、 房 屋 信 息 查 询 子 模 块 该 模 块 可 以 实 现 对 所 有 的 商 品 资 料 从 项 目 名 称 、 房 屋 编 号 、 房 屋 类 别 ， 状 态 等 单 方 面 或 及 其 字 段 的 组 合 方 式 进 行 查 询 ， 主 要 利 用 SQL 语 句 、 DO CASEENDCASE 等 语 句 实 现 搜 索 。 并 将 搜 索 结 果 显 示 在 网 格 控 件 中 。 3） 、 合 同 信 息 查 询 子 模 块 该 模 块 可 以 实 现 对 公 司 所 销 售 的 房 屋 销 售 合 同 从 客 户 号 ， 项 目 名 称 ， 客 户 名 称 、 房 屋 编 号 、 合 同 编 号 等 单 方 面 或 及 其 字 段 的 组 合 方 式 进 行 查 询 出 相 应 的 合 同 信 息 出 来 ， 主 要 利 用 SQL 语 句 、 DO CASEENDCASE 等 语 句 实 现 索 。 并 将 搜 索 结 果 显 示 在 网 格 控 件 中 。 报表打印按查询的结果打印。它们的具体功能叙述如下： 1） 、 客 户 信 息 报 表 子 模 块 16 该 模 块 可 以 实 现 对 客 户 基 本 情 况 表 中 满 足 指 定 条 件 的 记 录 的 输 出 报 表 。 该 模 块 输 出 特 定 条 件 的 记 录 也 将 用 SQL 语 言 实 现 ， 本 文 这 里 报 表 以 预 览 方 式 表 现 。 2） 、 商 品 信 息 报 表 子 模 块 该 模 块 是 商 品 信 息 模 块 的 重 要 组 成 部 分 。 对 数 据 库 中 符 合 用 户 需 求 的 信 息 最 终 需 要 可 以 报 表 打 印 出 来 。 该 模 块 真 是 实 现 这 一 功 能 需 求 的 。 它 可 以 将 满 足 用 户 查 询 条 件 的 记 录 报 表 。 3） 、 合 同 信 息 报 表 子 模 块 该 模 块 是 将 销 售 合 同 以 及 相 关 的 信 息 打 印 报 表 ， 报 表 可 以 是 对 整 个 合 同 库 表 的 所 有 信 息 。 也 可 以 是 满 足 用 户 的 查 询 条 件 的 信 息 。 可 以 灵 活 的 满 足 用 户 的 使 用 需 求 。 在此基础上，总结得到如下的系统功能框图： 3.2 系统功能模块结 构 图 系统主界面 房屋销售管理系统 系 统 管 理 信 息 录 入 信 息 查 询 销 售 管 理 退 出 系 统 添 加 操 作 员 密 码 修 改 退 出 系 统 客 户 信 息 录 入 房 屋 信 息 录 入 项 目 信 息 录 入 合 同 信 息 录 入 员 工 信 息 录 入 客 户 信 息 查 询 房 屋 信 息 查 询 项 目 信 息 查 询 合 同 信 息 查 询 员 工 信 息 查 询 销 售 计 划 销 售 统 计 17 系 统 功 能 结 构 图 第四章 系统数据结构 4.1 数 据 字 典 ： 数 据 字 典 是 关 于 数 据 的 信 息 的 集 合 ， 也 就 是 对 数 据 流 图 中 包 含 的 所 有 元 素 的 定 义 的 集 合 。 任 何 字 典 最 主 要 的 用 途 都 是 供 人 查 阅 对 不 了 解 的 条 目 的 解 释 。 数 据 字 典 的 作 用 是 在 软 件 分 析 和 设 计 的 过 程 中 给 人 提 供 关 于 数 据 的 描 述 信 息 。 数 据 字 典 和 数 据 流 图 共 同 构 成 系 统 的 逻 辑 模 型 ， 没 有 数 据 字 典 数 据 流 图 就 不 严 格 ， 然 而 没 有 数 据 流 图 数 据 字 典 也 难 于 发 挥 作 用 。 只 有 数 据 流 图 和 对 数 据 流 图 的 精 确 定 义 放 在 一 起 ， 才 能 共 同 构 成 系 统 的 规 格 说 明 。 系 统 开 发 时 ， 常 用 卡 片 的 形 式 书 写 保 存 描 述 一 个 数 据 元 素 。 下 面 给 出 本 系 统 的 主 要 数 据 元 素 的 数 据 字 典 卡 片 ： 名 字 ： 客 户 号 18 描 述 ： 唯 一 地 标 识 客 户 资 料 库 中 的 一 个 特 定 客 户 的 关 键 域 定 义 ： 客 户 号 8字 符 8 位 置 ： 客 户 信 息 、 合 同 信 息 名 字 ： 房 屋 号 描 述 ： 唯 一 地 标 识 房 屋 库 中 的 房 屋 的 关 键 域 定 义 ： 房 屋 编 号 8字 符 8 位 置 ： 房 屋 信 息 合 同 信 息 名 字 ： 客 户 查 询 报 表 描 述 ： 用 户 指 定 条 件 下 的 客 户 查 询 结 果 的 信 息 表 位 置 ： 输 出 到 打 印 机 名 字 ： 房 屋 查 询 报 表 描 述 ： 用 户 指 定 条 件 下 的 商 品 查 询 结 果 的 成 绩 表 位 置 ： 输 出 到 打 印 机 4.2 数 据 库 表 结 构 为 了 实 现 以 上 分 析 中 涉 及 的 相 应 功 能 ， 结 合 本 系 统 对 有 关 数 据 的 存 储 的 需 要 ， 更 加 方 便 实 现 该 系 统 的 所 有 功 能 ， 现 将 本 系 统 主 要 设 计 成 5 个 数 据 库 表 ， 每 个 表 的 字 段 名 、 类 型 、 宽 度 设 计 如 下 ： 19 1客 户 信 息 表 （ khxxb.dbf） ： 字 段 名 类 型 宽 度 客 户 号 字 符 型 7 客 户 名 称 字 符 型 30 客 户 类 别 字 符 型 4 证 件 名 称 字 符 型 20 证 件 号 字 符 型 25 联 系 电 话 字 符 型 16 地 址 字 符 型 30 购 买 用 途 字 符 型 10 购 买 时 间 日 期 型 8 2商 品 基 本 信 息 表 （ spxxb.dbf） ： 该 表 用 来 存 放 公 司 所 有 的 房 屋 基 本 信 息 。 字 段 名 类 型 宽 度 房 屋 编 号 字 符 型 10 项 目 名 称 字 符 型 20 房 屋 类 别 字 符 型 10 预 售 证 号 字 符 型 10 销 售 价 格 数 值 型 10 施 工 单 位 字 符 型 30 物 业 管 理 字 符 型 30 20 交 房 日 期 日 期 型 8 状 态 字 符 型 4 3销 售 合 同 表 （ gmxxb.dbf） ： 该 表 用 来 存 放 所 销 售 过 的 销 售 房 屋 合 同 信 息 。 字 段 名 类 型 宽 度 客 户 号 字 符 型 7 项 目 名 称 字 符 型 20 房 屋 编 号 字 符 型 10 销 售 价 格 数 值 型 10 付 款 方 式 字 符 型 10 已 付 款 数 值 型 10 卖 出 价 字 符 型 10 合 同 编 号 字 符 型 24 合 同 备 注 备 注 型 4 销 售 职 员 号 字 符 型 10 4销 售 计 划 信 息 表 （ xsjh.bdf） ： 该 表 用 来 存 放 销 售 计 划 信 息 。 字 段 名 类 型 宽 度 计 划 号 字 符 型 10 计 划 类 别 字 符 型 10 计 划 时 间 日 期 型 8 计 划 内 容 备 注 型 4 5销 售 职 员 信 息 表 (xszy.dbf)： 该 表 用 来 存 放 销 售 职 员 信 息 。 21 字 段 名 类 型 宽 度 销 售 职 员 号 字 符 型 10 职 员 名 字 符 型 10 销 售 部 门 字 符 型 10 所 在 地 区 字 符 型 10 文 化 程 度 字 符 型 10 出 生 年 月 日 期 型 8 入 公 司 日 期 日 期 型 8 专 业 字 符 型 10 家 庭 住 址 字 符 型 10 以 上 是 本 系 统 的 库 表 结 构 的 设 计 简 要 说 明 。 第 五 章 应用系统实现 按结构化的程序设计思想，在完成了系统分析、系统设计后，就可以 进行系统实现阶段了，系统实现是每指把系统的物理模型转换成实际运行 系统的全过程。 5.1 应用程序编码 5.1.1 主程序 本应用软件的开发是严格按照微软公司开发应用程序的模式进行的， 并充分利用 Visual foxpro 面向对象的开发工具所具有的特性开发，规范各 类文件存放目录，创建项目管理。在主程序 main.prg 中初始化应用软件的 系统环境、利用 visual foxpro 自带的系统内存变量 _screen 建立各种属性， 使用自定义类 mylib.vcx(软件的启动封面)说明软件的名称、版本等其他信 22 息，并进入系统的登陆窗口。 主程序 main.prg 简要说明如下： 设置系统环境： SET SYSMENU TO CLEA DLLS CLEA ALL close all RELE ALL EXTENDED SET SYSMENU TO CLEA DLLS CLEA ALL close all RELE ALL EXTENDED SET DEFAULT TO CURDIR() ZOOM WINDOW screen MAX CLEA SET SYSMENU OFF SET CENTURY ON SET DATE TO ansi SET EXCLUSIVE OFF SET MULTILOCKS ON SET MARK TO “.“ SET STATUS OFF SET TALK OFF SET DELETED ON SET ESCAPE OFF IF WVISIBLE(“常用“) HIDE WINDOW (“常用“) ENDif _screen.closable=.f. /不能关闭应用程序 _screen.caption=“房屋销售管理系统“ /设置应用程序标题 _screen.backcolor=RGB(0,0,255) _screen.picture=“e:房屋销售管理bitsbk004.gif“ SET PATH TO e:房屋销售管理BITS, DATAS, FORM, PROG, LIB,report,menu /设置文件的搜索路径 SET CLASSLIB TO MYLIB /打开可视类库 FM=CREATEOBJECT(FACE) /创建类对象 FM.SHOW /显示类对象 =sys(2002) /关闭插入点 23 read even 主程序的运行界面如图 5.1 图 5.1 5.1.2 登录窗口设计 在数据库“房屋销售管理”中创建表 pass.dbf，保存用户名及对应的 密码，进行各自的运行权限管理，登录表单名称为“登录表单” ，数据环 境中添加表 pass.dbf，其属性设置、方法程序设计、处理事件如下： 1.“登录表单.scx”的属性设置： Thisform.showwindow=0 /设置该表单在屏幕中显示 Thisform.borderstyle=2 /设置表单的边框不能改变 Thisform.closable=.f. /不能按表单的关闭钮关闭表单 Thisform.maxbutton=.f. Thisform.minbutton=.f. /以上两句是不能最大和最小化录入表单 2. “登录表单.scx”方法程序设计： bo1.rowsourcetype=3 bo1.rowsource=sele 用户名 from pass into cursor tmp bo1.value=tmp.用户名 public numcount numcount=0 3. “登录表单.scx”按钮处理事件： locate for alltrim(用户名)=alltrim(bo1.value) and alltrim(密码) =alltrim(thisform.text1.value) 24 if !eof() if alltrim(级别)=“管理员“ public jb,username jb=1 username=alltrim(bo1.value) else public jb,username jb=0 username=alltrim(bo1.value) release thisform _screen.closable=.f. endif do form 顶层表单 else #define missmatch_loc “用户或口令错，请重新登录！“ wait window missmatch_loc timeout 1 bo1.value= thisform.text1.value= thisform.text1.setfocus numcount=numcount+1 if numcount=4 numcount=0 mess =messagebox(“三次口令错，将退出程序！“,4+16+2,“ 退出“) clear event release thisform endif endif 登录窗口运行界面如图 5.1.2 25 图 5.1.2 密码验证通过后，运行“顶层表单.scx”并加载应用程序主菜单。 5.1.3 顶层表单（窗口）的设计过程、主要属性、方法程序如下： 1. 顶层表单的主要属性： Thisform.Caption=房屋销售管理系统 定义顶层窗口的标题 Thisform.autocenter=.t. /自动居中 Thisform.backcolor=0,0,255 /定义窗口的背景颜色为蓝色 Thisform.showwindow=2 /为顶层窗口 Thisform.windowstate=2 /表单运行时窗口最大 Thisform.windowstate=1 /表单为模式表单 2.顶层表单的方法程序设计： estroy event 方法程序设计语句如下： CLEAR EVENTS /停止在主程序中以 READ EVENTS 开始的事件处理 QUIT /退出运用程序 nit event 方法程序设计语句如下： do TJDCprogsmenu.mpr with this,.t. /在顶层窗口中加载主菜单（菜单程序 main.mpr 必须设计为在顶层表单中） oad event 方法程序设计如下： _screen.visible=.f. /使 visual foxpro 主窗口为不可见 26 3“顶层表单.scx”运行界面如图 5.1.3 图 5.1.3 5.2 主要功能模块设计 模块功能基本与主菜单项相对应，基本上也是菜单项的功能。 5.2.1 系统设置功能设计 1、密码修改功能设计 1)、密码修改表单名称为“密码修改表单.scx” ，其属性设置、命令按钮 “修改”的设计代码如下： （1） “密码修改表单.scx”的属性设置： Thisform.showwindow=1 /设置该表单在顶层表单.scx 中显示 Thisform.borderstyle=2 /设置表单的边框不能改变 Thisform.closable=.f. /不能按表单的关闭钮关闭表单 Thisform.maxbutton=.f. Thisform.minbutton=.f. /以上两句是不能最大和最小化录入表单 （2） 命令按钮“修改”的设计代码： if empty(thisform.text4.value) mess=messagebox(“用户名不能为空！“,48,“警告“) 27 else if empty(thisform.text1.value) mess=messagebox(“旧密码不能为空！“,48,“警告“) else if empty(thisform.text2.value) mess=messagebox(“新密码不能为空！“,48,“警告“) else if empty(thisform.text3.value) mess=messagebox(“重复密码不能为空！“,48,“警告“) else if alltrim(thisform.text2.value)len(alltrim(thisform.text3.value) mess=messagebox(“二次密码不一致！“,48,“警告“) else locate for 用户名=alltrim(thisform.text4.value) and 密码 =alltrim(thisform.text1.value) if eof() mess=messagebox(“密码错误，系统将取消你的修改权利！ “,48,“警告“) thisform.release else repl 密码 with alltrim(thisform.text3.value) mess=messagebox(“密码修改成功！“,48,“信息“) endif endif endif endif endif endif 2)、密码修改运行界面如图 28 图 2、添加操作员功能设计 1)、添加操作员表单运行界面如下图 图 2)、添加操作员表单名称为“添加操作员.scx” ，它的属性方法程序及 按钮的设计代码如下： (1).“添加操作员 .scx”的属性设置： Thisform.showwindow=1 /设置该表单在顶层表单.scx 中显示 Thisform.borderstyle=2 /设置表单的边框不能改变 Thisform.closable=.f. /不能按表单的关闭钮关闭表单 Thisform.maxbutton=.f. 29 Thisform.minbutton=.f. /以上两句是不能最大和最小化录入表单 (2).“添加操作员 .scx”的方法程序： set dele on with thisform.grid1 .recordsourcetype=1 .recordsource=“pass“ .columncount=3 .column1.controlsource=“pass.用户名“ .column1.header1.caption=“用户名“ .column1.header1.alignment=2 .column1.width=100 .column1.readonly=.t. .column2.controlsource=“pass.联系电话“ .column2.header1.caption=“联系电话“ .column2.header1.alignment=2 .column2.width=100 .column2.readonly=.t. .column3.controlsource=“pass.级别“ .column3.header1.caption=“用户级别“ .column3.header1.alignment=2 .column3.width=100 .column3.readonly=.t. endwith thisform.grid1.setfocus thisform.grid1.refresh() (3).“添加操作员 .scx”中的命令按钮的事件处理程序： a、按钮 command1“第一个”的代码 go top /回到第一个记录 thisform.grid1.setfocus /设置焦点到文本录入框上 30 thisform.grid1.refresh /刷新表单 b、按钮 command2“上一个”的代码 skip-1 /向前跳一个 if bof() /判断记录指针是否停留在第一个记录上 ? chr(7) =messagebox(“警告，这已经是第一条记录！“,48,“信息窗口“)/在窗口上显示“警告，这已经 是第一条记录”提示信息 go top endif thisform.grid1.setfocus /设置焦点到文本录入框上 thisform.grid1.refresh /刷新表单 c、按钮 command3“下一个”的代码 skip if eof() ? chr(7) =messagebox(“警告，这已经是最后一条记录！“,48,“信息窗口“) go bottom endif thisform.grid1.setfocus thisform.grid1.refresh d、按钮 command4“最后一个”的代码 go bottom thisform.grid1.setfocus thisform.grid1.refresh e、 “编辑” 按钮的代码 if mand5.caption=编辑 thisform.text1.readonly=.f. thisform.text2.readonly=.f. thisform.text3.readonly=.f. bo1.readonly=.f. mand5.caption=保存 mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. mand6.enabled=.f. mand7.enabled=.f. mand8.enabled=.f. 31 else mand5.caption=编辑 thisform.text1.readonly=.t. thisform.text2.readonly=.t. thisform.text3.readonly=.t. bo1.readonly=.t. mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.t. mand4.enabled=.t. mand6.enabled=.t. mand7.enabled=.t. mand8.enabled=.t. endif thisform.grid1.setfocus thisform.grid1.refresh 由 于 文 本 框 的 和 数 据 库 字 段 的 绑 定 ， 所 以 这 个 编 辑 不 需 要 repl with 这 个 语 句 就 可 以 实 现 。 f、 “添加 ”按钮的代码 if mand6.caption=添加 thisform.text1.readonly=.f. thisform.text2.readonly=.f. thisform.text3.readonly=.f. bo1.readonly=.f. mand6.caption=保存 mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. mand5.enabled=.f. mand7.enabled=.f. 32 mand8.enabled=.f. appe blan else mand6.caption=添加 thisform.text1.readonly=.t. thisform.text2.readonly=.t. thisform.text3.readonly=.t. bo1.readonly=.t. mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.t. mand4.enabled=.t. mand5.enabled=.t. mand7.enabled=.t. mand8.enabled=.t. endif thisform.grid1.setfocus thisform.grid1.refresh 添 加 按 纽 和 编 辑 按 纽 的 click 事 件 类 似 ： 只 是 多 了 一