【導讀】的方案等各方面的內(nèi)容。主要是讓使用者了解此系統(tǒng)，使他們能更好的運用本系統(tǒng)，使此系統(tǒng)發(fā)揮出應有的作用。的進銷存過程進行詳細的分析,實現(xiàn)了對超市的進貨、銷售和庫存的科學管理。理和傳輸，這使得對數(shù)據(jù)庫的進一步開發(fā)和利用顯得尤為迫切。作為國內(nèi)市場的一些中小超市，他們在信息化過程中的步伐要落后大中型超市，就需要有高效的處理方式和管理方法，因此加快超市的電算化進程是必不可少的。的生產(chǎn)資料，支付工資和其他費用，繳納稅金并實現(xiàn)利潤。實習期間，我們通過對市場的調(diào)查，針對現(xiàn)在各中小超市對銷售業(yè)務的實際需要，在開發(fā)過程中，我們針對當前各超市管理特點和技術人員。過程中，我們盡量采用一些易懂易讀的接口界面，使用戶可以在短期內(nèi)完全掌握。我們設計的系統(tǒng)在功能上極貼近中小超市的使用要求。統(tǒng)的正確性放在首位，力求數(shù)據(jù)的完整，處理的正確性。加速系統(tǒng)運行和減少對系統(tǒng)資源的占用。作為一家中小型超市，他們的主要業(yè)務是

　　

【正文】 表 3：用戶表 字段名 數(shù)據(jù)類型 長度 (字節(jié) ) 備注 用戶名 文本 20 密碼 數(shù)字 8 表 4：銷售 表 字段名 數(shù)據(jù)類型 長度（字節(jié)） 備注 單據(jù)編號 文本 20 主鍵 商品編號 文本 20 單位 文本 8 單價 貨幣 16 數(shù)量 數(shù)字 16 金額 貨幣 16 銷售日期 日期 16 營業(yè)員 文本 20 外鍵 表 5：入庫 表 字段名 數(shù)據(jù)類型 長度（字節(jié)） 備注 入庫編號 文本 20 主鍵 商品編 號 文本 20 畢業(yè)設計（論文） 共 48 頁 第 31 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 計量單位 文本 8 單價 貨幣 16 數(shù)量 數(shù)字 16 金額 貨幣 16 生產(chǎn)廠商 文本 50 外鍵 出廠日期 日期 16 倉管員 文本 20 外鍵 表 6：臨時銷售表 字段名 數(shù)據(jù)類型 長度（字節(jié)） 備注 單據(jù)編號 文本 20 主鍵 商品編號 文本 20 單位 文本 8 單價 貨幣 16 數(shù)量 數(shù)字 16 金額 貨幣 16 銷售日期 日期 16 營業(yè)員 文本 20 外鍵 表 7：商品表 字段名 數(shù)據(jù)類型 長度（字節(jié)） 備注 編號 自動編號 主鍵 商品編號 文本 20 名稱 文本 40 品類 文本 20 包裝 文本 20 單位 文本 8 單價 貨幣 16 表 8：庫存表 畢業(yè)設計（論文） 共 48 頁 第 32 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 字段名 數(shù)據(jù)類型 長度（字節(jié)） 備注 商品編號 文本 20 庫存數(shù)量 數(shù)字 40 庫存金額 貨幣 20 第七章 .系統(tǒng)運行狀態(tài)與維護說明 ．系統(tǒng)運行狀態(tài) ⑴ 啟動系統(tǒng)，首先進入的系統(tǒng)的登陸界面，在登陸管理模塊中，設置了用戶名和密碼兩個項來進行系統(tǒng)登陸嚴證。本系統(tǒng)允許多用戶操作，在后臺數(shù)據(jù)庫中，設置了用戶表，進行用戶的添加，刪除和修改，同時，為了用戶的合法性，對登陸進行了次數(shù)限制，當超過嘗試登陸次數(shù)后，系統(tǒng)將自動關閉。只有當用戶輸入了正確的用戶名和密碼后，才能登陸成功，彈出歡迎界面，點確定，進入系統(tǒng)主界面。 ⑵ 進入系統(tǒng)主界面之后，里面有 5 個功能模塊，每個模塊就是系 統(tǒng)的一個子功能，其下拉菜單有相應的實現(xiàn)子模塊，點擊不同的菜單，就會出現(xiàn)不同的用戶界面，用戶畢業(yè)設計（論文） 共 48 頁 第 33 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 可以直接在上面輸數(shù)據(jù)，然后點確定按扭就可以進行數(shù)據(jù)保存。 第八章 .系統(tǒng)主要用戶界面 本系統(tǒng)采用 Delphi 來進行系統(tǒng)開發(fā)，在系統(tǒng)的界面處理中，采用分層是菜單對各個模塊進行劃分，整個系統(tǒng)總分為 5 個模塊：進貨管理模塊，銷售管理模塊，庫存管理模塊，員工管理模塊和系統(tǒng)管理模塊。其具體的用戶界面窗體如下所示： 畢業(yè)設計（論文） 共 48 頁 第 34 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 第九章 .系統(tǒng)程序代碼 主界面 var mainfm: Tmainfm。 implementation uses gzyut, ryut, sput, rkut,csut, rkcxut, rkbbut, kcut, kccxut, kcbbut, spxsut,xscxut,xsbbut, loginut, xgmmut, gyut, cshut。 {$R *.dfm} procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin gzyfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 begin czyfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 begin spfm:=(self)。 畢業(yè)設計（論文） 共 48 頁 第 35 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 。 。 end。 procedure (Sender: TObject)。 begin rkfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 begin csfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 begin rkcxfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 begin rkbbfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 begin 畢業(yè)設計（論文） 共 48 頁 第 36 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ kcfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 begin kccxfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 begin kcbbfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 begin spxsfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 begin xscxfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 畢業(yè)設計（論文） 共 48 頁 第 37 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ begin xsbbfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 begin if not logined then begin 。 logined:=true。 end。 end。 procedure (Sender: TObject)。 begin [2].Text:=datetimetostr(now())。 end。 procedure (Sender: TObject)。 begin xgmmfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 begin 。 end。 procedure (Sender: TObject)。 begin if messagedlg(39。確定退出嗎 ?39。,mtconfirmation,[mbyes,mbno],0)=mryes then 畢業(yè)設計（論文） 共 48 頁 第 38 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 。 end。 procedure (Sender: TObject)。 begin gyfm:=(self)。 。 。 end。 procedure (Sender: TObject)。 begin winexec(PChar(39。39。),SW_SHOWNORMAL)。 end。 procedure (Sender: TObject)。 begin cshfm:=(self)。 。 。 end。 end. 入庫操作源代碼 var rkfm: Trkfm。 implementation uses sput。 {$R *.dfm} procedure (Sender: TObject)。 畢業(yè)設計（論文） 共 48 頁 第 39 頁 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 裝 ┊ ┊ ┊ ┊ ┊ 訂 ┊ ┊ ┊ ┊ ┊ 線 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ begin close。 end。 procedure (Sender: TObject)。 begin //條件判斷 if (=39。39。) or (=39。39。) then begin showmessage(39。請輸入完整信息 !39。)。 exit。 end。 with adoquery do begin close。 。 (39。select * from 商品表 where 商品編號 =39。++39。39。)。 open。 if recordcount1 then begin showmessage(39。不存