超市進(jìn)銷存管理系統(tǒng)武曉娟喬夢莎

1、超市進(jìn)銷存管理系統(tǒng)專 業(yè) _班 級 _姓 名 _指 導(dǎo) 老 師 _邯鄲職業(yè)技術(shù)學(xué)院年 月 日摘 要 隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,它已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn)以及游戲娛樂等。雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。以前開發(fā)Windows應(yīng)用軟件是專業(yè)人員的工作，需要掌握許多專業(yè)知識和經(jīng)過特殊的培訓(xùn)才能勝任。現(xiàn)在不同了，即使你沒有接受過嚴(yán)格的程序設(shè)計(jì)訓(xùn)練，使用Visual Basic也一樣能夠開發(fā)出功能強(qiáng)大、適合自己特殊需求的應(yīng)用程序了

2、。Visual Basic繼承了Basic語言易學(xué)易用的特點(diǎn)，特別適合于初學(xué)者學(xué)習(xí)Windows系統(tǒng)編程。 超市進(jìn)銷存管理系統(tǒng)用計(jì)算機(jī)管理超市庫存進(jìn)出管理的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前庫存管理都是由工作人員手工書寫的方式來操作的.現(xiàn)在一般的超市都采用計(jì)算機(jī)智能化管理,采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)超市庫存管理程序來幫助管理員進(jìn)行更有效的超市庫存管理工作。超市進(jìn)銷存管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。

3、 經(jīng)過分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。因?yàn)楸救四芰τ邢?，加上時(shí)間緊迫，所以設(shè)計(jì)出來的本系統(tǒng)可能功能比較簡單，另外本系統(tǒng)是單機(jī)版，不能實(shí)現(xiàn)網(wǎng)絡(luò)互聯(lián)操作,這些都有待于我在以后的工作學(xué)習(xí)中進(jìn)一步改進(jìn)。關(guān)鍵字:超市進(jìn)銷存管理,MIS,visual basic ,數(shù)據(jù)庫AbstractAs science and technology continue to im

4、prove, computer science increasingly mature, It has to go down to the daily work and life, such as word processing, information management, aided design, graphics and video processing, as well as education and training game entertainment. although now the world has been filled with an over-abundance

5、 of software, but they still can not meet the special needs of the various users, it also had to develop software suited to their particular needs. Professional Windows application software development before the work is needed in many professional knowledge and competence through special training.

6、Different now, even if you have not received strict procedures designed training, the use of Visual Basic also like to develop a powerful, and suited to their special needs applications. Visual Basic inherited Basic language learn user-friendly features, and are particularly suited to new learner le

7、arning Windows system programming. Supermarket Jinxiaocun management system using computer management Supermarket stocks a computer application and management of technology innovation in the computer before the inventory management are not yet universal manual written by the staff to operate. Superm

8、arkets are now generally used computer intelligent management, using the computer as a tool for computer supermarket inventory management procedures to help managers more effectively supermarket inventory management. Supermarket Jinxiaocun management system is a typical management information system

9、 (MIS), including its main development background to the establishment and maintenance of the database and front-end application development 2. The request for the establishment of strong data consistency and integrity, good for the security of the data. For the latter request applications functions

10、, such as easy to use features. After analysis, we use Microsoft visual basic development tool companies, the use of its various object-oriented development tools, especially data that can be easily accessible and concise window manipulation database intelligent objects, the first prototype applicat

11、ion system in a short time and then, computation of the initial prototype system needs to constantly revise and improve until the formation of a viable system of user satisfaction. Because I limited capacity, coupled with time constraints, it designed the system may function relatively simple, and t

12、he system is single edition, not Internet operations network, which I have yet to learn that in future work to further improve. keyword : Supermarket Jinxiaocun management MIS,visual basic database目錄第一章 引言411 課題背景412 系統(tǒng)簡介51. 3 開發(fā)軟件介紹6第二章 系統(tǒng)的分析821 系統(tǒng)開發(fā)的目標(biāo)和思想922 系統(tǒng)的可行性分析13第三章 系統(tǒng)的設(shè)計(jì)1831 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)1832 系

