【文章內(nèi)容簡介】 否 功能描述 providername varchar 30 是 供應(yīng)商名稱 nameshort varchar 20 簡碼 principal varchar 10 負(fù)責(zé)人 phone varchar 20 聯(lián)系電話 address varchar 100 地址 web varchar 50 網(wǎng)址 timedate datetime 8 時(shí)間 memo varchar 100 備注 （ 8） tb_operatorinfo（操作員信息表） 操作員信息表用于保存操作員信息，操作員信息表結(jié)構(gòu)如表 8所示。 表 8 tb_operatorinfo數(shù)據(jù)結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 主鍵否 功能描述 operatorname varchar 30 操作員名稱 password varchar 30 密碼 [level] varchar 20 級(jí)別 （ 13） tb_Idlogout（票號(hào)沖銷信息表） 票號(hào)沖銷信息表用于保存標(biāo)號(hào)沖銷信息，票號(hào)沖銷信息表結(jié)構(gòu)如表 9所示。 表 9 tb_IDlogout數(shù)據(jù)結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 主 鍵否 功能描述 Id varchar 30 沖銷票號(hào) kind int 4 類型 operator varchar 30 操作員 timedate datetime 8 時(shí)間 （ 14） tb_employeeinfo （員工信息表） 員工信息表用于保存員工信息，員工信息表結(jié)構(gòu)如表 10 所示 。 表 10 tb_employeeinfo數(shù)據(jù)結(jié)構(gòu) 字段名稱 數(shù)據(jù)類型 字段大小 主鍵否 功能描述 workerID varchar 30 是 工號(hào) workername varchar 30 姓 名 sex varchar 10 性別 knowledge varchar 20 學(xué)歷 phone varchar 30 聯(lián)系方式 address varchar 30 地址 duty varchar 30 職務(wù) engagetime datetime 8 聘用時(shí)間 memo varchar 100 備注 （ 15） tb_storage（物資庫存信息表） 物資庫存信息表用于保存物資庫存信息，物資庫存信息表結(jié)構(gòu)如表 11 所示。 表 11 tb_storage數(shù)據(jù)結(jié)構(gòu) 字段 名稱 數(shù)據(jù)類型 字段大小 主鍵否 功能描述 storagename varchar 30 是 倉庫名稱 storename varchar 30 是 物資名稱 storesum float 8 數(shù)量 5 物資存儲(chǔ)管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn) 主程序窗體設(shè)計(jì) 主 程序窗體是程序控制的中心，操作權(quán)限、程序功能調(diào)用等都要通過主程序窗體調(diào)用實(shí)現(xiàn)。 實(shí)現(xiàn)如圖 3 所示。 圖 3 主窗體的實(shí)現(xiàn) 主窗體設(shè)計(jì)步驟 （ 1）運(yùn)行 Delphi 會(huì)自動(dòng)創(chuàng)建一個(gè)窗體，設(shè)置該窗體為程序主窗體，命名為“ t_main”，設(shè)置窗 體的 Caption 屬性為“備品管理系統(tǒng)”； WindowState 屬性為“ wsMaximized”； KeyPreview 屬性為“ True”。 （ 2）在“ Win32”組件頁中點(diǎn)選“ TImageList”組件，添加到窗體上，命名為“ ImageMemu”，設(shè)置該組件的 Height 屬性為“ 22”； Width 屬性為“ 22”。雙擊該組件，在彈出的對(duì)話框中單擊【 Add】按鈕，添加圖標(biāo)，如圖 4 所示。 圖 4 添加圖標(biāo) （ 3）在 “ Standard” 組件頁中點(diǎn)選 “ TActionList” 組件，添加到窗體上，命名為 “ List1” 。設(shè)置該組件的 Images 屬性為 “ ImageMemu” ，雙擊 List1 組件打開編輯器，單擊【 New Action】按鈕添加 Actions 對(duì)象，并設(shè)置相應(yīng)的 Caption屬性和 Name 屬性 ， 如圖 5所示。 圖 5 添加動(dòng)作項(xiàng) （ 4）在“ Additional”組件頁中點(diǎn)選“ TActionManager”組件，添加到窗體上，命名為“ ActionManage1”，雙擊該組件打開動(dòng)作編輯器，選擇“ Toolbars”選項(xiàng)卡，單擊【 New】按鈕，添加“ TActionToolBar”對(duì)象 。 （ 5） 在窗體上點(diǎn)選 ActionManager1 組件，在 “ Object Inspector” 窗口中，單擊 ActionBars 屬性右側(cè)的【 ? 】按鈕 ， 彈出對(duì)話框 。 （ 6） 在彈出的對(duì)話框中點(diǎn)選“ 0ActionBarActionTooBar1”，在“ Object Inspector”窗口中，單擊 Items 屬性右側(cè)的【 ? 】按鈕，在彈出的對(duì)話框中，單擊【 Add New】按鈕添加菜單項(xiàng)，并設(shè)置各個(gè)菜單項(xiàng)的 Caption 屬性。 （ 7）點(diǎn)選各菜單項(xiàng)， 在“ Object Inspector”窗口中，單擊 Items 右側(cè)的【 ? 】按鈕，在彈出的對(duì) 話框中設(shè)置 子菜單項(xiàng)的 Action 屬性和 Caption 屬性 （ 8）在 “ Win32”組件 頁中點(diǎn)選 “ TStatusBar” 組件 ， 添加到窗體上，命名為 “ StatusBar1” 。 StatusBar 組件用于顯示狀態(tài)信息，雙擊 StatusBar1 組件，在彈出的對(duì)話框中單擊【 Add New】按鈕添加面板。 在 “ Object Inspector” 窗口中設(shè)置面板的 Width 屬性、 Text 屬性和 Alignment 屬性 。 程序相關(guān)代碼分析 在主窗體的 OnShow 事件處理過程中，將初始化窗口，如果不存在配置文件則彈出登錄服務(wù) 器窗口，顯示登錄窗口。 procedure (Sender: TObject)。 var ini: TIniFile。 server,database,user,password: String。 begin //調(diào)用初始化窗口 (Tf_ini,f_ini)。 。 。 ini := nil。 //配置信息是否存在 if Not FileExists(ExtractFilePath()+39。39。) then //判斷文件是否存在 begin //調(diào)用登錄服務(wù)器窗口 ,登錄服務(wù)器并記錄登錄信息 (Tf_loginserver,f_loginserver)。 。 。 end else //讀取配置信息 begin Try ini:=(ExtractFilePath()+39。39。)。 server := (39。配置信息 39。,39。服務(wù)器 39。,39。39。)。 database := (39。配置信息 39。,39。數(shù)據(jù)庫 39。,39。39。)。 user := (39。配置信息 39。,39。用戶名 39。,39。39。)。 password := (39。配置信息 39。,39。密碼 39。,39。39。)。 Try := 39。Provider=。 Password=39。+Trim(Password)+39。Persist Security Info=True。 User ID=39。+Trim(User)+39。 Initial Catalog=39。+Trim(Database)+39。Data Source=39。+Trim(Server)。 。 Except if (39。數(shù)據(jù)庫連接失敗 ,是否重新連接數(shù)據(jù)庫 ?39。,39。提示 39。,mb_yesno) = ID_Yes then begin (Tf_loginserver,f_loginserver)。 。 。 end。 end。 Finally 。 end。 end。 。 [Sta_Date].Text := FormatDateTime(39。yyyymmdd39。,Now)。 基礎(chǔ)窗體的設(shè)計(jì)與實(shí)現(xiàn) 創(chuàng)建基礎(chǔ)窗體主要是提高開發(fā)速度和代碼的利用率，從基礎(chǔ)窗體繼承的子窗體具有基礎(chǔ)窗體的全部功能，基礎(chǔ)窗體如圖 6 所示。 圖 6 基礎(chǔ)窗體 基礎(chǔ)窗體的設(shè)計(jì) 添 加一個(gè)新窗體，命名為“ f_frame”，設(shè)置其 BorderStyle 屬性為“ bsDialog”； KeyPreview 屬性為“ True”。 程序相關(guān)代碼分析 在窗體的 OnKeyDown 事件處理過程中設(shè)置，如果用戶按下 〈 ESC〉 鍵關(guān)閉窗體。代碼如下： procedure (Sender: TObject。 var Key: Word。 //按〈 Esc〉鍵關(guān)閉窗體 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。 物資入庫管理 設(shè)計(jì)與實(shí)現(xiàn) 物資入庫管理模塊主要功能是記錄物資入庫的相關(guān)信息，使用 TStringGrid組件 實(shí)現(xiàn)多行錄入。物資入庫管理模塊運(yùn)行結(jié)果如圖 7 所示 。 圖 7 物資入庫管理的設(shè)計(jì) （ 1） 選擇“ File” /“ New” /“ Other”菜單項(xiàng)，打開“ New Items”對(duì)話框，選擇“ bpglxt”選項(xiàng)卡，點(diǎn)選“ f_frame”，以繼承方式使用該窗體。 單擊【 OK】按鈕添加一個(gè)新命名窗體為“ f_instore”，設(shè)置 Caption 屬性為“物資入庫管理”。 （ 2）在窗體上添加 TLabel 組件，命名為“ Label1”。設(shè)置該組件的 Caption屬性為 “ 物資入庫管理”，設(shè)置 Label1 組件的 Font 屬性。 （ 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ì)期物資入庫窗體下圖 8： 圖 8 設(shè)計(jì)期物資入庫管理模塊 相關(guān)代碼的分析 在窗體的 OnShow 事件處理過程中設(shè)置 TStringGrid 組件相關(guān)屬性，將倉庫信息添加到 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?；締挝?39。 Cells[stockunit,0]:= 39。采購單位 39。 Cells[conve