【文章內容簡介】 (Tf_loginserver,f_loginserver)。 。 。 end。 end。 Finally 。 end。 end。 。 [Sta_Date].Text := FormatDateTime(39。yyyymmdd39。,Now)。 //加載AVI動畫 if FileExists(ExtractFilePath()+39。AVI\39。) then begin := ExtractFilePath()+39。AVI\39。 := True。 end。end。 基礎窗體創(chuàng)建創(chuàng)建基礎窗體主要是提高開發(fā)速度和代碼的利用率，從基礎窗體繼承的子窗體具有基礎窗體的全部功能。基礎窗體如圖11所示。圖11 基礎窗體1．窗體設計步驟添加一個新窗體，命名為“f_frame”，設置其BorderStyle屬性為“bsDialog”；KeyPreview屬性為“True”。2．程序相關代碼在窗體的OnKeyDown事件處理過程中設置，如果用戶按下〈ESC〉鍵關閉窗體。代碼如下：procedure (Sender: TObject。 var Key: Word。 //按〈Esc〉鍵關閉窗體 Shift: TShiftState)。begin if Key = VK_Escape then Close。end。定義過程“FindNext(Direct: Boolean)?！?，使用〈Enrter〉鍵代替〈Tab〉鍵。代碼如下：procedure (Direct: Boolean)。begin FindNextControl(ActiveControl,Direct,False,False).SetFocus。end。 物資入庫管理模塊設計物資入庫管理模塊主要功能是記錄物資入庫的相關信息，使用TStringGrid組件實現多行錄入。物資入庫管理模塊運行結果如圖12所示。圖12 物資入庫管理模塊運行的結果1．窗體設計步驟（1）選擇“File”/“New”/“Other”菜單項，打開“New Items”對話框，選擇“bpglxt”選項卡，點選“f_frame”，以繼承方式使用該窗體。單擊【OK】按鈕添加一個新窗體，命名窗體為“f_instore”，設置Caption屬性為“物資入庫管理”。（2）在窗體上添加TLabel組件，命名為“Label1”。設置該組件的Caption屬性為“物資入庫管理”，設置Label1組件的Font屬性如圖13所示。圖13 Font屬性設置（3）在窗體上添加TPanel組件，命名為“Panel2”。設置該組件的Align屬性為“alBottom”；Caption屬性為空。（4）添加4個TLabel組件到Panel2組件上，分別設置它們的Caption屬性為“供應商名稱”、“負責人”、“操作員”、“時間”。添加4個TEdit組件到Panel2組件上，分別命名為“Providername”，“Principal”，“Operator”。添加TDateTimePicker組件到Panel2組件上，命名為“Date”。（5）在窗體上添加TPanel組件，命名為“Panel1”。設置該組件的Align屬性為“alBottom”，在Panel1組件上添加4個TLabel組件和4個TEdit組件。（6）在窗體上添加TPanel組件，命名為“Panel3”。在該組件上添加3個TBitBtn組件，分別命名為“Save”、“Cancel”、“Quit”。（7）添加TStringGrid組件到窗體上，命名為“Reginfo”。設置該組件的Align屬性為“alBottom”；ColCount屬性為“9”；RowCount屬性為“2”；Ctrl3D屬性為“False”。（8）在窗體上添加TDataSource組件，命名為“RegSource”；添加TListBox組件，命名為“List”；添加TComboBox組件，命名為“Comstorage”；添加TDBGrid組件，命名為“Grid”。設置Grid組件的DataSource屬性為“RegSource”。設計期物資入庫窗體如圖14所示。圖14 設計期物資入庫管理模塊2．程序相關代碼在窗體的OnShow事件處理過程中設置TStringGrid組件相關屬性，將倉庫信息添加到TComboBox組件中。代碼如下：procedure (Sender: TObject)。begin inherited。 with Reginfo do begin //設置字段名稱 Cells[barcode,0]:=39。條形碼39。 Cells[storename,0]:= 39。物資名稱39。 Cells[basicunit,0]:=39?；締挝?9。 Cells[stockunit,0]:= 39。采購單位39。 Cells[convertions,0]:= 39。換算關系39。 Cells[unitprice,0]:= 39。單價39。 Cells[num,0]:=39。數量39。 Cells[money,0]:= 39。金額39。 Cells[storagename,0]:=39。倉庫名稱39。 end。 with do //查詢倉庫名稱,將其添加到組合框中 begin CLose。 。 (39。select storagename from tb_storageinfo39。)。 Open。 end。 if 0 then begin while not do begin (Trim((39。storagename39。).AsString))。 。 end。 := 0。 end。 。end。在TStringGrid組件的OnKeyPress事件處理過程中限制輸入的內容。代碼如下：procedure (Sender: TObject。 var Key: Char)。begin inherited。 if (col = unitprice)or(col = num)or(col = convertions) then begin if not (Key in [39。039。..39。939。,39。.39。,8]) then //只允許輸入數字鍵和退格鍵 Key := 0 //輸入空字符 end。end。Keypress鍵盤事件該事件是當用戶按下ASCII字符的鍵盤時發(fā)生的。在該事件下的Key參數是一個數字，代表字符的ASCII值，如13（回車鍵）或27（ESC鍵）。示例代碼如下：IF Key=13 then //回車后，焦點跳轉到edit2組件。在TStringGrid組件的OnSelectCell事件處理過程中設置單元是否可編輯。代碼如下：procedure (Sender: TObject。 ACol, ARow: Integer。 var CanSelect: Boolean)。begin inherited。 row := ARow。 col := ACol。 //當物資名稱為空時可以編輯條形碼,當條形碼為空時可以編輯物資名稱,//當條形碼不為空時可以編輯單價、數量 if (col = barcode)and(Trim([storename,row])=39。39。)or(col = storename)and(Trim([barcode,row])=39。39。)or (col = unitprice)and(Trim([barcode,row])39。39。)or(col = num)and(Trim([barcode,row])39。39。)or (col = convertions)and(Trim([barcode,row])39。39。)then := + [goEditing] else := [goEditing]。end。在TStringGrid組件的OnSetEditText事件處理過程中，設置TDBGrid組件出現的位置。代碼如下：procedure (Sender: TObject。 ACol, ARow: Integer。 const Value: String)。var CellRect: TRect。 //記錄單元格的區(qū)域,用于設置begin inherited。 if Reg = false then begin := False。 //使輔助錄入表格不可用 if (Acol = storename) then //按倉庫名稱或簡碼進行匹配查詢 begin With do begin CLose。 。 (39。select * from tb_storeinfo where storename Like :Storename or nameshort like :nameshort39。)。 (39。storename39。).Value := Trim([storename,ARow])+39。%39。 。 (39。nameshort39。).Value := Trim([storename,