畢業(yè)論文---合同管理系統(tǒng)

1、<p><b>　　合同管理系統(tǒng)</b></p><p><b>　　摘 要</b></p><p>　　合 同 管 理 系 統(tǒng) 可 幫 助 管 理 人 員 對 合 同 進 行 有 效 的 管 理 ， 方 便 、快 捷 的 簽 訂 合 同 。 對 合 同 的 管 理 ，從 根 本 上 改 變 過 去 低 效 的 手 工 簽 訂 的 方

2、 式 ，使 工 作 更 規(guī) 范 化 ，完 全 采 用 人 員 和 數(shù) 據(jù) 庫 的 管 理 工 作 方 式 。</p><p>　　經(jīng) 過 分 析 如 此 情 況 ,我 使 用 了 V F 開 發(fā) 工 具 , 利 用 其 提 供 的 各 種 面 向 對 象 的 開 發(fā) 工 具 , 尤 其 是 數(shù) 據(jù) 窗 口 這 一 能 方 便 而 簡 潔 操 縱 數(shù) 據(jù) 庫 的 智 能 化 對 象 .</p>&l

3、t;p>　　關(guān)鍵詞： 合同 管理 數(shù)據(jù)庫</p><p><b>　　引 言</b></p><p>　　隨 著 計 算 機 及 網(wǎng) 絡(luò) 技 術(shù) 的 飛 速 隨 發(fā) 展 ，網(wǎng) 絡(luò) 技 術(shù) 應(yīng) 用 在 全 球 范 圍 內(nèi) 日 益 普 及 ，當(dāng) 今 社 會 正 快 速 向 信 息 化 社 會 前 進 ，信 息 自 動 化 的 作 用 也 越 來

4、 越 大 。從 而 使 我 們 從 繁 雜 的 事 務(wù) 中 解 放 出 來 ，提 高 了 我 們 的 工 作 效 率 。</p><p>　　今 天 ，計 算 機 的 價 格 已 經(jīng) 十 分 的 低 廉 ， 性 能 卻 有 了 長 足 的 進 步 .它 已 經(jīng) 應(yīng) 用 于 許 多 領(lǐng) 域 ，計 算 機 之 所 以 如 此 流 行 的 原 因 主 要 有 以 下 幾 方 面 ：首 先 ，計 算 機 可 以 代 替

5、 人 工 進 行 許 多 繁 雜 的 勞 動 ；其 次 ，計 算 機 可 以 節(jié) 省 許 多 資 源 ；第 三 ，計 算 機 可 以 大 大 的 提 高 人 們 的 工 作 效 率 ；第 四 ，計 算 機 可 以 使 敏 感 文 檔 更 加 完 全 等 。</p><p>　　管 理 信 息 系 統(tǒng) 就 是 我 們 所 說 的 M I S ，在 強 調(diào) 管 理 ，強 調(diào) 信 息 的 現(xiàn) 代 社 會 中 它 變 得

6、 越 來 越 普 及 。M I S 是 一 門 新 的 學(xué) 科 ，它 跨 越 了 若 干 個 領(lǐng) 域 ，比 如 管 理 科 、運 籌 學(xué) 、統(tǒng) 計 學(xué) 以 及 計 算 機 科 學(xué) 。在 這 些 學(xué) 科 的 基 礎(chǔ) 上 ，形 成 信 息 收 集 和 加 工 的 方 法 , 從 而 形 成 一 個 縱 橫 交 織 的 系 統(tǒng) 。</p><p>　　20世 紀(jì) ，隨 著 全 球 經(jīng) 濟 的 蓬 勃 發(fā) 展 ，眾 多

7、經(jīng) 濟 學(xué) 家 紛 紛 提 出 了 新 的 管 理 理 論。20世 紀(jì)50年 代 ，西 蒙 提 出 管 理 依 賴 于 信 息 和 決 策 的 思 想 。同 時期 的 維 納 發(fā) 表 了 控 制 論 ，他 認(rèn) 為 管 理 是 一 個 控 制 過 程 。1958年 ，蓋 爾 寫 到 ：“ 管 理 將 以 較 低 的 成 本 得 到 及 時 準(zhǔn) 確 的 信 息 ，做 到 較 好 的 控 制”。這 個 時 期 ，計 算 機 開 始 于 會 計

8、 工 作 ，數(shù) 據(jù) 處 理 一 詞 已 經(jīng) 出 現(xiàn) 。</p><p>　　1 V F簡 介</p><p>　　VIsual FoxP ro 6.0是 經(jīng) 歷 了 FoxPro 2.5 、FoxPro 3.0 、FoxPro 5.0 等 主 要 階 段后 推 出 的 。 </p><p>　　Visual FoxPro 6.0 在 程 序 開 發(fā) 的 靈

9、 活 性 和 開 放 性 上 有 了 進 一 步 的 提 高 .簡 化 的 數(shù) 據(jù) 管 理 和 更 為 合理 的 應(yīng) 用 程 序 開 發(fā) 流 程 使 新 系 統(tǒng) 在 數(shù) 據(jù) 組 織 、定 義 數(shù) 據(jù) 庫 規(guī) 則 和 建 立 應(yīng) 用 程 序 等 方 面 變 得 更 簡 單 易 行 。利 用 可 視 化 的 設(shè) 計 工 具 和 向 導(dǎo) ，用 戶 可 以 快 速 創(chuàng) 建 表 單 、查 詢 和 報 表 。另 外 系 統(tǒng) 提 供 集 成 化 的