13、統(tǒng)的數(shù)據(jù)庫設(shè)計(jì) 1933 界面設(shè)計(jì)與代碼設(shè)計(jì)23第四章 結(jié)束語 46參考文獻(xiàn)47 致謝49第1章 引言1.1 課題背景超市進(jìn)銷存管理系統(tǒng)用計(jì)算機(jī)管理超市庫存進(jìn)出管理的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前庫存管理都是由工作人員手工書寫的方式來操作的.現(xiàn)在一般的超市都采用計(jì)算機(jī)智能化管理,采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)超市庫存管理程序來幫助管理員進(jìn)行更有效的超市庫存管理工作。超市進(jìn)銷存管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使

14、用等特點(diǎn)。1.2系統(tǒng)簡介 本系統(tǒng)采用visual basic與Access作為數(shù)據(jù)庫的方式編寫,主要服務(wù)于超市庫存管理人員的日常工作. 主要幾大功能模塊構(gòu)成如下: 功能模塊一是商品類型管理:添加商品類型,修改商品類型,刪除商品類型 功能模塊二是商品管理:添加商品信息,修改商品信息,刪除商品信息 功能模塊三是進(jìn)貨管理:添加進(jìn)貨管理,修改進(jìn)貨管理,刪除進(jìn)貨管理 功能模塊四是銷售管理: 添加銷售管理,修改銷售管理,刪除銷售管理 功能模塊五是報(bào)損管理: 添加報(bào)損管理,修改報(bào)損管理,刪除報(bào)損管理1.3開發(fā)軟件介紹Visual Basic 6.0是Micrsoft公司出品的開發(fā)工具，Visual Basi

15、c是一種可視化的，面向?qū)ο蟮腤indows開發(fā)語言，它具有易用，通用和開發(fā)效率高的特點(diǎn)。隨著微軟對它不斷地改進(jìn)以及計(jì)算機(jī)本身性能的提高，使得Visual Basic越來越適合一般的應(yīng)用程序開發(fā)。正如Bill Gate所說，世界上絕大多數(shù)的Windows應(yīng)用程序是用Visual Basic編寫的。在眾多的開發(fā)工具中，我們?yōu)槭裁匆x擇Visual Basic6.0呢？因?yàn)閂B具有眾多其它開發(fā)工具所沒有的優(yōu)點(diǎn)！具體介紹如下：優(yōu)點(diǎn)一：開發(fā)的高效優(yōu)點(diǎn)二：語言的高效優(yōu)點(diǎn)三：編譯的高效優(yōu)點(diǎn)四：執(zhí)行的高效優(yōu)點(diǎn)五：維護(hù)的高效基于以上理由，我們毫不憂郁的選擇了VB6.0做為我們的開發(fā)工具！主要的控件及其基本屬性，

16、事件簡介1.命令按鈕類的控件：1) Caption屬性：用來顯示在控件上的標(biāo)題。2) Enable屬性：控制控件的激活狀態(tài)灰色或可用。3) Appearance屬性：值為1時(shí),則以3D效果顯示該控件,0則不然。4) Backcolor屬性：用來改變在按鈕上顯示圖像的背景色。5) Cancel屬性：該屬性決定按鈕是否為一個(gè)”取消”按鈕。6) Default屬性:決定哪一個(gè)命令按鈕控件是窗體的缺省命令按鈕.7) Font屬性:控制各種文字字體類型.8) Left,top,height,width屬性:設(shè)定控件的位置與大小.9) Style,picture屬性:決定按鈕的顯示方式是否為圖像形式出現(xiàn).

17、10) Visible屬性:確定控件運(yùn)行時(shí)是否為可見.11) Index屬性:當(dāng)控件為一控件數(shù)組時(shí),此屬性值為該控件在數(shù)組的下標(biāo)值.12) DownPicture屬性：設(shè)置/返回一個(gè)對圖片的引用，該圖片在按鈕被單擊處于壓下狀態(tài)時(shí)顯示。13) DisabledPicture屬性：設(shè)置/返回一個(gè)對圖片的引用，該圖片在控件無效時(shí)顯示在控件中。14) MaskColor屬性：設(shè)置/返回一個(gè)在按鈕的圖片中作為“掩碼“的的顏色15) Picture屬性：設(shè)置返回commandButton控件中要顯示的圖片。2.命令按鈕類的事件：1） 單擊事件Click事件（1） 觸發(fā)與適用此事件是在一個(gè)命令按鈕對象上按下

