某中小型物流企業(yè)管理信息系統開發(fā)實例

1、某中小型物流企業(yè)管理信息系統開發(fā)實例沿海省份某中小型物流企業(yè)，擁有五個大小不同的倉庫，并組建有自己的運輸車隊，擁有各種運輸車輛共19臺，企業(yè)員工人數達90多人，主要從事為周邊多家生產型企業(yè)提供原材料、產成品的倉儲管理以及運輸服務，同時也承接一些零散客戶的貨物保存與運輸業(yè)務。由于業(yè)務發(fā)展的需要，客戶對所提供的服務的要求不斷提高，企業(yè)急需一套較完善的MIS 系統，用以支持日常各種管理業(yè)務的快速處理，支持客戶對其貨物的快速查詢、各種費用的快速查詢、繳納及客戶意見反饋等工作。一、組織機構及功能分析（一）組織機構圖該物流企業(yè)組織機構較簡單，總經理下設公司辦，公司辦作為常設管理結構，組織、協調、管理倉儲、

2、運輸、財務、客戶等下級部門。如下圖：（二）功能目標MIS系統應包含絕大部分日常管理功能，主要有以下幾方面：1、MIS 系統及各部門業(yè)務初始化設置；2、完善的貨物入庫、庫存、出庫管理功能；3、完善的車輛管理、駕駛員管理、運輸業(yè)務處理功能；4、快捷、準確的各種費用統計計算功能；5、全面的客戶資料管理、分類、查詢功能，并提供客戶自主上網查詢功能；6、分級別、有條件的各種統計信息查詢功能；二、各部門主要業(yè)務及數據流程分析（一）倉庫管理包含三個方面的主要業(yè)務，分述如下：1、 入庫送貨人員將貨物及“送貨單”送達倉庫站臺，倉庫入庫組收貨員按“送貨單”驗收貨物并組織卸貨，為每件貨物填寫唯一的“碼單”。保管員將

3、貨主送達的“貨物明細單” 與“送貨單”、“碼單”相核對，如不符，返貨主“貨物異常報告”，如相符，分配庫位，錄入成“入庫單”。倉庫主管審核后，記“庫存賬”，生成“入庫收費單”，數據不再允許改動。相應DFD ：2、 出庫貨主在出庫時提供“提貨樣單”，提貨人持“提貨單”至出庫組，要求提貨。發(fā)貨員核實“提貨單”，填寫“出庫單”，然后向提貨人出具“出庫收費單”，同時生成“派車單”，并派保管員準備發(fā)貨。保管員持“派車單”組織貨物裝運，記錄實出貨物信息，填寫“碼單出庫信息表” 。倉庫主管審核記賬后，生成“庫存收費單”。并且沖抵庫存帳、在“碼單”表中記錄出庫信息，存檔。用戶繳費后，保管員開具出門證給用戶。相應

4、DFD ：3、 庫存盤點流程：倉庫主管根據需要盤點的貨物生成“盤點帳存表”，表中有生成盤點表的商品編碼、商品名稱、所屬部門、庫位、經營方式、庫存數量及盤點日期等相關信息；打印“盤點單”, 包括的項目有：商品庫位、所屬部門、類別、商品編碼、商品名稱、經營方式、實盤數量及盤點日期，這里不輸出商品的帳存數量;保管員手持“盤點單”，進行實地盤點，將數量填入“盤點單”中實盤數量處；保管員在微機中調出對應的“盤點帳存表”，將實盤的數量錄入進去，經主管檢查錄入數據的準確性后，審核生效；生成盤點盈虧表。針對商品有盤盈和盤虧的商品進行記賬。凡是有盈虧的商品列出商品編碼、名稱、實盤數量、帳存數量、成本單價、盈虧金