10、開 發(fā) 環(huán) 境 ，同 時 擁 有 功 能 強 大 的 面 向 對 象 程 序 設(shè) 計 工 具 以 及 客 戶 / 服 務(wù) 器 能 力 ，支持 OLE 及 ActiveX .</p><p>　　1.1 項 目 及 數(shù) 據(jù) 庫 管 理</p><p>　　對 項 目 及 數(shù) 據(jù) 有 更 強 的 控 制 ，能 夠 使 用 源 代 碼 管 理 產(chǎn) 品 ，同 時 在 “項 目 管 理 器” 中

11、能 看 到 組 件 的 狀 態(tài) 。數(shù) 據(jù) 庫 容 器 允 許 幾 個 用 戶 在 同 一 個 數(shù) 據(jù) 庫 中 同 時 創(chuàng) 建 或 修 改 對 象 。按 需 刷 新 的 特 性 允 許 用 戶 更 新 數(shù) 據(jù) 庫 或 項 目 的 視 圖 。“ 數(shù) 據(jù) 庫 設(shè) 計 器 ” 中 查 找 及 重 排 等 特 性 允 許 用 戶 迅 速 更 改 數(shù) 據(jù) 庫 中 對 象 的 外 觀 。 用 戶 可 以 使 用 鍵 盤 訪 問 “ 項 目 管 理 器

12、 ” 及 “ 項 目 管 理 器 ” 中 的 圖 標(biāo) ，并且 “ 數(shù) 據(jù) 庫 設(shè) 計 器 ” 可 以 幫 助 用 戶 迅 速 地 區(qū) 分 對 象 .數(shù) 據(jù) 庫 引 擎 現(xiàn) 在 支 持 更 改 與 規(guī) 則 沖 突 的 值 。保 守 式 緩 沖 可 以 更 有 效 地 處 理 記 錄 的 鎖 定 2。</p><p>　　1.2 調(diào) 試 工 具 </p><p>　　調(diào) 試 及 監(jiān) 控 應(yīng)

13、用 程 序 組 件 變 得 更 簡 便 ，在 Visual FoxPro 主 窗 口 中 打 開 調(diào) 試 工 具 的 選 項 ，同 時 可 以 選 擇 這 些 調(diào) 試 工 具 與 用 戶 的 應(yīng) 用 程 序 界 面 是 一 起 顯 示 還 是 顯 示 在 另 外 一 個 分 離 的 窗 口 中（ 這 樣 他 們 可 以不 影 響 應(yīng) 用 程 序 的 工 作 空 間 ） 。新 的 調(diào) 試 器 提 供 了設(shè) 置 新 斷 點 、跟 蹤 事 件

14、 以 及 記 錄 執(zhí) 行 代 碼 的 工 具 ，看 起 來 與 Visual C 的 調(diào) 試 環(huán) 境 很 相 似 。在“監(jiān) 視”窗 口 以 及 “局 部”窗 口 中 ，用 戶 可 以 深 入 程 序 ，查 看 屬 性 設(shè) 置 值 ，對 象 以及 數(shù) 組 元 素 的 值 。“ 調(diào) 試 輸 出”窗 口 為 顯 示 交 互 的 或 代 碼 中 的 信 息 提 供了 方 便 的 途 徑 ，同 時 它 可 以 把 結(jié) 果 輸 出 到 應(yīng) 用 程

15、序 窗 口 之 外 的 另 一 個窗 口 。</p><p>　　1.3 表 設(shè) 計 與 擴 展 的 數(shù) 據(jù) 字 典 </p><p>　　在 表 設(shè) 計 器 中 ，用 戶 可 以 在 創(chuàng) 建 字 段 時 方 便 地 添 加 索 引 ，用 戶 可 以 指 定 更 多 種 默 認(rèn) 值 ，它 們 可 以 使 表 的 設(shè) 計 迅 速 而 簡 便 。在 同 一 個 選 項 卡上 用 戶 指 定 字

16、 段 的 行 上 ，可 以 定 義 一 個 普 通 索 引 。通 過“表” 選項 卡 ，用 戶 可 以 直 接 訪 問 表 級 的 有 效 性 規(guī) 則 、觸 發(fā) 器 以 及 統(tǒng) 計 值 。新 的 默 認(rèn) 類 及 庫 屬 性 允 許 用 戶 把 一 個 字 段 指 定 為 某 個 控 件 類 型 ：當(dāng) 用 戶 把該 字 段 添 加 到 表單 上 時 ，用 戶 通 過 簡 單 的 一 步 便 創(chuàng) 建 了 所 需 的 控 件 。另外 ，Inp