18、然后釋放一個(gè)鼠標(biāo)按鈕時(shí)發(fā)生。命令按鈕的Click事件僅對當(dāng)單擊鼠標(biāo)時(shí)發(fā)生。（2） 事件處理過程按鈕單擊事件的處理過程為： Private Sub object-Click（Index As Integer）其中Object為引發(fā)該事件的對象名稱。如果是命令按鈕的控件是數(shù)組，則需要使用Index參數(shù)標(biāo)識該控件。2） 獲得焦點(diǎn)GotFocus事件（1） 觸發(fā)與適用 當(dāng)命令按鈕獲得焦點(diǎn)產(chǎn)生該事件，獲得焦點(diǎn)可以通過諸如Tab切換或單擊對象之類的用戶動作，或在代碼中用SetFocus方法改變焦點(diǎn)來實(shí)現(xiàn)。（2） 事件處理過程命令按鈕GotFoucs事件處理過程為：Private Sub Object-Go

19、tFocus（Index As Integer）3） LostFocus事件：當(dāng)一個(gè)對象失去焦點(diǎn)時(shí)發(fā)生4） KeyDown事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生5） KeyUp事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。6） KeyPress事件：當(dāng)用戶按下或松開一個(gè)ANSI鍵時(shí)發(fā)生。7） MouseDown事件：當(dāng)在命令按鈕上按下鼠標(biāo)按鈕時(shí)發(fā)生。8） MouseMove事件：當(dāng)命令按鈕上移動鼠標(biāo)時(shí)發(fā)生。9） MouseUp事件：當(dāng)在命令按鈕上釋放鼠標(biāo)按鈕時(shí)發(fā)生。3.標(biāo)簽框類的控件類的控件：1） Caption屬性：在應(yīng)用程序界面上加入說明。2）Autosize屬性：決定控件是否自動改變大

20、小以顯示其全部內(nèi)容。3）Backstyle屬性：用以指示標(biāo)簽是否透明.4）Bordstyle屬性:用以設(shè)定控件是否有邊框。4.文本框類的控件：1）Text屬性：通過像text屬性賦值的方法來改變該屬性的值。2）Maxlength屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。3）Multline屬性：該屬性設(shè)定text字符串中是否接受換行符。4）Scrollbars屬性：該屬性決定是否為文本框加滾動條。5）Passwordchar屬性：該屬性設(shè)定輸入文本的特殊顯示字符,在設(shè)計(jì)密碼程序時(shí)非常有用。6）Change事件屬性：文本框的內(nèi)容發(fā)生改變時(shí),相應(yīng)的控件之間發(fā)生相應(yīng)的改變,具有即時(shí)性。7）

21、Keypress：事件由用戶在文本框控件中按任意鍵觸發(fā)。8）Alignment屬性：設(shè)定控件中的文本對其方式9）Appearance屬性：設(shè)定一個(gè)對象在運(yùn)行時(shí)是否可以3D效果顯示。10）BackColor屬性：設(shè)置返回背景色11）BorderStyle屬性：設(shè)置對象的邊框樣式12）DataField屬性：設(shè)定數(shù)據(jù)使用者將被綁定到的字段名13）DataFormat屬性：設(shè)定DataFormat對象，用于數(shù)據(jù)綁定14）DataMember屬性：從數(shù)據(jù)供應(yīng)程序提供的幾個(gè)數(shù)據(jù)成員中返回/設(shè)定一個(gè)特定的數(shù)據(jù)成員15）DataSource屬性：設(shè)定控件綁定的一個(gè)數(shù)據(jù)源16) DragIcon屬性：設(shè)定圖標(biāo)

22、，它將在拖放操作中作為指針顯示17) DragMode模式：設(shè)定一個(gè)值，確定在拖放操作中所用方式18) Enabled屬性：設(shè)置/返回運(yùn)行時(shí)TextBox是否相應(yīng)用戶事件19) Font屬性：設(shè)置/返回字體屬性20) ForeColor屬性：設(shè)置/返回文本的前景色21) Height屬性：設(shè)置/返回TextBox的高度22) IMEMode屬性：設(shè)置/返回?cái)?shù)值用來確定輸入方法編輯器的狀態(tài)23) Index屬性：設(shè)置/返回唯一的標(biāo)識控件數(shù)組中該控件的編號24) Left屬性：設(shè)置/返回TextBox控件的水平位置25) Locked屬性：設(shè)置/返回TextBox中文本是否可編輯26) LinkI