5、額相應DFD ：（二）運輸管理運輸管理部門下設車隊辦公室、運輸調度室、維修班共三個機構，主要承擔企業(yè)日常的車輛配置、維護、駕駛員招聘、貨物運輸調度等管理業(yè)務。1、 車隊辦與維修班：按企業(yè)要求制定“車輛購置計劃”、并招標采購；把采購回的車輛信息錄入“車輛檔案”并分配到具體車隊；（車牌號、車類、車型、購置金額、購置日期、里程數、限運重量、限運體積、行駛證號、年審日期、所屬車隊、報勤）按企業(yè)要求制定“駕駛員招聘計劃”、并實施招聘；把招聘的駕駛員信息錄入“駕駛員檔案”并分配到具體車隊；（員工號、姓名、駕駛證、駕駛類型、所屬車隊、報勤）審核各車隊送來的車輛及駕駛人員的考勤信息，并錄入至“考勤表”；審核各

6、車隊送來的車輛報修單并錄入至“車輛報修表”；相應DFD ：2、 運輸調度審核各客戶交來的運輸用車要求（派車單），不能承擔的退回；查詢運輸資源中空閑車輛及駕駛員信息，并制定相應派車任務單（派車單號、派車時間、車牌號、任務1、提貨單號1、裝貨地（倉庫）1、卸貨地1、收貨人簽字1；任務2、提貨單2. 。）；打印派車任務單，分別給客戶、車隊及駕駛員；相應DFD ：（三）費用計算企業(yè)的財務管理部門與倉儲、運輸等業(yè)務部門在經濟上，有緊密的聯系。主要承擔倉儲、運輸等部門的日常業(yè)務過程中所發(fā)生的往來費用的計算、審核、執(zhí)行等工作。簡單描述如下：基礎數據管理：負責費用核算過程中所需基礎數據的錄入、修改、刪除等管理

7、工作。具體有：1、 費用項目設置：按企業(yè)要求制定各部門的所有收費項目，如倉儲費、運輸費、裝卸費、處理費、加班費、報關費等；2、 費用類型設置：按實際具體情況，確定各部門的各種收費類型，如：按重量收費、按體積收費、按時間收費、按距離收費、按重量時間收費、按重量距離收費等；3、 計費單位設置：確定各種收費類型的計費單位，如：噸、公斤、立方、升、公里、月、日（天）等；倉儲部門費用管理：根據倉儲管理信息系統中已有的貨物入庫單和出庫單，選擇收費的各項方法、計算出應該收取的各項倉儲管理費用，并經審核后，打印出一式幾份的費用清單，分別交倉庫、貨主和提貨人，催交費用。交費完成后，打印出收款收據，并保存在信息系

8、統中。運輸部門費用管理：根據運輸管理信息系統中已有的派車（任務）單，選擇收費的各種方法、計算出各客戶應支付的運輸費用（總費用分攤），經審核后，打印出一式幾份，分別交車隊、客戶，催交費用。交費完成后，打印出收款收據，并保存在信息系統中。應收、應付賬單管理：各客戶的應收、應付賬單，由客戶已有的收費單及收款收據匯集而成。具體操作如下：輸入欲查詢的客戶名稱和時間段（默認為本月），系統從數據庫中找出相應的收費單、收款收款記錄，列表顯示。相應DFD ：（四）客戶管理1、從前面?zhèn)}儲系統或運輸系統中的客戶基本信息表中，找到相應客戶，對其已有的倉儲管理費用（入庫收費單、庫存收費單、出庫收費單）和運輸管理費用（運

9、輸收費單）進行匯總統計，得到的總費用，錄入到客戶信譽檔案；然后將該客戶已有的收款收據（倉儲收款收據、運輸收款收據）匯總統計后，錄入到客戶信譽檔案（客戶號、客戶名稱、客戶類別、初次交易時間、交易總金額、收款金額、欠款金額、信譽等級、折扣率）；最后按一定的方法（自擬），給客戶評定類別（大客戶、普通客戶、散客戶）、信譽等級、折扣率。2、根據客戶信譽檔案，統計出排名前十、或前二十位客戶，分析其所在行業(yè)、所在地域、企業(yè)規(guī)模。3、客戶利用本系統或互聯網，輸入自己的姓名、口令登錄到客戶關系信息系統，輸入查詢條件，分別從不同的數據表中，查詢出自己的貨物信息、應交費用信息、已交費用信息及信譽等級和折扣率。4、客

