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

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

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

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

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

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

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

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

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

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

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

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

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

13、）總體結I構設計系統(tǒng)設企業(yè)名稱及部倉儲管理用戶名及權限倉庫資料管理入庫管理出庫管理 庫存管理 車隊資料管理車輛管理駕駛員管理物流管理客尸信息管理案檔譽、一#信1戶口客交倉庫庫存杳詢入庫出庫查詢統(tǒng)計杳運輸統(tǒng)計杳詢倉儲收入杳詢 運輸收入杳詢退出系其中:倉庫資料管理：可分為倉庫信息、庫區(qū)信息、庫位信息、貨物信息、客戶信息等管理模塊；入庫管理：可分為碼單管理、異常報告管理、入庫單管理、記庫存帳等模塊；出庫管理：可分為出庫單管理、碼單出庫管理、出庫收費管理、記庫存帳等模塊;庫存管理：可分為生成盤點帳存表、打印盤點表、盤點數(shù)據(jù)錄入、盤點盈虧管理 等模塊。車隊資料管理：車隊信息、車類信息、車型信息；車輛管理

14、：購車計劃、車輛檔案、車輛考勤、車輛報修； 駕駛員管理：招聘計劃、駕駛員檔案、駕駛員考勤;運輸管理：派車單管理其余略（二）運行環(huán)境設計本系統(tǒng)在企業(yè)內部網(wǎng)絡上開發(fā)運行，采用 C/S 開發(fā)應用模式。在企業(yè)公司辦有一臺高性能的網(wǎng)絡服務器，安裝有網(wǎng)絡操作系統(tǒng) WINDOWS 2000SERVER， 網(wǎng)絡數(shù)據(jù)庫管理系統(tǒng)MS SQL SERVER 2000， 用于集中存放企業(yè)管理數(shù)據(jù)， 為其他計算機提供數(shù)據(jù)存取服務。網(wǎng)絡中各部門計算機， 安裝有 WINDOWS 2000 PRO 以上版本的操作系統(tǒng)， 都可作為客戶機，連接到服務器上，實現(xiàn)數(shù)據(jù)資源共享。開發(fā)的 MIS 軟件也安裝在客戶機上。在教學、實驗過程中

15、，有網(wǎng)絡條件的實驗室，可參考以上配置，再加裝開發(fā)工具：DELPHI 7 以上版本，也可以在單機上用前后臺的方式模擬 C/S 結構，前臺用 DELPHI 作開發(fā)，后臺用 MS SQL 2000個人版，進行實驗。（三）代碼設計本系統(tǒng)常用的代碼有：1、送貨單號： 10 位以內字符，由送貨方開出，數(shù)據(jù)寬度一般不統(tǒng)一；2、碼單號：3、入庫單號、入庫收費單號：同上；4、出庫單號、出庫收費單號、庫存收費單號：同上；5、客戶號：5 位字符，其中 2 位代表客戶類別，后 3 位為序列號；6、庫區(qū)位置編號：8 位字符， 2 位代表倉庫， 3 位代表庫區(qū)， 3 位代表庫位；7、貨物編號：10位字符， 3位代表大類，

16、 3位代表小類， 4位序列號；8、職工編號：5 位字符， 2 位代表部門， 3 位序列號；9、異常報告編號：8 位字符， 6 位年月日 +2 位序列號；（四）數(shù)據(jù)庫及表設計（倉儲管理部分） ：該物流企業(yè)所有部門共用一個數(shù)據(jù)庫，名為 WLMIS ，其中倉儲管理部分的主要數(shù)據(jù)表如下：碼 單：每包裝貨物一份碼單，該表保存所有碼單信息；異 常報告：該表保存所有入庫異常信息；入 庫單：客戶每送一批貨物入庫，開具一份入庫單，該表保存所有入庫信息；入 庫收費單：每份入庫單對應一張入庫收費單，主要由貨物入庫裝卸費、檢驗費組成；庫 存帳：按庫存位置記載的當前庫存貨物擺放情況；出 庫單：每批貨物出庫開具一張出庫單

