VF倉庫管理信息系統(tǒng)

河南理工大學(xué)計(jì)算機(jī)科學(xué)與技術(shù)學(xué)院課程設(shè)計(jì)報(bào)告2007—2008學(xué)年第2學(xué)期課程名稱數(shù)據(jù)庫設(shè)計(jì)設(shè)計(jì)題目倉庫管理系統(tǒng)學(xué)生姓名畢科柯學(xué)號(hào)專業(yè)班級(jí)通信06-3指導(dǎo)教師申自浩2008年7

?

1問題描述1.1背景企業(yè)的物資供應(yīng)管理往往是很復(fù)雜的，煩瑣的。由于所掌握的物資種類眾多，訂貨，管理，發(fā)放的渠道各有差異，各個(gè)企業(yè)之間的管理體制不盡相同，各類統(tǒng)計(jì)計(jì)劃報(bào)表繁多，因此物資管理必須實(shí)現(xiàn)計(jì)算機(jī)化，而且必須根據(jù)企業(yè)的具體情況制定相應(yīng)的方案。根據(jù)當(dāng)前的企業(yè)管理體制，一般物資供應(yīng)管理系統(tǒng)，總是根據(jù)所掌握的物資類別，相應(yīng)分成幾個(gè)科室來進(jìn)行物資的計(jì)劃，訂貨，核銷托收，驗(yàn)收入庫，根據(jù)企業(yè)各個(gè)部門的需要來發(fā)放物資設(shè)備，并隨時(shí)按期進(jìn)行庫存盤點(diǎn)，作臺(tái)帳，根據(jù)企業(yè)領(lǐng)導(dǎo)和自身管理的需要按月，季度，年來進(jìn)行統(tǒng)計(jì)分析，產(chǎn)生相應(yīng)報(bào)表。為了加強(qiáng)關(guān)鍵物資，設(shè)備的管理，要定期掌握其儲(chǔ)備，消耗情況，根據(jù)計(jì)劃定額和實(shí)際消耗定額的比較，進(jìn)行定額的管理，使得資金使用合理，物資設(shè)備的儲(chǔ)備最佳。所以一個(gè)完整的企業(yè)物資供應(yīng)管理系統(tǒng)應(yīng)該包括計(jì)劃管理，合同托收管理，倉庫管理，定額管理，統(tǒng)計(jì)管理，財(cái)務(wù)管理等模塊。其中倉庫管理是整個(gè)物資供應(yīng)管理系統(tǒng)的核心。1.2本組成員及本人任務(wù)本組成員：畢科柯，王國(guó)檸，傅強(qiáng)。本次設(shè)計(jì)主要對(duì)企業(yè)倉庫管理進(jìn)行設(shè)計(jì)，先是數(shù)據(jù)庫設(shè)計(jì)，然后是系統(tǒng)的主要模塊設(shè)計(jì)，本人主要設(shè)計(jì)系統(tǒng)的設(shè)備入庫和設(shè)備出庫兩個(gè)模塊。1.3數(shù)據(jù)需求在仔細(xì)調(diào)查企業(yè)倉庫物資設(shè)備管理過程的基礎(chǔ)上，得到本系統(tǒng)所處理的時(shí)間流程如圖所示：倉庫現(xiàn)有庫存各部門需求企業(yè)總體生產(chǎn)計(jì)劃匯總處理 設(shè)備采購 設(shè)備入庫設(shè)備入庫設(shè)備還庫在本設(shè)計(jì)中，通過對(duì)企業(yè)倉庫管理的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)如下：設(shè)備代碼信息。包括的數(shù)據(jù)項(xiàng)有設(shè)備號(hào)、設(shè)備名稱?，F(xiàn)有庫存信息。包括的數(shù)據(jù)項(xiàng)有現(xiàn)有設(shè)備、現(xiàn)有數(shù)目、總數(shù)目、最大庫存、最小庫存等。設(shè)備使用信息。包括的數(shù)據(jù)項(xiàng)有使用的設(shè)備、使用部門、數(shù)目、使用時(shí)間、出庫時(shí)狀態(tài)。設(shè)備采購信息。包括的數(shù)據(jù)項(xiàng)有采購的設(shè)備、采購員、供應(yīng)商、采購數(shù)目、采購時(shí)間等。設(shè)備歸還信息。包括的數(shù)據(jù)項(xiàng)有歸還設(shè)備、歸還部門、歸還數(shù)目、歸還時(shí)間、經(jīng)手人等。設(shè)備需求信息。包括的數(shù)據(jù)項(xiàng)有需求的部門、需求設(shè)備、需求數(shù)目、需求時(shí)間等。有了上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，就能進(jìn)行下面的數(shù)據(jù)庫設(shè)計(jì)。?