10、戶登錄后，可將自己的意見、留言錄入到客戶留言表中，系統根據不同的留言發(fā)送到不同的部門，各部門將處理后的結果錄入到相應客戶留言欄中。相應的DFD ：（五）統計查詢1、倉儲庫存查詢：進入本模塊后，選擇相應的倉庫，選擇相應時間，系統找到該倉庫的庫存臺帳（貨物存儲檔案），調出各貨位當時的貨物信息（碼單），形成當時庫存列表，顯示出來，并提供打印輸出功能；在顯示庫存列表中，應能進一步查詢貨物碼單的詳細情況。2、入庫出庫查詢：進入本模塊后，選擇相應的倉庫，選擇相應時間段，系統找到該倉庫該時間段的入（出）庫單表，形成入（出）庫單列表，顯示出來，并提供打印輸出功能；在顯示入（出）庫單列表中，應能進一步查詢該單的

11、詳細情況。3、運輸派車查詢：進入本模塊后，選擇相應查詢要求（如：車牌號、駕駛員、時間、提貨單號、派車單號、客戶號等），系統找到運輸信息系統中的派車（任務）單表，調出滿足條件的派車單，形成派車單列表，顯示出來，并提供打印輸出功能；在顯示派車單列表中，應能進一步查詢派車單的詳細情況。4、運輸統計查詢：進入本模塊后，選擇相應車隊、相應時間段，系統找到運輸信息系統中的派車（任務）單表，調出滿足條件的派車單，按車牌號或駕駛員進行分類匯總統計，形成每車或每人的運輸工作量匯總列表，顯示出來，并提供打印輸出功能；在顯示工作量匯總列表中，應能進一步查詢每車或每人的派車單的詳細情況。5、倉儲收入查詢：進入本模塊后

12、，選擇相應的倉庫，選擇相應時間段，系統找到倉儲管理系統中的倉儲費用清單表（應收）和倉儲收款收據表（實收），調出該倉庫該時間段的數據信息，形成倉庫收入列表，顯示出來，并提供打印輸出功能；在顯示倉庫收入列表中，應能進一步查詢每筆應收、實收的詳細情況。6、運輸收入查詢：進入本模塊后，選擇相應的車隊，選擇相應時間段，系統找到運輸管理系統中的運輸費用清單表（應收）和運輸收款收據表（實收），調出該車隊該時間段的數據信息，形成車隊收入列表，顯示出來，并提供打印輸出功能；在顯示車隊收入列表中，應能進一步查詢每筆應收、實收的詳細情況。相應DFD ：略三、MIS 系統設計 其中：倉庫資料管理：可分為倉庫信息、庫區(qū)

13、信息、庫位信息、貨物信息、客戶信息等管理模塊； 入庫管理：可分為碼單管理、異常報告管理、入庫單管理、記庫存帳等模塊；出庫管理：可分為出庫單管理、碼單出庫管理、出庫收費管理、記庫存帳等模塊；庫存管理：可分為生成盤點帳存表、打印盤點表、盤點數據錄入、盤點盈虧管理等模塊。車隊資料管理：車隊信息、車類信息、車型信息；車輛管理：購車計劃、車輛檔案、車輛考勤、車輛報修；駕駛員管理：招聘計劃、駕駛員檔案、駕駛員考勤；運輸管理：派車單管理其余略（二）運行環(huán)境設計本系統在企業(yè)內部網絡上開發(fā)運行，采用C/S開發(fā)應用模式。在企業(yè)公司辦有一臺高性能的網絡服務器，安裝有網絡操作系統WINDOWS 2000 SERVER

14、，網絡數據庫管理系統 MS SQL SERVER 2000，用于集中存放企業(yè)管理數據，為其他計算機提供數據存取服務。網絡中各部門計算機，安裝有WINDOWS 2000 PRO以上版本的操作系統，都可作為客戶機，連接到服務器上，實現數據資源共享。開發(fā)的MIS 軟件也安裝在客戶機上。在教學、實驗過程中，有網絡條件的實驗室，可參考以上配置，再加裝開發(fā)工具：DELPHI 7以上版本，也可以在單機上用前后臺的方式模擬C/S結構，前臺用DELPHI 作開發(fā)，后臺用MS SQL 2000個人版，進行實驗。（三）代碼設計本系統常用的代碼有：1、送貨單號：10位以內字符，由送貨方開出，數據寬度一般不統一；2、碼

