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