17、utMask 及 Format 屬 性 可 以 幫 助 用 戶 控 制 數(shù) 據(jù) 的 顯 示 。新 的 “連 接 設(shè) 計 器 ” 可 以 平 滑 地 與 ODBC管 理 器 一 起 工 作 ，使 創(chuàng) 建 連 接 更 加 簡 便 。該 設(shè) 計 器 也 提 供 了 可 以 優(yōu) 化 連 接 的 附 加 屬 性 </p><p>　　1.4 查 詢 與 視 圖 設(shè) 計</p><p>　　現(xiàn)

18、在 創(chuàng) 建 外 部 連 接 ，為 列 指 定 別 名 ，選 擇 最 上 面 幾 條 或 百 分 之 幾的 記 錄 ，都 在 “ 查 詢 設(shè) 計 器 ” 及“ 視 圖 設(shè) 計 器” 中 完 成 。并 且 ，使 用“ 視 圖 設(shè) 計 器 ”，可 以 為 視 圖 字 段 指 定 的 表 字 段 上 可 以 指 定 的 同 樣 的 擴 展 屬 性 。</p><p>　　如 果 把 記 錄 放 進 一 個 臨 時 表 ，

19、用 戶 可 以 使 用 新 的 NOFILTER 關(guān) 鍵 字 創(chuàng)建 一 個 物 理 文 件 在 后 繼 查 詢 中 用 戶 可 以 引 用 這 個 文 件 。而 在 以 前 ，如 果查 詢 有 一 個 過 濾 器 ，就 不 能 引 用 臨 時 表 。</p><p>　　1.5 表單功能與設(shè)計</p><p>　　數(shù) 據(jù) 字 典 的 增 強 有 助 于 表 單 的 設(shè) 計 ，“ 表 單 設(shè)

20、 計 器 ” 本 身 也 更 容 易 使 用 并 且 提 供 了 更 多 的 功 能 ?！?表 單 設(shè) 計 器 ”支 持 但 文 檔 界 面（SDI）以 及 多 文 檔 界 面 （MDI）地 選 項 ，因 此 用 戶 的 應(yīng) 用 程 序 可 以 具 有 用 戶 最 希 望 的 功 能 。使 用 SDI ，用 戶 可 以 創(chuàng) 建 應(yīng) 用 程 序 窗 口 ，它 們 是 Windows 桌 面 的 子 窗 口 。新 的“ 菜 單 設(shè) 計 器

21、” 可 以 幫 助 用 戶 創(chuàng) 建 快 捷 菜 單 ，在 控 件 新 添 的 RightClick事 件 中 可 以 使 用 這 些 快 捷 菜 單 。表 單 和 控 件 有 有 了一 些 附 加 的 屬 性 和 方 法 程 序 ,可 以 幫 助 用 戶 控 制 表 單 每 一 部 分 的 感 覺 及 外 觀 。</p><p>　　在“ 屬 性” 窗 口 中 ，用 戶 可 以 選 擇 一 組 控 件 ，查 看

22、或 更 改 它 們 共 同 的 屬 性 。如 果 用 戶 需 要 更 多 的 空 間 來 查 看 或 更 新 屬 性 設(shè) 置 值 ，可 以 使 “ 屬 性 縮 放” 特 性 。使 用“ 對 齊” 工 具 ，水 平 、垂 直 居 中 以 及 其 他 放 置 方式 也 易 于 實 現(xiàn) 。由 于 具 有 格 式 化 程 序 、彩 色 顯 示 代 碼 的 選 項 以 及 增 強 的 查 找 及 替 換 特 性 ，新 的 編 輯 器 使 編 碼

23、更 為 簡 便 。快 捷 菜 單 及 鍵 盤 訪 問 的 特 性 在 整 個 產(chǎn) 品 中 可 用 ,使 用 鼠 標(biāo) 右 鍵 可 以 發(fā) 現(xiàn) 任 意 給 定 元 素 可 能 的 動 作 。</p><p>　　2 系 統(tǒng) 設(shè) 計</p><p>　　2.1系 統(tǒng) 功 能 分 析</p><p>　　系 統(tǒng) 分 析 是 信 息 系 統(tǒng) 開發(fā) 工 作 中 最 重 要 的

24、 一 環(huán) ，系 統(tǒng) 分 析 的 內(nèi) 容 主 要 是 對 合 同 進 行 有 效 管 理 ，更 加 方 便 、快 捷 地 簽 訂 合 同 ，從 而 開 發(fā) 出 符 合 用 戶 要 求的 管 理 信 息 系 統(tǒng) 。它 的 基 本 任 務(wù) 是 ：合 同 的 簽 訂 、續(xù) 簽 、修 改 、查 詢 、統(tǒng) 計 等功 能 ，并 幫 助 管 理 人 員 更 及 時 、詳 細(xì) 的 了 解 合 同 。</p><p>　　本 系 統(tǒng)

25、 采 用 原 型 法 為 開 發(fā) 的 指 導(dǎo) 思 想 。所 謂 原 型 法 是 根 據(jù) 用 戶 提 出 的要 求 ，對 有 關(guān) 方 面 作 一定 的 調(diào) 查 研 究 ，確 定 一 個 目 標(biāo) ，而 后 迅 速 的 開 發(fā) 出 一個 管 理 信 息 系 統(tǒng) 交 給 用 戶 使 用 ，并 根 據(jù) 用 戶 在 使 用 過 程 中 所 發(fā) 現(xiàn) 的 問 題 或提 出 的 新 目 標(biāo) ，不 斷 修 改 、不 斷 完 善 ，直 到 用 戶