17、，該表保存所有出庫信息；7 碼單出庫表：對應一張出庫單，挑選多張碼單貨物出庫，該表保存所有碼單出庫信息；庫存收費單：貨物出庫時填寫，計算保存時間費率金額；出庫收費單：主要是出庫裝卸費；派車單： （同后續(xù)運輸管理部分） ：對運輸部門下達的派車調令，每張單可對應多個出庫單；盤點帳存單（盤點單同） ：由庫存賬按盤點要求生成，一般是月底分倉庫打??；盤點盈虧表：由實際盤點數(shù)（填好的盤點單）與盤點賬存單核對而成；客戶：該表保存所有客戶信息；貨物：該表保存所有貨物信息；倉庫：該表保存所有倉庫信息；庫區(qū)：該表保存所有庫區(qū)信息；庫位：該表保存所有庫位信息；部門：該表保存所有部門信息；職工：該表保存所有職工信息及

18、在本系統(tǒng)的操作權限進入口令；數(shù)據(jù)表的具體結構，請參看系統(tǒng)實施部分實驗一MIS 系統(tǒng)實施實驗一、 MS SQL SERVER 2000數(shù)據(jù)庫、表及ODBC 設置一、實驗目的：通過實驗，熟悉網(wǎng)絡數(shù)據(jù)庫MS SQL SERVER 的基本操作，尤其是運用“企業(yè)管理器” 建數(shù)據(jù)庫、 表的基本技能； 熟悉 WINDOWS 下， ODBC 數(shù)據(jù)庫連接的設置過程。二、實驗內容：1、在 SQL SERVER 中，新建數(shù)據(jù)庫用戶，并授予管理員DBA 權限；2、建物流企業(yè)數(shù)據(jù)庫，如：WLMIS ；3、在數(shù)據(jù)庫中創(chuàng)建倉儲管理部分所有數(shù)據(jù)表，如：客戶、碼單等；4、在 WINDOWS 的控制面板中，新建數(shù)據(jù)庫接口 ODB

19、C 連接；三、實驗主要步驟：1、在 windows 中，運行“企業(yè)管理器” ，如圖：2、在“數(shù)據(jù)庫”中，新建名為WLMIS 的數(shù)據(jù)庫，在“安全性-登錄”目錄下，新建名為“ ADMIN ”的登錄，設置密碼為“ ADMIN ” ，默認登錄數(shù)據(jù)庫為 WLMIS ，默認語言為簡體中文，并設置數(shù)據(jù)庫訪問權限，如圖；3、進入WLMIS 數(shù)據(jù)庫，點擊“表”,再點開右鍵快捷菜單，依次新建數(shù)據(jù)表:三團國女伴。X0J老看叫工具E 宙匚Ifflj可孰如0 國E1 國喙陰平 、當白喳77 4KMX；：* 11 51* 口“ WL Su win !S4H. Su r vd r 191 (J ncm I ) (I i n

20、d iiwN NT)lllSXApWBililINl n DBtfH Jrm-，1SQL Svrir 1 官b Nds 五)_J靜而萬, a hvsiw*1 y v)deJ1 U dh，J癡皿3*： Li Lbi+ tj ynILU mm 寸毛手顯 三|中 *也區(qū) 當FT* 唱司戶 05為色 一恢. 口如 厚用戶.至f ET中 應出戶走的密 制內爾/喧后+ LJ *審 lz 口受登住 二1晾+ 4近型躇黑 I謠 in j VflSS It. .*!* 口- l E-rEu*.TH Jt 31,作.-II- db*加4 db 4b. Jb*db* db dbwdU db di月戶戶戶尸p F F