23、tem屬性：設(shè)置/返回DDE與另一個(gè)應(yīng)用程序會話時(shí)，傳給接受端的數(shù)據(jù)27) MaxLength屬性：設(shè)置/返回一個(gè)值，指定在TextBox控件中能夠輸入的字符最大值28) MouseIcon屬性：設(shè)置/返回自定義鼠標(biāo)的圖標(biāo)29) Top屬性：設(shè)置/返回TextBox控件的垂直位置30) Tag屬性：存儲過程所需的附加數(shù)據(jù)5.文本框類的事件：1） Change事件：當(dāng)改變文本框內(nèi)容時(shí)發(fā)生2） Click事件：鼠標(biāo)單擊控件時(shí)發(fā)生3） DblClick事件：用鼠標(biāo)左鍵雙擊控件時(shí)發(fā)生4） DragDrop事件：在一個(gè)完整的拖放動作完成或使用Drag方法，并將其Action參數(shù)設(shè)置為2時(shí)發(fā)生5） Dra

24、gOver事件：在拖放操作正在進(jìn)行時(shí)發(fā)生6） GotFocus事件：當(dāng)一個(gè)命令按鈕獲得焦點(diǎn)時(shí)發(fā)生7） LinkClose事件：當(dāng)一個(gè)DDE對話結(jié)束時(shí)發(fā)生8） LinkError事件：當(dāng)一個(gè)DDE對話框過程中出現(xiàn)錯(cuò)誤時(shí)，該事件發(fā)生9） KeyDown事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生10） Validate事件：在焦點(diǎn)轉(zhuǎn)換到另一個(gè)控件之前發(fā)生，此時(shí)該控件的Causes Validation 屬性值設(shè)置為True6.單選按鈕類的控件：1)Caption屬性：顯示在控件上的文本,是單選按鈕的標(biāo)題。2)Alignment屬性：決定單選按鈕的標(biāo)題在控件上的位置。3)Enable屬性：該控件為灰色

25、時(shí)為false,表示運(yùn)行時(shí)不可用。4)Index屬性：屬性值表示為單選按鈕組成的控件中某個(gè)按鈕的索引值。5)Tabindex屬性：建立控件時(shí),vb自動為其分配一個(gè)tabindex值,利用tab鍵可以在控件之間切換焦點(diǎn)。6)Value屬性：反映控件狀態(tài)的屬性,返回true表示已選擇了該按鈕。7)Appearance 屬性：設(shè)置/返回一個(gè)對象在運(yùn)行時(shí)是否以3D效果顯示。8)BackColor 屬性：設(shè)置/返回背景色。9)Container 屬性：設(shè)置/返回Form上的控件屬性。10)DataField 屬性：設(shè)置/返回?cái)?shù)據(jù)使用者將被綁定到的字段名。11)DataFormat 屬性：設(shè)置/返回Dat

26、aFormat對象，一個(gè)綁定對象將附加到它。12)DisabledPicture 屬性：設(shè)置/返回一個(gè)對圖像的引用，該圖片在控件無效時(shí)顯示在控件中。13)DownPicture 屬性：設(shè)置/返回一個(gè)對圖片的引用，該圖片在控件單擊下處于壓下狀態(tài)時(shí)顯示。14)DragMode 屬性：設(shè)置/返回一個(gè)值，確定在拖放操作中所用的方式。15)Font 屬性：設(shè)置/返回字體屬性。16)FontBold 屬性：設(shè)置/返回字體粗體樣式。17)FontItalic 屬性：設(shè)置/返回字體斜體樣式。 18)FontStrikethru 屬性：設(shè)置/返回字體刪除線樣式。19)FontUnderLine 屬性：設(shè)置/返回

