畢業(yè)設(shè)計(jì)---高速公路票據(jù)管理系統(tǒng)實(shí)現(xiàn)與設(shè)計(jì)

1、<p><b>　　畢業(yè)設(shè)計(jì)</b></p><p>　　高速公路票據(jù)管理系統(tǒng)</p><p>　　摘 要…………………………………………………………………………3</p><p>　　Abstract………………………………………………………………………3</p><p>　　第一章 引言……………………

2、……………………………………………4</p><p>　　1．1 課題背景……………………………………………………………………4</p><p>　　1．2 系統(tǒng)簡(jiǎn)介……………………………………………………………………5</p><p>　　1. 3 開發(fā)軟件介紹</p><p>　　第二章 系統(tǒng)的分析……………………………………………

3、………………6</p><p>　　2．1 系統(tǒng)開發(fā)的目標(biāo)和思想……………………………………………………6</p><p>　　2．2 系統(tǒng)的可行性分析…………………………………………………………8</p><p>　　第三章 系統(tǒng)的設(shè)計(jì)……………………………………………………………18</p><p>　　3．1 系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)

4、………………………………………………………18</p><p>　　3．2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)</p><p>　　3．3 界面設(shè)計(jì)與代碼設(shè)計(jì)……………………………………………………………………23</p><p>　　…………………………………………………………24</p><p>　　結(jié)束語……………………………………………………………

5、…………………46</p><p>　　致謝…………………………………………………………………………………47</p><p>　　參考文獻(xiàn)…………………………………………………52</p><p><b>　　摘 要 </b></p><p>　　高速公路票據(jù)管理系統(tǒng)用計(jì)算機(jī)管理高速公路車輛收費(fèi)并記錄的一種計(jì)算機(jī)應(yīng)

6、用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前公路收費(fèi)開票據(jù)都是由工作人員手工書寫的方式來操作的.現(xiàn)在一般的告訴公路收費(fèi)管理站都是采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)公路票據(jù)管理程序來幫助管理員進(jìn)行更有效的車輛收費(fèi)工作。公路票據(jù)管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。 經(jīng)過

7、分析,我們使用 MICROSOFT公司的 VISUAL BASIC開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。</p><p>　　關(guān)鍵字:中介管理,MIS,visual basic ,數(shù)據(jù)庫</p><p><b>

8、;　　Abstract</b></p><p>　　Notes highway management systems using computers and records management fees highway vehicles a computer application technology innovation, road toll has not yet universal in t

9、he computer before the bills are written by the staff manual to operate. The general told the road charges are used computer as a tool for the management of the computer highway bills practical management procedures to h

10、elp managers more effective vehicle charges. Highway Bills management system is a typical management inf</p><p>　　keyword : intermediary management MIS,visual basic database</p><p><b>　　引言

11、</b></p><p><b>　　課題背景</b></p><p>　　高速公路票據(jù)管理系統(tǒng)用計(jì)算機(jī)管理高速公路車輛收費(fèi)并記錄的一種計(jì)算機(jī)應(yīng)用技術(shù)的創(chuàng)新,在計(jì)算機(jī)還未普及之前公路收費(fèi)開票據(jù)都是由工作人員手工書寫的方式來操作的.現(xiàn)在一般的告訴公路收費(fèi)管理站都是采用計(jì)算機(jī)作為工具的實(shí)用的計(jì)算機(jī)公路票據(jù)管理程序來幫助管理員進(jìn)行更有效的車輛收費(fèi)工作。公路票據(jù)管

12、理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。</p><p><b>　　系統(tǒng)簡(jiǎn)介</b></p><p>　　本系統(tǒng)服務(wù)于高速公路收費(fèi)站的工作人員,方便日常工作的收費(fèi),開票之需要,本系統(tǒng)只要由以下幾

13、大功能模塊構(gòu)成.</p><p>　　一.數(shù)據(jù)操作:輸入數(shù)據(jù),退出</p><p><b>　　二.查詢:記錄查詢</b></p><p>　　三.用戶管理:添加用戶,收費(fèi)員管理</p><p><b>　　四.修改密碼:</b></p><p>　　五.視窗:工具欄,狀態(tài)欄

14、</p><p>　　六.窗口:層疊,橫向平鋪,縱向平鋪</p><p><b>　　七.幫助:關(guān)于</b></p><p>　　1. 3 開發(fā)軟件介紹</p><p>　　Visual Basic 6.0是Micrsoft公司出品的開發(fā)工具，Visual Basic是一種可視化的，面向?qū)ο蟮腤indows開發(fā)語言，它

15、具有易用，通用和開發(fā)效率高的特點(diǎn)。隨著微軟對(duì)它不斷地改進(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)！具體介紹如下：</p><p><b>　　開發(fā)的高

16、效</b></p><p><b>　　語言的高效</b></p><p><b>　　編譯的高效</b></p><p><b>　　執(zhí)行的高效</b></p><p><b>　　維護(hù)的高效</b></p><p>

17、　　基于以上理由，我們毫不憂郁的選擇了VB6.0做為我們的開發(fā)工具?。?lt;/p><p>　　主要的控件及其基本屬性，事件簡(jiǎn)介</p><p><b>　　命令按鈕類的控件：</b></p><p>　　Caption屬性：用來顯示在控件上的標(biāo)題。</p><p>　　Enable屬性：控制控件的激活狀態(tài)灰色或可用。<

