【正文】 function ExeSqlQuery(sql： string)： TADOQuery： Var query： TADOQuery： begin try ／／判斷連接狀態(tài)是否關(guān)閉，若關(guān)閉則打開 if stClosed in DataM． ADOCon． State then 遼寧警官高等?？茖W校高職計算機畢業(yè)設計（論文） DataM． ADOCon． Open； query： 2TADOQuery． Create(ni l)： query． Connection： =DataM． ADOCon： query． Close； query． SOL． Clear： query． SOL． Add(sql)： query． Open： except result： =nil： end： result： =query； end： function ExeSqlNoOuery(sql： string)： boolean： Var query： TADOQuery： ref： integer； begin ref： =O； ／／判斷連接狀態(tài)是否關(guān)閉，若關(guān)閉則打開 if stClosed in DataM． ADOCon． State then DataM． ADOCon． Open： query： 2TADOQuery． Create(ni l)： query． Connec t i on： =DataM． ADOCon： query． Close； DataM． ADOCon． Beg i nTrans： try query． SOL． Clear： query． SOL． Add(sql)： ref： 2query． ExecSQL：／／影響的行數(shù) DataM． ADOCon． Commi tTrans： except DataM． ADOCon． Rol lbackTrans： 一 遼寧警官高等?？茖W校高職計算機畢業(yè)設計（論文） query： =nil： result： =false： end： if refO then result： =true else result： =false： end： 4． 3． 5創(chuàng)建小型超市管理系統(tǒng)中的類模塊 本系統(tǒng)包含如下類模塊： type TStaff=class StaffID： integer： StaffName： string： StaffPassword： str i ng： StaffRight： string： StaffSex： string： StaffPhone： string： StaffDuty： string： end： 這一類的定義與表 3． 1員工信息表的結(jié)構(gòu)相對應。 定義連接管理類的代碼為： type CSGLConfig=class ／／定義連接管理類 public class function getConnectionStr： string： ／／定義類的方法，得到連接字 符串 end： 4． 3． 4創(chuàng)建數(shù)據(jù)操作模塊 數(shù)據(jù)庫操作模塊提供兩種數(shù)據(jù)訪問支 持方法： ExeSqlNoQuery和 ExeSqlQuery方法。其數(shù)據(jù)庫連接字符串為： class function CSGLConfig． getConnect ionStr： begin result： =’ Provider=SQLOLEDB． 1： Password=sa； Persist Security Info=True： User ID=sa： Initial Catalog=CSGL； Data Source=(10cal)’： end； sa是 SQLServer的系統(tǒng)管理員用戶，數(shù)據(jù)庫密碼為 sa。首先啟動 Delphi 7，保存項目文件名為 market． dpr。 SELECT Staff_ID AS員工編號， Staff_Name AS員工姓名， Staff_Password AS密 碼， Staff_Right AS權(quán)限， StaffSex AS性別， Staff— Phone AS聯(lián)系電話， Staff_Duty AS職務； 4． 3創(chuàng)建項目 4。對于不熟悉數(shù)據(jù)庫結(jié)構(gòu)的用戶來說， 這些列名不易理解。進貨 (入庫 )信息表 ProuductIn的 Staff_ID與員工信息表文件 Staff的 StaffID互為參照關(guān)系，可以通過運行以下代碼，創(chuàng)建外鍵約束。 4． 2． 4創(chuàng)建約束 創(chuàng)建了數(shù)據(jù)庫表后，就可以創(chuàng)建主鍵約束了。 4． 2． 3向表中添加數(shù)據(jù) 創(chuàng)建了數(shù)據(jù)庫表后，就可以開始輸入數(shù)據(jù)了。 Staff— Password VARCHAR50)NOT NULL， Staff_Ri ght CHAR(2)NOT NULL， Staff_Sex CHAR(2)NoT NULL。 CREATE DATABASE CSGL GO 4． 2． 2創(chuàng)建表 創(chuàng)建小型超市管理系統(tǒng)數(shù)據(jù)庫 CSGL后，向 CSGL數(shù)據(jù)庫中添加一個數(shù)據(jù)文件員工信 息表文件 Staff，需運行以下代碼。 (5)創(chuàng)建信息管理模塊 包括員工信息管理模塊、商品信息管理模塊、供貨商信息管理模塊、會員信息管理 模塊、進貨信息管理模塊、銷售信息管理模塊、退貨信息管理模塊、調(diào)價信息管理模塊、 會員卡充值管理模塊等。 遼寧警官高等?？茖W校高職計算機畢業(yè)設計（論文） 第六章 主要代碼 4． 1系統(tǒng)實現(xiàn)步驟 在完成了系統(tǒng)的需求分析和設計之后，就進入系統(tǒng)的實現(xiàn)階段。 (1)供貨商信息管理模塊用例圖，如圖 524 所示： 管 理 者查 詢 供 貨 商 信 息添 加 新 供 貨 商 信 息刪 除 供 貨 商 信 息修 改 供 貨 商 信 息 圖 524 供貨商信息管理用例圖 (2)供貨商信息管理模塊活動圖，如圖 525 所示： 遼寧警官高等?？茖W校高職計算機畢業(yè)設計（論文） 供 貨 商 管 理添 加 供 貨 商 信 息修 改 供 貨 商 信 息刪 除 供 貨 商 信 息輸 入 供 貨 商 信 息確 認 供 貨 商 信 息保 存查 詢 欲 修 改 的 信 息輸 入 新 的 供 貨 商 信 息確 認 信 息保 存 供 貨 商 信 息輸 入 欲 刪 除 的 供 貨 商 信 息確 認 刪 除 信 息從 數(shù) 據(jù) 庫 表 中 刪 除 供 貨 商 信 息查 詢輸 入 查 詢 信 息確 認 查 詢 信 息 圖 525 供貨商信息管理活動圖 (3)供貨商信息管理查詢時序圖，如圖 526 所示： 管 理 員 供 貨 商 管 理 界 面 確 認 供 貨 商 清 單輸 入 管 理 帳 號供 貨 商 查 詢 信 息查 詢 供 貨 商 信 息查 詢 操 作 結(jié) 果 圖 526 供貨商信息管理查詢時序圖 (4)供貨商信息管理刪除時序圖，如圖 527 所示： 遼寧警官高等?？茖W校高職計算機畢業(yè)設計（論文） 管 理 員 輸 入 信 息 界 面 刪 除 供 貨 商 清 單輸 入 欲 刪 除 的 供 貨 商 信 息確 認 供 貨 商 信 息刪 除 供 貨 商 信 息刪 除 操 作 結(jié) 果 圖 527 供貨商信息管理刪除時序圖 (5)供貨商信息管理添加時序圖，如圖 528 所示： 管 理 員 輸 入 供 貨 商 信 息 添 加 供 貨 商 清 單輸 入 新 供 貨 商 基 本 信 息確 認 新 供 貨 商 基 本 信 息保 存 新 供 貨 商 基 本 信 息添 加 操 作 結(jié) 果 圖 528 供貨商信息管理添加時序圖 (6)供貨商信息管理修改時序圖，如圖 529 所示： 遼寧警官高等?？茖W校高職計算機畢業(yè)設計（論文） 管 理 員 輸 入 信 息 界 面 修 改 供 貨 商 清 單輸 入 欲 修 改 的 供 貨 商 信 息確 認 供 貨 商 信 息保 存 供 貨 商 信 息修 改 操 作 結(jié) 果 圖 529 供貨商信息管理修改時序圖 7. 系統(tǒng)管理模塊 系統(tǒng)用戶管理：在系統(tǒng)實行多用戶管理時 ，本模塊將為系統(tǒng)開辟多個系統(tǒng)用戶，并能對其進行簡單的信息維護，用戶名變更和密碼修改。有時，不再從某一供貨商那里采購商品時，此時要把 供貨商信息刪掉。 員工信息維護：當員工信息發(fā)生變化，或者是員工離職，換崗對相關(guān)信息發(fā)生變化時，利用此子模塊對其進行信息變更。 (1)該庫存管理模塊的用例圖，如圖 512 所示： 系 統(tǒng) 管 理 員查 詢 商 品 信 息添 加 商 品 信 息修 改 商 品 信 息刪 除 商 品 信 息 遼寧警官高等?？茖W校高職計算機畢業(yè)設計（論文） 圖 512 庫存管理用例圖 (2)庫存管理模塊活動圖，如圖 513 所示： 庫 存 管 理查 詢 添 加 刪 除 修 改輸 入 查 詢 信 息 輸 入 新 商 品 信 息 輸 入 刪 除 信 息 查 詢 欲 修 改 信 息確 認 信 息 確 認 添 加 信 息 確 認 刪 除 信 息 輸 入 新 的 商 品 信 息保 存 刪 除 商 品 信 息確 認 商 品 信 息保 存 信 息 保 存 商 品 信 息 圖 513 庫存管理模塊活動圖 (3)庫存管理查詢時序圖，如圖 514 所示： 系 統(tǒng) 管 理 員 輸 入 商 品 信 息 界 面 查 詢 商 品 + 庫 存 清 單確 認 商 品 信 息檢 索 商 品 信 息輸 入 商 品 基 本 信 息查 詢 操 作 結(jié) 果 圖 514 庫存管理查詢時序圖 (4)庫存管理添加時序圖，如圖 515 所示： 遼寧警官高等?？茖W校高職計算機畢業(yè)設計（論文） 系 統(tǒng) 管 理 員 輸 入 商 品 信 息 界 面 添 加 商 品 + 庫 存 清 單確 認 商 品 信 息添 加 商 品 信 息輸 入 新 商 品 信 息添 加 操 作 結(jié) 果 圖 515 庫存管理添加時序圖 (5)庫存管理修改時序圖，如圖 516 所示： 系 統(tǒng) 管 理 員 輸 入 商 品 信 息 界 面 修 改 商 品 + 庫 存 清 單確 認 商 品 信 息更 新 商 品 信 息輸 入 欲 修 改 商 品 信 息更 新 操 作 結(jié) 果 圖 516 商品管理修改時序圖 (6)庫存 管理刪除時序圖，如圖 517 所示： 遼寧警官高等?？茖W校高職計算機畢業(yè)設計（論文） 系 統(tǒng) 管 理 員 輸 入 商 品 信 息 界 面 刪 除 商 品 + 庫 存 清 單確 認 商 品 信 息刪 除 商 品 信 息輸 入 欲 刪 除 商 品 信 息刪 除 操 作 結(jié) 果 圖 517 庫存管理刪除時序圖 5. 職工管理模塊 在系統(tǒng)開發(fā)中，為解決超市人員流動問題，在系統(tǒng)中增添了員工 管理子模 塊，用來對超市的人員進行信息化管理，以此來提高員工的辦事效率，節(jié)約人力資源。 刪除商品信息：主要功能是刪除不再銷售的商品信息。 添加商品信息：主要功能添加新進的商品。 (1)該銷售模塊的用例圖，如圖 58 所示： 管 理 者查 詢 銷 售 信 息銷 售 信 息 盤 點 圖 58 銷售管理模塊用例圖 (2)該銷售管理模塊的活動圖，如圖 59 所示： 遼寧警官高等?？茖W校高職計算機畢業(yè)設計（論文） 查 詢輸 入 查 詢 信 息確 認 信 息盤 點查 詢 銷 售 數(shù) 量進 行 盤 點 圖 59 銷售管理模塊活動圖 (3)銷售信息查詢時序圖，如圖 510 所示： 系 統(tǒng) 管 理 員輸 入 商 品 信 息 界 面 查 詢商 品 + 銷 售 清 單輸 入 商 品 基 本 信 息確 認 商 品 信 息查 詢 商 品 信 息查 詢 操 作 結(jié) 果 圖 510 銷售信息查詢時序圖 (4)銷售盤點時序圖，如圖 511 所示： 遼寧警官高等?？茖W校高職計算機畢業(yè)設計（論文） 系 統(tǒng) 管 理 員輸 入 商 品 信 息 界 面 盤 點商 品 + 銷 售 清 單輸 入 商 品 基 本 信 息確 認 商 品 信 息查 詢 商 品 銷 售 信 息盤 點 操 作 結(jié) 果 圖 511 銷售盤點時序圖 4. 庫存管理模塊 功能：本模 塊的主要功能是商品信息的查詢和更新，庫存信息的查詢和更新。 輸入項、輸出項：本模塊的數(shù)據(jù)輸入項主要是商品的銷售單號和商品編號。在該查詢模塊中，可以按照商品的編號、銷售日期等多種方式進行商品銷售信息查詢。 (1)該進貨管理模塊的用例圖，如圖 54 所示： 遼寧警官高等?？茖W校高職計算機畢業(yè)設計（論文） 管 理 者制 定 進 貨 計 劃查 詢 進 貨 信 息 圖 54 進貨管理用例圖 (2)該進貨管理模塊的活動圖，如圖 55 所示： 進 貨 管 理制 定 進 貨 計 劃