【正文】 主要組件及屬性值：組件類型組件名屬性名屬性值窗體（TFORM）YCBGCAPTION異常報告管理TTABLETABLE9DATABASENAMEHNXTTABLENAMEACTIVETRUETTABLETABLE1DATABASENAMEHNXTTABLENAMEACTIVETRUETTABLETABLE2DATABASENAMEHNXTTABLENAMEACTIVETRUETDATASOUCEDATASOUCE1DATASETTABLE9TDATASOUCEDATASOUCE2DATASETTABLE1TDATASOUCEDATASOUCE3DATASETTABLE2TDBGRIDDBGRID1DATASOUCEDATASOUCE1TPAGECONTROLPAGECONTROL1DRAGMODEdmManualTTABSHEETTABLESHEET1CAPTION查詢TTABSHEETTABLESHEET2CAPTION新增TTABSHEETTABLESHEET3CAPTION編輯TDBEDITTDBEDIT1DATASOUCEDATESOUCE1DATAFIELD異常報告編號……………………TCOMBOBOXCOMBOBOX1……………………TCOMBOBOXCOMBOBOX4ITEM異常報告編號客戶號貨物編號TEDITEDIT1TBUTTONBUTTON1CAPTION查詢TBUTTONBUTTON4CAPTION確定TNAVIGATORNAVIGATOR1DATASOUCEDATESOUCE1⑵、:unit Unit11。interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, DBGrids, ComCtrls, DB, DBTables, DBCtrls, Mask, ExtCtrls。type TYCBG = 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。 procedure TabSheet2Show(Sender: TObject)。 procedure ComboBox1Exit(Sender: TObject)。 procedure ComboBox2Exit(Sender: TObject)。 procedure ComboBox2Change(Sender: TObject)。 procedure ComboBox1Change(Sender: TObject)。 procedure Edit1Exit(Sender: TObject)。 procedure Button4Click(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 procedure TabSheet1Show(Sender: TObject)。 private { Private declarations } public { Public declarations } end。var YCBG: TYCBG。implementation{$R *.dfm}procedure (Sender: TObject)。var i:integer。begin:=39。 39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=39。39。:=FALSE。:=FALSE。for i:=1 to do begin ([39?？蛻籼?9。]+[39?？蛻裘?9。])。 。 END 。 。 for i:=1 to do begin ([39。貨物編號39。]+[39。品名39。])。 。 END。 end。procedure (Sender: TObject)。 VAR S:STRING 。begin S:=。 :=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)。begin IF LENGTH(TRIM())10 THEN BEGIN MESSAGEDLG(39。編號應(yīng)為10位，請重輸！39。,mtWarning, [mbOk], 0)。 。 END。end。procedure (Sender: TObject)。begin IF LENGTH(TRIM())=0 THEN BEGIN MESSAGEDLG(39。碼單編號不能為空，請重輸！39。,mtWarning, [mbOk], 0)。 。 exit。 END。 IF LENGTH(TRIM())=0 THEN BEGIN MESSAGEDLG(39。送貨單編號不能為空，請重輸！39。,mtWarning, [mbOk], 0)。 。 exit。 END。 IF LENGTH(TRIM())=0 THEN BEGIN MESSAGEDLG(39。客戶號不能為空，請重輸！39。,mtWarning, [mbOk], 0)。 。 exit。 END。 IF LENGTH(TRIM())=0 THEN BEGIN MESSAGEDLG(39。貨物編號不能為空，請重輸！39。,mtWarning, [mbOk], 0)。 。 exit。 END。 IF LENGTH(TRIM())=0 THEN BEGIN MESSAGEDLG(39。驗收人員不能為空，請重輸！39。,mtWarning, [mbOk], 0)。 。 exit。 END。 IF LENGTH(TRIM())=0 THEN BEGIN MESSAGEDLG(39。制單人員不能為空，請重輸！39。,mtWarning, [mbOk], 0)。 。 exit。 END。 WITH TABLE9 DO begin append。 FieldValues[39。異常報告編號39。] := 。 FieldValues[39。送貨單編號39。] := trim()。 FieldValues[39?？蛻籼?9。] := trim()。 FieldValues[39。客戶名39。] := copy(trim(),6,length(trim())5)。 FieldValues[39。貨物編號39。] := trim()。 FieldValues[39。品名39。] := copy(trim(),11,length(trim())10)。 FieldValues[39。驗收人員39。] :=trim()。 FieldValues[39。制單人39。] :=trim()。 FieldValues[39。異常情況39。] :=trim()。 Post。 end。end。procedure (Sender: TObject)。VAR X:BOOLEAN。begin X:=(,[])。 IF NOT X THEN MESSAGEDLG(39。沒有找到,請重輸!39。,mtWarning, [mbOk], 0)。 IF X THEN MESSAGEDLG(39。已找到,請進(jìn)入編輯頁面查看!39。,mtWarning, [mbOk], 0)。end。procedure (Sender: TObject)。begin :=39。39。 :=39。39。end。END.“入庫單管理”模塊：⑴、界面設(shè)計：主要組件及屬性值：組件類型組件名屬性名屬性值窗體（TFORM）RKDCAPTION入庫單管理TTABLETABLE10DATABASENAMEHNXTTABLENAMEACTIVETRUETTABLETABLE1DATABASENAMEHNXTTABLENAMEACTIVETRUETTABLETABLE2DATABASENAMEHNXTTABLENAMEACTIVETRUETTABLETABLE3DATABASENAMEHNXTTABLENAMEACTIVETRUETDATASOUCEDATASOUCE1DATASETTABLE10TDATASOUCEDATASOUCE2DATASETTABLE1TDATASOUCEDATASOUCE3DATASETTABLE2TDATASOUCEDATASOUCE4DATASETTABLE3TDBGRIDDBGRID1DATASOUCEDATASOUCE1TPAGECONTROLPAGECONTROL1DRAGMODEdmManualTTABSHEETTABLESHEET1CAPTION查詢TTABSHEETTABLESHEET2CAPTION新增TTABSHEET