庫存管理系統(tǒng)（下）

1、庫存管理系統(tǒng)下P，把程序和數(shù)據(jù)封裝起來視為一個對象，每個對象都是可視的。程序員在設(shè)計時只需用現(xiàn)有工具根據(jù)界面設(shè)計要求，直接在屏幕上“畫出窗口、菜單、按鈕、滾動條等不同類型的對象，并為每個對象設(shè)置屬性。程序員的編程工作僅限于編寫相關(guān)對象要完成的功能程序，因此程序設(shè)計的效率可大大進步。事件驅(qū)動的編程機制事件驅(qū)動是非常合適圖形用戶界面的編程方式。在圖形用戶界面的應(yīng)用程序中，是由用戶的動作即事件掌握著程序運行的流向，每個事件都能驅(qū)動一段程序的運行。程序員只要編寫響應(yīng)用戶動作的代碼，而各個動作之間不一定有聯(lián)絡(luò)。提供了易學(xué)易用的應(yīng)用程序集成開發(fā)環(huán)境在VB集成開發(fā)環(huán)境中，用戶可設(shè)計界面、編寫代碼、調(diào)試程序，

2、直至把應(yīng)用程序編譯成可執(zhí)行文件在inds中運行，使用戶在友好的開發(fā)環(huán)境中工作。構(gòu)造化的程序設(shè)計語言VB具有豐富的數(shù)據(jù)類型和構(gòu)造化程序構(gòu)造，作為一種程序設(shè)計語言，它還有如下一些特點：強大的數(shù)值和字符串處理功能豐富的圖形指令，可方便地繪制各種圖形提供靜態(tài)和動態(tài)數(shù)組，有利于簡化內(nèi)存的管理過程可遞歸調(diào)用，使程序更為簡練支持隨機文件和順序文件的訪問提供了一個可供給用程序調(diào)用的包含多種類型的圖標(biāo)庫具有完善的運行出錯處理支持多種數(shù)據(jù)庫系統(tǒng)的訪問利用數(shù)據(jù)控件可訪問的數(shù)據(jù)庫系統(tǒng)有：irsftAess、Btrieve、DBASE、irsftFxPr和Paradx等，也可以訪問irsftExel、Ltus1-2-3

3、等多種電子表格。支持動態(tài)數(shù)據(jù)交換DDE、動態(tài)鏈接庫DLL和對象的鏈接與嵌入LE技術(shù)完備的HELP聯(lián)機幫助功能與inds環(huán)境下的軟件一樣，在VB中，利用幫助菜單和F1功能鍵，用戶可以隨時方便地得到所需要的幫助信息。VB幫助窗口中顯示了有關(guān)的例如代碼，通過復(fù)制、粘貼操作可獲取大量的例如代碼，為用戶的學(xué)習(xí)和使用提供了極大的方便。VB程序設(shè)計的概念就是面向?qū)ο蟮母拍睿瑢ο缶褪菙?shù)據(jù)DATA和代碼DE互相結(jié)合的綜合體。inds上面的每一個圖標(biāo)，包括窗口本身都是對象，假如沒有任何事情發(fā)生，對象處于停頓狀態(tài)。當(dāng)存在外來事件時，程序段執(zhí)行，它的執(zhí)行是由外來事件決定的。因此是“事件驅(qū)動的。編寫VB程序較為簡單，首

4、先將各個對象放在空白窗體上，然后將程序代碼分別添加給對象或圖標(biāo)，將它們組合起來就可以隨意運行了。在VB中，窗體實際上是一個對象，VB的窗體含有許多內(nèi)嵌特性，這使得用戶界面部分的建立像是從一個目錄中挑選一個個適宜的控件，而不是從零開場一步一步地建立控件。這種開發(fā)者能親眼看到的程序設(shè)計過程就是“可視化程序設(shè)計VisualPrgraing根本概念對象：面向?qū)ο缶幊蘌的提法大家一定也很耳熟，雖然VisualBasi并不是完全的面向?qū)ο缶幊?，但也利用了對象編程技術(shù)。對象簡單地說就是大家經(jīng)?？吹降母鞣N窗口、按鈕、文本框甚至打印機等。屬性：如同電視有黑白、彩色之分一樣，作為對象的inds中的窗口也是有大有小