18、;/p><p>　　Appearance屬性：值為1時(shí),則以3D效果顯示該控件,0則不然。</p><p>　　Backcolor屬性：用來改變?cè)诎粹o上顯示圖像的背景色。</p><p>　　Cancel屬性：該屬性決定按鈕是否為一個(gè)”取消”按鈕。</p><p>　　Default屬性:決定哪一個(gè)命令按鈕控件是窗體的缺省命令按鈕.</p&

19、gt;<p>　　Font屬性:控制各種文字字體類型.</p><p>　　Left,top,height,width屬性:設(shè)定控件的位置與大小.</p><p>　　Style,picture屬性:決定按鈕的顯示方式是否為圖像形式出現(xiàn).</p><p>　　Visible屬性:確定控件運(yùn)行時(shí)是否為可見.</p><p>　　I

20、ndex屬性:當(dāng)控件為一控件數(shù)組時(shí),此屬性值為該控件在數(shù)組的下標(biāo)值.</p><p>　　DownPicture屬性：設(shè)置/返回一個(gè)對(duì)圖片的引用，該圖片在按鈕被單擊處于壓下狀態(tài)時(shí)顯示。</p><p>　　DisabledPicture屬性：設(shè)置/返回一個(gè)對(duì)圖片的引用，該圖片在控件無效時(shí)顯示在控件中。</p><p>　　MaskColor屬性：設(shè)置/返回一個(gè)在按鈕

21、的圖片中作為“掩碼“的的顏色</p><p>　　Picture屬性：設(shè)置返回commandButton控件中要顯示的圖片。</p><p><b>　　命令按鈕類的事件：</b></p><p>　　單擊事件――Click事件</p><p><b>　　觸發(fā)與適用</b></p>

22、<p>　　此事件是在一個(gè)命令按鈕對(duì)象上按下然后釋放一個(gè)鼠標(biāo)按鈕時(shí)發(fā)生。命令按鈕的Click事件僅對(duì)當(dāng)單擊鼠標(biāo)時(shí)發(fā)生。</p><p><b>　　事件處理過程</b></p><p>　　按鈕單擊事件的處理過程為：</p><p>　　Private Sub object-Click（Index As Integer）</p&

23、gt;<p>　　其中Object為引發(fā)該事件的對(duì)象名稱。如果是命令按鈕的控件是數(shù)組，則需要使用Index參數(shù)標(biāo)識(shí)該控件。</p><p>　　獲得焦點(diǎn)――GotFocus事件</p><p><b>　　觸發(fā)與適用 </b></p><p>　　當(dāng)命令按鈕獲得焦點(diǎn)產(chǎn)生該事件，獲得焦點(diǎn)可以通過諸如Tab切換或單擊對(duì)象之類的用戶動(dòng)

24、作，或在代碼中用SetFocus方法改變焦點(diǎn)來實(shí)現(xiàn)。</p><p><b>　　事件處理過程</b></p><p>　　命令按鈕GotFoucs事件處理過程為：</p><p>　　Private Sub Object-GotFocus（Index As Integer）</p><p>　　LostFocus事件：

25、當(dāng)一個(gè)對(duì)象失去焦點(diǎn)時(shí)發(fā)生</p><p>　　KeyDown事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生</p><p>　　KeyUp事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。</p><p>　　KeyPress事件：當(dāng)用戶按下或松開一個(gè)ANSI鍵時(shí)發(fā)生。</p><p>　　MouseDown事件：當(dāng)在命令按鈕上按下鼠標(biāo)按鈕時(shí)發(fā)生。&l

26、t;/p><p>　　MouseMove事件：當(dāng)命令按鈕上移動(dòng)鼠標(biāo)時(shí)發(fā)生。</p><p>　　MouseUp事件：當(dāng)在命令按鈕上釋放鼠標(biāo)按鈕時(shí)發(fā)生。</p><p>　　標(biāo)簽框類的控件類的控件：</p><p>　　Caption屬性：在應(yīng)用程序界面上加入說明。</p><p>　　Autosize屬性：決定控件是否自動(dòng)

27、改變大小以顯示其全部?jī)?nèi)容。</p><p>　　Backstyle屬性：用以指示標(biāo)簽是否透明.</p><p>　　Bordstyle屬性:用以設(shè)定控件是否有邊框。</p><p><b>　　文本框類的控件：</b></p><p>　　Text屬性：通過像text屬性賦值的方法來改變?cè)搶傩缘闹怠?lt;/p>

28、<p>　　Maxlength屬性：該屬性設(shè)定在文本框控件中能夠輸入的最大字符數(shù)。</p><p>　　Multline屬性：該屬性設(shè)定text字符串中是否接受換行符。</p><p>　　Scrollbars屬性：該屬性決定是否為文本框加滾動(dòng)條。</p><p>　　Passwordchar屬性：該屬性設(shè)定輸入文本的特殊顯示字符,在設(shè)計(jì)密碼程序時(shí)非常有

29、用。</p><p>　　Change事件屬性：文本框的內(nèi)容發(fā)生改變時(shí),相應(yīng)的控件之間發(fā)生相應(yīng)的改變,具有即時(shí)性。</p><p>　　Keypress：事件由用戶在文本框控件中按任意鍵觸發(fā)。</p><p>　　Alignment屬性：設(shè)定控件中的文本對(duì)其方式</p><p>　　Appearance屬性：設(shè)定一個(gè)對(duì)象在運(yùn)行時(shí)是否可以3D效