15、單號：10位字符，由6位年月日+4位序列號組成，如：0806210003；3、入庫單號、入庫收費單號：同上；4、出庫單號、出庫收費單號、庫存收費單號：同上；5、客戶號：5位字符，其中2位代表客戶類別，后3位為序列號；6、庫區(qū)位置編號：8位字符，2位代表倉庫，3位代表庫區(qū)，3位代表庫位；7、貨物編號：10位字符，3位代表大類，3位代表小類，4位序列號；8、職工編號：5位字符，2位代表部門，3位序列號；9、異常報告編號：8位字符，6位年月日+2位序列號；（四）數據庫及表設計（倉儲管理部分）：該物流企業(yè)所有部門共用一個數據庫，名為WLMIS ，其中倉儲管理部分的主要數據表如下：1、 碼單：每包裝貨物

16、一份碼單，該表保存所有碼單信息；2、 異常報告：該表保存所有入庫異常信息；3、 入庫單：客戶每送一批貨物入庫，開具一份入庫單，該表保存所有入庫信息；4、 入庫收費單：每份入庫單對應一張入庫收費單，主要由貨物入庫裝卸費、檢驗費組成；5、 庫存帳：按庫存位置記載的當前庫存貨物擺放情況；6、 出庫單：每批貨物出庫開具一張出庫單，該表保存所有出庫信息；7、 碼單出庫表：對應一張出庫單，挑選多張碼單貨物出庫，該表保存所有碼單出庫信息；8、 庫存收費單：貨物出庫時填寫，計算保存時間、費率、金額；9、 出庫收費單：主要是出庫裝卸費；10、 派車單：（同后續(xù)運輸管理部分）：對運輸部門下達的派車調令，每張單可對

17、應多個出庫單；11、 盤點帳存單（盤點單同）：由庫存賬按盤點要求生成，一般是月底分倉庫打?。?2、 盤點盈虧表：由實際盤點數（填好的盤點單）與盤點賬存單核對而成；13、 客戶：該表保存所有客戶信息；14、 貨物：該表保存所有貨物信息；15、 倉庫：該表保存所有倉庫信息；16、 庫區(qū)：該表保存所有庫區(qū)信息；17、 庫位：該表保存所有庫位信息；18、 部門：該表保存所有部門信息；19、 職工：該表保存所有職工信息及在本系統的操作權限、進入口令；數據表的具體結構，請參看系統實施部分實驗一四、MIS 系統實施實驗一、MS SQL SERVER 2000 數據庫、表及ODBC 設置一、實驗目的：通過實驗

18、，熟悉網絡數據庫MS SQL SERVER 的基本操作，尤其是運用“企業(yè)管理器”建數據庫、表的基本技能；熟悉WINDOWS 下，ODBC 數據庫連接的設置過程。二、實驗內容：1、在SQL SERVER中，新建數據庫用戶，并授予管理員DBA 權限；2、建物流企業(yè)數據庫，如：WLMIS ；3、在數據庫中創(chuàng)建倉儲管理部分所有數據表，如：客戶、碼單等；4、在WINDOWS 的控制面板中，新建數據庫接口-ODBC 連接；三、實驗主要步驟：1、在windows 中，運行“企業(yè)管理器”，如圖： 2、在“數據庫”中，新建名為WLMIS 的數據庫，在“安全性-登錄”目錄下，新建名為“ADMIN ”的登錄，設置密

19、碼為“ADMIN ”，默認登錄數據庫為WLMIS ，默認語言為簡體中文，并設置數據庫訪問權限，如圖； 3、進入WLMIS 數據庫，點擊“表”，再點開右鍵快捷菜單，依次新建數據表： 4、新建WINDOWS 下的ODBC 連接；“控制面板”-“管理工具”-“”如下圖： 添加名為HNXT 的SQL SERVER 系統DSN ，數據源及服務器的名字均為HNXT ， 上面頁面尤為重要，不要選錯，密碼為前設置的“ADMIN ”，默認數據庫為WLMIS ，設置完成后，經測試連接成功即可。四、實驗結果：略實驗二、創(chuàng)建項目、創(chuàng)建“登錄”、“系統設置”管理界面 一、實驗目的：通過實驗，掌握DELPHI 開發(fā)MIS