5、，文本框的位置不可能完全一樣，菜單要顯示出不同的功能，這些都是由對象的屬性決定的。不同對象的屬性可能不同。屬性一般決定了對象的位置、大孝顯示等情況。方法：就是對象可以做的事，如打印機對象就有打印Print方法、窗口對象支持隱藏Hide方法、很多對象支持挪動ve方法等。事件：就是對象對用戶各種操作的反映情況。如用戶用鼠標(biāo)按一下按鈕，就會觸發(fā)按鈕的“按lik事件?？丶嚎丶褪荲isualBasi提供的編程用的模塊，與對象有直接的聯(lián)絡(luò)，如同積木的木塊，使用這樣的控件，就可以像拼圖或堆積木一樣“搭、“拼如dBASE，Paradx，irsftFxPr和效勞器、小型機及大型機上的許多SQL數(shù)據(jù)庫。Aes

6、s還完全支持irsft的LE技術(shù)。Aess還提供inds操作系統(tǒng)的高級應(yīng)用程序開發(fā)系統(tǒng)。Aess與其它數(shù)據(jù)庫開發(fā)系統(tǒng)之間相當(dāng)顯著的區(qū)別就是：您不用寫一行代碼，就可以在很短的時間里開發(fā)出一個功能強大而且相當(dāng)專業(yè)的數(shù)據(jù)庫應(yīng)用程序，并且這一愉快的過程是完全可視的！假如您能給它加上簡短的VBA代碼，那么您的程序決不比專業(yè)程序員潛心開發(fā)的程序差。Aess的總體構(gòu)造Aess將所有有名字的東西都成為對象bjet，在Aess2000中，最重要的對象有表，查詢，窗體，報表，宏和模塊。表用戶定義的存儲資料的對象。每一個表都包含有關(guān)某個主體的信息。表包括存儲不同種類資料的字段列，而記錄行那么搜集特定主體實例的所有信

7、息。查詢?yōu)閬碜砸粋€或多個表的資料提供定制視圖的對象。在Aess中，可以利用圖形化的實例查詢機制QBE或通過SQL語句來建立查詢。你可以在查詢中選擇、更新、插入或刪除資料，也可以用查詢來建立新表。窗體窗體是主要的人機接口。大量的操作幾乎所有都要通過窗體完成。窗體通過運行宏ar或VisualBasifrAppliatinnsVBA過程，來響應(yīng)大量的事件。Aess2000為我們提供了強大的同時也是相當(dāng)方便的向?qū)斫?biāo)準(zhǔn)的inds窗體。報表為格式化、計算、打印選定資料而設(shè)計的對象。它是衡量一個優(yōu)秀的數(shù)據(jù)庫的重要標(biāo)準(zhǔn)有時甚至是唯一的標(biāo)準(zhǔn)。宏為了響應(yīng)已定義的事件，需要讓Aess去執(zhí)行一個或多個操作，而宏

8、就是對這些操作的構(gòu)造化的定義對象。它可以讓你像堆積木一樣建立一個功能強大的程序，而無須寫大量的代碼。模塊包括用VBA編碼的定制過程的一個對象。模塊提供了獨立的動作流以捕獲錯誤，而宏做不到。模塊能直接響應(yīng)窗體或報表事件，也可以從應(yīng)用程序的任何地方被調(diào)用。Add1.RefreshSetText4.DataSure=Add1Text4.DataField=密碼IfText1=ThensgBx請輸入原密碼！,修改密碼ExitSubsgBx原密碼錯誤！,修改密碼ExitSubElseIfText2=rText3=ThensgBx請輸入新密碼！,修改密碼ExitSubElseIfText2Text3The