30、果顯示。</p><p>　　BackColor屬性：設(shè)置返回背景色</p><p>　　BorderStyle屬性：設(shè)置對(duì)象的邊框樣式</p><p>　　DataField屬性：設(shè)定數(shù)據(jù)使用者將被綁定到的字段名</p><p>　　DataFormat屬性：設(shè)定DataFormat對(duì)象，用于數(shù)據(jù)綁定</p><p>

31、;　　DataMember屬性：從數(shù)據(jù)供應(yīng)程序提供的幾個(gè)數(shù)據(jù)成員中返回/設(shè)定一個(gè)特定的數(shù)據(jù)成員</p><p>　　DataSource屬性：設(shè)定控件綁定的一個(gè)數(shù)據(jù)源</p><p>　　DragIcon屬性：設(shè)定圖標(biāo)，它將在拖放操作中作為指針顯示</p><p>　　DragMode模式：設(shè)定一個(gè)值，確定在拖放操作中所用方式</p><p>

32、;　　Enabled屬性：設(shè)置/返回運(yùn)行時(shí)TextBox是否相應(yīng)用戶事件</p><p>　　Font屬性：設(shè)置/返回字體屬性</p><p>　　ForeColor屬性：設(shè)置/返回文本的前景色</p><p>　　Height屬性：設(shè)置/返回TextBox的高度</p><p>　　IMEMode屬性：設(shè)置/返回?cái)?shù)值用來確定輸入方法編輯器的

33、狀態(tài)</p><p>　　Index屬性：設(shè)置/返回唯一的標(biāo)識(shí)控件數(shù)組中該控件的編號(hào)</p><p>　　Left屬性：設(shè)置/返回TextBox控件的水平位置</p><p>　　Locked屬性：設(shè)置/返回TextBox中文本是否可編輯</p><p>　　LinkItem屬性：設(shè)置/返回DDE與另一個(gè)應(yīng)用程序會(huì)話時(shí)，傳給接受端的數(shù)據(jù)<

34、;/p><p>　　MaxLength屬性：設(shè)置/返回一個(gè)值，指定在TextBox控件中能夠輸入的字符最大值</p><p>　　MouseIcon屬性：設(shè)置/返回自定義鼠標(biāo)的圖標(biāo)</p><p>　　Top屬性：設(shè)置/返回TextBox控件的垂直位置</p><p>　　Tag屬性：存儲(chǔ)過程所需的附加數(shù)據(jù)</p><p>

35、;<b>　　文本框類的事件：</b></p><p>　　Change事件：當(dāng)改變文本框內(nèi)容時(shí)發(fā)生</p><p>　　Click事件：鼠標(biāo)單擊控件時(shí)發(fā)生</p><p>　　DblClick事件：用鼠標(biāo)左鍵雙擊控件時(shí)發(fā)生</p><p>　　DragDrop事件：在一個(gè)完整的拖放動(dòng)作完成或使用Drag方法，并將其Ac

36、tion參數(shù)設(shè)置為2時(shí)發(fā)生</p><p>　　DragOver事件：在拖放操作正在進(jìn)行時(shí)發(fā)生</p><p>　　GotFocus事件：當(dāng)一個(gè)命令按鈕獲得焦點(diǎn)時(shí)發(fā)生</p><p>　　LinkClose事件：當(dāng)一個(gè)DDE對(duì)話結(jié)束時(shí)發(fā)生</p><p>　　LinkError事件：當(dāng)一個(gè)DDE對(duì)話框過程中出現(xiàn)錯(cuò)誤時(shí)，該事件發(fā)生</p&

37、gt;<p>　　KeyDown事件：當(dāng)命令按鈕具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生</p><p>　　Validate事件：在焦點(diǎn)轉(zhuǎn)換到另一個(gè)控件之前發(fā)生，此時(shí)該控件的Causes Validation 屬性值設(shè)置為True</p><p><b>　　單選按鈕類的控件：</b></p><p>　　Caption屬性：顯示在控件上的文

38、本,是單選按鈕的標(biāo)題。</p><p>　　Alignment屬性：決定單選按鈕的標(biāo)題在控件上的位置。</p><p>　　Enable屬性：該控件為灰色時(shí)為false,表示運(yùn)行時(shí)不可用。</p><p>　　Index屬性：屬性值表示為單選按鈕組成的控件中某個(gè)按鈕的索引值。</p><p>　　Tabindex屬性：建立控件時(shí),vb自動(dòng)為其

39、分配一個(gè)tabindex值,利用tab鍵可以在控件之間切換焦點(diǎn)。</p><p>　　Value屬性：反映控件狀態(tài)的屬性,返回true表示已選擇了該按鈕。</p><p>　　Appearance 屬性：設(shè)置/返回一個(gè)對(duì)象在運(yùn)行時(shí)是否以3D效果顯示。</p><p>　　BackColor 屬性：設(shè)置/返回背景色。</p><p>　　Con

40、tainer 屬性：設(shè)置/返回Form上的控件屬性。</p><p>　　DataField 屬性：設(shè)置/返回?cái)?shù)據(jù)使用者將被綁定到的字段名。</p><p>　　DataFormat 屬性：設(shè)置/返回DataFormat對(duì)象，一個(gè)綁定對(duì)象將附加到它。</p><p>　　DisabledPicture 屬性：設(shè)置/返回一個(gè)對(duì)圖像的引用，該圖片在控件無效時(shí)顯示在控件中