27、字體下劃線樣式。20)FontName 屬性：設(shè)置/返回控件中顯示文本所用的字體大小。21)FontSize 屬性：設(shè)置/返回控件中顯示文本所用的字體大小22)Height 屬性：設(shè)置/返回控件的高度。23)MaskColor 屬性：設(shè)置/返回一個(gè)在控件的圖片中作為掩碼的顏色。24)MousePointer 屬性：設(shè)置/返回一個(gè)值，該值指示在運(yùn)行時(shí)當(dāng)鼠標(biāo)移動到對象上時(shí)顯示的指針類型。7.單選按鈕類的常用事件：1)Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。2)DbClick事件： 當(dāng)在一個(gè)對象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時(shí)，該事件發(fā)生。3)DragDrop事件：在一個(gè)完整的拖放動作或使用

28、Drag方法，并將其Action參數(shù)設(shè)置位2時(shí)，該事件發(fā)生。4)DragOver事件： 在拖放操作正在進(jìn)行時(shí)發(fā)生。5)GotFocus事件： 當(dāng)獲的對象焦點(diǎn)時(shí)發(fā)生。6)LostFocus事件：當(dāng)對象失去焦點(diǎn)時(shí)發(fā)生。7)KeyDown事件：當(dāng)控件具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生。8)KeyUp事件： 當(dāng)控件具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。9)KeyPress事件：當(dāng)用戶按下或釋放ANSI一個(gè)鍵時(shí)發(fā)生。10)MouseDown事件：當(dāng)在控件上按下鼠標(biāo)鍵時(shí)發(fā)生。11)MouseMove事件：在控件上移動鼠標(biāo)時(shí)發(fā)生。12)MouseUp事件：在控件上釋放鼠標(biāo)時(shí)發(fā)生。8.復(fù)選按鈕類的控件：1)Caption屬性：

29、缺省為check1。2)Index屬性:該屬性值為復(fù)選框控件數(shù)組的下標(biāo).3)Value屬性:value為0表空白,為1表勾號,為2表示灰色勾號.4)Container屬性：Form控件上的容器。5)DataChangeed屬性：設(shè)置/返回一個(gè)值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進(jìn)程修改。6)DataField屬性：設(shè)置或返回?cái)?shù)據(jù)使用者將被綁定到的字段名。7)DataFormat 屬性：設(shè)置或返回DataFormat對象，用于數(shù)據(jù)綁定。8)Datasource屬性：設(shè)置或返回控件綁定的一個(gè)數(shù)據(jù)源。9)DisabledPicture屬性：設(shè)置或返回一個(gè)對圖片的引用，該圖片在控件無效時(shí)顯示在控件中。

30、10)DownPicture 屬性：設(shè)置或返回一個(gè)對圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時(shí)顯示。11)DragIcon屬性：設(shè)置或返回圖標(biāo)，它將在拖放操作中做為指針顯示。12)DragMode屬性：設(shè)置返回一個(gè)值，確定在拖放操作中所用方式。13)Font屬性：設(shè)置或返回字體的屬性。14)Name屬性：設(shè)置或返回控件的標(biāo)識名。15)Value屬性：設(shè)置或返回控件的狀態(tài)。9.復(fù)選按鈕類的控件的基本事件：1)Click事件：鼠標(biāo)單擊控件時(shí)發(fā)生。2)DragDrop事件：在一個(gè)完整的拖放動作完成或使用Drag方法，并將其Action參數(shù)設(shè)置為2時(shí)發(fā)生。3)DragOver事件：在拖放操作正在進(jìn)行

31、時(shí)發(fā)生。4)GotFocus事件：在對象獲的焦點(diǎn)時(shí)發(fā)生。，5)OLECompleteDrag事件：當(dāng)源部件被放到目標(biāo)時(shí)發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。6)OLEDragDrag事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標(biāo)部件時(shí)，此事件發(fā)生。10.框架類的控件：1) List屬性：列表框控件的表項(xiàng)是使用數(shù)組的方式保存,數(shù)組的每一個(gè)元素存儲列表控件的一個(gè)表項(xiàng)2)Listcount屬性:控件列表部分項(xiàng)目的個(gè)數(shù)。3)Mutselect屬性:可以設(shè)置列表框?yàn)閱芜x或允許多選屬性.4)Selectd屬性:標(biāo)示一個(gè)數(shù)組,數(shù)組各元素為:5)Selected(0),selected(1)11.滾動條

