【正文】 權(quán)限，其代碼如下： (39。 在 ComboBox1Change 事件中同時也對 下方的 checkbox的 checked 屬性進(jìn)行修改。 。).AsString。 向列表框中添加查詢到的權(quán)限項目： while not do 第 16 頁 共 24 頁 begin temp:=(39。 +39。39。+ +39。39。先以用戶名在用戶清單里查詢得到對應(yīng)的用戶編號，再以用戶編號在權(quán)限清單里查詢所對應(yīng)的用權(quán)限名稱，將查找到的權(quán)限名稱添加到 listbox1 的項目中去， 查詢權(quán)限的 對應(yīng)代碼如下： :=39。點(diǎn)擊“用戶管理”按鈕，進(jìn)入到用戶管理的窗體上。 系統(tǒng)管理窗體 rights 上放置 ADOQuery ADOQuery ADOQuery3 和ADOCommand1 控件，它們的 ConnectionString 均指向 my_jxc，用以連接數(shù)據(jù)庫。作為系統(tǒng)管理員，所有權(quán)限均為其開放 ， 并且系統(tǒng)管理員的權(quán)限是不能修改的。在用戶管理功能中，可以對用戶信息進(jìn)行添加、刪除或修改等操作。 到此，便完成了庫存查詢的操作。)。39。++39。39。 (39。)。39。+ +39。39。 then begin (39。 if 39。)or39。39。39。((商品清單 .貨號 =39。)。 (39。select 庫存庫 .貨號 ,商品清單 .品名 ,商品清單 .單位 ,庫存庫 .倉庫 ,庫存庫 .庫存數(shù)量 ,庫存庫 .庫存單價 ,庫 存庫 .庫存金額 from 庫存庫 ,商品清單 39。所以先對其進(jìn)行判斷，如果為空，便不追加 對應(yīng) 查詢語句。 然后 向“查詢”按鈕里添加事件，以使輸入“貨號” 、“商品拼音” 和“倉庫”中的任意一項，便可進(jìn)行查詢。 庫存管理 這部分主要是提供 對庫存商品信息的查詢，輸入貨號、商品拼音和倉庫中的任意一項便可對庫存中商品的信息進(jìn)行查詢。點(diǎn)擊“記帳銷售單”按鈕，執(zhí)行“ sf_銷售單 ” 存儲過程，以更新數(shù)據(jù)庫中數(shù)據(jù)。 這個過程與進(jìn)貨管理中插入到進(jìn)貨單歷史和進(jìn)貨單明細(xì)歷史中相類似。貨號、品名等信息與進(jìn)貨單中執(zhí)行的過程類似，在此不再贅述。雙擊庫存庫 store 窗體上的 StringGrid1 單元，便第 14 頁 共 24 頁 將貨號、倉庫、銷售價等信息傳遞至 store 窗體上。 至此，完成了客戶選擇操作 。 然后在 info 窗體上，雙擊相應(yīng)的記錄，由 DBGrid1 的雙擊事件 響應(yīng)，通過判斷，執(zhí)行相關(guān)代碼， 將客戶編號和客戶名稱傳遞至 output 窗體上。 鼠標(biāo)點(diǎn)擊客戶下拉框 ，跳轉(zhuǎn)到資料管理窗體上，以選擇客戶。 銷售管理 銷售過程與進(jìn)貨過程類似， 這部分實(shí)現(xiàn) 對銷售的管理，提供的主要功能有“保存銷售單”、“打印銷售單報表”和“記帳銷售單” 三個功能。 ADOQuery1 控件的 ConnectionString 指向 my_jxc 數(shù)據(jù)庫，以完成數(shù)據(jù)庫的連接。 進(jìn)貨單報 表 report上，放置 QuickRep1控件、 ADOQuery1控件、 若干 QRLabel控件以標(biāo)簽文字說明，若干 QRDBText 控件，設(shè)置其 DataSet 屬性為ADOQuery1,DataField 屬性為 欲讀取的字段名 。 下面介紹一下，報表的制作： 本畢業(yè)設(shè)計所使用到的報表是用 QuickReport 控件制作的，由于 Delphi 默認(rèn)情況下沒有安裝此控件，因此需要手動添加。 然后點(diǎn)擊“顯示進(jìn)貨單報 表”，是對進(jìn)貨單報表進(jìn)行預(yù)覽。)39。39。39。,39。39。39。,39。39。39。,39。39。39。,39。39。39。,39。39。39。,39。39。39。,39。39。39。insert into 進(jìn) 貨單 ([編號 ],[供貨商號 ], [進(jìn)貨日期 ],[業(yè)務(wù)員 ],[制單人 ],[稅價合計 ],[不含稅價 ],[稅額 ]) values (39。0000039。 39。39。).asstring。 maxnum:=(39。select max(編號 ) 最大編號 from 進(jìn)貨單歷史 39。 首先是編號的插入，如果是插入的第一條記錄 ，編號為 ’00000’,如果不是插入第一條記錄，則分別是從進(jìn)貨單歷史和進(jìn)貨單明細(xì)歷史中查找出最大編號，將其加 1，再插入到進(jìn)貨單和 進(jìn)貨單明細(xì)表格中。 另外， 當(dāng)點(diǎn) 擊某條記錄的“金額”單元格時， 自動算出 對應(yīng) 進(jìn)貨 記錄 的金額、稅價與稅價合計 。 在商品入庫之前，要對所進(jìn)商品進(jìn)貨到哪個倉庫進(jìn)行選擇。 在Forminput單元文件中的接口部分的 public處 聲 明了 currentRow和 currentCol兩個整型變量， 在 implementation 部分中，由 StringGrid1 SelectCell 事件激第 12 頁 共 24 頁 發(fā)，以 currentRow 和 currentCol 來接收 Arow 和 Acol 兩個變量。 特別指出， num,name,price 分別對應(yīng)著貨號、品名和價格。 。 //成功后返回進(jìn)貨單 :=true。 [2,]:=name。 if =0 then :=1。 name:=[3].AsString。商品拼音 39。 在 StringGrid1 中 雙擊單元格，以跳轉(zhuǎn)到 資料管理的 窗體上。 end。 。 :=name。 name:=[2].AsString。供貨商拼音 39。 將供貨商號和供貨商名稱返回到進(jìn)貨單窗體 上， 以此完成了供 貨商的選擇。 進(jìn)貨單窗體如圖所示： 圖 32 進(jìn)貨單窗體 首先選擇供貨商， 鼠標(biāo)點(diǎn)擊 Combobox2 時， 對應(yīng)的 DropDown 事件響應(yīng)， 跳轉(zhuǎn)到資料管理中去，同時將 input 窗體置為不可用。 進(jìn)貨單 input 窗體上，放置 ADOQuery1 和 ADOCommand1 控件，并且設(shè)置它們的 ConnectionString 屬性指向 my_jxc，以完成數(shù)據(jù)庫的連接。這部分代碼將在 進(jìn)貨管理和銷售管是部分詳細(xì)闡述。 第 10 頁 共 24 頁 同時， DBGrid1 還有一個 鼠標(biāo) 雙擊的 響應(yīng)事件 ，因?yàn)樵谶M(jìn)貨管理或銷售管理時，選擇供貨商、商品或是客戶信息時， 需要 跳轉(zhuǎn)到資料管理窗體上， 雙擊 DBGrid1上的記錄，以把數(shù)據(jù)傳遞到進(jìn)貨單或銷售單窗體上。查詢按鈕所響應(yīng)的事件 :首先是根據(jù)label1 的 caption 內(nèi)容來判斷是對那一張表格進(jìn)行操作的，而 是由點(diǎn)擊 MainMenu 上不 同的 菜單項 而改變的。 同理，點(diǎn)擊了供貨商資料維護(hù)或是客戶資料維護(hù) 菜單 時，便向ADOQuery1 的 SQL中添加新的 SQL 語句，以使控制不同的數(shù)據(jù)集。select * from 商品清單 39。分別點(diǎn)擊 MainMenu 菜單上不同的 菜單項 ，來更新數(shù)據(jù)集，以顯示不同表格中的數(shù)據(jù)。 資料管理 資料管理窗體上放置的幾個主要控件是 DBNavigator1控件、 DBGrid1控件、ADOQuery1 控件和 DataSource1 控件。 第 9 頁 共 24 頁 圖 31 系統(tǒng)主界面 在主界面的 左 下方會顯示當(dāng)前 登錄 的用戶名字。 超市進(jìn)銷存系統(tǒng)主界面上 放置七個按鈕，分別對應(yīng)七個功能模塊 ： 資料管理、進(jìn)貨管理、銷售管理、庫存管理、系統(tǒng)管理、歷史查詢、帳目查詢。).AsString。 temp:=(39。39。+encrypt_num+39。39。39。 +user+39。39。//加密明文 //將原來的 SQL 語句清除后再添加新的 SQL 語句 :=39。 pass:=。若找到這樣的用戶編號，說明是合法用戶，再在權(quán)限清單中，查找對應(yīng)的權(quán)限，找到什么權(quán)限，便將對應(yīng)的功能按鈕所對應(yīng)的Enabled 值置為 True。 登錄 過程是：首先在用戶清單中查找輸入的用戶名和密碼所對應(yīng)的用戶編號。 3 超市進(jìn)存銷系統(tǒng)的實(shí)現(xiàn) 用戶 登錄 用戶 登錄 是一個系統(tǒng)安全性能的重要體現(xiàn)，本系統(tǒng)用到的所有密碼均通過MD5 加密。 進(jìn)貨的時候， 庫存庫中的倉庫和貨號要與進(jìn)貨單明細(xì)中的倉庫和貨號相匹配，若不匹配，證明是新的記錄，進(jìn)貨單明細(xì)中所對應(yīng)的貨號與倉庫記錄添加到庫存庫中，若匹配，證明同一商品入的是同一倉庫，便將庫存庫中的庫存數(shù)量累加新入庫的數(shù)量 ；將進(jìn)貨單明細(xì)中所對應(yīng)的 供貨商號、 稅價合計、進(jìn)貨數(shù)量、貨號等信息插入到應(yīng)付款中，以產(chǎn)生應(yīng)付款金額； 將進(jìn)貨單和進(jìn)貨單明細(xì)中的記錄添加到對應(yīng)的歷史表格中；清除進(jìn)貨單和進(jìn)貨單明細(xì)表格。 下面給出幾個主要表的具體信息： 表 21 供貨商清單 字段名 數(shù)據(jù)類型 長度 是否允許為空 字段描述 供貨商號 Char 10 否 主鍵 拼音編碼 Char 40 否 以便查詢 名稱 Varchar 80 是 地址 Varchar 80 是 郵編 Char 6 是 傳真 Varchar 20 是 電話 Varchar 20 是 電報 Varchar 20 是 銀行帳號 Varchar 20 是 庫房地址 Varchar 40 是 庫房電話 Varchar 20 是 表 22 庫存庫 字段名 數(shù)據(jù)類型 長度 是否允許為空 字段描述 貨號 Char 14 否 商品貨號 倉庫 Varchar 20 否 庫存數(shù)量 Decimal (28,6) 否 庫存金額 Decimal (28,6) 否 庫存單價 Decimal (28,6) 否 最新進(jìn)價 Decimal (28,6) 是 第 6 頁 共 24 頁 表 23 應(yīng)付款 字段名 數(shù)據(jù)類型 長度 是否允許為空 字段描述 編號 Char 14 否 主鍵 進(jìn)貨單號 Char 14 是 外鍵 貨號 Char 14 否 外鍵 供貨商號 Char 10 否 外鍵 數(shù)量 Decimal (28,6) 否 進(jìn)貨單價 Decimal (28,6) 是 金額 Decimal (28,6) 是 進(jìn)貨日期 Datetime 8 是 狀態(tài) Char 6 是 應(yīng)付 表 24 權(quán)限清單 字段名 數(shù)據(jù)類型 長度 是否允許為空 字段描述 權(quán)限序號 Int 4 否 自增字段 用戶編號 Char 6 是 外鍵 部門 Char 20 是 權(quán)限名稱 Char 30 否 表 25 用戶清單 字段名 數(shù)據(jù)類型 長度 是否允許為空 字段描述 用戶編號 Char 20 否 主鍵 部門 Char 20 是 姓名 Char 10 否 性別 Char 2 是 密碼 Varchar 32 否 MD5 加密 表 26 進(jìn)貨單 字段名 數(shù)據(jù)類型 長度 是否允許為空 字段描述 編號 Char 14 否 主鍵 供貨商號 Char 10 否 外鍵 進(jìn)貨日期 Datetime 8 是 業(yè)務(wù)員 Char 10 是 制單人 Char 10 是 稅價合計 Decimal (28,6) 是 第 7 頁 共 24 頁 不含稅價 Decimal (28,6) 是 稅額 Decimal (28,6) 是 表 27 進(jìn)貨單明細(xì) 字段名 數(shù)據(jù)類型 長度 是否允許為空 字段描述 編號 Char 14 否 主鍵 進(jìn)貨單號 Char 14 否 外鍵 貨號 Char 14 否 外鍵 進(jìn)貨數(shù)量 Decimal (28,6) 否 進(jìn)價 Decimal (28,6) 是 稅價合計 Decimal (28,6) 是 稅率 Decimal (28,6) 是 不含稅價 Decimal (28,6) 是 稅額 Decimal (28,6) 是 倉庫 Char 20 是 表 28 已付款 字段名 數(shù)據(jù)類型 長度 是否允許為空 字段描述 供貨商號 Char 10 否 主鍵 供貨商名稱 Varchar 80 是 已付金額 Decimal (28,6) 否 最近結(jié)算 Datetime 8 是 最近的結(jié)算日期 以上 便 是數(shù)據(jù)庫中的主要表 單 ，商品清單、客戶清單 與 表 21(供貨商 清單 )類似， 應(yīng)收款與表 23（應(yīng)付款）類似，銷售單與進(jìn)貨單的對應(yīng)表 單 類似 ，已收款與表 210（已 付款）類似。 已收款：保存超市結(jié)算 “應(yīng)收款”的情況。 銷售單明細(xì)歷史：保存銷售單明細(xì)歷史。 銷售單歷史：保存銷售單歷史。 商 品 貨號 條碼 拼音編碼 銷售 進(jìn)貨 供貨商 客戶 客戶編號 名 稱 名 稱 拼音編碼 拼音編碼 供貨商號 N M P Q 圖 22 商品、供貨商和客戶 ER圖 第 5 頁 共 24 頁 進(jìn)貨單明細(xì)歷史：保存進(jìn)貨單明細(xì)歷史。 進(jìn)貨單歷史： 保 存 進(jìn)貨單歷史。 用戶清單： 保存 本系統(tǒng)所有 使用 者的信息 。 應(yīng)收款： 保存 銷售過程中產(chǎn)生的應(yīng)收款信息。 庫存庫： 保 存 超市商品庫存的數(shù)量、金額等信息。 商品清