41、。</p><p>　　DownPicture 屬性：設(shè)置/返回一個(gè)對(duì)圖片的引用，該圖片在控件單擊下處于壓下狀態(tài)時(shí)顯示。</p><p>　　DragMode 屬性：設(shè)置/返回一個(gè)值，確定在拖放操作中所用的方式。</p><p>　　Font 屬性：設(shè)置/返回字體屬性。</p><p>　　FontBold 屬性：設(shè)置/返回字體粗體樣式。&l

42、t;/p><p>　　FontItalic 屬性：設(shè)置/返回字體斜體樣式。 </p><p>　　FontStrikethru 屬性：設(shè)置/返回字體刪除線樣式。</p><p>　　FontUnderLine 屬性：設(shè)置/返回字體下劃線樣式。</p><p>　　FontName 屬性：設(shè)置/返回控件中顯示文本所用的字體大小。</p>

43、<p>　　FontSize 屬性：設(shè)置/返回控件中顯示文本所用的字體大小</p><p>　　Height 屬性：設(shè)置/返回控件的高度。</p><p>　　MaskColor 屬性：設(shè)置/返回一個(gè)在控件的圖片中作為掩碼的顏色。</p><p>　　MousePointer 屬性：設(shè)置/返回一個(gè)值，該值指示在運(yùn)行時(shí)當(dāng)鼠標(biāo)移動(dòng)到對(duì)象上時(shí)顯示的指針類型。

44、</p><p>　　單選按鈕類的常用事件：</p><p>　　Click 事件：鼠標(biāo)單擊控件時(shí)發(fā)生。</p><p>　　DbClick事件： 當(dāng)在一個(gè)對(duì)象上按下和釋放鼠標(biāo)按鈕并再次按下和釋放按鈕時(shí)，該事件發(fā)生。</p><p>　　DragDrop事件：在一個(gè)完整的拖放動(dòng)作或使用Drag方法，并將其Action參數(shù)設(shè)置位2時(shí)，該事件發(fā)生

45、。</p><p>　　DragOver事件： 在拖放操作正在進(jìn)行時(shí)發(fā)生。</p><p>　　GotFocus事件： 當(dāng)獲的對(duì)象焦點(diǎn)時(shí)發(fā)生。</p><p>　　LostFocus事件：當(dāng)對(duì)象失去焦點(diǎn)時(shí)發(fā)生。</p><p>　　KeyDown事件：當(dāng)控件具有焦點(diǎn)時(shí)按下一個(gè)鍵時(shí)發(fā)生。</p><p>　　KeyUp事

46、件： 當(dāng)控件具有焦點(diǎn)時(shí)釋放一個(gè)鍵時(shí)發(fā)生。</p><p>　　KeyPress事件：當(dāng)用戶按下或釋放ANSI一個(gè)鍵時(shí)發(fā)生。</p><p>　　MouseDown事件：當(dāng)在控件上按下鼠標(biāo)鍵時(shí)發(fā)生。</p><p>　　MouseMove事件：在控件上移動(dòng)鼠標(biāo)時(shí)發(fā)生。</p><p>　　MouseUp事件：在控件上釋放鼠標(biāo)時(shí)發(fā)生。</p

47、><p><b>　　復(fù)選按鈕類的控件：</b></p><p>　　Caption屬性：缺省為check1…。</p><p>　　Index屬性:該屬性值為復(fù)選框控件數(shù)組的下標(biāo).</p><p>　　Value屬性:value為0表空白,為1表勾號(hào),為2表示灰色勾號(hào).</p><p>　　Cont

48、ainer屬性：Form控件上的容器。</p><p>　　DataChangeed屬性：設(shè)置/返回一個(gè)值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進(jìn)程修改。</p><p>　　DataField屬性：設(shè)置或返回?cái)?shù)據(jù)使用者將被綁定到的字段名。</p><p>　　DataFormat 屬性：設(shè)置或返回DataFormat對(duì)象，用于數(shù)據(jù)綁定。</p><

49、p>　　Datasource屬性：設(shè)置或返回控件綁定的一個(gè)數(shù)據(jù)源。</p><p>　　DisabledPicture屬性：設(shè)置或返回一個(gè)對(duì)圖片的引用，該圖片在控件無效時(shí)顯示在控件中。</p><p>　　DownPicture 屬性：設(shè)置或返回一個(gè)對(duì)圖片的引用，該圖片在控件被單擊處于壓下狀態(tài)時(shí)顯示。</p><p>　　DragIcon屬性：設(shè)置或返回圖標(biāo)，

50、它將在拖放操作中做為指針顯示。</p><p>　　DragMode屬性：設(shè)置返回一個(gè)值，確定在拖放操作中所用方式。</p><p>　　Font屬性：設(shè)置或返回字體的屬性。</p><p>　　Name屬性：設(shè)置或返回控件的標(biāo)識(shí)名。</p><p>　　Value屬性：設(shè)置或返回控件的狀態(tài)。</p><p>　　復(fù)選

51、按鈕類的控件的基本事件：</p><p>　　Click事件：鼠標(biāo)單擊控件時(shí)發(fā)生。</p><p>　　DragDrop事件：在一個(gè)完整的拖放動(dòng)作完成或使用Drag方法，并將其Action參數(shù)設(shè)置為2時(shí)發(fā)生。</p><p>　　DragOver事件：在拖放操作正在進(jìn)行時(shí)發(fā)生。</p><p>　　GotFocus事件：在對(duì)象獲的焦點(diǎn)時(shí)發(fā)生。

