【正文】 詢表單設(shè)計(jì) 新建表單“材料信息查詢”，保存路徑為“ \project\庫房管理系統(tǒng) \forms\材料信息查詢 .scx”，在 表單的 Data Environment 中添加“材料信息表”。 添加響應(yīng)代碼 Combo 用于選擇查詢依據(jù)。因此，為表單的 Init 事件添加如下代碼： Public tempcursor (“材料編號(hào) ”) (“材料名稱 ”) “查詢”按鈕完成材料信息的查詢。 into cursor tempcursor。按照材料編號(hào)查詢 if ,text=“材料名稱 ” select *。 endif amp。表單中使用PageFrame 控件，分兩個(gè)頁面分別實(shí)現(xiàn)入庫和出庫的功能。將 Page1 的標(biāo)題設(shè)為“入庫管理”；將 Page2 的標(biāo)題設(shè)為“出庫管理”。 Edit Box 控件和 Text Box 控件類似，不同之處在于 Edit Box 控件可以對(duì)多行字符串進(jìn)行編輯，并且有垂直滾動(dòng)條，通常用來顯示或設(shè)置備注字段。 from project\倉庫管理系統(tǒng) \data\材料信息 .dbf。根據(jù)材料編號(hào)在材料信息表中查找記錄 temp 材料編號(hào) = if empty(temp 材料編號(hào) ) then messagebox(“你要添加的材料在材料庫中 ”+chr(13)+chr(10)+”沒 有找到，請(qǐng)先到材料庫中 ”+chr(13)+chr(10)+”登記新材料 ”+temp 材料編號(hào) ,0+64,”材料檢測(cè) ”) =.t. =.t. =.t. =.t. =.t. amp。amp。如果該材料不在材料信息表中，將提示用戶首先檢查材料信息表?！叭霂臁卑粹o的Click 事件代碼如下： dimension bbb(7) amp。將入庫信息存儲(chǔ)在數(shù)組中 replace 出入庫信息 .出入庫編號(hào) with bbb(1) replace 出入庫信息 .類型 with bbb(2) replace 出入庫信息 .材料編號(hào) with bbb(3) replace 出入庫信息 .出入庫日期 with bbb(4) replace 出入庫信息 .數(shù)量 with bbb(5) replace 出入庫信息 .經(jīng)手人 with bbb(6) replace 出入庫信息 .備注 with bbb(7) amp。 into cursor tempcursor num1= 在 材料信息表中按“材料編號(hào)”查找記錄 update project\倉庫管理系統(tǒng) \data\材料信息 .dbf set。amp。amp。重置 Text Box 控件和 Edit 值 =.t. =.t. =.t. =.t. =.t. amp。如果該材料編號(hào)在材料信息表中，允許用戶繼續(xù)完成出入庫信息輸入，否則提示錯(cuò)誤，要求用戶重新輸入材料編號(hào)。 into cursor tempcursor amp。提示錯(cuò)誤 else =.f. =.f. =.f. =.f. =.f. endif amp。如果庫存材料足夠，將出庫信息加入出入庫信息表中，并更新相應(yīng)的材料信 息表中的記錄。amp。 where 材料編號(hào) =alltrim()。amp。 amp。將記錄插入出入庫信息表 insert into project\庫房管理系統(tǒng) \data\出入庫信息 .dbf from array ccc。amp。 2 用戶向?qū)е谱鲌?bào)表 首先利用向?qū)Э焖偕蓤?bào)表，然后對(duì)生成的報(bào)表進(jìn)一步編輯和修改。 圖 2— 15 選擇表和字段 在表尾加入統(tǒng)計(jì)信息，具體做法是在第 2步時(shí)單擊右側(cè)的 Summary Option按鈕，在 Summary Option 選項(xiàng)卡中選取 Summary Only 選項(xiàng)，并選取“材料編號(hào)”字段的 Count 屬性。 報(bào)表的 Layout 屬性選擇默認(rèn)選項(xiàng)，進(jìn)入下一步。在表單上添加控件，設(shè)置其相應(yīng)的屬性。進(jìn)入材料信息查詢表單 if =l do form project\庫房 管理系統(tǒng) \forms\材料信息維護(hù) .scx endif amp。進(jìn)入出入庫管理表單 if =l use project\庫房 管理系統(tǒng) \reports\材料信息 .frx report form project\庫房 管理系統(tǒng) \repots\材料信息 .frx preview nowait endif amp。 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ２７ 第 3 章 問題分析 系統(tǒng)功能設(shè)計(jì)的不完整 任何一個(gè)應(yīng)用程序都不可能設(shè)計(jì)得十全十美，它必須經(jīng)歷設(shè)計(jì)、開發(fā)、應(yīng)用、反饋、修改、再修改如此反復(fù)的過程，在實(shí)踐應(yīng)用中不 斷完善。這是以后要修改的一個(gè)方面。這也是以后修正的一個(gè)方面。同時(shí)，數(shù)據(jù)庫的存放沒有專用的 SERVER，也給數(shù)據(jù)庫的操作和維護(hù)帶來一定地不便。從數(shù)據(jù)庫所建立的關(guān)聯(lián)關(guān)系以及表字段的索引來看，該藥品倉庫管理系統(tǒng)的數(shù)據(jù)庫一旦擴(kuò)大，勢(shì)必會(huì)影響查找藥品信息的速度。在這個(gè)過程中，需要藥店工作人員的參與。 對(duì)于使用的系統(tǒng)，為增加其穩(wěn)定性，應(yīng)該考慮在開發(fā)過程中除在本機(jī)經(jīng)常調(diào)試外，還應(yīng)經(jīng)常在異地計(jì)算機(jī)上調(diào)試，以確保系統(tǒng)的穩(wěn)定性、兼容性、可靠性。當(dāng)然在任何的時(shí)候我都無法忘記的是我親愛的爸爸媽媽，沒有他們我也就沒有今天的一切，感謝多年以來他們的關(guān)懷，鼓勵(lì)和支持，我會(huì)用我最好的成績作為對(duì)他們的回報(bào)。感激他在我整個(gè)畢業(yè)設(shè)計(jì)的過程中給予的指導(dǎo)和幫助，并時(shí)刻向我提出最寶貴的意見，讓我能夠順利完成這次的設(shè)計(jì)和 論文撰寫。 三、選用高版本的系統(tǒng)開發(fā)軟件 作為一個(gè)實(shí)用性的系 統(tǒng)，其應(yīng)用平臺(tái)應(yīng)該是穩(wěn)定的、可靠的，否則一旦系統(tǒng)出現(xiàn)故障，將對(duì)藥店的正常工作產(chǎn)生影響，甚至導(dǎo)致經(jīng)濟(jì)損失。如果只一種藥就有成千上萬的數(shù)量，那么用一個(gè)數(shù)據(jù)表來存儲(chǔ)藥店中所有藥品的數(shù)量顯 然是不可取的，應(yīng)該將藥品進(jìn)行分門別類的管理與存儲(chǔ)，力圖提高藥品信息的查找速度。因此，在系統(tǒng)的進(jìn) 一步開發(fā)和應(yīng)用推廣之前，應(yīng)該充分考慮到數(shù)據(jù)的安全問題，如數(shù)據(jù)的備份工作等。如系統(tǒng)訪問權(quán)限、用戶的身份驗(yàn)證、最大連接限制等都是系統(tǒng)的不穩(wěn)定因素。在應(yīng)用中出現(xiàn)需要修改代碼的問題出現(xiàn)時(shí)，方便程序人員維護(hù)。 考慮到該系統(tǒng)中出庫和入庫的操作非常類似，為節(jié)約時(shí)間，本人將它們?cè)O(shè)計(jì)在同一張表單上，并且將出庫和入庫信息記錄在同一張表里。打印報(bào)表 主控程序設(shè)計(jì) 在 Project Manager 中選取 code 選項(xiàng)卡，選中 Program 選項(xiàng)，單擊右側(cè) 的 New 按鈕，新建一個(gè)程序，保存路徑為“ d:\project\庫房 管理系統(tǒng) \”，在代碼框中輸入如下代碼： clear all set talk off do form project\庫房 管理系統(tǒng) \庫房 管理 \forms\歡迎界面 .scx read events 編譯項(xiàng)目，生成 .exe 文件。進(jìn)入材料信息維護(hù)表單 if =l do form project\庫房 管理系統(tǒng) \firms\出入庫管理 .scx endif amp。 圖 2— 19 主表單 添加響應(yīng)代碼 單擊“進(jìn)入”按鈕時(shí)，根據(jù)選中的 OptionGroup 的選項(xiàng)進(jìn)入不同的表單。 圖 2— 17 排序規(guī)則選擇 吉林農(nóng)業(yè)工程職業(yè)技術(shù)學(xué)院（論文） ２５ 單擊 Next按鈕，輸入報(bào)表的 Title信息，并選中 Save report and modify it in the report designer，單擊 Finish 按鈕，保存報(bào)表為“ D:\project\庫房管理系統(tǒng) \reports\材料信息 .frx”，進(jìn)入報(bào)表設(shè)計(jì)器對(duì)報(bào)表界面作進(jìn)一步的調(diào)整，如圖 2— 18 所示。這樣報(bào)表會(huì)自動(dòng)對(duì)村料編號(hào)進(jìn)行計(jì)數(shù)，統(tǒng)計(jì)材料種類。 生成報(bào)表的步驟為： 選取 Tools\Wizard\Reports 菜單命令，彈出如圖 2— 14 所示對(duì)話框，選中 Report Wizard，單擊 ok 按鈕，進(jìn)入報(bào)表設(shè)計(jì)窗口。amp。amp。修改材料數(shù)量信息 ccc(1)= a