2數(shù)據(jù)庫設(shè)計(jì)2．1數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計(jì)這一設(shè)計(jì)階段是在需求分析的基礎(chǔ)上，設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體，以及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計(jì)打下基礎(chǔ)。本設(shè)計(jì)根據(jù)上面的設(shè)計(jì)規(guī)劃出的實(shí)體有庫存實(shí)體、入庫實(shí)體、出庫實(shí)體、采購實(shí)體、還庫實(shí)體、需求實(shí)體。各個(gè)實(shí)體的E-R圖及其關(guān)系描述如下：1）庫存實(shí)體E-R圖：現(xiàn)有庫存設(shè)備號(hào)現(xiàn)有庫存警戒庫存總數(shù)2）入庫實(shí)體E-R圖：入庫設(shè)備號(hào)供應(yīng)商信息采購價(jià)格信息采購員3）出庫實(shí)體E-R圖：出庫設(shè)備號(hào)使用部門數(shù)量時(shí)間經(jīng)手人4）部門需求實(shí)體E-R圖：部門需求設(shè)備號(hào)需求部門需求數(shù)量需求時(shí)間5）還庫實(shí)體E-R圖：設(shè)備還庫設(shè)備號(hào)還庫時(shí)間人還庫數(shù)量經(jīng)手人6）計(jì)劃采購實(shí)體E-R圖：計(jì)劃采購設(shè)備號(hào)庫存信息供應(yīng)信息時(shí)間7）實(shí)體和實(shí)體之間的關(guān)系E-R圖如圖所示：入庫現(xiàn)有庫存出庫還庫部門需求設(shè)備采購2．2數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計(jì)在上面的實(shí)體以及實(shí)體之間的關(guān)系的基礎(chǔ)上，形成數(shù)據(jù)庫中的表格以及各個(gè)表格之間的關(guān)系。倉庫管理系統(tǒng)數(shù)據(jù)庫中的各個(gè)表格的設(shè)計(jì)結(jié)果如下面的幾個(gè)表格所示。每個(gè)表格表示在數(shù)據(jù)庫中的一個(gè)表。（1）設(shè)備代碼表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)（主鍵）數(shù)值型（20）不能為空設(shè)備名稱字符型（50）可為空（2）設(shè)備入庫表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)數(shù)值型（20）不能為空入庫時(shí)間（主鍵）日期型（8）可為空供應(yīng)商字符型（50）可為空供應(yīng)商電話字符型（15）可為空入庫數(shù)量數(shù)值型（20）可為空價(jià)格字符型（10）可為空采購員字符型（20）可為空（3）設(shè)備出庫表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)數(shù)值型（20）不能為空出庫時(shí)間（主鍵）日期型（8）可為空使用部門字符型（50）可為空出庫狀況數(shù)值型（20）可為空經(jīng)手人字符型（20）可為空出庫數(shù)量數(shù)值型（10）不能為空領(lǐng)取人字符型（50）可為空用途字符型（50）可為空（4）現(xiàn)有庫存表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)（主鍵）數(shù)值型（20）不能為空現(xiàn)有庫存數(shù)值型（20）可為空最大庫存數(shù)值型（20）可為空最小庫存數(shù)值型（20）可為空總數(shù)數(shù)值型（20）可為空（5）部門需求表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)（主鍵）數(shù)值型（20）不能為空部門名稱字符型（20）不能為空需要數(shù)量數(shù)值型（20）可為空需求開始時(shí)間日期型（8）可為空需求結(jié)束時(shí)間日期型（8）可為空（6）設(shè)備還庫表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)（主鍵）數(shù)值型（20）不能為空還庫時(shí)間日期型（8）不能為空倉庫管理員數(shù)值型（20）可為空歸還數(shù)量數(shù)值型（20）可為空歸還人字符型（10）可為空（7）操作日志表：列名數(shù)據(jù)類型可否為空操作員字符型（50）不能為空操作內(nèi)容字符型（50）不能為空操作時(shí)間日期型（8）可為空（8）設(shè)備采購計(jì)劃表：列名數(shù)據(jù)類型可否為空設(shè)備號(hào)數(shù)值型（20）不能為空現(xiàn)有庫存數(shù)值型（20）可為空總庫存數(shù)值型（20）可為空最大庫存數(shù)值型（20）可為空購買數(shù)量數(shù)值型（20）可為空供應(yīng)商字符型（20）不能為空價(jià)格字符型（10）可為空計(jì)劃采購時(shí)間（主鍵）日期型（8）可為空?3