52、，</p><p>　　OLECompleteDrag事件：當(dāng)源部件被放到目標(biāo)時(shí)發(fā)生，并通知源部件拖放操作被執(zhí)行或取消。</p><p>　　OLEDragDrag事件：當(dāng)源部件決定放操作能發(fā)生，卻源部件被放到目標(biāo)部件時(shí)，此事件發(fā)生。</p><p><b>　　框架類的控件：</b></p><p>　　1) List

53、屬性：列表框控件的表項(xiàng)是使用數(shù)組的方式保存,數(shù)組的每一個(gè)元素存儲(chǔ)列表控件的一個(gè)表項(xiàng)</p><p>　　Listcount屬性:控件列表部分項(xiàng)目的個(gè)數(shù)。</p><p>　　Mutselect屬性:可以設(shè)置列表框?yàn)閱芜x或允許多選屬性.</p><p>　　Selectd屬性:標(biāo)示一個(gè)數(shù)組,數(shù)組各元素為:</p><p>　　Selected(

54、0),selected(1)…</p><p><b>　　滾動(dòng)條類的控件：</b></p><p>　　Value屬性：滾動(dòng)條上滑塊所在位置由value值所決定。</p><p>　　Max和min屬性：對(duì)value值的最大,最小進(jìn)行限制。</p><p>　　Largechange屬性：用戶點(diǎn)擊滾動(dòng)條與鍵頭之間的區(qū)域

55、時(shí),value的改變量。</p><p>　　4) OnClick事件：用來添加按鈕的單擊事件所執(zhí)行的程序代碼。</p><p><b>　　定時(shí)器類類的控件：</b></p><p>　　Interval屬性：表示定時(shí)的時(shí)間間隔,以毫秒為單位。</p><p>　　Enable屬性:為true時(shí)(缺省值),激活定時(shí)器開

56、始計(jì)時(shí);為false時(shí)處于休眠狀態(tài).</p><p><b>　　數(shù)據(jù)庫連接方式選擇</b></p><p>　　Visual basic6.0連接數(shù)據(jù)庫的主要方式以下幾種方式：一是：用data控件進(jìn)行數(shù)據(jù)庫鏈接 ，二是利用adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接 。三是: 利用DataEnvironment進(jìn)行數(shù)據(jù)庫鏈接.四是利用ADO(Acti

57、veX Data Objects)進(jìn)行編程</p><p>　　:現(xiàn)在我們來大致對(duì)這幾種技術(shù)應(yīng)用介紹：</p><p>　　用data控件進(jìn)行數(shù)據(jù)庫鏈接.</p><p>　　第一步：給窗體添加一個(gè)Data控件。第二步：用Access建立一個(gè)名為Pad的數(shù)據(jù)庫，在庫中建立一個(gè)表Myset，給表添加四個(gè)字段：backcolor（數(shù)據(jù)），forecolor(文本），f

58、ontname(文本）,fontsize（文本）。注意：請(qǐng)將庫文件存入程序所在目錄。 如果你的機(jī)器沒安裝有Access，可通過VB建庫。</p><p>　　利用adodc（ADO Data Control)進(jìn)行數(shù)據(jù)庫鏈接：</p><p>　　使用adodata控件訪問數(shù)據(jù)庫可以完全不用編寫代碼,只需要通過簡(jiǎn)單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫的連接,通過綁定數(shù)據(jù)感知控件,就能提供

59、一個(gè)訪問數(shù)據(jù)庫的界面,用來實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的瀏覽,貼加,刪除,修改等操作.</p><p>　　利用DAO對(duì)數(shù)據(jù)庫進(jìn)行操縱:</p><p>　　在visual basic 中提供了兩種與jet數(shù)據(jù)引擎接口的方法:data控件與數(shù)據(jù)訪問對(duì)象(DAO)DAO是database object的英文縮寫,要訪問數(shù)據(jù)庫一方面數(shù)據(jù)庫要提供訪問接口,另一方面要在編程環(huán)境中有對(duì)數(shù)據(jù)庫的支持.DAO模型是設(shè)

60、計(jì)關(guān)系數(shù)據(jù)庫系統(tǒng)結(jié)構(gòu)的對(duì)象類的集合.他們提供了管理關(guān)系型數(shù)據(jù)庫系統(tǒng)所需要的全部操作屬性和方法,這其中包括建立數(shù)據(jù)庫,定義表,字段和建立表間關(guān)系,定位和查詢數(shù)據(jù)庫等.</p><p><b>　　關(guān)系數(shù)據(jù)庫介紹:</b></p><p>　　關(guān)系數(shù)據(jù)庫是目前各類數(shù)據(jù)庫中最重要、最流行的數(shù)據(jù)庫，他應(yīng)用數(shù)學(xué)方法來處理數(shù)據(jù)庫數(shù)據(jù)，是目前使用最廣泛的數(shù)據(jù)庫系統(tǒng)。20世紀(jì)70年代

61、以后開發(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)，對(duì)這些數(shù)據(jù)結(jié)構(gòu)有其他的操作。</p><p>　　結(jié)構(gòu)化查詢語言SQL（Structured Query Language）是一種介于關(guān)系代數(shù)與關(guān)系演算之間的語言，其功能包括查詢、操縱、定義和控制四個(gè)

62、方面，是一個(gè)通用的、功能極強(qiáng)的關(guān)系數(shù)據(jù)庫語言。目前已成為關(guān)系數(shù)據(jù)庫的標(biāo)準(zhǔn)語言</p><p>　　Microsoft Access介紹:</p><p>　　使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。在這個(gè)文件中，用戶可以將自己的數(shù)據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來查看、添加及更新表中的數(shù)

63、據(jù)；使用查詢來查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來分析及打印數(shù)據(jù)。 如果要保存數(shù)據(jù)，請(qǐng)為每一種類型的信息創(chuàng)建一個(gè)表。如果要從查詢、窗體或報(bào)表中的多個(gè)表中將數(shù)據(jù)合并在一起，就要定義各個(gè)表之間的關(guān)系。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個(gè)表中的數(shù)據(jù)，就要?jiǎng)?chuàng)建查詢。查詢的同時(shí)也可以更新或刪除多條記錄，并對(duì)數(shù)據(jù)執(zhí)行內(nèi)嵌或自定義的計(jì)算。 如果要簡(jiǎn)單地直接在某個(gè)表中查看、輸入及更改數(shù)據(jù)，請(qǐng)創(chuàng)建一個(gè)窗體