26、滿 意 為 止 。</p><p>　　2.2系 統(tǒng) 基 本 目 標(biāo) </p><p>　　總 體 目 標(biāo) 是 ：實 現(xiàn) 對 合 同 的 管 理 ，工 作 人 員 可 以 簽 訂 合 同 。</p><p>　　對 合 同 的 管 理 ，要 從 根 本 上 改 變 過 去 低 效 的 手 工 簽 訂 的 方 式 ，使工 作 更 規(guī) 范 化 ，完 全 采 用 技 術(shù)

27、人 員 和 數(shù) 據(jù) 庫 的 管 理 工 作 。使 合 同 的 管 理能 方 便 快 捷 的 共 享 、交 流 信 息 。同 時 又 能 實 現(xiàn) 迅 速 、全 方 位 的 信 息 采 集 、信 息 處 理 ，為 使 所 有 人 員 的 查 詢 結(jié) 果 能 有 效 地 進 行 。</p><p>　　2.3本 系 統(tǒng) 的 業(yè) 務(wù) 流 程 圖 </p><p>　　合 同 管 理 系 統(tǒng) 劃 分

28、 為 四 個 子 模 塊 ：錄入 、修改 、查詢 、統(tǒng)計 。這 四 個 模塊 之 間 ，緊 密 結(jié) 合 ，共 享 信 息 資 源 ，形 成 一 種 比 較 全 面 的 合 同 管 理 解 決 方 案 。如圖：2-1</p><p>　　2.4系 統(tǒng) 詳 細(xì) 設(shè) 計</p><p>　　2.4.1 系 統(tǒng) 分 工 </p><p>　　侯 壯 志 ：負(fù) 責(zé) 系 統(tǒng) 合

29、 同 錄 入 、合 同 修 改 分 程 序 的 編 寫 。</p><p>　　陳 超 ：負(fù) 責(zé) 系 統(tǒng) 合 同 查 詢 、合 同 統(tǒng) 計 分 程 序 的 編 寫 。</p><p>　　2.4.2 系 統(tǒng) 功 能 結(jié) 構(gòu) 設(shè) 計 </p><p>　　系 統(tǒng) 邏 輯 模 型 描 述 圖：2--2</p><p>　　2.4.3 新 用 戶

30、 錄 入 模 塊 的 實 現(xiàn) 過 程</p><p>　　首 先 ，雙 擊 程 序 圖 標(biāo) ，進 入 歡 迎 登 陸 界 面 。</p><p>　　若 干 秒 后 ，進 入 系 統(tǒng) 登 陸 界 面 。 </p><p>　　選擇用戶名稱，輸入密碼，進入程序主界面。</p><p>　　根 據(jù) 不 同 要 求 ，選 擇 不 同 的 菜 單

31、 ，進 入 不 同 的 界 面</p><p>　　下面介紹新用戶錄入界面：</p><p>　　輸入戶號，合同編號，變壓器型號，賬卡號后，方可進入錄入界面。</p><p>　　此時，就 可 以 按 要 求 逐 步 完 成 合 同 的 簽 訂 。</p><p>　　錄 入 完 后 ，點 擊“生 成 合 同 ”，一 份 完 整 合 同 的

32、錄 入 就 完 成 了</p><p>　　2.4.4查 詢 模 塊 實 現(xiàn) 的 過 程</p><p>　　進 入 主 程 序 后 ，點 擊 綜 合 查 詢 ，按 各 種 不 同 的 條 件 分 類 查 詢 ，分為 基 本 資 料 查 詢 、用 電 信 息 查 詢 、供 電 方 式 查 詢 、合 同 綜 合 查 詢 、時 間 查詢 。（ 如 下 圖 所 示 ）</p>&l

33、t;p>　　點 擊 基 本 資 料 查 詢 后 ，出 現(xiàn) 以 下 界 面 ：</p><p>　　可 按 戶 號 和 用 電 方 名 稱 查 詢 ，若 想 瀏 覽 數(shù) 據(jù) 庫 中 的 全 部 用 戶 信 息 ，可 點 擊 瀏 覽 按 鈕 。</p><p>　　其 他 查 詢 方 式 和 此 查 詢 方 式 類 似 ，例 如 時 間 查 詢 。</p><p>

34、;　　如 果 欲 想 對 整 個 合 同 的 內(nèi) 容 進 行 查 詢 的 話 ，可 點 擊 綜 合 查 詢 。</p><p>　　查 詢 模 塊 的 設(shè) 計 主 要 是 根 據(jù) 用 戶 要 求 ，挑 選 出 最 常 用 的 選 項 ,已 達(dá) 到 方 便 用 戶 的 目 的 。</p><p><b>　　結(jié) 束 語</b></p><p>　

