【正文】 編輯窗、可視化編輯窗體、相對應的PAS源程序語句編輯區(qū)。如：D：\WLMIS。下面開始設計第一個界面，簡單的“登錄”窗體界面。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ù)庫服務器需要用戶登錄、指定別名等一些情況下，一般情況下可不必用此組件。⑵、DATA ACCESS數(shù)據(jù)訪問組件：常用的有TABLE：Table組件是最常用的組件，絕大部分數(shù)據(jù)庫程序都要用到它，一般在設計階段放進窗體，但此組件在運行時是不可見的。⑶、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中各字段建立相應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.四、實驗結果：略實驗三、“倉庫管理”中“基本信息”、“碼單管理”模塊的實施一、實驗目的： 結合倉儲系統(tǒng)分析，運用逐漸熟悉的DELPHI開發(fā)工具，進入到較復雜的管理業(yè)務信息化工作中?！按a單管理”是本實驗的重點。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ù)暮喕?。如下圖：其中，主要組件及屬性設置如下：組件類型組件名屬性名屬性值窗體（TFORM）MDGLCAPTION碼單管理TTABLETABLE8DATABASENAMEHNXTTABLENAMEACTIVETRUETTABLETABLE1DATABASENAMEHNXTTABLENAMEACTIVETRUETTABLETABLE2DATABASENAMEHNXTTABLENAMEACTIVETRUETTABLETABLE3DATABASENAMEHNXTTABLENAMEACTIVETRUETDATASOUCEDATASOUCE1DATASETTABLE8TDATASOUCEDATASOUCE2DATASETTABLE1TDATASOUCEDATASOUCE3DATASETTABLE2TDATASOUCEDATASOUCE4DATASETTABLE3TDBGRIDDBGRID1DATASOUCEDATASOUCE1TPAGECONTROLPAGECONTROL1DRAGMODEdmManualTTABSHEETTABLESHEET1CAPTION查詢TTABSHEETTABLESHEET2CAPTION新增TTABSHEETTABLESHEET3CAPTION編輯TDBEDITTDBEDIT1DATASOUCEDATESOUCE1DATAFIELD碼單編號……………………TCOMBOBOXCOMBOBOX1……………………TCOMBOBOXCOMBOBOX4ITEM碼單編號客戶號貨物編號TEDITEDIT1TBUTTONBUTTON1CAPTION查詢TBUTTONBUTTON4CAPTION確定TBUTTONBUTTON5CAPTION當天TNAVIGATORNAVIGATOR1DATASOUCEDATESOUCE1 ⑵、: 在程序設計過程中，考慮到高職高專的學習特點，盡量使用最簡單、少量的DELPHI內部的函數(shù)、命令實現(xiàn)其功能，少用或沒采用SQL語句，相關屬性設置有疑問的，請查看隨書軟件。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