9、nsgBx密碼不一致！,修改密碼ExitSubElseText4.Text=Text2.TextsgBx密碼修改成功！,修改密碼UnladeEndIfDiI,JAsIntegerDiSTRAsStringIfText1.Text=rText2=rb1.Text=rText4=rText5=rText6=rText7=ThensgBx請輸入完好信息！ExitSubElse將記錄存入入庫記錄表供給商)=Text4.Text供給商 )=Text5.TextsgBx已經(jīng)成功入庫！EndIf將記錄參加現(xiàn)有庫存表中J=設(shè)備入庫表.Text9sgBx現(xiàn)有庫存量為：JElseSTR=現(xiàn)有庫存表中無此設(shè)備！vb

10、rLf請在設(shè)備代碼表和現(xiàn)有庫存表中手動添加記錄！sgBxSTRLadfr現(xiàn)有庫存表fr現(xiàn)有庫存表.Shallfr現(xiàn)有庫存表.and1_likLadfr設(shè)備代碼表fr設(shè)備代碼表.ShEndIfEndSubPrivateSubdDelete_lik()刪除入庫表中記錄nErrrGTDeleteErrDiYesNAsStringYesN=sgBx(刪除,vbYesN,刪除記錄)IfYesN=vbYesThenithdatPriaryRS.Rerdset.Delete.veNextEndithElseExitSubEndIfDeleteErr:sgBxErr.DesriptinEndSubPrivat

11、eSubdUpdate_lik()更新紀(jì)錄程序nErrrGTUpdateErrExitSubUpdateErr:sgBxErr.DesriptinPrivateSuband1_lik()設(shè)備出庫程序Dii,J,kAsIntegerDiSTRAsStringIfIsNueri(Text2)=FalseThensgBx數(shù)量必須是數(shù)字！ExitSubEndIfIfText1.Text=rText2=rb1.Text=rText4=rText5=rText6=rText7=ThensgBx請輸入完好信息！ExitSubSTR=現(xiàn)有庫存表中無此設(shè)備！請檢查輸入是否正確！sgBxSTRExitSubEls

12、esgBx已經(jīng)成功存入設(shè)備出庫表庫！EndIfIfk=0ThenJ=fr設(shè)備出庫表.Text9sgBx現(xiàn)有庫存量為：JElsesgBx現(xiàn)有庫存量缺乏！請輸入適宜數(shù)量！ExitSubEndIfElseSTR=現(xiàn)有庫存表中無此設(shè)備！請檢查輸入是否正確！sgBxSTREndIfEndSubPrivateSubdDelete_lik()刪除出庫記錄nErrrGTDeleteErrDiYesNAsStringYesN=sgBx(刪除,vbYesN,刪除記錄)IfYesN=vbYesThenithdatPriaryRS.Rerdset.Delete.veNextEndithElseExitSubEndIf

13、DeleteErr:sgBxErr.DesriptinEndSub更新記錄程序同入庫的更新程序一樣，在此略主要程序PrivateSuband1_lik()顯示高于最大戒備庫存的設(shè)備datPriaryRS.RerdSure=selet*fr現(xiàn)有庫存表here現(xiàn)有庫存最大庫存datPriaryRS.RefreshgrdDataGrid.RefreshBeepsgBx表中設(shè)備已過量！ElsesgBx沒有設(shè)備庫存過量！EndIfEndSubPrivateSuband2_lik()顯示低于于最小戒備庫存的設(shè)備datPriaryRS.RerdSure=selet*fr現(xiàn)有庫存表here現(xiàn)有庫存最小庫存datPriaryRS.RefreshgrdDataGrid.RefreshBeepsgBx表中設(shè)備庫存量已過戒備線！請采購！ElsesgBx沒有設(shè)備庫存量過少！EndIfEndsubPrivateSubTier1_Tier()自動報警程序BeepsgBx有設(shè)備庫存超過戒備庫存！vbrLf請查看庫存報警記錄Tier1.