21、 RF書串用書HF戶9p.匚1戶F 書用電用中包3耋*蓼瑞盟詠氏 二 nnnii 一七一一二 n 二dh dbn db* M db Jb* dU db系:三 制 11= &嫉 軍迪 手:三 天我釬. 手.三 式科 事招 T啊 *晴 裁我 事招 生照5(i 系統(tǒng) 鉉 ：4eniHHi營杭木MQ-fl-Bi:.r22UQD-B-E1 J3 :-：2A00-B-IIN 122D00HflBS1 a 23DDD-H-E1EDDD-B-Bi1:23:32魏。卜BfIN 12aoQ-sia12SIlDD-fi-i 230D-B-61口1 :州 is23UD-B-fllq.立11100-f-B1 W 2配H

22、UT雨1 29 122DDD-B-61 29建lODO-B-flL.j二HDONl-BJ 23 32MQQTY1 29 It290IHI-810;比ZDDDHl-23 12MDB-D-K1二：第得M08-S2叩rq-5 T.J3.3&EDDH-a-5 7J TT2SDM0-I 州 IS UDfl-4-9 T.13:5T 如2-imi! a n 13r n0-io-i 險 k as 2JDB-ID-1 .49.40 時的 1UB1 JU.062 DDB-4-5 FB：ZD0B-1-F T 12 JT2DDB-4-5 T.12.4&Z3UH-9-J：二 n 水 4b* db dU dbe db*

23、db. II-4、新建WINDOWS下的ODBC連接；“控制面板 -“管理工具 -如下圖:添力口名為HNXT的SQL SERVER系統(tǒng)DSN,數(shù)據(jù)源及月艮務器的名字均為 HNXT ,上面頁面尤為重要，不要選錯，密碼為前設置的“ADMIN ”，默認數(shù)據(jù)庫為 WLMIS,設置完成后，經(jīng)測試連接成功即可。四、實驗結果：略實驗二、創(chuàng)建項目、創(chuàng)建“登錄”“系統(tǒng)設置”管理界面一、實驗目的：通過實驗，掌握DELPHI 開發(fā) MIS 項目的基本方法，熟悉DELPHI 7 的 C/S 模式下，數(shù)據(jù)庫開發(fā)工具的使用，熟悉DELPHI 編程語言的基本規(guī)則。二、實驗內容：1、 DELPHI 桌面介紹；2、簡單“登錄”

24、界面的創(chuàng)建；3、數(shù)據(jù)源組件DBE、 DATA ACCESS、 DATA CONTROLS 簡介；4、 “部門管理”、 “職工管理”窗體的創(chuàng)建；三、實驗主要步驟：1、 DELPHI 桌面：共有：主功能菜單、工具按鈕、控件集合、對象列表窗、對象屬性編輯窗、可視化編輯窗體、相對應的PAS源程序語句編輯區(qū)。2、創(chuàng)建新開發(fā)項目，保存在自己的文件夾中。如：D ： WLMIS 。新項目僅有一個單元 UNIT1 ，由一個窗體FORM1 和它的源程序文件組成。卜面開始設計第一個界面，簡單的“登錄”窗體界面、界面示意圖：、窗體所含各組件及主要屬性表:組件類型組件名屬性名屬性值窗體（TFORM）DLCAPTION登

25、錄標簽（TLABEL ）LABEL1CAPTION用戶名FONT-SIZE10LABEL2CAPTION口令FONT-SIZE10文本框（TEDIT ）EDIT1CAPTIONEDIT2PASSWORDCHAR*按鈕（TBUTTON ）BUTTON1CAPTION進入BUTTON2CAPTION退出、相應程序:unit Unitl;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrl

26、s, DBCtrls, StdCtrls;typeTForm1 = class(TForm)Label1: TLabel;Label2: TLabel;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:

27、 TForm1;implementationuses Unit2;$R *.dfmconstiusename=ADMIN ;ipassword=123456;procedure (Sender: TObject);做據(jù)源組件 DBE、DATA ACCESS、DATA CONTROLS 簡介；、 DBE 數(shù)據(jù)源(數(shù)據(jù)引擎)組件：常用的有database:DataBase組件一般用于程序與數(shù)據(jù)庫的永久連接、數(shù)據(jù)庫服務器需要用戶登錄、指 定別名等一些情況下，一般情況下可不必用此組件。由于我們在本程序中需要打開網(wǎng) 絡數(shù)據(jù)庫，所以在程序啟動后就把數(shù)據(jù)庫打開時需要的用戶名和密碼都設定好，這樣 在別的窗口中

28、就無須再考慮這個問題了。、DATA ACCESS數(shù)據(jù)訪問組件：常用的有 TABLE:Table組件是最常用的組件，絕大部分數(shù)據(jù)庫程序都要用到它，一般在設計階段放 進窗體，但此組件在運行時是不可見的。用于從數(shù)據(jù)源 DATABASE中取數(shù)據(jù)，組成數(shù) 據(jù)表，供前臺數(shù)據(jù)控制組件使用。、DATA CONTROLS數(shù)據(jù)控制組件：常用的有 DBGRID、 DBNAVIGATOR 等:主要是以各種形式向前臺用戶提供數(shù)據(jù)界面支持，是軟件的重要組成部分。三種部件之間的內部關系4、“系統(tǒng)設置”管理界面的實施:、“部門設置”：窗體所含各主要組件及屬性表：組件類型組件名屬性名屬性值窗體（TFORM）BMGLCAPTIO

29、N部門管理TDATABASEDATABASE1DATABASENAMEHNXTALIAS NAMEHNXTCONNECTEDTRUEKEEPCONNECTEDTRUETTABLETABLE1DATABASENAMEHNXTTABLENAMEDBO.部門ACTIVETRUETDATASOUCEDATASOUCE1DATASETTABLE1TDBGRIDDBGRID1DATASOUCEDATASOUCE1TDBEDITTDBEDIT1DATASOUCEDATESOUCE1DATAFIELD部門編號TDBEDITTDBEDIT2DATASOUCEDATESOUCE1DATAFIELD部門名稱TNAV

30、IGATORNAVIGATOR1DATASOUCEDATESOUCE1設置好NAMEALIAS MAME 為前面 ODBC 的名稱 HNXT設置其中：雙擊“ DATEBASE1”控件，出現(xiàn)下圖:USERNAME=ADMIN ； PASSWORD=ADMIN ；去掉 LOGIN PROMPT 前面的選項，使程序連接后臺數(shù)據(jù)庫時自動登錄，不需要輸入用戶名和口令；程序代碼：unit Unit3;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls

31、, Mask, DBCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls;typeTBMGL = class(TForm)Table1: TTable;Database1: TDatabase;DataSource1: TDataSource;DBGrid1: TDBGrid;DBEdit1: TDBEdit;DBEdit2: TDBEdit;DBNavigator1: TDBNavigator;Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;private Private decla

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

33、rls, StdCtrls, Mask, Grids, DBGrids, DB, DBTables;typeTZGGL = class(TForm)Table2: TTable;DataSource2: TDataSource;DBGrid1: TDBGrid;Label1: TLabel;Label2: TLabel;Label : TLabel;Label #: TLabel;DBEdit1: TDBEdit;DBEdit2: TDBEdit;DBEdit3: TDBEdit;DBEdit4: TDBEdit;DBEdit5: TDBEdit;DBEdit6: TDBEdit;DBEdit

34、7: TDBEdit;DBEdit8: TDBEdit;DBEdit9: TDBEdit;DBEdit10: TDBEdit;DBEdit11: TDBEdit;DBEdit12: TDBEdit;Label3: TLabel;Label4: TLabel;Label6: TLabel;Label7: TLabel;Label8: TLabel;Label9: TLabel;Label10: TLabel;Label11: TLabel;Label12: TLabel;Label13: TLabel;Label14: TLabel;DBNavigator1: TDBNavigator;priv

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

36、:Label #: TLabel;Label : TLabel;unit Unit5;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask;typeTCKGL = class(TForm)Table3: TTable;DataSource3: TDataSource;DBGrid1: TDBGrid;Label1: TLabel;L

37、abel2: TLabel;Label3: TLabel;DBEdit1: TDBEdit;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;varCKGL: TCKGL;impleme

38、ntation$R *.dfmend.“庫區(qū)管理”模塊：、界面：、 :unit Unit6;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask;typeTKQGL = class(TForm)DBEdit : TDBEdit;DBEdit #: TDBEdit;Table4: TTable;DataSource4: TDataSo

39、urce;DBGrid1: TDBGrid;Label1: TLabel;Label2: TLabel;Label3: TLabel;DBEdit1: TDBEdit;Label4: TLabel;DBEdit2: TDBEdit;Label5: TLabel;DBEdit3: TDBEdit;Label6: TLabel;DBEdit4: TDBEdit;Label7: TLabel;DBEdit6: TDBEdit;Label9: TLabel;DBNavigator1: TDBNavigator;private Private declarations public Public dec

40、larations end;varKQGL: TKQGL;implementation$R *.dfmend.“庫位管理”模塊：、界面:DBEdit : TDBEdit;DBEdit #: TDBEdit;、unit Unit7;interface usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask;typeTKWGL = class(TForm)

41、Table5: TTable;DataSource4: TDataSource;DBGrid1: TDBGrid;Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;Label4: TLabel;DBEdit2: TDBEdit;Label5: TLabel;DBEdit3: TDBEdit;Label6: TLabel;DBEdit4: TDBEdit;DBEdit6: TDBEdit;Label9: TLabel;DBNavigator1: TDBNavigator;private Private declarations

42、 public Public declarations end;varTable6: TTable;Table6: TTable;KWGL: TKWGL;implementation$R *.dfmend.“客戶管理”模塊：、界面：、 :unit Unit8;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids, DB, DBTables;typeTKHGL

43、= class(TForm)Label4: TLabel;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;Label3: TLabel;Label5: TLabe

44、l;Label6: TLabel;Label7: TLabel;Label8: TLabel;Label9: TLabel;Label10: TLabel;Label11: TLabel;Label12: TLabel;DBNavigator1: TDBNavigator;private Private declarations public Public declarations end;varKHGL: TKHGL;implementation$R *.dfmend.“貨物管理”模塊：、界面：、 :unit Unit9;interfaceusesWindows, Messages, Sys

45、Utils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids, DB, DBTables;typeTHWGL = class(TForm)Label : TLabel;Label #: TLabel;Table7: TTable;DataSource2: TDataSource;DBGrid1: TDBGrid;Label1: TLabel;Label2: TLabel;DBEdit1: TDBEdit;DBEdit2: TDBEdit

46、;DBEdit3: TDBEdit;DBEdit4: TDBEdit;DBEdit5: TDBEdit;DBEdit6: TDBEdit;DBEdit7: TDBEdit;DBEdit8: TDBEdit;DBEdit10: TDBEdit;Label4: TLabel;Label4: TLabel;Label5: TLabel;Label6: TLabel;Label7: TLabel;Label8: TLabel;Label9: TLabel;Label10: TLabel;Label11: TLabel;Label12: TLabel;DBNavigator1: TDBNavigator

47、;Label13: TLabel;private Private declarations public Public declarations end;varHWGL: THWGL;implementation$R *dfmend.“碼單管理”模塊：、界面設計：碼單管理是倉儲管理中很重要的一項工作，數(shù)據(jù)項多，來源較廣，處理較復雜。本實驗作了適當?shù)暮喕?。界面?shù)據(jù)來源使用四對 table與datasouce空件組，窗體大致分左右兩區(qū)，左區(qū)用于瀏覽顯示所有碼單，右區(qū)用于功能操作，包括查詢、新增、編輯，用三個頁框區(qū)分不同功能。如下圖：其中，主要組件及屬性設置如下:組件類型組件名屬性名屬性值窗體（TF