數(shù)據(jù)庫結(jié)構(gòu)的實(shí)現(xiàn)在需求分析、概念結(jié)構(gòu)設(shè)計(jì)的基礎(chǔ)上得到數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計(jì)之后，我們就可以在VisualFoxPro6.0數(shù)據(jù)庫系統(tǒng)中實(shí)現(xiàn)該邏輯結(jié)構(gòu)。打開如圖所示的“倉庫管理”項(xiàng)目后，在項(xiàng)目管理器中展開數(shù)據(jù)文本夾，用鼠標(biāo)選中數(shù)據(jù)庫，單擊右側(cè)的“新建”按鈕，在彈出的對(duì)話框中將該數(shù)據(jù)庫文件存儲(chǔ)為c:\倉庫管理\倉庫管理.dbc。在彈出的如圖所示的數(shù)據(jù)庫設(shè)計(jì)器中單擊鼠標(biāo)右鍵，選擇“新建表”，為數(shù)據(jù)庫添加數(shù)據(jù)表（表的內(nèi)容見上節(jié)）。下面以表設(shè)備代碼表為例來介紹表的建立過程。選擇“新建表”，在彈出的對(duì)話框中將表存儲(chǔ)為c:\倉庫管理\設(shè)備代碼.dbf。在彈出的如圖所示的表設(shè)計(jì)器中填寫表的內(nèi)容。字段設(shè)置完成后，單擊“確定”按鈕后為表輸入數(shù)據(jù)，如不想現(xiàn)在輸入，可以先“取消”，以后再輸入。具體方法如下：如圖所示，選中要輸入數(shù)據(jù)的表，單擊“瀏覽”按鈕。此時(shí)彈出無數(shù)據(jù)的表，在VisualFoxPro6.0的主窗口中選擇“表”，選擇“追加新記錄”后，就可以在表中輸入數(shù)據(jù)了。如圖所示。不過這種方法只能一次輸入一條記錄，如果要輸入第二條記錄時(shí)，需再次選擇追加新記錄。如果有一個(gè)已有的數(shù)據(jù)表，就可以使用“使用追加記錄”將這個(gè)有數(shù)據(jù)的表追加到當(dāng)前表中，不過執(zhí)行該操作要求這二個(gè)表的結(jié)構(gòu)完全相同。4系統(tǒng)主要功能模塊的創(chuàng)建