32、類的控件：1)Value屬性：滾動條上滑塊所在位置由value值所決定。2)Max和min屬性：對value值的最大,最小進(jìn)行限制。3)Largechange屬性：用戶點(diǎn)擊滾動條與鍵頭之間的區(qū)域時(shí),value的改變量。4) OnClick事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。12.定時(shí)器類類的控件：1)Interval屬性：表示定時(shí)的時(shí)間間隔,以毫秒為單位。2)Enable屬性:為true時(shí)(缺省值),激活定時(shí)器開始計(jì)時(shí);為false時(shí)處于休眠狀態(tài).Visual basic6.0連接數(shù)據(jù)庫的主要方式以下幾種方式：一是：用data控件進(jìn)行數(shù)據(jù)庫鏈接 ，二是利用adodc（ADO Data

33、 Control)進(jìn)行數(shù)據(jù)庫鏈接 。三是: 利用DataEnvironment進(jìn)行數(shù)據(jù)庫鏈接.四是利用ADO(ActiveX Data Objects)進(jìn)行編程:現(xiàn)在我們來大致對這幾種技術(shù)應(yīng)用介紹：一、 用data控件進(jìn)行數(shù)據(jù)庫鏈接：第一步：給窗體添加一個(gè)Data控件。第二步：用Access建立一個(gè)名為Pad的數(shù)據(jù)庫，在庫中建立一個(gè)表Myset，給表添加四個(gè)字段：backcolor（數(shù)據(jù)），forecolor(文本），fontname(文本）,fontsize（文本）。注意：請將庫文件存入程序所在目錄。 如果你的機(jī)器沒安裝有Access，可通過VB建庫。二、 利用adodc（ADO Data

34、Control)進(jìn)行數(shù)據(jù)庫鏈接：使用adodata控件訪問數(shù)據(jù)庫可以完全不用編寫代碼,只需要通過簡單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫的連接,通過綁定數(shù)據(jù)感知控件,就能提供一個(gè)訪問數(shù)據(jù)庫的界面,用來實(shí)現(xiàn)對數(shù)據(jù)庫的瀏覽,貼加,刪除,修改等操作.三、 利用DAO對數(shù)據(jù)庫進(jìn)行操縱:在visual basic 中提供了兩種與jet數(shù)據(jù)引擎接口的方法:data控件與數(shù)據(jù)訪問對象(DAO)DAO是database object的英文縮寫,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口,另一方面要在編程環(huán)境中有對數(shù)據(jù)庫的支持.DAO模型是設(shè)計(jì)關(guān)系數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)的對象類的集合.他們提供了管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的

35、全部操作屬性和方法,這其中包括建立數(shù)據(jù)庫,定義表,字段和建立表間關(guān)系,定位和查詢數(shù)據(jù)庫等.關(guān)系數(shù)據(jù)庫介紹:關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。20世紀(jì)70年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關(guān)系的。在數(shù)據(jù)庫發(fā)展的歷史上，最重要的成就就是關(guān)系模型。 關(guān)系數(shù)據(jù)庫系統(tǒng)與非關(guān)系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關(guān)系系統(tǒng)只有“表“這一種數(shù)據(jù)結(jié)構(gòu)；而非關(guān)系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù)結(jié)構(gòu)，對這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。結(jié)構(gòu)化查詢語言SQL（Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查

36、詢、操縱、定義和控制四個(gè)方面，是一個(gè)通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫語言。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言 Microsoft Access介紹:使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，請為每一種類型的信息創(chuàng)建一個(gè)表。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。

37、如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要創(chuàng)建查詢。查詢的同時(shí)也可以更新或刪除多條記錄，并對數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。 如果要簡單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個(gè)窗體。在打開一個(gè)窗體時(shí)，Microsoft Access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個(gè)報(bào)表。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。第2章 系統(tǒng)的分析2.1系統(tǒng)開發(fā)的目標(biāo)和思想本系

