【正文】 lphi 作為開(kāi)發(fā)工具， 數(shù)據(jù)庫(kù)使用的是 SQL SERVER 2021 開(kāi)發(fā) 。其功能結(jié)構(gòu)圖如圖 21所示 。 商品資料、供貨商資料、客戶資料是進(jìn)銷存管理系統(tǒng)基本資料。 (3) 銷售管理 主要功能是 銷售 的過(guò)程中，對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行實(shí)時(shí)更新，出庫(kù)的時(shí)候，將客戶、商品等基本信息讀入數(shù)據(jù)庫(kù)表格中，主要是讀入銷售單歷史和銷售單明細(xì)歷史中；對(duì)庫(kù)存庫(kù)中對(duì) 應(yīng)的商品信息進(jìn)行修改，主要是減去銷售的商品數(shù)量；對(duì)應(yīng)于銷售單中的客戶，產(chǎn)生應(yīng)收款金額；同時(shí)打印銷售單。 (5) 系統(tǒng)管理 系統(tǒng)管理中包含系統(tǒng)用戶的權(quán)限修改功能，同時(shí)還包含有只有管理員 admin才擁有的用戶管理功能，包 括 對(duì)用戶信息的添加 、刪除、修改等操作，同時(shí)考慮到安全問(wèn)題，本系統(tǒng)對(duì)用戶對(duì)應(yīng)的密碼進(jìn)行了 MD5加密處理。 (7) 帳目查詢 主要功能是對(duì)進(jìn)貨過(guò)程中產(chǎn)生的應(yīng)付款及銷售過(guò)程中產(chǎn)生的應(yīng)收款進(jìn)行操作，輸入對(duì)應(yīng)的供貨商號(hào)或客戶編號(hào)就能查詢到對(duì)應(yīng)的應(yīng)付款或應(yīng)收款金額匯總，結(jié)算后，將對(duì)應(yīng)的記錄從應(yīng)付款或應(yīng)收款表中刪除，同時(shí)對(duì)已付款或已收款中的數(shù)據(jù)進(jìn)行更新。進(jìn)貨時(shí)，一張進(jìn)貨單對(duì)應(yīng)一個(gè)供貨商，可以向供貨商進(jìn)多種貨物。因此，一個(gè)商品可以向多個(gè)供貨商進(jìn)貨，也可以銷售給多個(gè)客戶， 只是對(duì)應(yīng)著不同的進(jìn)貨單 或 銷售單。下面畫出商品、第 4 頁(yè) 共 24 頁(yè) 供貨商、客戶三個(gè)之間的實(shí)體關(guān)系圖 (ER 圖 ): 數(shù)據(jù)庫(kù)各表設(shè)計(jì) 對(duì)于本超市進(jìn)存銷系統(tǒng)所用到的數(shù)據(jù)庫(kù)表有： 供貨商清單： 保存 關(guān)于供貨商的 資料 信息 ，如供貨商號(hào)、名稱等。 客戶清單： 保存 超市 客戶的 資料 信息 。 應(yīng)付款： 保存 進(jìn)貨過(guò)程中產(chǎn)生的應(yīng)付款信息。 權(quán)限清單： 保存 本系統(tǒng)所有使用者的權(quán)限信息。 進(jìn)貨單： 進(jìn)貨單主表 ,保存一次進(jìn)貨中的所有商品的概括信息。 進(jìn)貨單明細(xì)： 進(jìn)貨單從表，保存每一商品的進(jìn)貨信息，如進(jìn)價(jià)、稅額和倉(cāng)庫(kù)等。 銷售單：銷售單主表，保存一次銷售中的所有商品的概括信息。 銷售單明細(xì)：銷售單從表，保存每一商品的銷售信息，如銷售數(shù)量和銷售價(jià)等。 倉(cāng)庫(kù)清單：保存超市的倉(cāng)庫(kù)信息，可以用于生成數(shù)據(jù)字典。 已付款：保存超市結(jié)算“應(yīng)付款”的情況。 進(jìn)貨單與銷售單存儲(chǔ)過(guò)程 數(shù)據(jù)庫(kù)中還設(shè)計(jì)了兩個(gè)存儲(chǔ)過(guò)程，分別是 sf_進(jìn)貨單 和 sf_銷售單 ，分別用于進(jìn)貨和銷售時(shí)，對(duì)數(shù)據(jù)庫(kù)中各表的數(shù)據(jù)更新操作。 第 8 頁(yè) 共 24 頁(yè) 銷售的時(shí)候，將銷售單明細(xì)中銷售的對(duì)應(yīng)貨號(hào)數(shù)量從庫(kù)存庫(kù)對(duì)應(yīng)的記錄中減去；將銷售單明細(xì)中對(duì)應(yīng)的客戶編號(hào)、銷售價(jià)、金額等信息插入 到應(yīng)收款中，以產(chǎn)生應(yīng)收款金額；將銷售單和銷售單明細(xì)中的記錄添加于 應(yīng)的歷史表格中；清除銷售單和銷售單明細(xì)表格中的記錄。 登錄 界面上放置了一個(gè) ADOQuery1 控件，并設(shè)置它的 ConionString屬性指向的數(shù)據(jù) 庫(kù) my_jxc,用以完成數(shù)據(jù)庫(kù)的連接。若沒(méi)有找到，說(shuō)明輸入的用戶名或密碼有誤，并給出提示。特別指出，在用戶清單中查找用戶名和密碼所對(duì)應(yīng)的用戶編號(hào)的時(shí)候，由于界面上輸入的是明文，而用戶清單中的密碼字段是 32 位的密文，且 MD5 是單向加密的密碼算法，所以在查找之前，先引用 md5 單元，再 調(diào) 用MD5String( )函數(shù)對(duì)密碼框中的明文進(jìn)行加密，再用 MD5Print( )函數(shù)將加密后的密文顯示出來(lái)，賦值給 encrypt_num 變量，實(shí)際在用戶清單中找查密碼是以密文為準(zhǔn)，而非輸入的明文， 其查找用戶編號(hào) 主要 代碼如下： //保存用戶輸入的帳號(hào)和密碼 user:=。 encrypt_num:=(MD5String(pass))。select 用戶編號(hào) from 用戶清單 where 姓名 =39。39。39。and 密碼 =39。39。39。39。用戶編號(hào) 39。 之后便以用戶編號(hào)和權(quán)限名稱在權(quán)限清單中查找對(duì)應(yīng)的權(quán)限序號(hào)，若找到對(duì)應(yīng)的權(quán)限序號(hào)，說(shuō)明該用戶擁有該權(quán)限，若沒(méi)有找到權(quán)限序號(hào)，說(shuō)明該用戶沒(méi)有該權(quán)限，找到什么權(quán)限，便將 manage 和 info 窗體上對(duì)應(yīng)的按鈕 Enabled 值置為True。點(diǎn)擊對(duì)應(yīng)的按鈕，便跳轉(zhuǎn)到對(duì)應(yīng)的功能窗體上。因?yàn)楫?dāng)前 登錄 的用戶為系統(tǒng)管理員 admin，所以圖 31中顯示的 登錄 用戶名為 ad。首先是設(shè)置 ADOQuery1 的 Connection String 屬性指向 my_jxc，再設(shè)置 DataSource1 的 DataSet 屬性為 ADOQuery1，設(shè)置 DBNavigator1 和 DBGrid1 的 DataSource 屬性為 DataSource1，資料管理分為商品資料維護(hù)、供貨商資料維護(hù)和客戶資料維護(hù) ， 以 DBNavigator1 來(lái)控制刪除、插入或修改等功能。例如，點(diǎn)擊了商品資料維護(hù)，便在 ADOQuery1 的SQL 中添加這樣的語(yǔ)句： :=39。 使 DBGrid1 顯示出由數(shù)據(jù)集返回的結(jié)果，同時(shí) DBNavigator1 控 制 的商品清單中的數(shù)據(jù)。 同時(shí)，窗體上還能對(duì) 商品資料、供貨商資料、客戶資料進(jìn)行查詢，輸入對(duì)應(yīng)的拼音編碼部分或全部 便能進(jìn)行查詢。例如，點(diǎn)擊了 MainMenu 上的商品資料維護(hù)， 便為“商品拼音”，點(diǎn)擊了“查詢”按鈕時(shí)， 先判斷=’商品拼音 ’,于是對(duì)商品清單進(jìn)行查詢 。 這樣也大大地提高了系統(tǒng)使用的方便性，簡(jiǎn)單易用的圖形化操作界面，使用戶能更方便快捷學(xué)會(huì)使用。 進(jìn)貨管理 這部分實(shí)現(xiàn)對(duì)進(jìn)貨單的管理，主要提供保存進(jìn)貨單、顯示進(jìn)貨單報(bào)表和打印進(jìn)貨單并記帳的功能。進(jìn)貨日期默認(rèn)為當(dāng)前系統(tǒng)日期，制單人為前當(dāng) 登錄 用戶， 在下拉菜單中選擇業(yè)務(wù)員，這幾項(xiàng)都可以為空，但為了使數(shù)據(jù)更加詳盡，最好不要為空。 然后在 info 窗體中， DBGrid1 的雙擊事件 響應(yīng) ，判斷 =false且 =’供貨商拼音 ’，于是執(zhí)行相應(yīng)代碼，設(shè)置了兩個(gè) string 類型的變量： num,name，分別接收 [0]和 [2]中的內(nèi)容，傳遞給 input 窗體上的 和 。 其代碼如下： if (=false)and(=39。) then begin 第 11 頁(yè) 共 24 頁(yè) //將供貨商的標(biāo)號(hào)和名稱傳回進(jìn)貨單窗體 num:=[0].AsString。 :=num。 //成功后返回進(jìn)貨單 :=true。 。 接著， 選擇需要進(jìn)貨的商品。在 DBGrid1的雙擊事件里響應(yīng) ，判斷 屬性為 false且 =’商品拼音 ’，雙擊 對(duì)應(yīng)紀(jì)錄，將商品清單中的貨號(hào)、品名和銷售價(jià) 1 的信息 傳遞到進(jìn)貨單窗體中 ， 代碼如下： if (=false)and(=39。) then begin //將貨號(hào)和商品名稱傳回進(jìn)貨單窗體 num:=[0].AsString。 price:=[7].AsString。 [1,]:=num。 [6,]:=price。 。 end。 Cells [1,]指的是 StringGrid1 中當(dāng)前行第 1列所對(duì)應(yīng)的單元格。這樣便達(dá)到了，在 input 窗體上激發(fā)的變量，被兩個(gè) public 變量接收，可以被 info 窗體引用的目的。 添加倉(cāng)庫(kù)的下拉菜單與添加業(yè)務(wù)員的過(guò)程相似，只有當(dāng) 選擇了商品信息 且 點(diǎn)擊 了 “倉(cāng)庫(kù)”所對(duì)應(yīng)的列 ， 才能進(jìn)行倉(cāng)庫(kù)選擇。 點(diǎn)擊“保存進(jìn)貨單”按鈕時(shí)，將把進(jìn)貨信息插入到進(jìn)貨單和進(jìn)貨單明細(xì)兩個(gè)表格中去， 進(jìn)貨單中的一條記錄保存的是一次進(jìn)貨中向某個(gè)供貨商 所有 進(jìn)貨商品的‘總稅價(jià)合計(jì)’、‘總不含稅額’和‘總稅額’；進(jìn)貨單明細(xì)則保存的是向某個(gè)供貨商進(jìn)貨的 每 一商品所對(duì)應(yīng)的稅價(jià)合計(jì)，不含稅價(jià)和稅額等信息。例如進(jìn)貨單記錄的 插 入過(guò)程： 獲取最大編號(hào)： (39。)。最大編號(hào) 39。 如果 是 第一條記錄，插入編號(hào) ’00000’： if (maxnum=39。)or(maxnum=39。) then temp:=39。 向進(jìn)貨單中插入對(duì)應(yīng)記錄： :=39。39。+inputnum+39。39。39。++39。39。39。++39。39。39。+bo+39。39。39。++39。39。39。++39。39。39。++39。39。39。++39。39。 。點(diǎn)擊“打印進(jìn)貨單并記帳”，便可將進(jìn)貨單報(bào)表打印成 (.mdi)格式的文檔，同時(shí)執(zhí)行了 “ sf_進(jìn)貨單”存儲(chǔ)過(guò)程，以對(duì)數(shù)據(jù)庫(kù)中數(shù)據(jù)進(jìn)行實(shí)時(shí)地更新。在 Delphi 的 Packages 里，點(diǎn)擊“ Add” 按鈕，找到安裝目錄下 \Borland\Delphi7\Bin\ 添加第 13 頁(yè) 共 24 頁(yè) QuickReport 控件組。 QucikRep1 的 DataSet 屬性為ADOQuery1。其 SQL屬性中添加查詢語(yǔ)句，以對(duì)數(shù)據(jù)庫(kù)中數(shù)據(jù)進(jìn)行查詢返回?cái)?shù)據(jù)集以供報(bào)表上顯示。其界 面如圖所示： 圖 33 銷售單窗體 首先需要向 Combobox1 的下拉菜單上添加項(xiàng)目， 其代碼 與 在進(jìn)貨管理中添加業(yè)務(wù)員菜單項(xiàng)目是一樣的。同時(shí)將 output的 enabled 值置為 false。 此過(guò)程代碼與進(jìn)貨管理中選擇供 貨商 過(guò)程 的代碼類似。 然后雙擊 output 中 StringGrid1 的單元格，跳轉(zhuǎn)到庫(kù)存庫(kù) store 窗體上。 StringGrid1 的雙擊事件中，首先由 adoquery2 在商品清單里查得銷售價(jià) 1字段，由 price 變量接收。 當(dāng)點(diǎn)擊保存銷售單 后，第一條記錄編號(hào)為 ’00000’，如果不是第一條記錄，從銷售單歷史和銷售單明細(xì)歷史表 格中把最大編號(hào)讀取出來(lái) ,將其加 1，再插入到銷售單和銷售單明細(xì)表格中去。 點(diǎn)擊“打印銷售報(bào)表”按鈕，以打印出銷售單對(duì)應(yīng)報(bào)表。銷售報(bào)表與進(jìn)貨報(bào)表 的制作 大同小異，只是對(duì)應(yīng)的數(shù)據(jù)集不同，執(zhí)行的 SQL 語(yǔ)句當(dāng)然也不同。設(shè)置 ADOQuery1 控件、 ADOQuery2控件 的 ConnectionString 指向 my_jxc，以完成數(shù)據(jù)庫(kù)的連接。由于 可以對(duì) 商品拼音模糊查詢，如果不輸入商品拼音的話，系統(tǒng)會(huì)將商品拼音看成一個(gè)空字符串，便得不到查詢的真實(shí)結(jié)果 。其對(duì)應(yīng)的代碼如下： (39。)。where 庫(kù)存庫(kù) .貨號(hào) =商品清單 .貨號(hào) and 39。 (39。39。++39。39。)。39。(商品清單 .拼音編碼 like 39。%39。%39。)or39。 end。(庫(kù)存庫(kù) .倉(cāng)庫(kù) =39。39。39。))39。 。 系統(tǒng)管理 系統(tǒng)管理功能中分為“用戶管理”和“權(quán)限 設(shè)置 ”兩項(xiàng)功能?！坝脩艄芾怼惫δ苤挥泄艿?15 頁(yè) 共 24 頁(yè) 理員擁有，而“權(quán)限管理”功能，只有被授予了該權(quán)限的用戶 才 擁有。 管現(xiàn)員 可以對(duì)本系統(tǒng)的其它普通用戶的資料進(jìn)行修改 ，或給其它普通用戶授予權(quán)限。最左邊 下拉列表框 是對(duì)用戶的選擇，選擇了對(duì)應(yīng)的用戶，此時(shí)在右邊的列表框中顯示它所具有的所有權(quán)限的名稱，且在最下面的組合復(fù)選框中，將其所具有的權(quán)限名稱前面顯示有 ”√ ”，可以修改復(fù)選組合框中的內(nèi)容， 再點(diǎn)擊“確認(rèn)修改” ,即可完成對(duì) 所對(duì)應(yīng)用戶的權(quán)限的權(quán)限。系統(tǒng)管理的主要界面如下圖所示： 圖 34 權(quán)限 管理窗體 在系統(tǒng)管理窗體中， 只有當(dāng)前用戶為管理員，“用戶管理”按鈕 才可見(jiàn) ,權(quán)限功能的修改實(shí)現(xiàn)過(guò)程是這樣的 ： 首先在 ComboBox1Change 事件中，當(dāng)選擇了對(duì)應(yīng)的用戶后，執(zhí)行相關(guān)代碼 ,在 listbox 中用以更新顯示出當(dāng)前用戶名所對(duì)應(yīng)的權(quán)限名稱。select 權(quán)限名稱 from 權(quán)限清單 where 用戶編號(hào)=(select 用戶編號(hào) from 用戶清單 where 姓名 =39。39。39。39。)39。權(quán)限名稱 39。 (temp)。 end。以對(duì)應(yīng)的用戶編號(hào)和權(quán)限名稱對(duì)權(quán)限清單進(jìn)行查找，如果查找到的用戶編號(hào)不為空，說(shuō)明該用戶存在這樣的權(quán)限，便將對(duì)應(yīng) checkbox 的 checked 屬性設(shè)為 true；否則 checked 屬性為 false。select 用戶編號(hào) from 權(quán)限清單 where (用戶編號(hào)=(select 用戶編號(hào) from 用戶清單 where 姓名 =39。39。39。)) and(權(quán)限名稱 =39。39。39。)39。 。用戶編號(hào) 39。39。 另外，對(duì)于“確認(rèn)修改”按鈕響應(yīng)的事件， 首先獲取用戶編號(hào)，以用戶姓名在用戶清單里查找對(duì)應(yīng)的用戶編號(hào)賦值給臨時(shí)變量 UserName；在權(quán)限清單里查找到最大的權(quán)限序號(hào)賦值給 MaxNumber； 刪除該 用戶在權(quán)限清單里擁有的所有權(quán)限。例如對(duì)“商品資料維護(hù)”權(quán)限的修改，對(duì)應(yīng)代碼如下： if then begin order:=strtoint(MaxNumber)+1。 :=39。39。+str+39。39。+39。39。+UserNumber+39。39。+39。39。+ +39。39。+39。 。 如果當(dāng)前用戶為管理員的話，會(huì)看到系統(tǒng)管理窗體上出現(xiàn)一個(gè)“ 用戶管理 ”第 17 頁(yè) 共 24 頁(yè) 按鈕，點(diǎn)擊它會(huì)跳轉(zhuǎn)到 用戶管理 users 的窗體，如圖所示： 圖 35 用戶管理窗體 1 原文已完。編制時(shí)，我公司技術(shù)發(fā)展部、質(zhì)檢科以及項(xiàng)目部經(jīng)過(guò)精心研究、合理組織、充分利用先進(jìn)工藝，特制定本施工組織設(shè)計(jì)。 本工程由寧夏燕寶房地產(chǎn)開(kāi)發(fā)有限公司開(kāi)發(fā)，銀川市規(guī)劃建筑設(shè)計(jì)院設(shè)計(jì)。 本工程建筑面積 :27樓 。室內(nèi)地坪177。總寬 27樓 ； 30樓 m。 本