按照前面的分析，我們將管理系統(tǒng)的邏輯模塊統(tǒng)一到6個(gè)實(shí)際功能模塊中，如圖所示。切換面板用于切換不同的操作，每項(xiàng)具體操作結(jié)束后，都會(huì)返回到切換面板。切換面板設(shè)設(shè)設(shè)設(shè)設(shè)顯備備備備備示入出還需采報(bào)庫庫庫求購表下面對(duì)各模塊的作用進(jìn)行說明：設(shè)備入庫模塊：添加設(shè)備到庫存中。設(shè)備出庫模塊：將設(shè)備從庫存取出并記錄。設(shè)備還庫模塊：將歸并到庫存的設(shè)備保存到數(shù)據(jù)庫。設(shè)備需求模塊：記錄各部門的設(shè)備需求。設(shè)備采購模塊：記錄要采購的設(shè)備。切換面板：用于切換到不同的操作，如設(shè)備入庫、設(shè)備出庫等。顯示報(bào)表：顯示庫存過多、庫存不足等信息。下面就按照功能模塊圖來設(shè)計(jì)該倉庫管理系統(tǒng)。首先在VisualFoxPro6.0中建立一個(gè)項(xiàng)目管理器，以便管理本系統(tǒng)中所有的數(shù)據(jù)，命名為“倉庫管理”。一下操作均在該項(xiàng)目管理器中進(jìn)行。以下所有表單的“desktop”屬性全部設(shè)為“.T.-真”。4．1功能選擇界面的設(shè)計(jì)：這一模塊的主要功能是作為系統(tǒng)主界面為進(jìn)入本系統(tǒng)不同功能界面選擇提供一個(gè)接口，使用一個(gè)窗口來實(shí)現(xiàn)這一功能。首先建立一個(gè)表單，設(shè)取“caption”屬性為“倉庫管理”。在該表單上添加6個(gè)“按鈕”控件，它們的“caption”屬性分別為“設(shè)備入庫”，“設(shè)備出庫”，“設(shè)備還庫”，“部門需求”，“設(shè)備采購”，“顯示報(bào)表”。然后在表單上添加“圖象控件”，并設(shè)其“stretch”屬性為“2-strech（擴(kuò)展）”，“pictrue”屬性為圖片所在的位置，本例中為“c:\倉庫管理\001.jpg”。在“comm.and1”(“caption”屬性為“設(shè)備入庫”)控件的“click”事件中添加如下代碼：doform設(shè)備入庫表thisform.release在“comm.and2”(“caption”屬性為“設(shè)備出庫”)控件的“click”doform設(shè)備出庫表thisform.release在“comm.and3”(“caption”屬性為“設(shè)備還庫”)控件的“click”doform設(shè)備還庫表thisform.release在“comm.and4”(“caption”屬性為“部門需求”)控件的“click”doform部門需求表thisform.release在“comm.and5”(“caption”屬性為“設(shè)備采購”)控件的“click”事件中添加如下代碼：doform設(shè)備采購表thisform.release在“comm.and6”(“caption”屬性為“顯示報(bào)表”)控件的“click”事件中添加如下代碼：doform顯示報(bào)表thisform.release在“form1”的屬性里選擇“autocenter”設(shè)置為“.T.-真”，同時(shí)將“backcolor”設(shè)置為“255,255,255”，“windowstate”設(shè)置為“0-普通”。添加“form1”的“init”事件的代碼如下：setdirectorytoc:\倉庫管理\*將程序的默認(rèn)的路徑指向資源所在的文件夾該表單設(shè)計(jì)結(jié)果如圖所示：4．2設(shè)備入庫模塊的設(shè)計(jì)在設(shè)備入庫模塊中將實(shí)現(xiàn)設(shè)備數(shù)據(jù)的添加和入庫等功能。本模塊設(shè)計(jì)采用先用向?qū)杀韱?，然后修改的方法?shí)現(xiàn)。首先在項(xiàng)目管理器的文檔視圖下單擊“新建”按鈕，在接下來的向?qū)е?，“?shù)據(jù)庫和表”選擇“倉庫管理”以及“設(shè)備入庫表”，這是前面定義好的數(shù)據(jù)庫和表。由于設(shè)備入庫需要顯示所有的字段，因此我們將可用字段全部移至選定字段，如圖所示，單擊“下一步”按鈕，在表單樣式中，選擇“陰影式”以及“圖片按鈕”，如圖所示。左上角的窗口提供了表單樣式的預(yù)覽功能，圖片按鈕和文本按鈕的區(qū)別在于顯示的時(shí)候是以圖片來表達(dá)功能還是文字來表達(dá)，實(shí)現(xiàn)功能的函數(shù)沒有區(qū)別。選擇“上一步”按鈕可以跳回上一個(gè)界面對(duì)表單中顯示的字段進(jìn)行修改。單擊“下一步”按鈕后，向?qū)нM(jìn)行到“步驟3-排序次序”，如圖所示，選擇“設(shè)備號(hào)”為索引，并選擇升序排列。最后預(yù)覽表單，核對(duì)每項(xiàng)的設(shè)置，完成表單向?qū)В鐖D所示。值得注意的是，在結(jié)束表單向?qū)?，可選擇“保存表單以備將來使用”，“保存并運(yùn)行表單”，或者“保存表單并用表單設(shè)計(jì)器修改表單”。由于VisualFoxPro6.0向?qū)傻谋韱沃痪哂衅毡樾?，?duì)于當(dāng)前設(shè)計(jì)的倉庫管理系統(tǒng)還需要一定的改變，因此以我們選擇“保存表單并用表設(shè)計(jì)器修改表單”。單擊“完成”按鈕系統(tǒng)提示保存表單，將表單保存為“設(shè)備入庫表.scx”，存于c:\倉庫管理目錄下。然后打開表單修改器生成的表單，如圖所示。在修改BUTTONSET時(shí)，可以通過屬性窗口的下拉列表選定單個(gè)按鈕，調(diào)整其位置和其它屬性。如圖所示。根據(jù)功能需求，把“cmdprint”、“”cmdexit、“cmdDelete”和“cmdedit”的Visible屬性都設(shè)為“.F.-假”。添加2個(gè)命令按鈕，Caption屬性分別設(shè)為“修改庫存”和“回主界面”。在“回主界面”命令按鈕的click事件中添加代碼如下：thisform.releasedoform倉庫管理在修改庫存命令按鈕的click事件中添加代碼如下：select現(xiàn)有庫存表setorderto設(shè)備號(hào)seekgetidiffound()update現(xiàn)有庫存表set現(xiàn)有庫存=(現(xiàn)有庫存+getnum)where(設(shè)備號(hào)=getid) elseinsertinto現(xiàn)有庫存表(設(shè)備號(hào),現(xiàn)有庫存,最大庫存,最小庫存);value(thisform.設(shè)備號(hào)1.text1.value,thisform.入庫數(shù)量1.text1.value,1000,10)endifinsertinto操作日志表(操作員,操作內(nèi)容,操作時(shí)間);values(thisform.采購員1.text1.value,'設(shè)備入庫',date())保存后運(yùn)行表單，界面如圖所示：4．3設(shè)備出庫模塊的設(shè)計(jì)：在設(shè)備出庫模塊中將實(shí)現(xiàn)設(shè)備出庫數(shù)據(jù)的添加和修改庫存等功能。該模塊的功能和設(shè)備入庫的功能相似。具體操作可以參考設(shè)備入庫模塊的設(shè)計(jì)，設(shè)計(jì)最終的界面如圖所示。在表單的左上角加上了顯示當(dāng)前時(shí)間的功能，添加標(biāo)簽label2的caption屬性設(shè)為“當(dāng)前時(shí)間”；添加label3的caption屬性設(shè)為空；為當(dāng)前表單的label3init事件添加如下代碼：this.caption=dtoc(date())該模塊具體實(shí)現(xiàn)過程不再一一詳細(xì)說明。下面列出了表單中所用到控件的屬性值。Form1控件的主要屬性：屬性名稱屬性值Caption設(shè)備出庫表Autocenter.T.-真BackColor255.255.255（2）ButtonSet1控件的主要屬性：控件名屬性名稱屬性值cmdExitVisible.F.-假cmdDeleteVisible.F.-假cmdPrintVisible.F.-假cmdEditVisible.F.-假Command1Caption修改庫存Command2Caption回主界面下面時(shí)設(shè)備出庫表單中“修改庫存”命令按鈕的click事件的代碼：select現(xiàn)有庫存表*先在該表單的數(shù)據(jù)環(huán)境中添加現(xiàn)有庫存表setorderto設(shè)備號(hào)seekgetid*在現(xiàn)有庫存表中查找設(shè)備號(hào)等于getid的紀(jì)錄iffound()update現(xiàn)有庫存表;set現(xiàn)有庫存=(現(xiàn)有庫存-getnum)where(設(shè)備號(hào)=getid)*如果庫存表中有該項(xiàng)設(shè)備，則更新庫存表insertinto操作日志表(操作員,操作內(nèi)容,操作時(shí)間);values(thisform.領(lǐng)取人1.text1.value,'設(shè)備出庫',date())elsemessagebox("出錯(cuò)",1,"錯(cuò)誤的設(shè)備號(hào)")endif其余四個(gè)模塊由其他組員完成?