38、統(tǒng)開發(fā)目標(biāo)是服務(wù)于高速公路收費(fèi)管理人員,方便工作人員,對過往車輛收費(fèi),發(fā)放收費(fèi)票據(jù)記錄,對信息的分類管理等.同時(shí)力求做到界面人性化,功能齊全,數(shù)據(jù)存儲安全.2.2 系統(tǒng)的可行性分析技術(shù)上:本系統(tǒng)采用visual basic 6.0與微軟的access作為數(shù)據(jù)庫,技術(shù)上開發(fā)難度一般.經(jīng)濟(jì)上:本系統(tǒng)服務(wù)于超市管理人員,提高了工作人員辦事效率,節(jié)省了開支.所以具有經(jīng)濟(jì)上的可行性.社會上:本系統(tǒng)同時(shí)也方便了廣大顧客,.所以具有社會可行性.第3章 系統(tǒng)的設(shè)計(jì)3.1系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)1系統(tǒng)的結(jié)構(gòu)設(shè)計(jì)圖如下圖3-1：程序登陸主界面商品類型管理商品管理報(bào)損管理進(jìn)貨管理銷售管理供貨商管理銷售分析幫助退出31 系

39、統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)1用戶登陸圖如下圖3-2:2購入商品圖如下圖3-3：3商品保損圖如下圖3-4:4商品信息圖如下圖3-5:5供應(yīng)商圖如下圖3-6:6銷售圖如下圖3-7:3.3 界面設(shè)計(jì)與代碼設(shè)計(jì)1. 登陸界面設(shè)計(jì)圖如下圖3-8:代碼分析:Option ExplicitPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As LongPublic OK As BooleanDi

40、m m_Admin As New clsAdminDim m_nErrCount As IntegerPrivate Sub Form_Load() m_nErrCount = 0End SubPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click() 'ToDo: 創(chuàng)建測試密碼是否正確 '檢查正確密碼 Dim Account As String Dim Pwd As String Account = RealString(txtUserName.Text) Pwd = Rea

41、lString(txtPassword.Text) '判斷密碼是否正確 If Not m_Admin.CheckPwd(Account, Pwd) Then m_nErrCount = m_nErrCount + 1 If m_nErrCount >= 3 Then MsgBox "輸入密碼錯(cuò)誤次數(shù)太多，請稍后重試", vbExclamation End End If MsgBox "密碼錯(cuò)誤，再試一次！還有 " & 3 - m_nErrCount & " 次機(jī)會，注意密碼區(qū)分大小寫", vbCritic

42、al, "登錄" txtPassword.SetFocus txtPassword.SelStart = 0 txtPassword.SelLength = Len(txtPassword.Text) Else OK = True g_Account = Account Me.Hide End IfEnd Sub2:報(bào)損信息圖如下圖3-9：代碼分析:Option ExplicitPrivate OK As Boolean '確定用戶按了OK還是CANCEL按鈕Private m_obj As clsDispose '數(shù)據(jù)對象，用來存儲用戶輸入數(shù)據(jù)Public

43、 m_ViewType As gxcViewType '顯示狀態(tài)，指添加還是修改Private m_TypeId As LongPrivate m_Account As String '調(diào)用此對話框的操作員'根據(jù)是“新增”還是修改，確定顯示內(nèi)容Private Sub SetStatus() '設(shè)置控件默認(rèn)值 Call SetDefaultValue '設(shè)置狀態(tài) Select Case m_ViewType Case vtadd '添加 CancelButton.Visible = True OKButton.Caption = "確定&

44、quot; Case vtModify '修改 CancelButton.Visible = True OKButton.Caption = "保存" Case vtInfo '查看 CancelButton.Visible = False OKButton.Caption = "關(guān)閉" End SelectEnd Sub'打開對話框，并傳出用戶輸入數(shù)據(jù)Public Function ShowDlg(ByRef obj As Object, _ ByVal eViewType As gxcViewType, _ Optional

45、nTypeId As Long = -1, _ Optional strUser As String = "") As Boolean '保存數(shù)據(jù) Set m_obj = obj '用戶輸入數(shù)據(jù)存放于此對象中 m_ViewType = eViewType '對話框狀態(tài) If nTypeId = -1 And (Not m_obj Is Nothing) Then m_TypeId = m_obj.TypeId Else m_TypeId = nTypeId End If m_Account = strUser '調(diào)用此對話框的用戶賬號 

