【正文】 heet。 Button4: TButton。 Edit12: TEdit。 Edit10: TEdit。 Edit8: TEdit。 Edit6: TEdit。 Edit4: TEdit。 Edit2: TEdit。 Label21: TLabel。 Label19: TLabel。 Label17: TLabel。 Label15: TLabel。 Label13: TLabel。 Label11: TLabel。 Label9: TLabel。 Label7: TLabel。 Label5: TLabel。 Label3: TLabel。 TabSheet1: TTabSheet。 DataSource4: TDataSource。 DataSource3: TDataSource。 Table1: TTable。 Label2: TLabel。 DBGrid1: TDBGrid。type TMDGL = class(TForm) Table8: TTable。unit Unit10。界面數(shù)據(jù)來源使用四對(duì)table與datasouce控件組，窗體大致分左右兩區(qū)，左區(qū)用于瀏覽顯示所有碼單，右區(qū)用于功能操作，包括查詢、新增、編輯，用三個(gè)頁框區(qū)分不同功能。implementation{$R *.dfm}end. “碼單管理”模塊： ⑴、界面設(shè)計(jì)： 碼單管理是倉(cāng)儲(chǔ)管理中很重要的一項(xiàng)工作，數(shù)據(jù)項(xiàng)多，來源較廣，處理較復(fù)雜。 private { Private declarations } public { Public declarations } end。 DBNavigator1: TDBNavigator。 Label11: TLabel。 Label9: TLabel。 Label7: TLabel。 Label5: TLabel。 Label3: TLabel。 DBEdit8: TDBEdit。 DBEdit6: TDBEdit。 DBEdit4: TDBEdit。 DBEdit2: TDBEdit。 Label2: TLabel。 DBGrid1: TDBGrid。type THWGL = class(TForm) Table7: TTable。implementation{$R *.dfm}end.“貨物管理”模塊：⑴、界面：⑵、:unit Unit9。 private { Private declarations } public { Public declarations } end。 Label12: TLabel。 Label10: TLabel。 Label8: TLabel。 Label6: TLabel。 Label4: TLabel。 DBEdit10: TDBEdit。 DBEdit8: TDBEdit。 DBEdit6: TDBEdit。 DBEdit4: TDBEdit。 DBEdit2: TDBEdit。 Label2: TLabel。 DBGrid1: TDBGrid。type TKHGL = class(TForm) Table6: TTable。implementation{$R *.dfm}end.“客戶管理”模塊：⑴、界面：⑵、:unit Unit8。 private { Private declarations } public { Public declarations } end。 Label9: TLabel。 DBEdit4: TDBEdit。 DBEdit3: TDBEdit。 DBEdit2: TDBEdit。 DBEdit1: TDBEdit。 Label2: TLabel。 DBGrid1: TDBGrid。type TKWGL = class(TForm) Table5: TTable。implementation{$R *.dfm}end.“庫(kù)位管理”模塊：⑴、界面：⑵、:unit Unit7。 private { Private declarations } public { Public declarations } end。 Label9: TLabel。 DBEdit5: TDBEdit。 DBEdit4: TDBEdit。 DBEdit3: TDBEdit。 DBEdit2: TDBEdit。 DBEdit1: TDBEdit。 Label2: TLabel。 DBGrid1: TDBGrid。type TKQGL = class(TForm) Table4: TTable。implementation{$R *.dfm}end.“庫(kù)區(qū)管理”模塊：⑴、界面：⑵、:unit Unit6。 private { Private declarations } public { Public declarations } end。 Label9: TLabel。 DBEdit5: TDBEdit。 DBEdit4: TDBEdit。 DBEdit3: TDBEdit。 DBEdit2: TDBEdit。 DBEdit1: TDBEdit。 Label2: TLabel。 DBGrid1: TDBGrid。type TCKGL = class(TForm) Table3: TTable。二、實(shí)驗(yàn)內(nèi)容：“倉(cāng)庫(kù)管理”模塊：⑴、界面：⑵、:unit Unit5。本實(shí)驗(yàn)“基本信息”模塊的實(shí)施，與實(shí)驗(yàn)二中“職工管理”相似，不再重述，只要注意數(shù)據(jù)集控件TABLE n的TABLENAME的變動(dòng)。var ZGGL: TZGGL。 DBNavigator1: TDBNavigator。 Label13: TLabel。 Label11: TLabel。 Label9: TLabel。 Label7: TLabel。 Label5: TLabel。 Label3: TLabel。 DBEdit11: TDBEdit。 DBEdit9: TDBEdit。 DBEdit7: TDBEdit。 DBEdit5: TDBEdit。 DBEdit3: TDBEdit。 DBEdit1: TDBEdit。 Label1: TLabel。 DataSource2: TDataSource。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids, DB, DBTables。var BMGL: TBMGL。 Label4: TLabel。 Label2: TLabel。 DBNavigator1: TDBNavigator。 DBEdit1: TDBEdit。 DataSource1: TDataSource。type TBMGL = class(TForm) Table1: TTable。 三種部件之間的內(nèi)部關(guān)系“系統(tǒng)設(shè)置”管理界面的實(shí)施：⑴、“部門設(shè)置”：窗體所含各主要組件及屬性表：組件類型組件名屬性名屬性值窗體（TFORM）BMGLCAPTION部門管理TDATABASEDATABASE1DATABASENAMEHNXTALIAS NAMEHNXTCONNECTEDTRUEKEEP CONNECTEDTRUETTABLETABLE1DATABASENAMEHNXTTABLENAMEACTIVETRUETDATASOUCEDATASOUCE1DATASETTABLE1TDBGRIDDBGRID1DATASOUCEDATASOUCE1TDBEDITTDBEDIT1DATASOUCEDATESOUCE1DATAFIELD部門編號(hào)TDBEDITTDBEDIT2DATASOUCEDATESOUCE1DATAFIELD部門名稱TNAVIGATORNAVIGATOR1DATASOUCEDATESOUCE1其中：雙擊“DATEBASE1”控件，出現(xiàn)下圖：設(shè)置好NAME，ALIAS MAME 為前面ODBC的名稱HNXT，設(shè)置USERNAME=ADMIN；PASSWORD=ADMIN；去掉LOGIN PROMPT 前面的選項(xiàng)，使程序連接后臺(tái)數(shù)據(jù)庫(kù)時(shí)自動(dòng)登錄，不需要輸入用戶名和口令；：unit Unit3。用于從數(shù)據(jù)源DATABASE中取數(shù)據(jù)，組成數(shù)據(jù)表，供前臺(tái)數(shù)據(jù)控制組件使用。由于我們?cè)诒境绦蛑行枰蜷_網(wǎng)絡(luò)數(shù)據(jù)庫(kù)，所以在程序啟動(dòng)后就把數(shù)據(jù)庫(kù)打開時(shí)需要的用戶名和密碼都設(shè)定好，這樣在別的窗口中就無須再考慮這個(gè)問題了。end。procedure (Sender: TObject)。39。39。,mtinformation,[mbok],0)。錯(cuò)誤！請(qǐng)重新輸入。 。,mtinformation,[mbok],0)。 //“進(jìn)入”按鍵程序begin if (=iusename)and(=ipassword) then begin messagedlg(39。12345639。 。{$R *.dfm}const iusename=39。var Form1: TForm1。 procedure Button2Click(Sender: TObject)。 Button2: TButton。 Label3: TLabel。 Edit1: TEdit。type TForm1 = class(TForm) Label1: TLabel。⑴、界面示意圖:⑵、窗體所含各組件及主要屬性表：組件類型組件名屬性名屬性值窗體（TFORM）DLCAPTION登錄標(biāo)簽（TLABEL）LABEL1CAPTION用戶名FONTSIZE10LABEL2CAPTION口令FONTSIZE10文本框（TEDIT）EDIT1CAPTIONEDIT2PASSWORDCHAR*按鈕（TBUTTON）BUTTON1CAPTION進(jìn)入BUTTON2CAPTION退出⑶、:unit Unit1。新項(xiàng)目?jī)H有一個(gè)單元UNIT1。創(chuàng)建新開發(fā)項(xiàng)目—，保存在自己的文件夾中。四、實(shí)驗(yàn)結(jié)果：略 實(shí)驗(yàn)二、創(chuàng)建項(xiàng)目、創(chuàng)建“登錄”、“系統(tǒng)設(shè)置”管理界面一、實(shí)驗(yàn)?zāi)康模? 通過實(shí)驗(yàn)，掌握DELPHI開發(fā)MIS項(xiàng)目的基本方法，熟悉DELPHI 7的C/S模式下，數(shù)據(jù)庫(kù)開發(fā)工具的使用，熟悉DELPHI編程語言的基本規(guī)則。 （三）代碼設(shè)計(jì) 本系統(tǒng)常用的代碼有：送貨單號(hào)：10位以內(nèi)字符，由送貨方開出，數(shù)據(jù)寬度一般不統(tǒng)一；碼單號(hào)：10位字符，由6位年月日+4位序列號(hào)組成，如：0806210003；入庫(kù)單號(hào)、入庫(kù)收費(fèi)單號(hào)：同上；出庫(kù)單號(hào)、出庫(kù)收費(fèi)單號(hào)、庫(kù)存收費(fèi)單號(hào)：同上；客戶號(hào)：5位字符，其中2位代表客戶類別，后3位為序列號(hào)；庫(kù)區(qū)位置編號(hào)：8位字符，2位代表倉(cāng)庫(kù)，3位代表庫(kù)區(qū)，3位代表庫(kù)位；貨物編號(hào)：10位字符，3位代表大類，3位代表小類，4位序列號(hào)；職工編號(hào)：5位字符，2位代表部門，3位序列號(hào)；異常報(bào)告編號(hào)：8位字符，6位年月日+2位序列號(hào)； （四）數(shù)據(jù)庫(kù)及表設(shè)計(jì)（倉(cāng)儲(chǔ)管理部分）：該物流企業(yè)所有部門共用一個(gè)數(shù)據(jù)庫(kù)，名為WLMIS，其中倉(cāng)儲(chǔ)管理部分的主要數(shù)據(jù)表如下： 碼單：每包裝貨物一份碼單，該表保存所有碼單信息； 異常報(bào)告：該表保存所有入庫(kù)異常信息； 入庫(kù)單：客戶每送一批貨物入庫(kù)，開具一份入庫(kù)單，該表保存所有入庫(kù)信息； 入庫(kù)收費(fèi)單：每份入庫(kù)單對(duì)應(yīng)一張入庫(kù)收費(fèi)單，主要由貨物入庫(kù)裝卸費(fèi)、檢驗(yàn)費(fèi)組成； 庫(kù)存帳：按庫(kù)存位置記載的當(dāng)前庫(kù)存貨物擺放情況； 出庫(kù)單：每批貨物出庫(kù)開具一張出庫(kù)單，該表保存所有出庫(kù)信息； 碼單出庫(kù)表：對(duì)應(yīng)一張出庫(kù)單，挑選多張碼單貨物出庫(kù)，該表保存所