35、　經(jīng) 過 三 個 多 月 的 設(shè) 計 和 開 發(fā) ，合 同 管 理 系 統(tǒng) 基 本 開 發(fā) 完 畢 。其 功 能 基 本 符合 管 理 人 員 的 要 求 ，能 夠 方 便 、快 捷 地 完 成 合 同 的 簽 訂 ，有 效 地 對 合 同 進 行 管理 。在 整 個 應(yīng) 用 軟 件 開 發(fā) 過 程 中 使 用 原 型 法 ，并 且 根 據(jù) 面 向 對 象 的 分 析 和 設(shè)計 思 想 ，進 行 了 系 統(tǒng) 分 析 ，注 重 與 用 戶

36、 的 直 接 交 流 ，并 不 斷 修 改 原 型 以 進 一 步符 合 用 戶 要 求 。另 外 ，充 分 利 用 了 一 些 工 具 軟件 來 進 行 輔 助 分 析 和 輔 助 設(shè) 計 ，效 果 良 好 。</p><p>　　在 編 寫 這 個 軟 件 的 過 程 中 ，雖 然 我 竭 盡 全 力 ，但 由 于 水 平 有 限 ，涉 及 時 間較 短 ，錯 誤 在 所 難 免 。所 以 該 系 統(tǒng) 還

37、有 許 多 不 盡 人 意 的 地 方 ，比 如 聯(lián) 機 文 檔 比較 少 ，出 錯 處 理 不 夠 等 多 方 面 問 題 。這 些 都 有 待 進 一 步 改 善 。合 同 管理 系 統(tǒng) 在完 善之 后 可 以 順利 使 管 理 人 員 順 利 的 簽 訂 合 同 ，通 過 對 功 能 的 改 進 可 以 完 成 大 多 數(shù) 人 的 要 求 。</p><p>　　通 過 畢 業(yè) 設(shè) 計 ，我 學(xué) 到 了 很

38、 多東 西 ，使 我 對 本 校 學(xué) 習(xí) 生 活 的 一 個 總 結(jié) ，使 我在 各 個 方 面 的 知 識 得 到 充 實 和 進 一 步 系 統(tǒng) 化 ；使 我 對 軟 件 的 開 發(fā) 設(shè) 計 有 了 一 個 明 確 地 認(rèn) 識 ；使 我 對 Foxpro 有 了 一 定 的 了 解 和 掌 握 。請 各 位 老師 多 多 批 評 ，提 出 寶 貴 意 見 。</p><p><b>　　參 考 文

39、獻 </b></p><p>　　[1] 張魯.《Visual FoxPro 6.0 編程技巧與實例分析》.北京:中國水利水電出版社,1999</p><p>　　[2] 馬濤.《數(shù)據(jù)庫與程序設(shè)計》.山東:山東大學(xué)出版社,2005</p><p>　　[3] 陸勤.《數(shù)據(jù)庫原理與技術(shù)》.北京：中國水利電力出版社，2007</p><p

40、>　　[4]李小明.《計算機應(yīng)用基礎(chǔ)》.成都:電子科技大學(xué)出版社,2003 </p><p>　　[5] 羅朝盛.《Visua BASiC6.0 程序設(shè)計教程》.北京:人民郵電出版社,2005

41、 [6]楊開城.《C語言程序設(shè)計教程實驗與練習(xí)》.北京:人民郵電出版社,2005 </p><p>　　[7] 徐松林.《POwerBUilder數(shù)據(jù)應(yīng)用開發(fā)教程》.北京：清華大學(xué)出版社,2003</p><p>　　[8] 朱楊勇.《數(shù)據(jù)庫系統(tǒng)設(shè)計與開發(fā)》.北京：清華大學(xué)出版社,2007 </p><p><b>　　謝 辭</b>

42、;</p><p>　　值 此 論 文 提 交 之 際 ，我 向 所 有 幫 助 過 我 的 人 表 示 衷 心 的 感 謝 。特 別 要 感 謝我 的 指 導(dǎo) 老 師 ——文 練 紅 老 師 。在 論 文 的 資 料 搜 集 、結(jié) 構(gòu) 安 排 、撰 寫 修 改 等 諸多 方 面 ，文 練 紅 老 師 多 給 了 我 耐 心 的 指 導(dǎo) 和 無 私 的 幫 助 。在 論 文 的 最 后 階 段 ，文 練 紅 老

43、師 對 我 悉 心 指 導(dǎo) ，對 論 文 提 出 大 量 的 寶 貴 意 見 和 建 議 。正 是 在 文 練 紅 老 師 的 熱 心 幫 助 下，論 文 才 能 夠 最 終 成 功 完 成 。文 練 紅 老 師 認(rèn) 真 負(fù) 責(zé) 的 工 作 態(tài) 度 ，精 益 求 精 的 治 學(xué) 作 風(fēng) ，嚴(yán) 謹(jǐn) 求 實 的 科 學(xué) 態(tài) 度 和 深 厚 的 理 論 水 平 都 使 我 受 益 匪 淺 ，對 我 的 論 文 乃 至 今 后 的 學(xué) 業(yè) 發(fā)