48、ORM）MDGLCAPTION碼單管理TTABLETABLE8DATABASENAMEHNXTTABLENAMEDBO.碼單ACTIVETRUETTABLETABLE1DATABASENAMEHNXTTABLENAMEDBO.客戶ACTIVETRUETTABLETABLE2DATABASENAMEHNXTTABLENAMEDBO.貨物ACTIVETRUETTABLETABLE3DATABASENAMEHNXTTABLENAMEDBO.庫區(qū)ACTIVETRUETDATASOUCEDATASOUCE1DATASETTABLE8TDATASOUCEDATASOUCE2DATASETTABLE1TDA

49、TASOUCEDATASOUCE3DATASETTABLE2TDATASOUCEDATASOUCE4DATASETTABLE3TDBGRIDDBGRID1DATASOUCEDATASOUCE1TPAGECONTROLPAGECONTROL1DRAGMODEdmManualTTABSHEETTABLESHEET1CAPTION查詢TTABSHEETTABLESHEET2CAPTION新增TTABSHEETTABLESHEET3CAPTION編輯TDBEDITTDBEDIT1DATASOUCEDATESOUCE1DATAFIELD碼單編號TCOMBOBOXCOMBOBOX1TCOMBOBOXCOMBOBOX4ITEM碼單編號客戶號貨物編號TEDITEDIT1TBUTTONBUTTON1CAPTION查詢Table8: TTable;Table8: TTable;TBUTTONBUTTON4CAPTION確定TB