64、。在打開一個(gè)窗體時(shí)，Microsoft Access 將從一個(gè)或多個(gè)表中檢索數(shù)據(jù)，并使用用戶在“窗體向?qū)А边x擇的版面布局或所創(chuàng)建的版面布局，將窗體顯示在屏幕上。 如果要分析數(shù)據(jù)或?qū)?shù)據(jù)以特定的方式打印出來，請(qǐng)創(chuàng)建一個(gè)報(bào)表。例如，可以打印一份將數(shù)據(jù)分組并計(jì)算數(shù)據(jù)總和的報(bào)表，也可以打印另一份帶有各種數(shù)據(jù)格式的打印郵件標(biāo)簽的報(bào)表。</p><p><b>　　系統(tǒng)的分析</b&

65、gt;</p><p><b>　　系統(tǒng)的分析</b></p><p>　　系統(tǒng)開發(fā)的目標(biāo)和思想</p><p>　　本系統(tǒng)開發(fā)目標(biāo)是服務(wù)于高速公路收費(fèi)管理人員,方便工作人員,對(duì)過往車輛收費(fèi),發(fā)放收費(fèi)票據(jù)記錄,對(duì)信息的分類管理等.</p><p>　　同時(shí)力求做到界面人性化,功能齊全,數(shù)據(jù)存儲(chǔ)安全.</p>

66、<p><b>　　系統(tǒng)的可行性分析</b></p><p>　　技術(shù)上:本系統(tǒng)采用visual basic 6.0與微軟的access作為數(shù)據(jù)庫,技術(shù)上開發(fā)難度一般.</p><p>　　經(jīng)濟(jì)上:本系統(tǒng)服務(wù)于高速公路收費(fèi)管理人員,提高了工作人員辦事效率,節(jié)省了開支.所以具有經(jīng)濟(jì)上的可行性.</p><p>　　社會(huì)上:本系統(tǒng)同時(shí)也

67、方便了廣大司機(jī)朋友,以及乘客.所以具有社會(huì)可行性.</p><p><b>　　系統(tǒng)的設(shè)計(jì)</b></p><p><b>　　系統(tǒng)的功能結(jié)構(gòu)設(shè)計(jì)</b></p><p>　　3．2 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)</p><p><b>　　1:數(shù)據(jù)表:</b></p>&

68、lt;p>　　2:sfyinfo表設(shè)計(jì):</p><p><b>　　3:用戶信息表:</b></p><p><b>　　界面設(shè)計(jì)與代碼設(shè)計(jì)</b></p><p><b>　　1:登陸界面設(shè)計(jì):</b></p><p><b>　　代碼分析:</b&g

69、t;</p><p>　　Dim flagpassword As String</p><p>　　Dim flagadmin As String</p><p>　　Option Explicit</p><p>　　Private Sub cmdcancel_Click()</p><p><b>　　M

70、e.Hide</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdok_Click()</p><p>　　Dim conlogin As New ADODB.Connection</p><p>　　Dim rstlogin As New ADODB

71、.Recordset</p><p>　　If Len(Trim(txtgonghao.Text)) = 0 Then</p><p>　　MsgBox "工號(hào)為空，請(qǐng)重新輸入??！", vbOKOnly</p><p><b>　　Exit Sub</b></p><p><b>　　End

72、 If</b></p><p>　　If Len(Trim(txtPassword.Text)) = 0 Then</p><p>　　MsgBox "用戶密碼為空，請(qǐng)重新輸入！！", vbOKOnly</p><p><b>　　Exit Sub</b></p><p><b>

73、;　　End If</b></p><p>　　With conlogin</p><p>　　If .State = adStateOpen Then</p><p><b>　　.Close</b></p><p><b>　　End If</b></p><p&

74、gt;　　.Provider = "microsoft.jet.oledb.4.0"</p><p>　　.ConnectionString = App.Path & "\jinbin.mdb"</p><p><b>　　.Open</b></p><p><b>　　End With

75、</b></p><p>　　With rstlogin</p><p>　　If .State = adStateOpen Then</p><p><b>　　.Close</b></p><p><b>　　End If</b></p><p>　　.Loc

76、kType = adLockReadOnly</p><p>　　.CursorLocation = adUseClient</p><p>　　.CursorType = adOpenDynamic</p><p>　　.ActiveConnection = conlogin</p><p>　　.Source = "select

77、 * from userinfo"</p><p><b>　　.Open</b></p><p>　　If Trim(txtPassword.Text) = flagpassword And Len(Trim(txtPassword.Text)) = Len(flagpassword) Then</p><p>　　If flaga