44、展 都 產(chǎn) 生 深 遠(yuǎn) 的 影 響 。在 此 ，對 文 練 紅 老 師 給 予 我 的 幫 助 表 示 衷 心 的 感 謝 . 我 得 到 了 多 方 人 員 的 幫</p><p><b>　　附錄一：程序清單</b></p><p><b>　　main主程序</b></p><p>　　do setup.prg&l

45、t;/p><p>　　on shutdown quit</p><p>　　do form 歡迎使用.scx</p><p>　　read events</p><p><b>　　配置文件</b></p><p>　　SET TALK Off</p><p>　　SET NO

46、TIFY ON</p><p>　　SET CLOCK OFF</p><p>　　SET COMPATIBLE OFF</p><p>　　SET PALETTE ON</p><p>　　SET BELL ON</p><p>　　SET BELL TO '', 1</p><p

47、>　　SET SAFETY ON</p><p>　　SET ESCAPE ON</p><p>　　SET LOGERRORS ON</p><p>　　SET KEYCOMP TO WINDOWS</p><p>　　SET CARRY OFF</p><p>　　SET CONFIRM OFF</p&

48、gt;<p>　　SET BROWSEIMECONTROL OFF</p><p>　　SET STRICTDATE TO 1</p><p>　　&& TabOrdering = 0</p><p>　　&& ResWidth = 800</p><p>　　&& ResHeig

49、ht = 600</p><p>　　&& GridHorz = 12</p><p>　　&& GridVert = 12</p><p>　　&& ScaleUnits = 0</p><p>　　&& FormSetLib = </p><p>　　

50、&& FormSetClass = </p><p>　　&& FormsLib = </p><p>　　&& FormsClass = </p><p>　　SET EXACT On</p><p>　　SET NEAR OFF</p><p>　　SET ANSI

51、OFF</p><p>　　SET LOCK OFF</p><p>　　SET EXCLUSIVE ON</p><p>　　SET MULTILOCKS OFF</p><p>　　SET HEADINGS ON</p><p>　　SET DELETED On</p><p>　　SET

52、OPTIMIZE ON</p><p>　　SET UNIQUE OFF</p><p>　　SET CPDIALOG OFF</p><p>　　SET REFRESH TO 0,5</p><p>　　SET ODOMETER TO 100</p><p>　　SET BLOCKSIZE TO 64</p&g

53、t;<p>　　SET REPROCESS TO 0</p><p>　　SET COLLATE TO "PINYIN"</p><p>　　&& SCCProvider = </p><p>　　&& ProjectHookLib = </p><p>　　&&

54、; ProjectHookClass = </p><p>　　&& CrsBuffering = 1</p><p>　　&& CrsMethodUsed = 1</p><p>　　&& CrsWhereClause = 3</p><p>　　&& CrsFetchSize

55、 = 100</p><p>　　&& CrsMaxRows = -1</p><p>　　&& CrsNumBatch = 1</p><p>　　&& CrsUseMemoSize = 255</p><p>　　&& SQLDispLogin = 1</p>

56、<p>　　&& SQLTransactions = 1</p><p>　　&& SQLConnectTimeOut = 15</p><p>　　&& SQLIdleTimeOut = 0</p><p>　　&& SQLQueryTimeOut = 0</p><p&

57、gt;　　&& SQLWaitTime = 100</p><p>　　&& TMPFILES = c:\windows\temp</p><p>　　SET PATH TO </p><p>　　&& HelpTo = </p><p>　　SET HELP ON</p><

58、;p>　　&& ResourceTo = c:program files\microsoft visual studio\vfp98\foxuser.dbf</p><p>　　SET RESOURCE ON</p><p>　　STORE "c:program files\microsoft visual studio\VFP98\WIZARD.APP&q

59、uot; TO _WIZARD</p><p>　　STORE "c:program files\microsoft visual studio\VFP98\BUILDER.APP" TO _BUILDER</p><p>　　STORE "c:program files\microsoft visual studio\VFP98\CONVERT.APP&qu

60、ot; TO _CONVERTER</p><p>　　STORE "c:program files\microsoft visual studio\VFP98\SPELLCHK.APP" TO _SPELLCHK</p><p>　　STORE "c:program files\microsoft visual studio\VFP98\GENMENU.PR

61、G" TO _GENMENU</p><p>　　STORE "c:program files\microsoft visual studio\VFP98\BROWSER.APP" TO _BROWSER</p><p>　　STORE "c:program files\microsoft visual studio\VFP98\GALLERY.AP

62、P" TO _GALLERY</p><p>　　STORE "" TO _INCLUDE</p><p>　　STORE "c:program files\microsoft visual studio\VFP98\BEAUTIFY.APP" TO _BEAUTIFY</p><p>　　STORE "&

63、quot; TO _GETEXPR</p><p>　　STORE "c:program files\microsoft visual studio\VFP98\GENHTML.PRG" TO _GENHTML</p><p>　　STORE "c:program files\microsoft visual studio\VFP98\RUNACTD.PRG&

64、quot; TO _RUNACTIVEDOC</p><p>　　STORE "" TO _STARTUP</p><p>　　STORE "" TO _SAMPLES</p><p>　　STORE "c:program files\microsoft visual studio\VFP98\COVERAGE.AP

