【正文】 編輯窗、可視化編輯窗體、相對應(yīng)的PAS源程序語句編輯區(qū)。如：D：\WLMIS。下面開始設(shè)計第一個界面，簡單的“登錄”窗體界面。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls。 Label2: TLabel。 Edit2: TEdit。 Button1: TButton。 procedure Button1Click(Sender: TObject)。 private { Private declarations } public { Public declarations } end。implementationuses Unit2。ADMIN39。 ipassword=39。procedure (Sender: TObject)。歡迎使用物流MIS系統(tǒng)！39。 。 end else messagedlg(39。39。 :=39。 :=39。end。 //“退出”按鍵程序begin close。end.數(shù)據(jù)源組件DBE、DATA ACCESS、DATA CONTROLS簡介；⑴、DBE數(shù)據(jù)源（數(shù)據(jù)引擎）組件：常用的有database:DataBase 組件一般用于程序與數(shù)據(jù)庫的永久連接、數(shù)據(jù)庫服務(wù)器需要用戶登錄、指定別名等一些情況下，一般情況下可不必用此組件。⑵、DATA ACCESS數(shù)據(jù)訪問組件：常用的有TABLE：Table組件是最常用的組件，絕大部分?jǐn)?shù)據(jù)庫程序都要用到它，一般在設(shè)計階段放進(jìn)窗體，但此組件在運(yùn)行時是不可見的。⑶、DATA CONTROLS數(shù)據(jù)控制組件：常用的有DBGRID、DBNAVIGATOR等：主要是以各種形式向前臺用戶提供數(shù)據(jù)界面支持，是軟件的重要組成部分。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls。 Database1: TDatabase。 DBGrid1: TDBGrid。 DBEdit2: TDBEdit。 Label1: TLabel。 Label3: TLabel。 private { Private declarations } public { Public declarations } end。implementation{$R *.dfm}end.⑵、“職工管理”：依照“部門管理”窗體建立，去掉DATABASE1組件，并按ZG中各字段建立相應(yīng)DBEDIT控件；：unit Unit4。type TZGGL = class(TForm) Table2: TTable。 DBGrid1: TDBGrid。 Label2: TLabel。 DBEdit2: TDBEdit。 DBEdit4: TDBEdit。 DBEdit6: TDBEdit。 DBEdit8: TDBEdit。 DBEdit10: TDBEdit。 DBEdit12: TDBEdit。 Label4: TLabel。 Label6: TLabel。 Label8: TLabel。 Label10: TLabel。 Label12: TLabel。 Label14: TLabel。 private { Private declarations } public { Public declarations } end。implementation{$R *.dfm}end.四、實(shí)驗(yàn)結(jié)果：略實(shí)驗(yàn)三、“倉庫管理”中“基本信息”、“碼單管理”模塊的實(shí)施一、實(shí)驗(yàn)?zāi)康模? 結(jié)合倉儲系統(tǒng)分析，運(yùn)用逐漸熟悉的DELPHI開發(fā)工具，進(jìn)入到較復(fù)雜的管理業(yè)務(wù)信息化工作中?！按a單管理”是本實(shí)驗(yàn)的重點(diǎn)。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask。 DataSource3: TDataSource。 Label1: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 DBEdit6: TDBEdit。 DBNavigator1: TDBNavigator。var CKGL: TCKGL。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask。 DataSource4: TDataSource。 Label1: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 Label7: TLabel。 DBEdit6: TDBEdit。 DBNavigator1: TDBNavigator。var KQGL: TKQGL。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids, DB, DBTables, ExtCtrls, DBCtrls, StdCtrls, Mask。 DataSource4: TDataSource。 Label1: TLabel。 Label3: TLabel。 Label4: TLabel。 Label5: TLabel。 Label6: TLabel。 DBEdit6: TDBEdit。 DBNavigator1: TDBNavigator。var KWGL: TKWGL。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids, DB, DBTables。 DataSource2: TDataSource。 Label1: TLabel。 DBEdit1: TDBEdit。 DBEdit3: TDBEdit。 DBEdit5: TDBEdit。 DBEdit7: TDBEdit。 DBEdit9: TDBEdit。 Label3: TLabel。 Label5: TLabel。 Label7: TLabel。 Label9: TLabel。 Label11: TLabel。 DBNavigator1: TDBNavigator。var KHGL: TKHGL。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, StdCtrls, Mask, Grids, DBGrids, DB, DBTables。 DataSource2: TDataSource。 Label1: TLabel。 DBEdit1: TDBEdit。 DBEdit3: TDBEdit。 DBEdit5: TDBEdit。 DBEdit7: TDBEdit。 DBEdit10: TDBEdit。 Label4: TLabel。 Label6: TLabel。 Label8: TLabel。 Label10: TLabel。 Label12: TLabel。 Label13: TLabel。var HWGL: THWGL。本實(shí)驗(yàn)作了適當(dāng)?shù)暮喕?。如下圖：其中，主要組件及屬性設(shè)置如下：組件類型組件名屬性名屬性值窗體（TFORM）MDGLCAPTION碼單管理TTABLETABLE8DATABASENAMEHNXTTABLENAMEACTIVETRUETTABLETABLE1DATABASENAMEHNXTTABLENAMEACTIVETRUETTABLETABLE2DATABASENAMEHNXTTABLENAMEACTIVETRUETTABLETABLE3DATABASENAMEHNXTTABLENAMEACTIVETRUETDATASOUCEDATASOUCE1DATASETTABLE8TDATASOUCEDATASOUCE2DATASETTABLE1TDATASOUCEDATASOUCE3DATASETTABLE2TDATASOUCEDATASOUCE4DATASETTABLE3TDBGRIDDBGRID1DATASOUCEDATASOUCE1TPAGECONTROLPAGECONTROL1DRAGMODEdmManualTTABSHEETTABLESHEET1CAPTION查詢TTABSHEETTABLESHEET2CAPTION新增TTABSHEETTABLESHEET3CAPTION編輯TDBEDITTDBEDIT1DATASOUCEDATESOUCE1DATAFIELD碼單編號……………………TCOMBOBOXCOMBOBOX1……………………TCOMBOBOXCOMBOBOX4ITEM碼單編號客戶號貨物編號TEDITEDIT1TBUTTONBUTTON1CAPTION查詢TBUTTONBUTTON4CAPTION確定TBUTTONBUTTON5CAPTION當(dāng)天TNAVIGATORNAVIGATOR1DATASOUCEDATESOUCE1 ⑵、: 在程序設(shè)計過程中，考慮到高職高專的學(xué)習(xí)特點(diǎn)，盡量使用最簡單、少量的DELPHI內(nèi)部的函數(shù)、命令實(shí)現(xiàn)其功能，少用或沒采用SQL語句，相關(guān)屬性設(shè)置有疑問的，請查看隨書軟件。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, DB, DBTables, DBCtrls, Mask, ExtCtrls。 DataSource1: TDataSource。 Label1: TLabel。 DataSource2: TDataSource。 Table2: TTable。 Table3: TTable。 PageControl1: TPageControl。 TabSheet2: TTabSheet。 Label4: TLabel。 Label6: TLabel。 Label8: TLabel。 Label10: TLabel。 Label12: TLabel。 Label14: TLabel。 Label16: TLabel。 Label18: TLabe