物資管理系統(tǒng)論文范例(編輯修改稿)
2024-12-22 16:26 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 (Tf_loginserver,f_loginserver)。 。 。 end。 end。 Finally 。 end。 end。 。 [Sta_Date].Text := FormatDateTime(39。yyyymmdd39。,Now)。 //加載AVI動(dòng)畫(huà) if FileExists(ExtractFilePath()+39。AVI\39。) then begin := ExtractFilePath()+39。AVI\39。 := True。 end。end。 基礎(chǔ)窗體創(chuàng)建創(chuàng)建基礎(chǔ)窗體主要是提高開(kāi)發(fā)速度和代碼的利用率，從基礎(chǔ)窗體繼承的子窗體具有基礎(chǔ)窗體的全部功能。基礎(chǔ)窗體如圖11所示。圖11 基礎(chǔ)窗體1．窗體設(shè)計(jì)步驟添加一個(gè)新窗體，命名為“f_frame”，設(shè)置其BorderStyle屬性為“bsDialog”；KeyPreview屬性為“True”。2．程序相關(guān)代碼在窗體的OnKeyDown事件處理過(guò)程中設(shè)置，如果用戶按下〈ESC〉鍵關(guān)閉窗體。代碼如下：procedure (Sender: TObject。 var Key: Word。 //按〈Esc〉鍵關(guān)閉窗體 Shift: TShiftState)。begin if Key = VK_Escape then Close。end。定義過(guò)程“FindNext(Direct: Boolean)?！保褂谩碋nrter〉鍵代替〈Tab〉鍵。代碼如下：procedure (Direct: Boolean)。begin FindNextControl(ActiveControl,Direct,False,False).SetFocus。end。 物資入庫(kù)管理模塊設(shè)計(jì)物資入庫(kù)管理模塊主要功能是記錄物資入庫(kù)的相關(guān)信息，使用TStringGrid組件實(shí)現(xiàn)多行錄入。物資入庫(kù)管理模塊運(yùn)行結(jié)果如圖12所示。圖12 物資入庫(kù)管理模塊運(yùn)行的結(jié)果1．窗體設(shè)計(jì)步驟（1）選擇“File”/“New”/“Other”菜單項(xiàng)，打開(kāi)“New Items”對(duì)話框，選擇“bpglxt”選項(xiàng)卡，點(diǎn)選“f_frame”，以繼承方式使用該窗體。單擊【OK】按鈕添加一個(gè)新窗體，命名窗體為“f_instore”，設(shè)置Caption屬性為“物資入庫(kù)管理”。（2）在窗體上添加TLabel組件，命名為“Label1”。設(shè)置該組件的Caption屬性為“物資入庫(kù)管理”，設(shè)置Label1組件的Font屬性如圖13所示。圖13 Font屬性設(shè)置（3）在窗體上添加TPanel組件，命名為“Panel2”。設(shè)置該組件的Align屬性為“alBottom”；Caption屬性為空。（4）添加4個(gè)TLabel組件到Panel2組件上，分別設(shè)置它們的Caption屬性為“供應(yīng)商名稱”、“負(fù)責(zé)人”、“操作員”、“時(shí)間”。添加4個(gè)TEdit組件到Panel2組件上，分別命名為“Providername”，“Principal”，“Operator”。添加TDateTimePicker組件到Panel2組件上，命名為“Date”。（5）在窗體上添加TPanel組件，命名為“Panel1”。設(shè)置該組件的Align屬性為“alBottom”，在Panel1組件上添加4個(gè)TLabel組件和4個(gè)TEdit組件。（6）在窗體上添加TPanel組件，命名為“Panel3”。在該組件上添加3個(gè)TBitBtn組件，分別命名為“Save”、“Cancel”、“Quit”。（7）添加TStringGrid組件到窗體上，命名為“Reginfo”。設(shè)置該組件的Align屬性為“alBottom”；ColCount屬性為“9”；RowCount屬性為“2”；Ctrl3D屬性為“False”。（8）在窗體上添加TDataSource組件，命名為“RegSource”；添加TListBox組件，命名為“List”；添加TComboBox組件，命名為“Comstorage”；添加TDBGrid組件，命名為“Grid”。設(shè)置Grid組件的DataSource屬性為“RegSource”。設(shè)計(jì)期物資入庫(kù)窗體如圖14所示。圖14 設(shè)計(jì)期物資入庫(kù)管理模塊2．程序相關(guān)代碼在窗體的OnShow事件處理過(guò)程中設(shè)置TStringGrid組件相關(guān)屬性，將倉(cāng)庫(kù)信息添加到TComboBox組件中。代碼如下：procedure (Sender: TObject)。begin inherited。 with Reginfo do begin //設(shè)置字段名稱 Cells[barcode,0]:=39。條形碼39。 Cells[storename,0]:= 39。物資名稱39。 Cells[basicunit,0]:=39?；締挝?9。 Cells[stockunit,0]:= 39。采購(gòu)單位39。 Cells[convertions,0]:= 39。換算關(guān)系39。 Cells[unitprice,0]:= 39。單價(jià)39。 Cells[num,0]:=39。數(shù)量39。 Cells[money,0]:= 39。金額39。 Cells[storagename,0]:=39。倉(cāng)庫(kù)名稱39。 end。 with do //查詢倉(cāng)庫(kù)名稱,將其添加到組合框中 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事件處理過(guò)程中限制輸入的內(nèi)容。代碼如下：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 //只允許輸入數(shù)字鍵和退格鍵 Key := 0 //輸入空字符 end。end。Keypress鍵盤(pán)事件該事件是當(dāng)用戶按下ASCII字符的鍵盤(pán)時(shí)發(fā)生的。在該事件下的Key參數(shù)是一個(gè)數(shù)字，代表字符的ASCII值，如13（回車鍵）或27（ESC鍵）。示例代碼如下：IF Key=13 then //回車后，焦點(diǎn)跳轉(zhuǎn)到edit2組件。在TStringGrid組件的OnSelectCell事件處理過(guò)程中設(shè)置單元是否可編輯。代碼如下：procedure (Sender: TObject。 ACol, ARow: Integer。 var CanSelect: Boolean)。begin inherited。 row := ARow。 col := ACol。 //當(dāng)物資名稱為空時(shí)可以編輯條形碼,當(dāng)條形碼為空時(shí)可以編輯物資名稱,//當(dāng)條形碼不為空時(shí)可以編輯單價(jià)、數(shù)量 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事件處理過(guò)程中，設(shè)置TDBGrid組件出現(xiàn)的位置。代碼如下：procedure (Sender: TObject。 ACol, ARow: Integer。 const Value: String)。var CellRect: TRect。 //記錄單元格的區(qū)域,用于設(shè)置begin inherited。 if Reg = false then begin := False。 //使輔助錄入表格不可用 if (Acol = storename) then //按倉(cāng)庫(kù)名稱或簡(jiǎn)碼進(jìn)行匹配查詢 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,
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1