78、dmin = "高級(jí)用戶" Then</p><p>　　wt.flagnumber = 79802223</p><p><b>　　Unload Me</b></p><p>　　mainfrm.Show</p><p>　　ElseIf flagadmin = "一般用戶"

79、Then</p><p>　　wt.flagnumber = 32220897</p><p><b>　　Unload Me</b></p><p>　　mainfrm.Show</p><p><b>　　Else</b></p><p>　　MsgBox "非

80、法人員及權(quán)限，請(qǐng)找管理員", vbOKOnly</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　Else</b></p><p>　　MsgBox "密碼錯(cuò)誤，請(qǐng)重新輸入&q

81、uot;</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End With</b></p><p><b>　　End Sub</b></p><p&g

82、t;　　Private Sub txtgonghao_LostFocus()</p><p>　　Dim conlogin As New ADODB.Connection</p><p>　　Dim rstlogin As New ADODB.Recordset</p><p>　　If Len(Trim(txtgonghao.Text)) <> 0 T

83、hen</p><p>　　With conlogin</p><p>　　If .State = adStateOpen Then</p><p><b>　　.Close</b></p><p><b>　　End If</b></p><p>　　.Provider =

84、 "microsoft.jet.oledb.4.0"</p><p>　　.ConnectionString = App.Path & "\jinbin.mdb"</p><p><b>　　.Open</b></p><p><b>　　End With</b></p

85、><p>　　With rstlogin</p><p>　　If .State = adStateOpen Then</p><p><b>　　.Close</b></p><p><b>　　End If</b></p><p>　　.LockType = adLockRe

86、adOnly</p><p>　　.CursorLocation = adUseClient</p><p>　　.CursorType = adOpenDynamic</p><p>　　.ActiveConnection = conlogin</p><p>　　.Source = "select userid,username

87、,userpassword,userjibie from userinfo where userid='" & Trim(txtgonghao.Text) & "'"</p><p><b>　　.Open</b></p><p>　　If .RecordCount <> 0 Then</

88、p><p>　　Do Until .EOF</p><p>　　txtusername.Text = Trim(.Fields!UserName.Value)</p><p>　　flagpassword = Trim(.Fields!userpassword.Value)</p><p>　　flagadmin = Trim(.Fields!u

89、serjibie.Value)</p><p><b>　　.MoveNext</b></p><p><b>　　Loop</b></p><p><b>　　Else</b></p><p>　　MsgBox "輸入的工號(hào)非法，請(qǐng)重新輸入", vbOKO

90、nly</p><p>　　txtgonghao.Text = ""</p><p>　　txtgonghao.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><

91、;b>　　End With</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　2:添加用戶界面設(shè)計(jì):</p><p><b>　　代碼設(shè)計(jì):</b></p><

92、p>　　Private Sub cmdadd_Click()</p><p>　　Dim conuser As New ADODB.Connection</p><p>　　Dim cmduser As New ADODB.Command</p><p>　　Dim rstuser As New ADODB.Recordset</p><p

93、>　　Dim strcnn As String</p><p><b>　　'輸入數(shù)據(jù)進(jìn)行驗(yàn)證</b></p><p>　　If Len(Trim(txtuser.Text)) = 0 Then</p><p>　　MsgBox "用戶名沒有輸入，請(qǐng)輸入！", vbOKOnly</p><p

94、><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　txtuser.Text = CStr(Trim(txtuser.Text))</p><p><b>　　End If</b></p><p>　　If Len(T

95、rim(txtgonghao.Text)) = 0 Then</p><p>　　MsgBox "工號(hào)沒有輸入，請(qǐng)輸入！", vbOKOnly</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　txtgongh

96、ao.Text = CStr(Trim(txtgonghao.Text))</p><p><b>　　End If</b></p><p>　　If Len(Trim(txtpassword.Text)) = 0 Then</p><p>　　MsgBox "密碼沒有輸入，請(qǐng)輸入！", vbOKOnly</p>

97、<p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　txtpassword.Text = CStr(Trim(txtpassword.Text))</p><p><b>　　End If</b></p><

98、p>　　If Len(Trim(txtpassword2.Text)) = 0 Then</p><p>　　MsgBox "請(qǐng)輸入確認(rèn)密碼！", vbOKOnly</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p

99、>　　txtpassword2.Text = CStr(Trim(txtpassword2.Text))</p><p><b>　　End If</b></p><p>　　If txtpassword.Text <> txtpassword2.Text Then</p><p>　　MsgBox "確認(rèn)密碼和第一

100、次輸入的密碼不同，請(qǐng)重新輸入！", vbOKOnly</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　strcnn = "insert into userinfo(username,userid,userpassword,use

101、rjibie)values('" & txtuser & "','" & txtgonghao & "','" & txtpassword & "','" & Comboqx.Text & "')"</p>

102、<p>　　With conuser</p><p>　　If .State = adStateOpen Then</p><p><b>　　.Close</b></p><p><b>　　End If</b></p><p>　　.Provider = "microsoft

103、.jet.oledb.4.0"</p><p>　　.ConnectionString = App.Path & "\jinbin.mdb"</p><p>　　.ConnectionTimeout = 10</p><p><b>　　.Open</b></p><p><b

104、>　　End With</b></p><p>　　With cmduser</p><p>　　.ActiveConnection = conuser</p><p>　　.CommandType = adCmdText</p><p>　　.CommandText = strcnn</p><p>