65、P" TO _COVERAGE</p><p>　　SET SYSFORMATS OFF</p><p>　　SET SECONDS ON</p><p>　　SET CENTURY OFF</p><p>　　&& CurrSymbol = $</p><p>　　SET CURRENCY

66、LEFT</p><p>　　SET CURRENCY TO "$"</p><p>　　SET HOURS TO 12</p><p>　　SET DATE TO AMERICAN</p><p>　　SET DECIMALS TO 2</p><p>　　SET FDOW TO 1</p&

67、gt;<p>　　SET FWEEK TO 1</p><p>　　SET MARK TO ""</p><p>　　SET SEPARATOR TO ","</p><p>　　SET POINT TO "."</p><p>　　&& DebugEn

68、vironment = 0</p><p>　　SET TRBETWEEN OFF</p><p>　　STORE 0.00 TO _THROTTLE</p><p>　　&& DebugOutputFileName = </p><p>　　&& TraceFontName = 宋體</p>

69、;<p>　　&& TraceFontSize = 9</p><p>　　&& TraceFontStyle = 0</p><p>　　&& WatchFontName = 宋體</p><p>　　&& WatchFontSize = 9</p><p>　　

70、&& WatchFontStyle = 0</p><p>　　&& LocalsFontName = 宋體</p><p>　　&& LocalsFontSize = 9</p><p>　　&& LocalsFontStyle = 0</p><p>　　&&

71、 OutputFontName = 宋體</p><p>　　&& OutputFontSize = 9</p><p>　　&& OutputFontStyle = 0</p><p>　　&& CallstackFontName = 宋體</p><p>　　&& Calls

72、tackFontSize = 9</p><p>　　&& CallstackFontStyle = 0</p><p>　　&& TraceNormalColor = RGB(0,0,0,255,255,255), Auto, Auto</p><p>　　&& TraceExecutingColor = RGB(2

73、55,255,0,0,0,0), NoAuto, Auto</p><p>　　&& TraceCallstackColor = RGB(0,0,0,192,192,192), Auto, Auto</p><p>　　&& TraceBreakpointColor = RGB(255,0,0,0,0,0), NoAuto, Auto</p>

74、<p>　　&& TraceSelectedColor = RGB(255,255,255,0,0,0), Auto, Auto</p><p>　　&& WatchNormalColor = RGB(0,0,0,255,255,255), Auto, Auto</p><p>　　&& WatchSelectedColor = R

75、GB(255,255,255,0,0,0), Auto, Auto</p><p>　　&& WatchChangedColor = RGB(255,0,0,255,255,255), NoAuto, Auto</p><p>　　&& LocalsNormalColor = RGB(0,0,0,255,255,255), Auto, Auto</p&

76、gt;<p>　　&& LocalsSelectedColor = RGB(255,255,255,0,0,0), Auto, Auto</p><p>　　&& OutputNormalColor = RGB(0,0,0,255,255,255), Auto, Auto</p><p>　　&& OutputSelectedC

77、olor = RGB(255,255,255,0,0,0), Auto, Auto</p><p>　　&& CallstackNormalColor = RGB(0,0,0,255,255,255), Auto, Auto</p><p>　　&& CallstackSelectedColor = RGB(255,255,255,0,0,0), Auto,

78、 Auto</p><p><b>　　歡迎使用界面</b></p><p>　　<timer1.timer></p><p>　　if thisform.label1.left<480</p><p>　　thisform.label1.left=thisform.label1.left+10<

79、/p><p><b>　　else</b></p><p>　　thisform.label1.left=0</p><p><b>　　endif</b></p><p>　　<timer2.timer></p><p>　　do form 系統(tǒng)登陸.scx<

80、/p><p>　　thisform.release</p><p><b>　　系統(tǒng)登陸界面</b></p><p>　　<command1.click>(確定)</p><p><b>　　sele 密碼表</b></p><p>　　if thisform.com

81、bo1.value=""</p><p>　　messagebox("請正確輸入用戶名！",0,"警告")</p><p><b>　　else</b></p><p>　　locate for yhm=thisform.combo1.value</p><p>