5系統(tǒng)的編譯和運(yùn)行5．1設(shè)置主文件用主圖標(biāo)標(biāo)記的文件是用戶在啟動(dòng).app或者.exe時(shí)被調(diào)用的文件。它可以是一個(gè)表單、菜單或者程序，建議使用程序作為主文件。5．2構(gòu)造主文件如果主文件是一個(gè)程序，它將調(diào)用應(yīng)用程序框架中的各個(gè)功能組件，然后由這些組件調(diào)用應(yīng)用程序的其余部分。如果要建立一個(gè)簡(jiǎn)單的主程序，可以按下列步驟進(jìn)行?，F(xiàn)設(shè)置應(yīng)用環(huán)境界面。建立初始用戶界面。建立事件循環(huán)?；謴?fù)環(huán)境，退出應(yīng)用程序。為了避免無限循環(huán)，必須在READEVENTS命令之前安排CLEAREVENTS命令?？梢栽谥鞑藛位蛘咧鞅韱沃刑砑右粋€(gè)“退出”項(xiàng)，該項(xiàng)發(fā)出CLEAREVENTS命令。5．3在.app和.exe文件中包含和排除文件如果在發(fā)布的應(yīng)用程序中不想再更改這些文件，可把它們放在項(xiàng)目中并設(shè)置為“包含”。那么這些文件變成只讀的，不能修改。如果想修改這些文件，把它們放在項(xiàng)目中并設(shè)置為“排除”，然后作為獨(dú)立文件隨著應(yīng)用程序一起發(fā)布。在默認(rèn)情況下，VisualFoxPro6.0在嵌放的過程中排除了數(shù)據(jù)庫、表格、成為.ff的c庫文件和.app文件。建議除了一些特定的表格，最好不要包含這類文件。數(shù)據(jù)庫和表格需要變化和添加，而如果編譯后包含自.exe或者是.app文件中，由于這二個(gè)文件被創(chuàng)建后都是靜態(tài)的，因此被包含的文件也是靜態(tài)的和只讀的。把數(shù)據(jù)庫和表格包含在這些文件中很明顯會(huì)帶來問題。因?yàn)檫@些文件不能被包含在文件.exe或者是.app文件中，所以要在發(fā)布一個(gè)應(yīng)用程序之前為這些文件做好準(zhǔn)備。如要排除可修改的文件，首先在項(xiàng)目管理器中，選擇可修改的文件，然后從“項(xiàng)目”菜單中選擇“排除”命令。在一個(gè)文件被排除后，則在文件的左方加入一個(gè)排除符號(hào)。?