46、9;根據(jù)新增、編輯或查看設(shè)置顯示內(nèi)容 SetStatus '顯示對話框 OK = False Me.Show vbModal If OK = False Then ShowDlg = False Exit Function End If '保存數(shù)據(jù) Set obj = m_obj '返回并釋放對話框 ShowDlg = True Unload Me End Function'設(shè)置控件默認(rèn)值Private Sub SetDefaultValue() Dim ctl As Control Dim i As Integer '如果是新增，則清空所有文本框 &#

47、39;此處判斷 m_obj為空與判斷m_ViewType = vtAdd等效，但更安全 If m_obj Is Nothing Then For Each ctl In Controls If TypeOf ctl Is TextBox Then ctl.Text = "" End If Next Else '用傳入對象的值更新數(shù)據(jù) With m_obj txtCount.Text = .Count txtReason.Text = .Reason txtRemark.Text = .Remark cboUnit.ListIndex = 0 dtpRegDate.V

48、alue = .RegDate For i = 0 To cboMerchName.ListCount - 1 If cboMerchName.ItemData(i) = .MerchandiseID Then cboMerchName.ListIndex = i '客戶類型Id Exit For End If Next i End With End IfEnd Sub'檢查輸入有效性Private Function CheckValid() As Boolean CheckValid = False If txtCount.Text = "" _ Or t

49、xtReason.Text = "" _ Or txtRemark.Text = "" Then MsgBox "請?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容" Exit Function End If If cboMerchName.Text = "" Then MsgBox "請?zhí)顚懲戤呉陨细黜?xiàng)內(nèi)容" Exit Function End If If Not IsNumeric(txtCount.Text) Then MsgBox "數(shù)量請輸入數(shù)字" Exit Function End If I

50、f Not IsDate(dtpRegDate.Value) Then MsgBox "請輸入正確的日期格式" Exit Function End If CheckValid = True End Function'保存數(shù)據(jù)Private Sub SaveValue() '給“成員變量”對象賦值 With m_obj '注意以下利用RealString函數(shù)替換去除輸入中的單引號 .Count = txtCount.Text .Reason = RealString(txtReason.Text) .Remark = RealString(txtRem

51、ark.Text) .MerchandiseID = cboMerchName.ItemData(cboMerchName.ListIndex) '商品類型Id .MerchName = cboMerchName.Text .RegDate = dtpRegDate.Value .OperatorId = m_Account '操作者賬號 End WithEnd Sub'取消按鈕Private Sub CancelButton_Click() Unload MeEnd SubPrivate Sub Form_Load() Dim opMerch As New clsOp

52、Merch opMerch.FillCombo cboMerchNameEnd Sub'確定按鈕Private Sub OKButton_Click() OK = True '檢測輸入有效性 If Not CheckValid Then Exit Sub '如果是新增狀態(tài)，則初始化一個(gè)數(shù)據(jù)對象 If m_ViewType = vtadd Then Set m_obj = New clsDispose '保存用戶輸入 SaveValue Me.HideEnd Sub3:供應(yīng)商信息圖如下圖3-10:代碼分析:Option ExplicitPrivate OK As

53、Boolean '確定用戶按了OK還是CANCEL按鈕Private m_obj As clsProvider '數(shù)據(jù)對象，用來存儲用戶輸入數(shù)據(jù)Public m_ViewType As gxcViewType '顯示狀態(tài)，指添加還是修改'根據(jù)是“新增”還是修改，確定顯示內(nèi)容Private Sub SetStatus() '設(shè)置控件默認(rèn)值 Call SetDefaultValue '設(shè)置狀態(tài) Select Case m_ViewType Case vtadd '添加 CancelButton.Visible = True OKButton.

54、Caption = "確定" Case vtModify '修改 CancelButton.Visible = True OKButton.Caption = "保存" Case vtInfo '查看 CancelButton.Visible = False OKButton.Caption = "關(guān)閉" End SelectEnd Sub'打開對話框，并傳出用戶輸入數(shù)據(jù)Public Function ShowDlg(ByRef obj As Object, _ ByVal eViewType As gxcViewType) As Boolean '保存數(shù)據(jù) Set m_obj = obj '用戶輸入數(shù)據(jù)存放于此對象中 m_ViewType = eViewType '對話框狀態(tài) '根據(jù)新增、編輯或查看設(shè)置