82、;　　if upper(thisform.text2.value)<>mm</p><p>　　if _tally=0</p><p>　　keycount=keycount+1</p><p>　　if keycount<3</p><p>　　messagebox("密碼輸入錯誤！",0,"

83、警告")</p><p>　　thisform.combo1.value=""</p><p>　　thisform.text2.value=""</p><p>　　thisform.combo1.setfocus()</p><p><b>　　else</b><

84、;/p><p>　　messagebox("密碼三次錯誤,無權(quán)進入系統(tǒng)！",0,"警告")</p><p>　　release keycount</p><p>　　thisform.release</p><p>　　clear events</p><p><b>　　

85、endif</b></p><p><b>　　endif</b></p><p><b>　　else</b></p><p>　　thisform.release</p><p>　　name=thisform.combo1.value</p><p>　　d

86、o form 主菜單.scx</p><p><b>　　do prog2</b></p><p><b>　　endif</b></p><p><b>　　endif</b></p><p><b>　　主窗口</b></p><p

87、>　　<form1.init></p><p>　　DO 主菜單.MPR WITH THIS,.T.</p><p><b>　　Prog1.prg</b></p><p>　　use 用電基本信息</p><p><b>　　go bottom</b></p>&l

88、t;p>　　if .not.(ALLTRIM(合同編號)="".and.ALLTRIM(戶號)="".and.ALLTRIM(用電方名稱)="")</p><p>　　insert blank</p><p><b>　　endif</b></p><p>　　do form 新

89、增用戶錄入.scx</p><p><b>　　新增用戶錄入</b></p><p>　　<command1.click>(確定)</p><p>　　thisform.command1.enabled=.f.</p><p>　　use 用電基本信息</p><p>　　bianha

90、o=thisform.text1.value</p><p>　　huhao=thisform.text2.value</p><p>　　kahao=thisform.text3.value</p><p>　　xinghao=thisform.text4.value</p><p>　　if HUHAO=""</

91、p><p>　　messagebox("無效的合同編號或用戶名！",0,"警告")</p><p>　　thisform.command1.enabled=.t.</p><p>　　thisform.refresh</p><p><b>　　else</b></p>

92、<p>　　locate for 合同編號=alltrim(bianhao).or.戶號=alltrim(huhao)</p><p>　　if found()</p><p>　　messagebox("您輸入的合同編號或戶號已經(jīng)存在,如果您要修改該合同請進入修改菜單,如果您要對新合同進行錄入,請返回后從新核對！",0,"警告")<

93、/p><p>　　thisform.command1.enabled=.t.</p><p><b>　　go bottom</b></p><p>　　thisform.text1.value=""</p><p>　　thisform.text2.value=""</p>

94、;<p>　　thisform.text3.value="" </p><p>　　thisform.text4.value=""</p><p>　　thisform.refresh</p><p><b>　　else</b></p><p><b>　

95、　go bottom</b></p><p>　　REPL O7 WITH NAME </p><p>　　thisform.release</p><p><b>　　use</b></p><p>　　do form 錄入1.scx</p><p><b>　　endif

96、</b></p><p><b>　　endif</b></p><p><b>　　錄入1</b></p><p>　　<form1.init></p><p>　　public yinhang</p><p>　　sele 用電基本信息</p

97、><p><b>　　go bottom</b></p><p>　　thisform.pageframe1.page1.text1.value="安陽市電業(yè)局"</p><p>　　thisform.pageframe1.page1.text2.value="安陽市中州路"</p><p

98、>　　thisform.pageframe1.page1.text3.value="鄭曉明"</p><p>　　thisform.pageframe1.page1.combo1.value="孫啟偉"</p><p>　　thisform.pageframe1.page1.combo3.value="0372-5110183&quo

99、t;</p><p>　　THISFORM.TEXT1.VALUE=bianhao</p><p>　　thisform.text2.value=huhao</p><p>　　thisform.text3.value=kahao</p><p>　　thisform.text4.value=xinghao</p><p&

100、gt;　　thisform.pageframe1.page1.text7.value="455000"</p><p>　　thisform.pageframe1.page1.combo2.value="安陽市工行鐵西辦"</p><p>　　thisform.pageframe1.page1.text4.value="1706020709

101、02102212103"</p><p>　　thisform.pageframe1.page1.text10.value="410500172196054"</p><p>　　thisform.pageframe1.page1.text17.value="455000"</p><p>　　thisform.pa

102、geframe1.page1.text18.value="安陽市工行"</p><p>　　yinhang="工商"</p><p>　　thisform.pageframe1.page2.text9.value="用電方"</p><p>　　thisform.pageframe1.page2.text3

103、0.value="10"</p><p>　　thisform.pageframe1.page5.text4.value="用方分支第一支持物"</p><p>　　thisform.pageframe1.page5.text5.value="第一支持物"</p><p>　　thisform.pagefr

104、ame1.page5.text6.value="供電方所有"</p><p>　　thisform.pageframe1.page5.text7.value="供用電合同的履行地為供用電產(chǎn)權(quán)分界點"</p><p>　　thisform.pageframe1.page7.text7.value="貳"</p><

105、;p>　　thisform.pageframe1.page7.text8.value="壹"</p><p>　　thisform.pageframe1.page7.text9.value="附加條款1"</p><p>　　thisform.pageframe1.page7.text10.value="附加條款2"<

106、/p><p><b>　　生成合同按鈕</b></p><p>　　command1.click</p><p>　　set exact on</p><p><b>　　public t</b></p><p>　　sele 用電基本信息</p><p>

107、;<b>　　sele 添加</b></p><p><b>　　go top</b></p><p>　　do while .not.eof()</p><p><b>　　t=字段名</b></p><p>　　replace 添加->內(nèi)容 with alltrim(

108、用電基本信息->&t)</p><p>　　if alltrim(添加->內(nèi)容)=""</p><p>　　replace 添加->內(nèi)容 with "╱"</p><p>　　sele 用電基本信息</p><p>　　repl &t with 添加->內(nèi)容<

109、;/p><p><b>　　sele 添加</b></p><p><b>　　endif</b></p><p><b>　　skip</b></p><p><b>　　enddo</b></p><p>　　thisform.re