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

某中小型物流企業(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é)調(diào)、管理倉儲、運輸、財務、客戶等下級部門。如下圖：總經(jīng)理公司辦公司辦客戶部財務部運輸部倉儲部調(diào)度室車隊辦出庫組保管組入庫組二車隊三車隊一車隊客戶部財務部運輸部倉儲部調(diào)度室車隊辦出庫組保管組入庫組二車隊三車隊一車隊維修組維修組（二）功能目標MIS系統(tǒng)應包含絕大部分日常管理功能，主要有以下幾方面：1、MIS系統(tǒng)及各部門業(yè)務初始化設置；2、完善的貨物入庫、庫存、出庫管理功能；3、完善的車輛管理、駕駛員管理、運輸業(yè)務處理功能；4、快捷、準確的各種費用統(tǒng)計計算功能；5、全面的客戶資料管理、分類、查詢功能，并提供客戶自主上網(wǎng)查詢功能；6、分級別、有條件的各種統(tǒng)計信息查詢功能；二、各部門主要業(yè)務及數(shù)據(jù)流程分析（一）倉庫管理包含三個方面的主要業(yè)務，分述如下：入庫送貨人員將貨物及“送貨單”送達倉庫站臺，倉庫入庫組收貨員按“送貨單”驗收貨物并組織卸貨，為每件貨物填寫唯一的“碼單”。保管員將貨主送達的“貨物明細單”與“送貨單”、“碼單”相核對，如不符，返貨主“貨物異常報告”，如相符，分配庫位，錄入成“入庫單”。倉庫主管審核后，記“庫存賬”，生成“入庫收費單”，數(shù)據(jù)不再允許改動。相應DFD：出庫貨主在出庫時提供“提貨樣單”，提貨人持“提貨單”至出庫組，要求提貨。發(fā)貨員核實“提貨單”，填寫“出庫單”，然后向提貨人出具“出庫收費單”，同時生成“派車單”，并派保管員準備發(fā)貨。保管員持“派車單”組織貨物裝運，記錄實出貨物信息，填寫“碼單出庫信息表”。倉庫主管審核記賬后，生成“庫存收費單”。并且沖抵庫存帳、在“碼單”表中記錄出庫信息，存檔。用戶繳費后，保管員開具出門證給用戶。相應DFD：庫存盤點流程：倉庫主管根據(jù)需要盤點的貨物生成“盤點帳存表”，表中有生成盤點表的商品編碼、商品名稱、所屬部門、庫位、經(jīng)營方式、庫存數(shù)量及盤點日期等相關信息；打印“盤點單”,包括的項目有：商品庫位、所屬部門、類別、商品編碼、商品名稱、經(jīng)營方式、實盤數(shù)量及盤點日期，這里不輸出商品的帳存數(shù)量;保管員手持“盤點單”，進行實地盤點，將數(shù)量填入“盤點單”中實盤數(shù)量處；保管員在微機中調(diào)出對應的“盤點帳存表”，將實盤的數(shù)量錄入進去，經(jīng)主管檢查錄入數(shù)據(jù)的準確性后，審核生效；生成盤點盈虧表。針對商品有盤盈和盤虧的商品進行記賬。凡是有盈虧的商品列出商品編碼、名稱、實盤數(shù)量、帳存數(shù)量、成本單價、盈虧金額相應DFD：（二）運輸管理運輸管理部門下設車隊辦公室、運輸調(diào)度室、維修班共三個機構，主要承擔企業(yè)日常的車輛配置、維護、駕駛員招聘、貨物運輸調(diào)度等管理業(yè)務。車隊辦與維修班：按企業(yè)要求制定“車輛購置計劃”、并招標采購；把采購回的車輛信息錄入“車輛檔案”并分配到具體車隊；（車牌號、車類、車型、購置金額、購置日期、里程數(shù)、限運重量、限運體積、行駛證號、年審日期、所屬車隊、報勤）按企業(yè)要求制定“駕駛員招聘計劃”、并實施招聘；把招聘的駕駛員信息錄入“駕駛員檔案”并分配到具體車隊；（員工號、姓名、駕駛證、駕駛類型、所屬車隊、報勤）審核各車隊送來的車輛及駕駛人員的考勤信息，并錄入至“考勤表”；審核各車隊送來的車輛報修單并錄入至“車輛報修表”；運輸調(diào)度審核各客戶交來的運輸用車要求（派車單），不能承擔的退回；查詢運輸資源中空閑車輛及駕駛員信息，并制定相應派車任務單（派車單號、派車時間、車牌號、任務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ù)的錄入、修改、刪除等管理工作。具體有：費用項目設置：按企業(yè)要求制定各部門的所有收費項目，如倉儲費、運輸費、裝卸費、處理費、加班費、報關費等；費用類型設置：按實際具體情況，確定各部門的各種收費類型，如：按重量收費、按體積收費、按時間收費、按距離收費、按重量時間收費、按重量距離收費等；計費單位設置：確定各種收費類型的計費單位，如：噸、公斤、立方、升、公里、月、日（天）等；倉儲部門費用管理：根據(jù)倉儲管理信息系統(tǒng)中已有的貨物入庫單和出庫單，選擇收費的各項方法、計算出應該收取的各項倉儲管理費用，并經(jīng)審核后，打印出一式幾份的費用清單，分別交倉庫、貨主和提貨人，催交費用。交費完成后，打印出收款收據(jù)，并保存在信息系統(tǒng)中。運輸部門費用管理：根據(jù)運輸管理信息系統(tǒng)中已有的派車（任務）單，選擇收費的各種方法、計算出各客戶應支付的運輸費用（總費用分攤），經(jīng)審核后，打印出一式幾份，分別交車隊、客戶，催交費用。交費完成后，打印出收款收據(jù)，并保存在信息系統(tǒng)中。應收、應付賬單管理：各客戶的應收、應付賬單，由客戶已有的收費單及收款收據(jù)匯集而成。具體操作如下：輸入欲查詢的客戶名稱和時間段（默認為本月），系統(tǒng)從數(shù)據(jù)庫中找出相應的收費單、收款收款記錄，列表顯示。相應DFD：（四）客戶管理1、從前面?zhèn)}儲系統(tǒng)或運輸系統(tǒng)中的客戶基本信息表中，找到相應客戶，對其已有的倉儲管理費用（入庫收費單、庫存收費單、出庫收費單）和運輸管理費用（運輸收費單）進行匯總統(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ù)表中，查詢出自己的貨物信息、應交費用信息、已交費用信息及信譽等級和折扣率。4、客戶登錄后，可將自己的意見、留言錄入到客戶留言表中，系統(tǒng)根據(jù)不同的留言發(fā)送到不同的部門，各部門將處理后的結果錄入到相應客戶留言欄中。相應的DFD：（五）統(tǒng)計查詢1、倉儲庫存查詢：進入本模塊后，選擇相應的倉庫，選擇相應時間，系統(tǒng)找到該倉庫的庫存臺帳（貨物存儲檔案），調(diào)出各貨位當時的貨物信息（碼單），形成當時庫存列表，顯示出來，并提供打印輸出功能；在顯示庫存列表中，應能進一步查詢貨物碼單的詳細情況。2、入庫出庫查詢：進入本模塊后，選擇相應的倉庫，選擇相應時間段，系統(tǒng)找到該倉庫該時間段的入（出）庫單表，形成入（出）庫單列表，顯示出來，并提供打印輸出功能；在顯示入（出）庫單列表中，應能進一步查詢該單的詳細情況。3、運輸派車查詢：進入本模塊后，選擇相應查詢要求（如：車牌號、駕駛員、時間、提貨單號、派車單號、客戶號等），系統(tǒng)找到運輸信息系統(tǒng)中的派車（任務）單表，調(diào)出滿足條件的派車單，形成派車單列表，顯示出來，并提供打印輸出功能；在顯示派車單列表中，應能進一步查詢派車單的詳細情況。4、運輸統(tǒng)計查詢：進入本模塊后，選擇相應車隊、相應時間段，系統(tǒng)找到運輸信息系統(tǒng)中的派車（任務）單表，調(diào)出滿足條件的派車單，按車牌號或駕駛員進行分類匯總統(tǒng)計，形成每車或每人的運輸工作量匯總列表，顯示出來，并提供打印輸出功能；在顯示工作量匯總列表中，應能進一步查詢每車或每人的派車單的詳細情況。5、倉儲收入查詢：進入本模塊后，選擇相應的倉庫，選擇相應時間段，系統(tǒng)找到倉儲管理系統(tǒng)中的倉儲費用清單表（應收）和倉儲收款收據(jù)表（實收），調(diào)出該倉庫該時間段的數(shù)據(jù)信息，形成倉庫收入列表，顯示出來，并提供打印輸出功能；在顯示倉庫收入列表中，應能進一步查詢每筆應收、實收的詳細情況。6、運輸收入查詢：進入本模塊后，選擇相應的車隊，選擇相應時間段，系統(tǒng)找到運輸管理系統(tǒng)中的運輸費用清單表（應收）和運輸收款收據(jù)表（實收），調(diào)出該車隊該時間段的數(shù)據(jù)信息，形成車隊收入列表，顯示出來，并提供打印輸出功能；在顯示車隊收入列表中，應能進一步查詢每筆應收、實收的詳細情況。相應DFD：略三、MIS系統(tǒng)設計企業(yè)名稱及部門系統(tǒng)設置（一）總體結構設計企業(yè)名稱及部門系統(tǒng)設置用戶名及權限用戶名及權限倉庫資料管理入庫管理出庫管理倉庫資料管理入庫管理出庫管理倉儲管理倉儲管理庫存管理車隊資料管理庫存管理車隊資料管理車輛管理車輛管理運輸管理運輸管理駕駛員管理駕駛員管理運輸管理運輸管理物流管理信息系統(tǒng)物流管理信息系統(tǒng)倉儲費用計算基礎數(shù)據(jù)管理運輸費用計算倉儲費用計算基礎數(shù)據(jù)管理運輸費用計算費用計算費用計算應收應付賬單應收應付賬單客戶查詢客戶信譽檔案客戶信息管理客戶管理客戶查詢客戶信譽檔案客戶信息管理客戶管理客戶留言客戶留言運輸派車查詢?nèi)霂斐鰩觳樵儌}庫庫存查詢運輸派車查詢?nèi)霂斐鰩觳樵儌}庫庫存查詢統(tǒng)計查詢統(tǒng)計查詢運輸統(tǒng)計查詢運輸統(tǒng)計查詢倉儲收入查詢倉儲收入查詢運輸收入查詢運輸收入查詢退出系統(tǒng)退出系統(tǒng)其中：倉庫資料管理：可分為倉庫信息、庫區(qū)信息、庫位信息、貨物信息、客戶信息等管理模塊；入庫管理：可分為碼單管理、異常報告管理、入庫單管理、記庫存帳等模塊；出庫管理：可分為出庫單管理、碼單出庫管理、出庫收費管理、記庫存帳等模塊；庫存管理：可分為生成盤點帳存表、打印盤點表、盤點數(shù)據(jù)錄入、盤點盈虧管理等模塊。車隊資料管理：車隊信息、車類信息、車型信息；車輛管理：購車計劃、車輛檔案、車輛考勤、車輛報修；駕駛員管理：招聘計劃、駕駛員檔案、駕駛員考勤；運輸管理：派車單管理其余略（二）運行環(huán)境設計本系統(tǒng)在企業(yè)內(nèi)部網(wǎng)絡上開發(fā)運行，采用C/S開發(fā)應用模式。在企業(yè)公司辦有一臺高性能的網(wǎng)絡服務器，安裝有網(wǎng)絡操作系統(tǒng)WINDOWS2000SERVER，網(wǎng)絡數(shù)據(jù)庫管理系統(tǒng)MSSQLSERVER2000，用于集中存放企業(yè)管理數(shù)據(jù)，為其他計算機提供數(shù)據(jù)存取服務。網(wǎng)絡中各部門計算機，安裝有WINDOWS2000PRO以上版本的操作系統(tǒng)，都可作為客戶機，連接到服務器上，實現(xiàn)數(shù)據(jù)資源共享。開發(fā)的MIS軟件也安裝在客戶機上。在教學、實驗過程中，有網(wǎng)絡條件的實驗室，可參考以上配置，再加裝開發(fā)工具：DELPHI7以上版本，也可以在單機上用前后臺的方式模擬C/S結構，前臺用DELPHI作開發(fā)，后臺用MSSQL2000個人版，進行實驗。（三）代碼設計本系統(tǒng)常用的代碼有：1、送貨單號：10位以內(nèi)字符，由送貨方開出，數(shù)據(jù)寬度一般不統(tǒng)一；2、碼單號：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位序列號；（四）數(shù)據(jù)庫及表設計（倉儲管理部分）：該物流企業(yè)所有部門共用一個數(shù)據(jù)庫，名為WLMIS，其中倉儲管理部分的主要數(shù)據(jù)表如下：碼單：每包裝貨物一份碼單，該表保存所有碼單信息；異常報告：該表保存所有入庫異常信息；入庫單：客戶每送一批貨物入庫，開具一份入庫單，該表保存所有入庫信息；入庫收費單：每份入庫單對應一張入庫收費單，主要由貨物入庫裝卸費、檢驗費組成；庫存帳：按庫存位置記載的當前庫存貨物擺放情況；出庫單：每批貨物出庫開具一張出庫單，該表保存所有出庫信息；碼單出庫表：對應一張出庫單，挑選多張碼單貨物出庫，該表保存所有碼單出庫信息；庫存收費單：貨物出庫時填寫，計算保存時間、費率、金額；出庫收費單：主要是出庫裝卸費；派車單：（同后續(xù)運輸管理部分）：對運輸部門下達的派車調(diào)令，每張單可對應多個出庫單；盤點帳存單（盤點單同）：由庫存賬按盤點要求生成，一般是月底分倉庫打印；盤點盈虧表：由實際盤點數(shù)（填好的盤點單）與盤點賬存單核對而成；客戶：該表保存所有客戶信息；貨物：該表保存所有貨物信息；倉庫：該表保存所有倉庫信息；庫區(qū)：該表保存所有庫區(qū)信息；庫位：該表保存所有庫位信息；部門：該表保存所有部門信息；職工：該表保存所有職工信息及在本系統(tǒng)的操作權限、進入口令；數(shù)據(jù)表的具體結構，請參看系統(tǒng)實施部分實驗一四、MIS系統(tǒng)實施實驗一、MSSQLSERVER2000數(shù)據(jù)庫、表及ODBC設置一、實驗目的：通過實驗，熟悉網(wǎng)絡數(shù)據(jù)庫MSSQLSERVER的基本操作，尤其是運用“企業(yè)管理器”建數(shù)據(jù)庫、表的基本技能；熟悉WINDOWS下，ODBC數(shù)據(jù)庫連接的設置過程。二、實驗內(nèi)容：1、在SQLSERVER中，新建數(shù)據(jù)庫用戶，并授予管理員DBA權限；2、建物流企業(yè)數(shù)據(jù)庫，如：WLMIS；3、在數(shù)據(jù)庫中創(chuàng)建倉儲管理部分所有數(shù)據(jù)表，如：客戶、碼單等；4、在WINDOWS的控制面板中，新建數(shù)據(jù)庫接口ODBC連接；三、實驗主要步驟：1、在windows中，運行“企業(yè)管理器”，如圖：2、在“數(shù)據(jù)庫”中，新建名為WLMIS的數(shù)據(jù)庫，在“安全性-登錄”目錄下，新建名為“ADMIN”的登錄，設置密碼為“ADMIN”，默認登錄數(shù)據(jù)庫為WLMIS，默認語言為簡體中文，并設置數(shù)據(jù)庫訪問權限，如圖；3、進入WLMIS數(shù)據(jù)庫，點擊“表”，再點開右鍵快捷菜單，依次新建數(shù)據(jù)表：4、新建WINDOWS下的ODBC連接；“控制面板”-“管理工具”-“”如下圖：添加名為HNXT的SQLSERVER系統(tǒng)DSN，數(shù)據(jù)源及服務器的名字均為HNXT，上面頁面尤為重要，不要選錯，密碼為前設置的“ADMIN”，默認數(shù)據(jù)庫為WLMIS，設置完成后，經(jīng)測試連接成功即可。四、實驗結果：略實驗二、創(chuàng)建項目、創(chuàng)建“登錄”、“系統(tǒng)設置”管理界面一、實驗目的：通過實驗，掌握DELPHI開發(fā)MIS項目的基本方法，熟悉DELPHI7的C/S模式下，數(shù)據(jù)庫開發(fā)工具的使用，熟悉DELPHI編程語言的基本規(guī)則。二、實驗內(nèi)容：1、DELPHI桌面介紹；2、簡單“登錄”界面的創(chuàng)建；3、數(shù)據(jù)源組件DBE、DATAACCESS、DATACONTROLS簡介；4、“部門管理”、“職工管理”窗體的創(chuàng)建；三、實驗主要步驟：1、DELPHI桌面：共有：主功能菜單、工具按鈕、控件集合、對象列表窗、對象屬性編輯窗、可視化編輯窗體、相對應的PAS源程序語句編輯區(qū)。2、創(chuàng)建新開發(fā)項目—，保存在自己的文件夾中。如：D：\WLMIS。新項目僅有一個單元UNIT1，由一個窗體FORM1和它的源程序文件組成。下面開始設計第一個界面，簡單的“登錄”窗體界面。⑴、界面示意圖:⑵、窗體所含各組件及主要屬性表：組件類型組件名屬性名屬性值窗體（TFORM）DLCAPTION登錄標簽（TLABEL）LABEL1CAPTION用戶名FONT-SIZE10LABEL2CAPTION口令FONT-SIZE10文本框（TEDIT）EDIT1CAPTIONEDIT2PASSWORDCHAR*按鈕（TBUTTON）BUTTON1CAPTION進入BUTTON2CAPTION退出⑶、相應程序:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Grids,DBGrids,DB,DBTables,ExtCtrls,DBCtrls,StdCtrls;typeTForm1=class(TForm)Label1:TLabel;Label2:TLabel;Edit1:TEdit;Edit2:TEdit;Label3:TLabel;Button1:TButton;Button2:TButton;procedureButton1Click(Sender:TObject);procedureButton2Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementationusesUnit2;{$R*.dfm}constiusename='ADMIN';ipassword='123456';procedure(Sender:TObject);3、數(shù)據(jù)源組件DBE、DATAACCESS、DATACONTROLS簡介；⑴、DBE數(shù)據(jù)源（數(shù)據(jù)引擎）組件：常用的有database:DataBase組件一般用于程序與數(shù)據(jù)庫的永久連接、數(shù)據(jù)庫服務器需要用戶登錄、指定別名等一些情況下，一般情況下可不必用此組件。由于我們在本程序中需要打開網(wǎng)絡數(shù)據(jù)庫，所以在程序啟動后就把數(shù)據(jù)庫打開時需要的用戶名和密碼都設定好，這樣在別的窗口中就無須再考慮這個問題了。⑵、DATAACCESS數(shù)據(jù)訪問組件：常用的有TABLE：Table組件是最常用的組件，絕大部分數(shù)據(jù)庫程序都要用到它，一般在設計階段放進窗體，但此組件在運行時是不可見的。用于從數(shù)據(jù)源DATABASE中取數(shù)據(jù)，組成數(shù)據(jù)表，供前臺數(shù)據(jù)控制組件使用。⑶、DATACONTROLS數(shù)據(jù)控制組件：常用的有DBGRID、DBNAVIGATOR等：主要是以各種形式向前臺用戶提供數(shù)據(jù)界面支持，是軟件的重要組成部分。三種部件之間的內(nèi)部關系4、“系統(tǒng)設置”管理界面的實施：⑴、“部門設置”：窗體所含各主要組件及屬性表：組件類型組件名屬性名屬性值窗體（TFORM）BMGLCAPTION部門管理TDATABASEDATABASE1DATABASENAMEHNXTALIASNAMEHNXTCONNECTEDTRUEKEEPCONNECTEDTRUETTABLETABLE1DATABASENAMEHNXTTABLENAMEDBO.部門ACTIVETRUETDATASOUCEDATASOUCE1DATASETTABLE1TDBGRIDDBGRID1DATASOUCEDATASOUCE1TDBEDITTDBEDIT1DATASOUCEDATESOUCE1DATAFIELD部門編號TDBEDITTDBEDIT2DATASOUCEDATESOUCE1DATAFIELD部門名稱TNAVIGATORNAVIGATOR1DATASOUCEDATESOUCE1其中：雙擊“DATEBASE1”控件，出現(xiàn)下圖：設置好NAME，ALIASMAME為前面ODBC的名稱HNXT，設置USERNAME=ADMIN；PASSWORD=ADMIN；去掉LOGINPROMPT前面的選項，使程序連接后臺數(shù)據(jù)庫時自動登錄，不需要輸入用戶名和口令；程序代碼：unitUnit3;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,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{Privatedeclarations}public{Publicdeclarations}end;varBMGL:TBMGL;implementation{$R*.dfm}end.⑵、“職工管理”：依照“部門管理”窗體建立，去掉DATABASE1組件，將TABLE1的TABLENAME設置為DBO.職工，并按ZG中各字段建立相應DBEDIT控件；程序代碼：unitUnit4;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,DBCtrls,StdCtrls,Mask,Grids,DBGrids,DB,DBTables;typeTZGGL=class(TForm)Table2: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;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{Privatedeclarations}public{Publicdeclarations}end;varZGGL:TZGGL;implementation{$R*.dfm}end.四、實驗結果：略實驗三、“倉庫管理”中“基本信息”、“碼單管理”模塊的實施一、實驗目的：結合倉儲系統(tǒng)分析，運用逐漸熟悉的DELPHI開發(fā)工具，進入到較復雜的管理業(yè)務信息化工作中。本實驗“基本信息”模塊的實施，與實驗二中“職工管理”相似，不再重述，只要注意數(shù)據(jù)集控件TABLEn的TABLENAME的變動;“碼單管理”是本實驗的重點。二、實驗內(nèi)容：1、“倉庫管理”模塊：⑴、界面：⑵、程序代碼:unitUnit5;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;Label2:TLabel;Label3:TLabel;DBEdit1:TDBEdit;Label4:TLabel;DBEdit2:TDBEdit;Label5:TLabel;DBEdit3:TDBEdit;Label6:TLabel;DBEdit4:TDBEdit;Label7:TLabel;DBEdit5:TDBEdit;DBEdit6:TDBEdit;Label9:TLabel;DBNavigator1:TDBNavigator;private{Privatedeclarations}public{Publicdeclarations}end;varCKGL:TCKGL;implementation{$R*.dfm}end.2、“庫區(qū)管理”模塊：⑴、界面：⑵、:unitUnit6;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Grids,DBGrids,DB,DBTables,ExtCtrls,DBCtrls,StdCtrls,Mask;typeTKQGL=class(TForm)Table4:TTable;DataSource4:TDataSource;DBGrid1:TDBGrid;Label1:TLabel;Label2:TLabel;Label3:TLabel;DBEdit1:TDBEdit;Label4:TLabel;DBEdit2:TDBEdit;Label5:TLabel;DBEdit3:TDBEdit;Label6:TLabel;DBEdit4:TDBEdit;Label7:TLabel;DBEdit5:TDBEdit;DBEdit6:TDBEdit;Label9:TLabel;DBNavigator1:TDBNavigator;private{Privatedeclarations}public{Publicdeclarations}end;varKQGL:TKQGL;implementation{$R*.dfm}end.3、“庫位管理”模塊：⑴、界面：⑵、:unitUnit7;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,Grids,DBGrids,DB,DBTables,ExtCtrls,DBCtrls,StdCtrls,Mask;typeTKWGL=class(TForm)Table5:TTable;DataSource4:TDataSource;DBGrid1:TDBGrid;Label1:TLabel;Label2:TLabel;Label3:TLabel;DBEdit1:TDBEdit;Label4:TLabel;DBEdit2:TDBEdit;Label5:TLabel;DBEdit3:TDBEdit;Label6:TLabel;DBEdit4:TDBEdit;DBEdit6:TDBEdit;Label9:TLabel;DBNavigator1:TDBNavigator;private{Privatedeclarations}public{Publicdeclarations}end;varKWGL:TKWGL;implementation{$R*.dfm}end.4、“客戶管理”模塊：⑴、界面：⑵、:unitUnit8;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,DBCtrls,StdCtrls,Mask,Grids,DBGrids,DB,DBTables;typeTKHGL=class(TForm)Table6: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;Label3:TLabel;Label4:TLabel;Label5:TLabel;Label6:TLabel;Label7:TLabel;Label8:TLabel;Label9:TLabel;Label10:TLabel;Label11:TLabel;Label12:TLabel;DBNavigator1:TDBNavigator;private{Privatedeclarations}public{Publicdeclarations}end;varKHGL:TKHGL;implementation{$R*.dfm}end.5、“貨物管理”模塊：⑴、界面：⑵、:unitUnit9;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,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:TDBEdit;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{Privatedeclarations}public{Publicdeclarations}end;varHWGL:THWGL;implementation{$R*.dfm}end.6、“碼單管理”模塊：⑴、界面設計：碼單管理是倉儲管理中很重要的一項工作，數(shù)據(jù)項多，來源較廣，處理較復雜。本實驗作了適當?shù)暮喕?。界面?shù)據(jù)來源使用四對table與datasouce控件組，窗體大致分左右兩區(qū)，左區(qū)用于瀏覽顯示所有碼單，右區(qū)用于功能操作，包括查詢、新增、編輯，用三個頁框區(qū)分不同功能。如下圖：其中，主要組件及屬性設置如下：組件類型組件名屬性名屬性值窗體（TFORM）MDGLCAPTION碼單管理TTABLETABLE8DATABASENAMEHNXTTABLENAMEDBO.碼單ACTIVETRUETTABLETABLE1DATABASENAMEHNXTTABLENAMEDBO.客戶ACTIVETRUETTABLETABLE2DATABASENAMEHNXTTABLENAMEDBO.貨物ACTIVETRUETTABLETABLE3DATABASENAMEHNXTTABLENAMEDBO.庫區(qū)ACTIVETRUETDATASOUCEDATASOUCE1DATASETTABLE8TDATASOUCEDATASOUCE2DATASETTABLE1TDATASOUCEDATASOUCE3DATASETTABLE2TDATASOUCEDATASOUCE4DATASETTABLE3TDBGRIDDBGRID1DATASOUCEDATASOUCE1TPAGECONTROLPAGECONTROL1DRAGMODEdmManualTTABSHEETTABLESHEET1CAPTION查詢TTABSHEETTABLESHEET2CAPTION新增TTABSHEETTABLESHEET3CAPTION編輯TDBEDITTDBEDIT1DATASOUCEDATESOUCE1DATAFIELD碼單編號……TCOMBOBOXCOMBOBOX1……TCOMBOBOXCOMBOBOX4ITEM碼單編號客戶號貨物編號TEDITEDIT1TBUTTONBUTTON1CAPTION查詢TBUTTONBUTTON4CAPTION確定TBUTTONBUTTON5CAPTION當天TNAVIGATORNAVIGATOR1DATASOUCEDATESOUCE1⑵、程序代碼:在程序設計過程中，考慮到高職高專的學習特點，盡量使用最簡單、少量的DELPHI內(nèi)部的函數(shù)、命令實現(xiàn)其功能，少用或沒采用SQL語句，相關屬性設置有疑問的，請查看隨書軟件。unitUnit10;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Grids,DBGrids,ComCtrls,DB,DBTables,DBCtrls,Mask,ExtCtrls;typeTMDGL=class(TForm)Table8:TTable;DataSource1:TDataSource;DBGrid1:TDBGrid;Label1:TLabel;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;Label9: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;Edit8: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;Label32: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;DBEdit14: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;Edit15:TEdit;Edit16:TEdit;Label41:TLabel;ComboBox4:TComboBox;Label42:TLabel;Edit17:TEdit;Panel1:TPanel;Panel3:TPanel;procedureButton5Click(Sender:TObject);procedureTabSheet2Show(Sender:TObject);procedureComboBox1Exit(Sender:TObject);procedureComboBox2Exit(Sender:TObject);procedureButton4Click(Sender:TObject);procedureButton1Click(Sender:TObject);procedureTabSheet1Show(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varMDGL:TMDGL;implementation{$R*.dfm}procedure(Sender:TObject);begin:=DATETOSTR(DATE);end;procedure(Sender:TObject);vari:integer;begin:='';三、實驗主要步驟：1、啟動DELPHI，主菜單中選“file”—“openproject…”，在對話框中選擇自己的文件夾，打開項目文件；2、在主菜單中選“view”—“projectmanager”，打開項目管理器，查看每個單元文件UNIT文件，并可新建、編輯、修改相關的窗體和PASCAL源程序；3、修改完后，可按F9鍵，或選擇主菜單中“RUN”選項，DELPHI自動編譯源程序并運行，編譯運行過程中，如有錯誤，DELPHI將盡量給出提示，指導修改；4、編輯技巧：在已編輯好的“倉庫管理”窗體的基礎上，從主菜單中選“file”—“saveas…”，可生成下一相似窗體雛形，再在其上進一步修改，可加快實驗速度；四、實驗結果：略實驗四、“倉庫管理”中“異常報告管理”、“入庫單管理”模塊的實施一、實驗目的：結合倉儲系統(tǒng)分析，按照實驗三“碼單管理”窗體的設計方法，進一步完成“異常報告管理”、“入庫單管理”模塊的設計實施工作，達到熟練掌握DELPHI界面設計及程序設計所用工具的目的。二、實驗內(nèi)容：1、“異常報告管理”模塊：此模塊用于記載貨物入庫時所發(fā)生的單據(jù)與實物不相符的情形。⑴、界面設計：界面整體布局沿用了碼單管理的界面模式，但數(shù)據(jù)源及處理程序有區(qū)別。主要組件及屬性值：組件類型組件名屬性名屬性值窗體（TFORM）YCBGCAPTION異常報告管理TTABLETABLE9DATABASENAMEHNXTTABLENAMEDBO.異常報告ACTIVETRUETTABLETABLE1DATABASENAMEHNXTTABLENAMEDBO.客戶ACTIVETRUETTABLETABLE2DATABASENAMEHNXTTABLENAMEDBO.貨物ACTIVETRUETDATASOUCEDATASOUCE1DATASETTABLE9TDATASOUCEDATASOUCE2DATASETTABLE1TDATASOUCEDATASOUCE3DATASETTABLE2TDBGRIDDBGRID1DATASOUCEDATASOUCE1TPAGECONTROLPAGECONTROL1DRAGMODEdmManualTTABSHEETTABLESHEET1CAPTION查詢TTABSHEETTABLESHEET2CAPTION新增TTABSHEETTABLESHEET3CAPTION編輯TDBEDITTDBEDIT1DATASOUCEDATESOUCE1DATAFIELD異常報告編號……TCOMBOBOXCOMBOBOX1……TCOMBOBOXCOMBOBOX4ITEM異常報告編號客戶號貨物編號TEDITEDIT1TBUTTONBUTTON1CAPTION查詢TBUTTONBUTTON4CAPTION確定TNAVIGATORNAVIGATOR1DATASOUCEDATESOUCE1⑵、程序代碼:unitUnit11;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Grids,DBGrids,ComCtrls,DB,DBTables,DBCtrls,Mask,ExtCtrls;typeTYCBG=class(TForm)Table9:TTable;DataSource1:TDataSource;DBGrid1:TDBGrid;Label1:TLabel;Label2:TLabel;DataSource2:TDataSource;Table1:TTable;Table2:TTable;DataSource3:TDataSource;PageControl1:TPageControl;TabSheet1:TTabSheet;TabSheet2:TTabSheet;Label3:TLabel;Label4:TLabel;Label6:TLabel;Label7:TLabel;Label8:TLabel;Label9:TLabel;Label16:TLabel;Label20:TLabel;Label21:TLabel;Edit1:TEdit;Edit2:TEdit;Edit8:TEdit;Edit11:TEdit;Edit12:TEdit;Button4:TButton;TabSheet3:TTabSheet;Label22:TLabel;Label23:TLabel;Label25:TLabel;Label26:TLabel;Label27:TLabel;Label28:TLabel;Label35:TLabel;Label39:TLabel;Label40:TLabel;DBEdit5:TDBEdit;DBEdit6:TDBEdit;DBEdit8:TDBEdit;DBEdit9:TDBEdit;DBEdit10:TDBEdit;DBEdit11:TDBEdit;DBEdit18:TDBEdit;DBEdit22:TDBEdit;DBEdit23:TDBEdit;DBNavigator1:TDBNavigator;ComboBox1:TComboBox;ComboBox2:TComboBox;Edit13:TEdit;Edit14:TEdit;Label41:TLabel;ComboBox4:TComboBox;Label42:TLabel;Edit17:TEdit;Button1:TButton;Panel1:TPanel;Panel2:TPanel;procedureTabSheet2Show(Sender:TObject);procedureComboBox1Exit(Sender:TObject);procedureComboBox2Exit(Sender:TObject);procedureComboBox2Change(Sender:TObject);procedureComboBox1Change(Sender:TObject);procedureEdit1Exit(Sender:TObject);procedureButton4Click(Sender:TObject);procedureButton1Click(Sender:TObject);procedureTabSheet1Show(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varYCBG:TYCBG;implementation{$R*.dfm}procedure(Sender:TObject);vari:integer;begin:='';:='';:='';:='';:='';:='';:='';:=FALSE;:=FALSE;;;;fori:=1todobegin;END;;fori:=1todobegin;END;end;procedure(Sender:TObject);VARS:STRING;beginS:=;:=COPY(S,1,5);end;procedure(Sender:TObject);begin:=COPY,1,10);end;procedure(Sender:TObject);begin;end;procedure(Sender:TObject);begin;end;procedure(Sender:TObject);beginIFLENGTH(TRIM)<>10THENBEGINMESSAGEDLG('編號應為10位，請重輸！',mtWarning,[mbOk],0);;END;end;procedure(Sender:TObject);beginIFLENGTH(TRIM)=0THENBEGINMESSAGEDLG('碼單編號不能為空，請重輸！',mtWarning,[mbOk],0);;exit;END;IFLENGTH(TRIM)=0THENBEGINMESSAGEDLG('送貨單編號不能為空，請重輸！',mtWarning,[mbOk],0);;exit;END;IFLENGTH(TRIM)=0THENBEGINMESSAGEDLG('客戶號不能為空，請重輸！',mtWarning,[mbOk],0);;exit;END;IFLENGTH(TRIM)=0THENBEGINMESSAGEDLG('貨物編號不能為空，請重輸！',mtWarning,[mbOk],0);;exit;END;IFLENGTH(TRIM)=0THENBEGINMESSAGEDLG('驗收人員不能為空，請重輸！',mtWarning,[mbOk],0);;exit;END;IFLENGTH(TRIM)=0THENBEGINMESSAGEDLG('制單人員不能為空，請重輸！',mtWarning,[mbOk],0);;exit;END;WITHTABLE9DObeginappend;FieldValues['異常報告編號']:=;FieldValues['送貨單編號']:=trim;FieldValues['客戶號']:=trim;FieldValues['客戶名']:=copy(trim,6,length(trim)-5);FieldValues['貨物編號']:=trim;FieldValues['品名']:=copy(trim,11,length(trim)-10);FieldValues['驗收人員']:=trim;FieldValues['制單人']:=trim;FieldValues['異常情況']:=trim;Post;end;end;procedure(Sender:TObject);VARX:BOOLEAN;beginX:=,,[]);IFNOTXTHENMESSAGEDLG('沒有找到,請重輸!',mtWarning,[mbOk],0);IFXTHENMESSAGEDLG('已找到,請進入"編輯"頁面查看!',mtWarning,[mbOk],0);end;procedure(Sender:TObject);begin:='';:='';end;END.2、“入庫單管理”模塊：⑴、界面設計：主要組件及屬性值：組件類型組件名屬性名屬性值窗體（TFORM）RKDCAPTION入庫單管理TTABLETABLE10DATABASENAMEHNXTTABLENAMEDBO.入庫單ACTIVETRUETTABLETABLE1DATABASENAMEHNXTTABLENAMEDBO.碼單ACTIVETRUETTABLETABLE2DATABASENAMEHNXTTABLENAMEDBO.貨物ACTIVETRUETTABLETABLE3DATABASENAMEHNXTTABLENAMEDBO.庫區(qū)ACTIVETRUETDATASOUCEDATASOUCE1DATASETTABLE10TDATASOUCEDATASOUCE2DATASETTABLE1TDATASOUCEDATASOUCE3DATASETTABLE2TDATASOUCEDATASOUCE4DATASETTABLE3TDBGRIDDBGRID1DATASOUCEDATASOUCE1TPAGECONTROLPAGECONTROL1DRAGMODEdmManualTTABSHEETTABLESHEET1CAPTION查詢TTABSHEETTABLESHEET2CAPTION新增TTABSHEETTABLESHEET3CAPTION編輯TDBEDITTDBEDIT1DATASOUCEDATESOUCE1DATAFIELD入庫單編號……TCOMBOBOXCOMBOBOX1……TCOMBOBOXCOMBOBOX4ITEM入庫單編號碼單號貨物編號TEDITEDIT1TBUTTONBUTTON1CAPTION查詢TBUTTONBUTTON4CAPTION確定TBUTTONBUTTON2CAPTION當天TNAVIGATORNAVIGATOR1DATASOUCEDATESOUCE1⑵、程序代碼:unitUnit12;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Grids,DBGrids,ComCtrls,DB,DBTables,DBCtrls,Mask,ExtCtrls;typeTRKD=class(TForm)Table10:TTable;DataSource1:TDataSource;DBGrid1:TDBGrid;Label1:TLabel;Label2:TLabel;DataSource2:TDataSource;Table1:TTable;Table2:TTable;DataSource3:TDataSource;Table3:TTable;DataSource4:TDataSource;PageControl1:TPageControl;TabSheet1:TTabSheet;TabSheet2:TTabSheet;Label3:TLabel;Label4:TLabel;Label6:TLabel;Label7:TLabel;Label8:TLabel;Label9: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;Edit4:TEdit;Edit5:TEdit;Edit6:TEdit;Edit7:TEdit;Edit8:TEdit;Edit9:TEdit;Edit10:TEdit;Edit11:TEdit;Edit12:TEdit;Button4:TButton;TabSheet3:TTabSheet;Label22:TLabel;Label23:TLabel;Label25:TLabel;Label27:TLabel;Label36:TLabel;Label37:TLabel;Label39:TLabel;DBEdit5:TDBEdit;DBEdit6:TDBEdit;DBEdit7:TDBEdit;DBEdit8:TDBEdit;DBEdit9:TDBEdit;DBEdit10:TDBEdit;DBEdit11:TDBEdit;DBNavigator1:TDBNavigator;ComboBox1:TComboBox;ComboBox2:TComboBox;ComboBox3:TComboBox;Edit13:TEdit;Edit14:TEdit;Edit15:TEdit;Edit16:TEdit;Label41:TLabel;ComboBox4:TComboBox;Label42:TLabel;Edit17:TEdit;Button1:TButton;Panel1:TPanel;Panel2:TPanel;Panel3:TPanel;ComboBox5:TComboBox;Label5:TLabel;Button2:TButton;procedureTabSheet2Show(Sender:TObject);procedureComboBox3Change(Sender:TObject);procedureButton4Click(Sender:TObject);procedureButton1Click(Sender:TObject);procedureTabSheet1Show(Sender:TObject);procedureComboBox5Change(Sender:TObject);procedureButton2Click(Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varRKD:TRKD;implementation{$R*.dfm}procedure(Sender:TObject);vari:integer;begin:='';:='';:='';:='';:='';:='';:='';:='';:='';:='';:='';:='';:='';:='';:='';:=false;:=false;:=false;:=false;:=false;:=false;:=true;:=false;:=TRUE;:=false;:=FALSE;:=FALSE;:=FALSE;:=FALSE;;;;;:=false;:=false;;fori:=1todobeginIF('入庫日期').asdatetime=0then;END;;fori:=1todobeginif['是否為空']='是'then;end;end;procedure(Sender:TObject);begin;end;procedure(Sender:TObject);beginIFLENGTH(TRIM)<>10THENBEGINMESSAGEDLG('入庫單編號應為10位，請重輸！',mtWarning,[mbOk],0);;exit;END;IFLENGTH(TRIM)=0THENBEGINMESSAGEDLG('碼單編號不能為空，請重輸！',mtWarning,[mbOk],0);;exit;END;IFLENGTH(TRIM)=0THENBEGINMESSAGEDLG('入庫日期不能為空，請重輸！',mtWarning,[mbOk],0);;exit;END;IFLENGTH(TRIM)=0THENBEGINMESSAGEDLG('制單人員不能為空，請重輸！',mtWarning,[mbOk],0);;exit;END;WITHTABLE10DObeginappend;FieldValues['入庫單編號']:=;FieldValues['送貨單編號']:=trim;FieldValues['客戶號']:=trim;FieldValues['碼單編號']:=trim;FieldValues['入庫日期']:=STRTODATE;FieldValues['庫存