6結(jié)束語通過這次課程設(shè)計(jì)我學(xué)了很多知識(shí)，遇到問題要向會(huì)的的同學(xué)或者上網(wǎng)查詢，在設(shè)計(jì)中學(xué)會(huì)了VisualFoxPro6.0的簡(jiǎn)單使用，雖然主要程序是參考網(wǎng)上到基本道理是了解的。參考文獻(xiàn)作者.書名.出版社.出版日期李加?！isualFoxPro6.0·北京·清華大學(xué)出版社·2004年6月2．周建成·FoxPro2.5命令與函數(shù)專輯·北京·人們郵電出版社·2004年7月3．梁杰、效英、殷咸青·Foxpro2.6forwindows使用詳解·西安·西安電子科技大學(xué)出版社·2002年5月附錄：主要控件的源代碼清單：1：主程序源代碼：SETTALKoffsetsysmenuoffsetcenton_screen.windowstate=2_screen.icon="icons\happy.ico"_screen.maxbutton=0_screen.minbutton=1_screen.closable=.f.modifywindowscreennocloseMODIFYWINDOWSCREENTITLE"倉庫管理信息系統(tǒng)"ZOOMWINDOWSCREENMAXsetdefaulttodatadoform登錄表單readeventsclearcloseallreturnendif2：登錄表單的確定按鈕控件的click源代碼：locateforalltrim(用戶名)==alltrim(bo1.value)andalltrim(密碼)==alltrim(thisform.text1.value)if!eof()ifalltrim(級(jí)別)=="管理員"publicjb,usernamejb=1username=alltrim(bo1.value)elsepublicjb,usernamejb=0username=alltrim(bo1.value)endifdomenu.mprthisform.releasedoform倉庫管理else#definemissmatch_loc"用戶或口令錯(cuò)，請(qǐng)重新登錄！"waitwindowmissmatch_loctimeout1bo1.value=''thisform.text1.value=''numcount=numcount+1ifnumcount=4numcount=0mess=messagebox("三次口令錯(cuò)，將退出程序！",4+16+2,"退出")cleareventreleasethisformendifendif3：密碼修改表單的修改按鈕的click事件源代碼：ifempty(thisform.text4.value)mess=messagebox("用戶名不能為空！",48,"警告")elseifempty(thisform.text1.value)mess=messagebox("舊密碼不能為空！",48,"警告")elseifempty(thisform.text2.value)mess=messagebox("新密碼不能為空！",48,"警告")elseifempty(thisform.text3.value)mess=messagebox("重復(fù)密碼不能為空！",48,"警告")elseifalltrim(thisform.text2.value)<>alltrim(thisform.text3.value)orlen(alltrim(thisform.text2.value))<>len(alltrim(thisform.text3.value))mess=messagebox("二次密碼不一致！",48,"警告")elselocateforalltrim(用戶名)==alltrim(thisform.text4.value)andalltrim(密碼)==alltrim(thisform.text1.value)ifeof()