20、 項目的基本方法，熟悉DELPHI 7的C/S模式下，數據庫開發(fā)工具的使用，熟悉DELPHI 編程語言的基本規(guī)則。 二、實驗內容：1、DELPHI 桌面介紹；2、簡單“登錄”界面的創(chuàng)建；3、數據源組件DBE 、DATA ACCESS、DATA CONTROLS簡介； 4、“部門管理”、“職工管理”窗體的創(chuàng)建； 三、實驗主要步驟：1、DELPHI 桌面： 共有：主功能菜單、工具按鈕、控件集合、對象列表窗、對象屬性編輯窗、可視化編輯窗體、相對應的PAS 源程序語句編輯區(qū)。2、創(chuàng)建新開發(fā)項目Project1.dpr ，保存在自己的文件夾中。如：D ：WLMIS。新項目僅有一個單元UNIT1，由一個窗

21、體FORM1和它的源程序文件UNIT1.PAS 組成。 下面開始設計第一個界面，簡單的“登錄”窗體界面。 、界面示意圖: 、相應程序UNIT1.PAS: unit Unit1;interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls; typeTForm1 = class(TForm Label1: TLabel; Label2: TLabel

22、; Edit1: TEdit; Edit2: TEdit; Label3: TLabel; Button1: TButton; Button2: TButton;procedure Button1Click(Sender: TObject; procedure Button2Click(Sender: TObject; private Private declarations public Public declarations end; varForm1: TForm1;implementationuses Unit2;$R *.dfm constiusename='ADMIN

23、9; ; ipassword='123456'procedure TForm1.Button1Click(Sender: TObject; /“進入”按鍵程序 beginif (edit1.text=iusenameand(edit2.text=ipassword then beginmessagedlg('歡迎使用物流MIS 系統！',mtinformation,mbok,0; form2.showmodal; form1.Close; end elsemessagedlg('錯誤！請重新輸入。',mtinformation,mbok,0; e

24、dit1.text:='' edit2.text:='' end;procedure TForm1.Button2Click(Sender: TObject; /“退出”按鍵程序 beginclose; end; end.3、數據源組件DBE 、DATA ACCESS、DATA CONTROLS簡介； 、DBE 數據源（數據引擎）組件：常用的有database:DataBase 組件一般用于程序與數據庫的永久連接、數據庫服務器需要用戶登錄、指定別名等一些情況下，一般情況下可不必用此組件。由于我們在本程序中需要打開網絡數據庫，所以在程序啟動后就把數據庫打開時需要的

25、用戶名和密碼都設定好，這樣在別的窗口中就無須再考慮這個問題了。、DATA ACCESS數據訪問組件：常用的有TABLE ：Table 組件是最常用的組件，絕大部分數據庫程序都要用到它，一般在設計階段放進窗體，但此組件在運行時是不可見的。用于從數據源DATABASE 中取數據，組成數據表，供前臺數據控制組件使用。、DATA CONTROLS數據控制組件：常用的有DBGRID 、DBNA VIGATOR 等： 主要是以各種形式向前臺用戶提供數據界面支持，是軟件的重要組成部分。 三種部件之間的內部關系 4、“系統設置”管理界面的實施： 、“部門設置”： 窗體所含各主要組件及屬性表： 其中：雙擊“DA

26、 TEBASE1”控件，出現下圖： 設置好NAME ，ALIAS MAME 為前面ODBC 的名稱HNXT ，設置USERNAME=ADMIN；PASSWORD=ADMIN；去掉LOGIN PROMPT 前面的選項，使程序連接后臺數據庫時自動登錄，不需要輸入用戶名和口令；UNIT3.PAS 程序代碼：unit Unit3;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, D

27、B, DBTables, ExtCtrls;typeTBMGL = class(TFormTable1: TTable;Database1: TDatabase;DataSource1: TDataSource;DBGrid1: TDBGrid;DBEdit1: TDBEdit;DBEdit2: TDBEdit;DBNavigator1: TDBNavigator;Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;private Private declarations public Public declarations

28、end;varBMGL: TBMGL;implementation$R *.dfmend.、“職工管理”：依照“部門管理”窗體建立，去掉DATABASE1組件，將TABLE1的TABLENAME 設置為DBO. 職工，并按ZG 中各字段建立相應DBEDIT 控件； UNIT4.PAS 程序代碼：unit Unit4;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBG

29、rids, DB, DBTables;typeTZGGL = class(TFormTable2: TTable;DataSource2: TDataSource;DBGrid1: TDBGrid;Label1: TLabel;Label2: TLabel;DBEdit1: TDBEdit;DBEdit2: TDBEdit;DBEdit3: TDBEdit;DBEdit4: TDBEdit;DBEdit5: TDBEdit;DBEdit6: TDBEdit;DBEdit7: TDBEdit;DBEdit8: TDBEdit;DBEdit9: TDBEdit;DBEdit10: TDBEdit;

30、DBEdit11: TDBEdit;DBEdit12: TDBEdit;Label3: TLabel;Label4: TLabel;Label5: TLabel;Label6: TLabel;Label7: TLabel;Label8: TLabel;Label9: TLabel;Label10: TLabel;Label11: TLabel;Label12: TLabel;Label13: TLabel;Label14: TLabel;DBNavigator1: TDBNavigator;private Private declarations public Public declarati

31、ons end;varZGGL: TZGGL;implementation$R *.dfmend.四、實驗結果：略實驗三、“倉庫管理”中“基本信息”、“碼單管理”模塊的實施一、實驗目的：結合倉儲系統分析，運用逐漸熟悉的DELPHI 開發(fā)工具，進入到較復雜的管理業(yè)務信息化工作中。本實驗“基本信息”模塊的實施，與實驗二中“職工管理”相似，不再重述，只要注意數據集控件TABLE n 的TABLENAME 的變動; “碼單管理”是本實驗的重點。二、實驗內容：1、“倉庫管理”模塊：、界面： 、UNIT5.PAS 程序代碼:unit Unit5;interfaceusesWindows, Messages

32、, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask;typeTCKGL = class(TFormTable3: TTable;DataSource3: TDataSource;DBGrid1: TDBGrid;Label1: TLabel;Label2: TLabel;Label3: TLabel;DBEdit1: TDBEdit;Label4: TLabel;DBEdit2: TDBE

33、dit;Label5: TLabel;DBEdit3: TDBEdit;Label6: TLabel;DBEdit4: TDBEdit;Label7: TLabel;DBEdit5: TDBEdit;DBEdit6: TDBEdit;Label9: TLabel;DBNavigator1: TDBNavigator;private Private declarations public Public declarations end;varCKGL: TCKGL;implementation$R *.dfmend.2、“庫區(qū)管理”模塊：、界面： 、UNIT6.PAS:unit Unit6;in

34、terfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask;typeTKQGL = class(TFormTable4: TTable;DataSource4: TDataSource;DBGrid1: TDBGrid;Label1: TLabel;Label2: TLabel;Label3: TLabel;DBEdit1: TDBEdit

35、;Label4: TLabel;DBEdit2: TDBEdit;Label5: TLabel;DBEdit3: TDBEdit;Label6: TLabel;DBEdit4: TDBEdit;Label7: TLabel;DBEdit5: TDBEdit;DBEdit6: TDBEdit;Label9: TLabel;DBNavigator1: TDBNavigator;private Private declarations public Public declarations end;varKQGL: TKQGL;implementation$R *.dfmend.3、“庫位管理”模塊：

36、、界面： 、UNIT7.PAS:unit Unit7;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask;typeTKWGL = class(TFormTable5: TTable;DataSource4: TDataSource;DBGrid1: TDBGrid;Label1: TLabel;Label2: TLabel;La

37、bel3: TLabel;DBEdit1: TDBEdit;Label4: TLabel;DBEdit2: TDBEdit;Label5: TLabel;DBEdit3: TDBEdit;Label6: TLabel;DBEdit4: TDBEdit;DBEdit6: TDBEdit;Label9: TLabel;DBNavigator1: TDBNavigator;private Private declarations public Public declarations end;varKWGL: TKWGL;implementation$R *.dfmend.4、“客戶管理”模塊：、界面

38、： 、UNIT8.PAS:unit Unit8;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids, DB, DBTables;typeTKHGL = class(TFormTable6: TTable;DataSource2: TDataSource;DBGrid1: TDBGrid;Label1: TLabel;Label2: TLabel;DBEdi

39、t1: TDBEdit;DBEdit2: TDBEdit;DBEdit3: TDBEdit;DBEdit4: TDBEdit;DBEdit5: TDBEdit;DBEdit6: TDBEdit;DBEdit7: TDBEdit;DBEdit8: TDBEdit; DBEdit9: TDBEdit; DBEdit10: TDBEdit; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; La

40、bel11: TLabel; Label12: TLabel;DBNavigator1: TDBNavigator; private Private declarations public Public declarations end; varKHGL: TKHGL;implementation$R *.dfm end.5、“貨物管理”模塊： 、界面： 、UNIT9.PAS: unit Unit9;interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,

41、ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids, DB, DBTables; typeTHWGL = class(TForm Table7: TTable;DataSource2: TDataSource; DBGrid1: TDBGrid; Label1: TLabel; Label2: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; DBEdit6: TDBEdit; DBEdit7: TDB

42、Edit;DBEdit8: TDBEdit; DBEdit10: TDBEdit; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel;DBNavigator1: TDBNavigator; Label13: TLabel; private Private declarations public Public declarat

43、ions end; varHWGL: THWGL;implementation$R *.dfm end.6、 “碼單管理”模塊： 、界面設計：碼單管理是倉儲管理中很重要的一項工作，數據項多，來源較廣，處理較復雜。本實驗作了適當的簡化。界面數據來源使用四對table 與datasouce 控件組，窗體大致分左右兩區(qū)，左區(qū)用于瀏覽顯示所有碼單，右區(qū)用于功能操作，包括查詢、新增、編輯，用三個頁框區(qū)分不同功能。如下圖： 其中，主要組件及屬性設置如下： 、UNIT10.PAS 程序代碼:在程序設計過程中，考慮到高職高專的學習特點，盡量使用最簡單、少量的DELPHI 內部的函數、命令實現其功能，少用或沒采

44、用SQL 語句，相關屬性設置有疑問的，請查看隨書軟件。 unit Unit10;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, DB, DBTables, DBCtrls, Mask,ExtCtrls;typeTMDGL = class(TFormTable8: TTable;DataSource1: TDataSource;DBGrid1: TDBGrid;Label1: TLa

45、bel;Label2: TLabel;DataSource2: TDataSource;Table1: TTable;Table2: TTable;DataSource3: TDataSource;Table3: TTable;DataSource4: TDataSource;PageControl1: TPageControl;TabSheet1: TTabSheet;TabSheet2: TTabSheet;Label3: TLabel;Label4: TLabel;Label5: TLabel;Label6: TLabel;Label7: TLabel;Label8: TLabel;La

46、bel9: TLabel;Label10: TLabel;Label11: TLabel;Label12: TLabel;Label13: TLabel;Label14: TLabel;Label15: TLabel;Label16: TLabel;Label17: TLabel;Label18: TLabel;Label19: TLabel;Label20: TLabel;Label21: TLabel;Edit1: TEdit;Edit2: TEdit;Edit3: TEdit;Edit4: TEdit;Edit5: TEdit;Edit6: TEdit;Edit7: TEdit;Edit

47、8: TEdit;Edit9: TEdit;Edit10: TEdit;Edit11: TEdit;Edit12: TEdit;Button1: TButton;Button4: TButton;Button5: TButton;TabSheet3: TTabSheet;Label22: TLabel;Label23: TLabel;Label24: TLabel;Label25: TLabel;Label26: TLabel;Label27: TLabel;Label28: TLabel;Label29: TLabel;Label30: TLabel;Label31: TLabel;Labe

48、l32: TLabel;Label33: TLabel;Label34: TLabel;Label35: TLabel;Label36: TLabel;Label37: TLabel;Label38: TLabel;Label39: TLabel;Label40: TLabel;DBEdit5: TDBEdit;DBEdit6: TDBEdit;DBEdit7: TDBEdit;DBEdit8: TDBEdit;DBEdit9: TDBEdit;DBEdit10: TDBEdit;DBEdit11: TDBEdit;DBEdit12: TDBEdit;DBEdit13: TDBEdit;DBE

49、dit14: TDBEdit;DBEdit15: TDBEdit;DBEdit16: TDBEdit;DBEdit17: TDBEdit;DBEdit18: TDBEdit;DBEdit19: TDBEdit;DBEdit20: TDBEdit;DBEdit21: TDBEdit;DBEdit22: TDBEdit;DBEdit23: TDBEdit;DBNavigator1: TDBNavigator;ComboBox1: TComboBox;ComboBox2: TComboBox;ComboBox3: TComboBox;Edit13: TEdit;Edit14: TEdit;Edit1

50、5: TEdit;Edit16: TEdit;Label41: TLabel;ComboBox4: TComboBox;Label42: TLabel;Edit17: TEdit;Panel1: TPanel;Panel3: TPanel;procedure Button5Click(Sender: TObject;procedure TabSheet2Show(Sender: TObject;procedure ComboBox1Exit(Sender: TObject;procedure ComboBox2Exit(Sender: TObject;procedure Button4Clic

51、k(Sender: TObject;procedure Button1Click(Sender: TObject;procedure TabSheet1Show(Sender: TObject;private Private declarations public Public declarations end;varMDGL: TMDGL;implementation$R *.dfmprocedure TMDGL.Button5Click(Sender: TObject;beginEDIT3.Text:=DATETOSTR(DATE;end;procedure TMDGL.TabSheet2

52、Show(Sender: TObject;var i:integer;beginEDIT1.Text:=' ' /控件賦初值;EDIT2.Text:=''EDIT3.Text:=''EDIT4.Text:=''EDIT5.Text:=''EDIT6.Text:=''EDIT7.Text:=''EDIT8.Text:=''EDIT9.Text:=''EDIT10.Text:=''EDIT11.Text:=''EDIT12.

53、Text:=''EDIT13.Text:=''EDIT14.Text:=''EDIT15.Text:=''EDIT16.Text:=''EDIT9.Enabled:=FALSE;EDIT10.Enabled:=FALSE;EDIT13.Enabled:=FALSE;EDIT14.Enabled:=FALSE;EDIT15.Enabled:=FALSE;EDIT16.Enabled:=FALSE;Combobox1.Clear;Combobox2.Clear;Combobox3.Clear;table1.first;

54、 /為COMBOBOX 控件IREMS 賦值;for i:=1 to table1.RecordCount dobeginCombobox1.items.add(Table1.FieldValues'客戶號'+table1.FieldValues'客戶名'table1.Next;END ;TABLE2.First;for i:=1 to table2.RecordCount dobeginCombobox2.items.add(TABLE2.FieldValues'貨物編號'+table2.FieldValues'品名'table

55、2.Next;END;table3.first;for i:=1 to table3.RecordCount dobeginif table3.fieldvalues'是否為空'='是' thenCombobox3.items.add(table3.FieldValues'庫存位置編號'table3.Next;end;end;procedure TMDGL.ComboBox1Exit(Sender: TObject; /為”客戶號”賦值;VAR S:STRING ;beginS:=COMBOBOX1.Text;EDIT13.Text:=COPY(

56、S,1,5;end;procedure TMDGL.ComboBox2Exit(Sender: TObject;/為貨物編號賦值;beginEDIT14.Text:=COPY(COMBOBOX2.Text,1,10;with table2 do /為規(guī)格型號, 計量單位賦值;beginif findkey(EDIT14.Text thenbeginIF FieldValues'規(guī)格型號' <>'' THENedit15.text:=FieldValues'規(guī)格型號'IF FieldValues'計量單位' <>'' thenedit16.text:=FieldValues'計量單位'exit;end;end;END;procedure TMDGL.Button4Click(Sender: TObject; /輸入碼單;VARI,CODE,