Lazarus - 错误提示：发生了异常

第 七 章 POS-- 卖 场 终 端 系 统 的 demo对 于 商 场 终 端 系 统 , 涉 及 到 销 售 , 打 印 , 钱 箱 等 控 制 , 我 们 这 个 demo 暂 时只 涉 及 打 印 小 票 和 销 售 。 销 售 终 端 处 一 般 不 好 操 作 鼠 标 , 所 以 我 们 将 起 作 为 一 个单 独 的 模 态 窗 口 。 并 且 只 给 一 个 输 入 控 件 , 操 作 完 全 是 使 用 键 盘 。我 们 将 需 要 一 个 商 品 资 料 表 goods, 一 个 销 售 流 水 表 sales。字 段 类 型 说 明IdIntegerBarcode Varchar(20) 条 码Sale_price Numeric(19,2) 售 价Goods_name Varcha(50) 品 名Vip_price Numeric(19,2) 会 员 价 格有 两 个 地 方 可 以 实 现 输 入 的 字 符 拦 截 ,1 个 是 edit 的 onkeyup, 一 个 是 form的 onkeyup, 据 此 可 以 将 其 中 字 符 作 为 快 捷 键 。实 际 信 息 可 以 从 edit1.text 取 。然 后 我 们 将 在 用 户 按 下 回 车 , 自 动 添 加 一 条 数 量 为 1 的 销 售 记 录 。用 户 输 入 数 字 然 后 按 数 量 键 q, 实 现 最 后 一 条 销 售 数 量 的 变 化 。用 户 输 入 数 字 然 后 按 单 价 快 捷 键 d, 实 现 销 售 单 价 的 变 化 。用 户 输 入 f 或 者 输 入 数 字 再 按 f 实 现 付 款 。我 们 只 演 示 这 么 多 , 真 实 的 系 统 还 需 要 考 虑 断 网 , 数 据 保 存 本 地 , 发 送 到 服务 器 等 各 种 情 况 的 处 理 。我 们 看 到 , 使 用 了 vk_Q 这 样 的 宏 定 义 , 必 须 在 uses 里 面 引 用 lcltype.pp 这个 单 元 文 件 。Stringgrid 包 括 了 一 个 属 性 , 就 是 columns, 定 义 了 各 个 列 的 标 题 。 并 且 可 以设 置 各 个 列 的 图 标 。我 们 看 看 我 们 的 成 果 。