105、;<b>　　.Execute</b></p><p><b>　　End With</b></p><p>　　MsgBox "添加用戶信息到數(shù)據(jù)庫的操作成功", vbOKOnly, "確認(rèn)框"</p><p>　　txtuser.Text = ""</p

106、><p>　　txtgonghao.Text = ""</p><p>　　txtpassword.Text = ""</p><p>　　txtpassword2.Text = ""</p><p>　　strcnn = "select userid as 用戶工號(hào), use

107、rname as 用戶姓名,userjibie as 用戶級(jí)別 from userinfo"</p><p>　　With rstuser</p><p>　　.CursorLocation = adUseClient</p><p>　　.CursorType = adOpenStatic</p><p>　　.LockType

108、= adLockOptimistic</p><p>　　.ActiveConnection = conuser</p><p>　　.Open strcnn, Options:=adCmdText</p><p>　　Set Adouser.Recordset = rstuser</p><p>　　dtguserinfo.ReBind&l

109、t;/p><p><b>　　End With</b></p><p><b>　　End Sub</b></p><p>　　Private Sub cmdcancel_Click()</p><p>　　txtuser.Text = ""</p><p>

110、　　txtgonghao.Text = ""</p><p>　　txtpassword.Text = ""</p><p>　　txtpassword2.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private

111、 Sub cmddel_Click()</p><p>　　Dim conuser As New ADODB.Connection</p><p>　　Dim cmduser As New ADODB.Command</p><p>　　Dim rstuser As New ADODB.Recordset</p><p>　　Dim strc

112、nn As String</p><p><b>　　'輸入數(shù)據(jù)進(jìn)行驗(yàn)證</b></p><p>　　If Len(Trim(txtuser.Text)) = 0 Then</p><p>　　MsgBox "用戶名沒有輸入，請(qǐng)輸入！", vbOKOnly</p><p><b>　

113、　Exit Sub</b></p><p><b>　　Else</b></p><p>　　txtuser.Text = CStr(Trim(txtuser.Text))</p><p><b>　　End If</b></p><p>　　If Len(Trim(txtgonghao

114、.Text)) = 0 Then</p><p>　　MsgBox "工號(hào)沒有輸入，請(qǐng)輸入！", vbOKOnly</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　txtgonghao.Text = CStr

115、(Trim(txtgonghao.Text))</p><p><b>　　End If</b></p><p>　　strcnn = "delete from userinfo where username='" & txtuser & "' and userid='" & tx

116、tgonghao & "'"</p><p>　　With conuser</p><p>　　If .State = adStateOpen Then</p><p><b>　　.Close</b></p><p><b>　　End If</b></p

117、><p>　　.Provider = "microsoft.jet.oledb.4.0"</p><p>　　.ConnectionString = App.Path & "\jinbin.mdb"</p><p>　　.ConnectionTimeout = 10</p><p><b>

118、;　　.Open</b></p><p><b>　　End With</b></p><p>　　With cmduser</p><p>　　.ActiveConnection = conuser</p><p>　　.CommandType = adCmdText</p><p>

119、;　　.CommandText = strcnn</p><p><b>　　.Execute</b></p><p><b>　　End With</b></p><p>　　MsgBox "刪除用戶成功！", vbOKOnly</p><p>　　txtuser.Text =

120、 ""</p><p>　　txtgonghao.Text = ""</p><p>　　strcnn = "select userid as 用戶工號(hào), username as 用戶姓名,userjibie as 用戶級(jí)別 from userinfo"</p><p>　　With rstuser<

121、/p><p>　　.CursorLocation = adUseClient</p><p>　　.CursorType = adOpenStatic</p><p>　　.LockType = adLockOptimistic</p><p>　　.ActiveConnection = conuser</p><p>　

122、　.Open strcnn, Options:=adCmdText</p><p>　　Set Adouser.Recordset = rstuser</p><p>　　dtguserinfo.ReBind</p><p><b>　　End With</b></p><p><b>　　End Sub<

123、;/b></p><p>　　Private Sub cmdexit_Click()</p><p>　　adduserfrm.Hide</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Pr

124、ivate Sub Form_Load()</p><p>　　Comboqx.AddItem "高級(jí)用戶"</p><p>　　Comboqx.AddItem "一般用戶"</p><p>　　Dim conuser As New ADODB.Connection</p><p>　　Dim cmdu

125、ser As New ADODB.Command</p><p>　　Dim rstuser As New ADODB.Recordset</p><p>　　Dim strcnn As String</p><p>　　strcnn = "select userid as 用戶工號(hào), username as 用戶姓名,userjibie as 用戶級(jí)別

126、from userinfo"</p><p>　　With conuser</p><p>　　If .State = adStateOpen Then</p><p><b>　　.Close</b></p><p><b>　　End If</b></p><p&g

127、t;　　.Provider = "microsoft.jet.oledb.4.0"</p><p>　　.ConnectionString = App.Path & "\jinbin.mdb"</p><p>　　.ConnectionTimeout = 10</p><p><b>　　.Open</

128、b></p><p><b>　　End With</b></p><p>　　With rstuser</p><p>　　.CursorLocation = adUseClient</p><p>　　.CursorType = adOpenStatic</p><p>　　.LockT

129、ype = adLockOptimistic</p><p>　　.ActiveConnection = conuser</p><p>　　.Open strcnn, Options:=adCmdText</p><p>　　Set Adouser.Recordset = rstuser</p><p>　　dtguserinfo.ReBi