運(yùn)輸管理系統(tǒng)-VB編程畢業(yè)設(shè)計(jì)

1、目錄摘要 前言第一章 為什么要開(kāi)發(fā)一個(gè)運(yùn)輸管理系統(tǒng)11用計(jì)算機(jī)管理客運(yùn)公司管理的意義12 運(yùn)輸管理系統(tǒng)的設(shè)計(jì)分析第二章 怎樣開(kāi)發(fā)一個(gè)運(yùn)輸管理系統(tǒng)管理系統(tǒng)？21 編程環(huán)境的選擇22 關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)23 二者的結(jié)合(DBA)第三章 Windows下的Visual Basic 編程環(huán)境簡(jiǎn)介31 VB連接數(shù)據(jù)庫(kù)的各種方法+第四章 使用Access20XX 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù)41 數(shù)據(jù)庫(kù)的概念42 新建一個(gè)數(shù)據(jù)庫(kù)43 修改已建的數(shù)據(jù)庫(kù)44 實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系第五章 系統(tǒng)總體規(guī)劃51 系統(tǒng)功能第六章 系統(tǒng)具體實(shí)現(xiàn)61 用戶界面的實(shí)現(xiàn)611 登陸界面612 主界面 62 數(shù)據(jù)庫(kù)的實(shí)現(xiàn)621 用戶庫(kù)622

2、 各個(gè)功能數(shù)據(jù)庫(kù) 第8章 結(jié)束語(yǔ)主要參考文獻(xiàn)-摘要- 運(yùn)輸管理系統(tǒng)管理系統(tǒng)是典型的信息管理系統(tǒng),其開(kāi)發(fā)的功能主要包括:通過(guò)計(jì)算機(jī)管理客運(yùn)公司管理信息,日常辦公,實(shí)現(xiàn)無(wú)紙化辦公,通過(guò)工時(shí)計(jì)算,統(tǒng)計(jì)出各項(xiàng)數(shù)據(jù),分析出客運(yùn)現(xiàn)狀和車輛現(xiàn)狀,提高辦事效率。 經(jīng)過(guò)分析,我們決定使用 MICROSOFT公司的 ACCESS作為后臺(tái)數(shù)據(jù)庫(kù),設(shè)計(jì)出功能庫(kù), 使用 MICROSOFT公司的 VISUAL BASIC開(kāi)發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具,尤其是ADO控件這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象,連接數(shù)據(jù)庫(kù),開(kāi)發(fā)出產(chǎn)品。關(guān)鍵字:ADO、窗體、數(shù)據(jù)庫(kù)。-前言-發(fā)展客運(yùn)無(wú)論對(duì)客運(yùn)公司發(fā)展還是對(duì)人民生

3、活需求都具有十分重要的意義；發(fā)展客運(yùn)是增強(qiáng)客運(yùn)公司實(shí)力、改善客運(yùn)服務(wù)質(zhì)量的需要,是完善運(yùn)輸體系、提高整體效益的需要,是實(shí)現(xiàn)兩個(gè)根本性轉(zhuǎn)變、走集約化發(fā)展道路的必然趨勢(shì),是發(fā)揮道路運(yùn)輸優(yōu)勢(shì)的拳頭產(chǎn)品；建立客運(yùn)系統(tǒng)可以提升道路運(yùn)輸競(jìng)爭(zhēng)力,提高車輛運(yùn)用效率,降低運(yùn)輸成本,減少交通事故；發(fā)展客運(yùn)可以改善投資環(huán)境,促進(jìn)地域經(jīng)濟(jì)國(guó)際化的進(jìn)程；促進(jìn)沿線經(jīng)濟(jì)開(kāi)發(fā)、房地產(chǎn)升值；促進(jìn)形成網(wǎng)絡(luò)型公路產(chǎn)業(yè),高新技術(shù)產(chǎn)業(yè)及商貿(mào)開(kāi)發(fā)區(qū)；促進(jìn)產(chǎn)業(yè)結(jié)構(gòu)化,加快物流速度；促進(jìn)地區(qū)經(jīng)濟(jì)的繁榮。我國(guó)加入世界貿(mào)易組織后,必然要加快改革和經(jīng)濟(jì)結(jié)構(gòu)調(diào)整的速度,加大市場(chǎng)開(kāi)放的力度,而全國(guó)性的客運(yùn)系統(tǒng)正是開(kāi)放市場(chǎng)、促進(jìn)交流的良好載體。第一章

4、用計(jì)算機(jī)管理運(yùn)輸管理系統(tǒng)的意義 運(yùn)輸管理系統(tǒng)管理的定義為,組織中運(yùn)輸管理系統(tǒng)的管理,意指一個(gè)組織對(duì)運(yùn)輸管理系統(tǒng)的獲取、維護(hù)、激勵(lì)與運(yùn)用與發(fā)展的全部管理過(guò)程與活動(dòng)。一般而言,良好的運(yùn)輸管理系統(tǒng)管理,有助于為客運(yùn)公司達(dá)到以下的目標(biāo):一、協(xié)助組織達(dá)成發(fā)展目標(biāo)與遠(yuǎn)景。二、有效地運(yùn)用人員的能力與技術(shù)專才。三、促使組織成員的工作士氣高昂且激發(fā)潛能。四、滿足組織成員的自我實(shí)現(xiàn)感與增加成員的工作成就感。五、發(fā)起且落實(shí)組織變革。六、提高組織成員的工作生活品質(zhì)。七、協(xié)助客運(yùn)公司負(fù)責(zé)人做出正確決策。 運(yùn)輸管理系統(tǒng)的設(shè)計(jì)分析 根據(jù)實(shí)際情況,我們使用ADO控件少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件系統(tǒng)模型。使用戶和開(kāi)發(fā)人員

5、可以較快地確定需求,然后采用循環(huán)進(jìn)化的開(kāi)發(fā)方式,對(duì)系統(tǒng)模型作連續(xù)的精化,將系統(tǒng)需具備的性質(zhì)逐漸增加上去,直到所有的性質(zhì)全部滿足。此時(shí)模塊也發(fā)展成為最終產(chǎn)品了。第二章怎樣開(kāi)發(fā)一個(gè)運(yùn)輸管理系統(tǒng)管理系統(tǒng)？ 編程環(huán)境的選擇 微軟公司的Visual Basic 6.0是Windows應(yīng)用程序開(kāi)發(fā)工具,使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_(kāi)發(fā)工具。Visual Basic提供了大量的控件,這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能,減少了編程人員的工作量,也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程,從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而,實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。 關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn) Access20XX 就是

6、關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具,數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格,可以使數(shù)據(jù)庫(kù)一目了然。另外,Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫(kù),可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器,與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫(kù)。Access 是一種關(guān)系數(shù)據(jù)庫(kù)工具,關(guān)系數(shù)據(jù)庫(kù)是已開(kāi)發(fā)的最通用的數(shù)據(jù)庫(kù)之一。如上所述,Access 作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多優(yōu)點(diǎn),可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。 二者的結(jié)合(ADO

7、) 微軟的JET數(shù)據(jù)庫(kù)引擎提供了與數(shù)據(jù)庫(kù)打交道的途徑,我們是通過(guò)它以及Visual Basic 來(lái)訪問(wèn)數(shù)據(jù)庫(kù)并對(duì)其進(jìn)行各種操作。Visual Basic、Access以及其他微軟的軟件產(chǎn)品都是通過(guò)共用JET數(shù)據(jù)庫(kù)引擎,從而給用戶提供了豐富的數(shù)據(jù)類型。 ADO 控件在數(shù)據(jù)庫(kù)中的信息與將信息顯示給用戶看的Visual Basic程序之間架起了一座橋梁。我們可以設(shè)置ADO控件的各個(gè)屬性,告訴它要調(diào)用那個(gè)數(shù)據(jù)庫(kù)的哪個(gè)部分。缺省情況下,ADO控件根據(jù)數(shù)據(jù)庫(kù)中的一個(gè)或多個(gè)數(shù)據(jù)表建立一個(gè)dynaset-type(動(dòng)態(tài)集合)類型的記錄集合。一個(gè)記錄集合是動(dòng)態(tài)的也就意味著,當(dāng)原來(lái)的數(shù)據(jù)表中的容改變了以后,該記錄

8、集合中的記錄也會(huì)隨之改變。ADO控件還提供了用來(lái)瀏覽不同記錄的各種跳轉(zhuǎn)按鈕。將ADO控件放置在窗體中之后,我們還必須在該控件與要處理的數(shù)據(jù)庫(kù)之間建立聯(lián)系。 ADO(ActiveX Data Objects)是基于組件的數(shù)據(jù)庫(kù)編程接口,它是一個(gè)和編程語(yǔ)言無(wú)關(guān)的COM組件系統(tǒng)。本文主要介紹用ADO編程所需要注意的技巧和在VC下進(jìn)行ADO編程的模式,并對(duì)CExtensions進(jìn)行了簡(jiǎn)單的討論,希望對(duì)ADO開(kāi)發(fā)人員有一定的幫助作用。因?yàn)锳DO是一個(gè)和編程語(yǔ)言無(wú)關(guān)的COM組件系統(tǒng),所以這里討論的要點(diǎn)適用于所有的編程語(yǔ)言和編程環(huán)境,比如:VB、VBScript、VC、Java等等。 ADO定義了一個(gè)可編程

9、的對(duì)象集合.ADO對(duì)象模型如圖所示:對(duì)于ADO其中對(duì)象來(lái)說(shuō),我覺(jué)得比較重要的是:Command,Connection,Recordset對(duì)象.雖然嚴(yán)格的說(shuō)這是不準(zhǔn)確的,但根據(jù)我的實(shí)際經(jīng)驗(yàn)確實(shí)如此.下面就分別來(lái)談一下.(1) Connection對(duì)象Connection對(duì)象用于建立與數(shù)據(jù)庫(kù)的連接.通過(guò)連接可從應(yīng)用程序訪問(wèn)數(shù)據(jù)源.它保存諸如指針類型,連接字符串,查詢超時(shí),連接超時(shí)和缺省數(shù)據(jù)庫(kù)這樣的連接信息.(2) Command對(duì)象在建立Connection后,可以發(fā)出命令操作數(shù)據(jù)源.一般情況下,Command對(duì)象可以在數(shù)據(jù)庫(kù)中添加,刪除或更新數(shù)據(jù),或者在表中進(jìn)行數(shù)據(jù)查詢.Command對(duì)象在定義

10、查詢參數(shù)或執(zhí)行一個(gè)有輸出參數(shù)的存儲(chǔ)過(guò)程時(shí)非常有用.(3) Recordset對(duì)象Recordset對(duì)象只代表一個(gè)記錄集,這個(gè)記錄集是一個(gè)連接的數(shù)據(jù)庫(kù)中的表,或者是Command對(duì)象的執(zhí)行結(jié)果返回的記錄集.在ADO對(duì)象模型中,是在行中檢查和修改數(shù)據(jù)的最主要的方法,所有對(duì)數(shù)據(jù)的操作幾乎都是在Recordset對(duì)象中完成的.Record對(duì)象用于指定行,移動(dòng)行,添加,更改,刪除記錄.下面就具體地說(shuō)說(shuō)如何用ADO存取數(shù)據(jù):在實(shí)際編程過(guò)程中使用ADO的一個(gè)典型的存取數(shù)據(jù)的步驟為:(1) 連接數(shù)據(jù)源(2) 打開(kāi)記錄集對(duì)象(3) 使用記錄集(4) 斷開(kāi)連接那么具體怎么是用呢?分別來(lái)看.(我在最后將給出一個(gè)完整

11、的使用ADO的實(shí)例給大家參考.)(1) 如何連接數(shù)據(jù)源利用Connection對(duì)象可以創(chuàng)建一個(gè)數(shù)據(jù)源的連接.應(yīng)用的方法是Connection對(duì)象的Open方法.語(yǔ)法:Connection對(duì)象.Open ConnectionString, UserID, PassWord, OpenOptions其中:Connection對(duì)象為你定義的Connection對(duì)象的實(shí)例;ConnectionString為可選項(xiàng),包含了連接的數(shù)據(jù)庫(kù)的信息;UserID 可選項(xiàng),包含建立連接的用戶名;PassWord為可選項(xiàng),包含建立連接的用戶密碼;OpenOptions為可選項(xiàng),假如設(shè)置為adConnectAsync

12、,則連接將異步打開(kāi).(2)打開(kāi)記錄集對(duì)象實(shí)際上記錄集返回的是一個(gè)從數(shù)據(jù)庫(kù)取回的查詢結(jié)果集.因此他有兩種打開(kāi)方法:一種使用記錄集的Open方法,另一種是用Connection對(duì)象的Execute方法.(a)記錄集的Open方法語(yǔ)法:Recordset.Open Source, ActiveConnection, CursorType, LockType, Options其中:Recordset為所定義的記錄集對(duì)象的實(shí)例.Source可選項(xiàng),指明了所打開(kāi)的記錄源信息.可以是合法的命令,對(duì)象變量名,SQL語(yǔ)句,表名,存儲(chǔ)過(guò)程調(diào)用,或保存記錄集的文件名.ActiveConnection可選項(xiàng),合法的已

13、打開(kāi)的Connection對(duì)象的變量名,或者是包含ConnectionString參數(shù)的字符串.CursorType可選項(xiàng),確定打開(kāi)記錄集對(duì)象使用的指針類型.LockType可選項(xiàng) 確定打開(kāi)記錄集對(duì)象使用的鎖定類型.(b)Connection對(duì)象的Execute方法語(yǔ)法:Set recordset=Connection.Execute(CommandText,RecordsAffected,Options)參數(shù)說(shuō)明:CommandText 一個(gè)字符串,返回要執(zhí)行的SQL命令,表名,存儲(chǔ)過(guò)程或指定文本.RecordsAffected 可選項(xiàng),Long類型的值,返回操作影響的記錄數(shù).Options

14、 可選項(xiàng),Long類型值,指明如何處理CommandText參數(shù).介紹完了如何打開(kāi)數(shù)據(jù)庫(kù)下面說(shuō)說(shuō)怎么使用吧.(3)使用記錄集(a)添加新的記錄:在ADO中添加新的記錄用的方法為:AddNew 它的語(yǔ)法為:Recordset.AddNew FieldList, ValuesRecordset為記錄集對(duì)象實(shí)例FieldList為一個(gè)字段名,或者是一個(gè)字段數(shù)組.Values為給要加信息的字段賦的值,如果FiledList為一個(gè)字段名,那么Values應(yīng)為一個(gè)單個(gè)的數(shù)值,假如FiledList為一個(gè)字段數(shù)組,那么Values必須也為一個(gè)個(gè)數(shù),類型與FieldList相同的數(shù)組.再用完AddNew方法為

15、記錄集添加新的記錄后,應(yīng)使用UpDate將所添加的的數(shù)據(jù)存儲(chǔ)在數(shù)據(jù)庫(kù)中.不過(guò)你最好在用UpDate方法之前使用CancelUpdate方法來(lái)取消該項(xiàng)操作.(b)修改記錄集其實(shí)修改核對(duì)記錄集中的數(shù)據(jù)重新賦值沒(méi)有什么太大的區(qū)別,只要用SQL語(yǔ)句將要修改的字段的一個(gè)數(shù)據(jù)找出來(lái)重新賦值就可以了.這里不再細(xì)說(shuō)了.(c)刪除記錄在ADO中刪除記錄集中的數(shù)據(jù)的方法為:Delete方法,這與DAO對(duì)象的方法相同,但是在ADO中它的能力增強(qiáng)了,可以刪掉一組記錄了.它的語(yǔ)法如下:Recordset.Delete AffectRecords其中的,AffectRecords參數(shù)是確定Delete方法作用的方式的,它

16、的取值如下:adAffectCurrent 只刪除當(dāng)前的記錄adAffectGroup 刪除符合Filter屬性設(shè)置的那些記錄.為了一次能刪除一組數(shù)據(jù),應(yīng)設(shè)置Filter屬性.(d)查詢記錄在ADO中查詢的方法很靈活,有幾種查詢的方法.使用連接對(duì)象的Execute方法執(zhí)行SQL命令,返回查詢記錄集.使用Command對(duì)象的Execute方法執(zhí)行CommandText屬性中設(shè)置的SQL命令,返回查詢記錄集.第一個(gè)方法的具體語(yǔ)法在前面數(shù)據(jù)連接時(shí)已經(jīng)介紹過(guò)了,下面就第二方法具體說(shuō)一下.Command對(duì)象的Execute方法的語(yǔ)法如下:Command.Execute RecordsAffected,

17、Parameters, Options 不返回記錄集或者 Set Rscordset=cmmnad.Execute(RecordsAffected,Parameters,Options) 返回記錄集CommandText的語(yǔ)法為:Command.CommandText=stringvariable其中: stringvariable為字符串變量,包含SQL語(yǔ)句,表名或存儲(chǔ)過(guò)程.(4) 斷開(kāi)連接在應(yīng)用程序結(jié)束之前,應(yīng)該釋放分配給ADO對(duì)象的資源,操作系統(tǒng)回收這些資源并可以再分配給其他應(yīng)用程序.使用的方法為:Close方法.語(yǔ)法如下:Object.Close Object為ADO對(duì)象第三章Visu

18、alBasic(簡(jiǎn)稱VB)是一種可視化的、事件驅(qū)動(dòng)型的Windows應(yīng)用程序開(kāi)發(fā)工具,它在GUI設(shè)計(jì)、繪圖、制表、運(yùn)算、通信和多媒體開(kāi)發(fā)方面都具有簡(jiǎn)單易行、功能強(qiáng)大等優(yōu)點(diǎn),所以越來(lái)越受到開(kāi)發(fā)人員的親睞。同時(shí),VB在數(shù)據(jù)庫(kù)開(kāi)發(fā)方面也具有Foxpro所遠(yuǎn)不能及的強(qiáng)大功能。VB能夠讀取和訪問(wèn)Access、Excel、DbaseX、Foxpro、Btrieve和ODBC等多種數(shù)據(jù)庫(kù),并能利用VB自身所帶的數(shù)據(jù)庫(kù)引擎創(chuàng)建Access數(shù)據(jù)庫(kù)。所以VB在管理信息系統(tǒng)(MIS)的開(kāi)發(fā)和建設(shè)方面得到了是益廣泛的應(yīng)用?，F(xiàn)在,筆者就VB應(yīng)用數(shù)據(jù)庫(kù)的一些方法作一簡(jiǎn)單的介紹。VB訪問(wèn)數(shù)據(jù)庫(kù)通常有三種途徑:第一,通過(guò)數(shù)據(jù)

19、庫(kù)控制控件DataControl訪問(wèn)；第二,通過(guò)VB提供的數(shù)據(jù)庫(kù)對(duì)象變量編程訪問(wèn)；第三,通過(guò)ODBC接口訪問(wèn)ODBCAPI函數(shù)。在這三種方法中,第一種方法操作起來(lái)最方便、靈活、易于掌握,同時(shí)也最能體現(xiàn)VisualBasic面向?qū)ο蟮奶厣?故這里以Foxpro2.5的數(shù)據(jù)庫(kù)為例,介紹數(shù)據(jù)庫(kù)控制控件(DataControl)訪問(wèn)數(shù)據(jù)庫(kù)的方法與步驟:一、在Form窗口中加入DataControl控件用鼠標(biāo)在工具窗口的DataControl控件按鈕上雙擊左鍵,該對(duì)象即出現(xiàn)在Form窗口的中間(控件名為Data1),用鼠標(biāo)調(diào)整好控件的大小及位置。如工具箱中無(wú)此控件,可打開(kāi)主菜單的Tools/Custom

20、,在列表中選中MicrosoftDataControl復(fù)選框,確認(rèn)后即可將此控件加入到工具箱中去。二、設(shè)置聯(lián)接庫(kù)用鼠標(biāo)單擊Data1,按下F4,打開(kāi)屬性窗口,設(shè)置Connect屬性為Foxpro2.5,設(shè)置DatabaseName為c:foxprowstudent.dbf(假設(shè)磁盤(pán)上已有這個(gè)文件)。三、加入字段顯示、編輯控件(數(shù)據(jù)庫(kù)捆綁控件)在Form窗口中加入DGrid控件,如不在此控件,可打開(kāi)主菜單Tools/Custom,在列表中選擇ApexDataBroundGrid復(fù)選框,確認(rèn)后即可向工具箱中加入此控件。在Form窗口中單擊選中此控件(DGrid1),按下F4打開(kāi)屬性窗口,設(shè)置Dat

21、asource屬性為Data1,在Form窗口中用鼠標(biāo)右鍵單擊控件DGrid1,選擇RetrieveFields；再用鼠標(biāo)右鍵單擊控件DGrid1,選擇Edit,用鼠標(biāo)調(diào)整控件及有關(guān)字段大?。辉儆檬髽?biāo)右鍵單擊控件DGrid1,選擇Properties(屬性),在彈出窗口中,選擇Colums標(biāo)簽,在下拉列表中選Colum1,將Caption屬性改為“學(xué)號(hào)”,選擇Colum2,Caption屬性改為“姓名”,選擇Colum3、4將Caption屬性改為“性別”、“專業(yè)”,按下“確定”按鈕。再向Form窗口中加入一個(gè)按鈕控件,將Caption屬性設(shè)置為“退出”,雙擊該控件(Command1),在代碼

22、窗口中寫(xiě)入“END”,存盤(pán)。此時(shí),一個(gè)具備數(shù)據(jù)庫(kù)讀寫(xiě)、瀏覽功能的應(yīng)用程序就建立了,按下F5運(yùn)行,通過(guò)單擊Data1的各按鈕即可看出當(dāng)前記錄的變化情況。在此基礎(chǔ)上,我們還可以借助數(shù)據(jù)庫(kù)控制控件的有關(guān)屬性和方法進(jìn)行更靈活的操作和控制。1、設(shè)置Data1.Visiable=False將控件設(shè)為不可見(jiàn)2、將按鈕Command2,3,4,5,6,7的Caption屬性分別設(shè)置為“追加”、“首記錄”、“上一條”、“下一條”、“尾記錄”、“刪除”,雙擊各按鈕,分別寫(xiě)入事件代碼:SubCommand1-Click()關(guān)閉應(yīng)用程序EndEndSubSubCommand2-Click()追加記錄Data1.Rec

23、ordset.AddnewData1.Recordset.UpdateData1.Recordset.MoveLastEndSubSubCommand3-Click()移向首記錄Data1.Recordset.MoveFirstEndSubSubCommand4-Click()移向上一條記錄Data1.Recordset.MovePreviusIfData1.Recordset.BofThenData1.Recordset.MoveFirstEndIfEndSubSubCommand3-Click()移向尾記錄Data1.Recordset.MoveLastEndSubSubCommand4-

24、Click()移向下一條記錄Data1.Recordset.MoveNextIfData1.Recordset.EofThenData1.Recordset.MoveLastEndIfEndSub除此之外,數(shù)據(jù)庫(kù)控制控件還有Bookmark、RecordCount等許多屬性與方法,能對(duì)數(shù)據(jù)庫(kù)進(jìn)行各種方便的操作。由此可見(jiàn),數(shù)據(jù)庫(kù)控制控件具有數(shù)據(jù)庫(kù)操作方面的強(qiáng)大功能。另外,數(shù)據(jù)庫(kù)控制控件的RecordSource屬性可用一個(gè)SQL語(yǔ)句賦值,以此來(lái)有效地調(diào)用SQL語(yǔ)句,從而發(fā)揮SELECT語(yǔ)句強(qiáng)大的功能,更使數(shù)據(jù)庫(kù)控制控件(DataControl)錦上添花。真正刪除數(shù)據(jù)庫(kù)的記錄大家知道,缺省情況下,

25、VB刪除記錄只是把記錄作上個(gè)刪除標(biāo)志而已,并沒(méi)有真正刪除。要真正刪除記錄,你可以使用VB提供的以下方法:BeginTrans、CommitTrans、RollBack。其中,BeginTrans方法開(kāi)始記錄數(shù)據(jù)庫(kù)的變動(dòng),CommitTrans方法確認(rèn)數(shù)據(jù)庫(kù)的變動(dòng),而RollBack方法則可以恢復(fù)被刪除或修改的記錄。它們可以嵌套使用。因此,要恢復(fù)被刪除的記錄,應(yīng)該在使用BeginTrans方法之后及使用CommiTrans方法之前使用RollBack方法。不用DATA控件操作數(shù)據(jù)庫(kù)文件大家知道,在VB中如果使用DATA控件訪問(wèn)數(shù)據(jù)庫(kù),那么程序執(zhí)行就必須要一些大型DLL支持。這對(duì)于安裝盤(pán)的發(fā)放是一

26、個(gè)大問(wèn)題。那么,在VB中能不能不用DATA控件訪問(wèn)數(shù)據(jù)庫(kù)呢？在VB中不用DATA控件而訪問(wèn)數(shù)據(jù)庫(kù),只有一法:將數(shù)據(jù)庫(kù)文件當(dāng)成2進(jìn)制文件打開(kāi)。但此法最大困難就是你必須了解數(shù)據(jù)庫(kù)文件的結(jié)構(gòu)形式。比如:FoxBase的DBF文件(我不了解其它數(shù)據(jù)庫(kù)的文件結(jié)構(gòu),大家可以去查查):它由記錄頭和記錄構(gòu)成。而記錄頭又由兩部分構(gòu)成:記錄頭=數(shù)據(jù)庫(kù)說(shuō)明+字段說(shuō)明。下面列出FoxBase數(shù)據(jù)庫(kù)說(shuō)明:FoxBase數(shù)據(jù)庫(kù)說(shuō)明起始Adress字節(jié)數(shù)含義11FoxBase數(shù)據(jù)庫(kù)文件標(biāo)志2-43最后一次修改日期,3個(gè)字節(jié)分別為年、月、日5-84文件記錄總數(shù)9-102記錄頭長(zhǎng)度11-122每個(gè)記錄長(zhǎng)度13-2220XX使用

27、下面列出字段說(shuō)明,每個(gè)字段由32個(gè)字節(jié)構(gòu)成。字段說(shuō)明起始Adress字節(jié)數(shù)含義1-1111字段名稱121字段類型(分別為C、N、D、L等)13-164該字段在文件中Adress171字段長(zhǎng)度181小數(shù)位數(shù)19-3214未使用知道了字段信息說(shuō)明,就可以使用復(fù)合變量+2進(jìn)制文件來(lái)操作數(shù)據(jù)庫(kù)了。Text轉(zhuǎn)換為AccessMDBText文件類型在很多軟件中都為一般應(yīng)用程序與數(shù)據(jù)庫(kù)之間架起一座橋梁。你可以使用TextISAM驅(qū)動(dòng)程序和SQL來(lái)把Text文件轉(zhuǎn)換成AccessMDB數(shù)據(jù)庫(kù)文件,首先,為文本文件創(chuàng)建一個(gè)SCHEMA.INI文件。然后,你可以使用下面的代碼來(lái)實(shí)現(xiàn)轉(zhuǎn)換:DimdbAsDataba

28、se,tblasTableDefSetdb=DBEngine.CreateDatabase(App.Path&mymdb.mdb,dbLangGeneral,dbVersion_0)Settbl=db.CreateTableDef(Temp)tbl.Connect=Text;database=c:vbpjdatatbl.SourceTableName=Customer#txtdb.TableDefs.Appendtbldb.ExecuteSelectTemp.*intoNewTablefromTempdb.TableDefs.Deletetbl.Namedb.CloseSettbl=Nothi

29、ngSetdb=Nothing鎖住數(shù)據(jù)庫(kù)中的表把表達(dá)式True=False放到表的ValidationRule屬性就能鎖上。HardLockTable?實(shí)現(xiàn)了該功能。聲明PublicMyDBAsDatabaseDimDummyAsInteger函數(shù)FunctionHardLockTable(ByValwhichActionAsString,?ByValaTableAsString)AsIntegerOnErrorGoToHardLockTableErrorHardLockTable=TrueSelectCasewhichActionCaseLockMyDB.TableDefs(aTable).

30、ValidationRule=True=FalseMyDB.TableDefs(aTable).ValidationText=?Thistablelockedvia&?ValidationRuleon&NowCaseUnLockMyDB.TableDefs(aTable).ValidationRule=MyDB.TableDefs(aTable).ValidationText=CaseTestThenUnLockIfMyDB.TableDefs(aTable).ValidationRule=True=FalseThenMyDB.TableDefs(aTable).ValidationRule=

31、MyDB.TableDefs(aTable).ValidationText=EndIfEndSelectHardLockTableErrorExit:subFlushDBEngineoptional,seenextsuggestionExitFunctionHardLockTableError:HardLockTable=FalseMsgBoxError$&error&inHardLockTabletrying&to&whichAction&aTableResumeHardLockTableErrorExitEndFunction使用例子上鎖Dummy=HardLockTable(Lock,T

32、estTable)開(kāi)鎖Dummy=HardLockTable(UnLock,TestTable)關(guān)閉所有的數(shù)據(jù)連接如果在代碼中使用了數(shù)據(jù)控件如DAO,RDO,或ADO,在退出時(shí)應(yīng)該關(guān)閉所有打開(kāi)的recordset,database,和workspace。雖然對(duì)象能自動(dòng)注銷,但是數(shù)據(jù)連接不會(huì)馬上斷開(kāi),可能會(huì)導(dǎo)致一些內(nèi)存不能被系統(tǒng)重新分配。下面的代碼可以關(guān)閉所有打開(kāi)的DAOworkspace,并釋放所占的內(nèi)存。PrivateSubForm_Unload(CancelAsInteger)OnErrorResumeNextDimwsAsWorkspaceDimdbAsDatabaseDimrsAsRe

33、cordsetForEachwsInWorkspacesForEachdbInws.DatabasesForEachrsIndb.Recordsetsrs.CloseSetrs=NothingNextdb.CloseSetdb=NothingNextws.CloseSetws=NothingNextEndSub如何刪除FoxPro數(shù)據(jù)庫(kù)的數(shù)據(jù)?用VB對(duì)FOXPRO數(shù)據(jù)庫(kù)操作,經(jīng)常會(huì)遇到這樣一個(gè)問(wèn)題:只能對(duì)記錄進(jìn)行DEL,也就是在該條記錄上打一個(gè)刪除標(biāo)記,但不能象在數(shù)據(jù)庫(kù)中那樣,用PACK把這條記錄真正刪除.當(dāng)記錄數(shù)較多時(shí),用DBGRID等控件做的程序都會(huì)出錯(cuò).該怎樣辦呢?其實(shí),VB中無(wú)法對(duì)DB

34、F文件進(jìn)行PACK。只能把ISAM的設(shè)置Deleted設(shè)為On。這樣相當(dāng)于FoxPro的SETDELETEDON。不信你可以試一試。VB應(yīng)用小集-訪問(wèn)VB外來(lái)數(shù)據(jù)庫(kù)VB最引人注目的特點(diǎn),也是其最令程序員關(guān)心的地方,就是它訪問(wèn)多種數(shù)據(jù)庫(kù)的強(qiáng)大功能。VB中將非MSAccess數(shù)據(jù)庫(kù)稱為外來(lái)數(shù)據(jù)庫(kù)(ExternalDatabase),如dBASE、FoxPro、ODBC等。VB中使用數(shù)據(jù)控制訪問(wèn)外來(lái)數(shù)據(jù)庫(kù)同訪問(wèn)Access數(shù)據(jù)庫(kù)類似,這里不再贅述,現(xiàn)在主要讀一下用生成對(duì)象的方法來(lái)訪問(wèn)外來(lái)數(shù)據(jù)庫(kù)。訪問(wèn)外來(lái)數(shù)據(jù)庫(kù)(以dBASE為例)大致分為以下幾步:第一步:建立一個(gè)Access型數(shù)據(jù)庫(kù),并在數(shù)據(jù)庫(kù)中創(chuàng)建

35、新表即為附加表。通過(guò)設(shè)置附加表的各屬性值,使其與你所要訪問(wèn)的數(shù)據(jù)庫(kù)建立鏈接關(guān)系。程序代碼如下:DimDbasDatabaseDimTdasNewTabledefSetDb=OpenDatabase(MYDB.MDB)Td.Connect=dBASE:DATABASE=c:DATADIRTd.SourceTableName=AUTHORTd.Name=dBASEAuthorTableDb.tabledefsAppendTdDb.close第二步:設(shè)置INI文件路徑。在VB的程序中使用了訪問(wèn)外來(lái)數(shù)據(jù)庫(kù)操作,將應(yīng)用程序生成EXE文件后,必須提供一個(gè)INI文件。若找不到這個(gè)INI文件,將會(huì)導(dǎo)致不能訪問(wèn)

36、數(shù)據(jù)庫(kù),并出現(xiàn)“NOTFOUNDINSTOLLABKISAMS的錯(cuò)誤信息。設(shè)置INI文件路徑后,VB的程序會(huì)在WINDOWS子目錄中尋找與應(yīng)用程序同名的INI文件。設(shè)置INI文件路徑代碼為:SetDataAccessOption1,“PathFilename”第三步:編輯.INI文件可對(duì)不同種類的數(shù)據(jù)庫(kù)進(jìn)行設(shè)置,下面為一INI文件代碼:OptionsSystemDB=c:MyPATHSYSTEM.MDAISAMPageTimeout=5MaxBufferSize=128LockRetry=20XXCommitLockPetry=20XXReadAheadPages=16InstallableI

37、SAMsParadox3.x=C:VBpdx110.DLLFoxPro2.0=C:VBxbs110.DLLFoxPro2.5=C:VBpdx110.DLLdBASE=C:VBpdx110.DLLdBASE=C:VBpdx110.DLLBtrieve=C:VBbtrv110.DLLParadoxISAMPageTimeout=600ParadoxUsername=BaiUserParadoxNetPath=P:PDXDBCollatingSeguence=AsciidBASEcentry=offData=AmericanMark=47Deleted=on這樣通過(guò)訪問(wèn)新數(shù)據(jù)庫(kù)MYDB.MDB和表“

38、DBASEAUTHORTABK”即可訪問(wèn)你所要訪問(wèn)的外來(lái)數(shù)據(jù)庫(kù)了。使用這種方法訪問(wèn)外來(lái)數(shù)據(jù)庫(kù)應(yīng)該注意的是,附加表在所加到的數(shù)據(jù)庫(kù)中只是建立了一個(gè)鏈接關(guān)系,表的實(shí)際所在,仍然存在于原數(shù)據(jù)庫(kù)中,該表在所附加到的數(shù)據(jù)庫(kù)中被刪除時(shí),只是刪掉了鏈接關(guān)系,實(shí)際的表并沒(méi)有被刪除。 第四章使用Access20XX 實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫(kù) 數(shù)據(jù)庫(kù)的概念數(shù)據(jù)庫(kù)是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫(kù)的作用在于組織和表達(dá)信息,簡(jiǎn)而言之,數(shù)據(jù)庫(kù)就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫(kù)可以分為兩類:非關(guān)系數(shù)據(jù)庫(kù)(flat-file)和關(guān)系數(shù)據(jù)庫(kù)(relational)。關(guān)系數(shù)據(jù)庫(kù)中包含了多個(gè)數(shù)據(jù)表的信息,數(shù)據(jù)庫(kù)含有各個(gè)不同部分的術(shù)

39、語(yǔ),象記錄、域等。 新建一個(gè)數(shù)據(jù)庫(kù)創(chuàng)建任何一個(gè)數(shù)據(jù)庫(kù)的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫(kù),設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫(kù)結(jié)構(gòu)的過(guò)程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。1 標(biāo)識(shí)需要的數(shù)據(jù)；2 收集被標(biāo)識(shí)的字段到表中；3 標(biāo)識(shí)主關(guān)鍵字字段；4 繪制一個(gè)簡(jiǎn)單的數(shù)據(jù)圖表；5 規(guī)范數(shù)據(jù)；6 標(biāo)識(shí)指定字段的信息；7 創(chuàng)建物理表。 修改已建的數(shù)據(jù)庫(kù) 數(shù)據(jù)庫(kù)的修改分為:添加、編輯和刪除記錄。這三種操作均可由Visual Basic 創(chuàng)建的程序來(lái)完成,下面的章節(jié)將詳細(xì)描述實(shí)現(xiàn)的具體方法。 實(shí)現(xiàn)數(shù)據(jù)庫(kù)之間的聯(lián)系 數(shù)據(jù)庫(kù)之間的關(guān)系指明兩個(gè)庫(kù)之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)連接是指一種虛擬的表,這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各

40、個(gè)不同的表中獲取信息時(shí)建立的,關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個(gè)更高級(jí)的連接形式稱為自連接。這種連接是指一個(gè)表被連接到它自己的一個(gè)字段,或在不同的紀(jì)錄中由重復(fù)數(shù)據(jù)的組合字段。數(shù)據(jù)庫(kù)中有三種不同類型的關(guān)鍵字:主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫(kù)表示什么以及在數(shù)據(jù)庫(kù)中如何與其它的庫(kù)建立關(guān)系。 對(duì)表的行和列都有特殊的叫法,每一列叫做一個(gè)“字段”。每個(gè)字段包含某一專題的信息。就像“通訊錄”數(shù)據(jù)庫(kù)中,“姓名”、“聯(lián)系TEL”這些都是表中所有行共有的屬性,所以把這些列稱為“姓名”字段和“聯(lián)系TEL”字段。我們把表中的每一行叫做一個(gè)“記錄”,每一個(gè)記錄包含這行中

41、的所有信息,就像在通訊錄數(shù)據(jù)庫(kù)中某個(gè)人全部的信息,但記錄在數(shù)據(jù)庫(kù)中并沒(méi)有專門(mén)的記錄名,常常用它所在的行數(shù)表示這是第幾個(gè)記錄。數(shù)據(jù)庫(kù)的結(jié)構(gòu)創(chuàng)建好了,接下來(lái)我們需要做的就是對(duì)數(shù)據(jù)庫(kù)進(jìn)行一系列的基本操作。 增加記錄:在“數(shù)據(jù)表”視圖或“窗體”視圖中打開(kāi)相應(yīng)的窗體,單擊工具欄上的“新記錄“按鈕 ,鍵入所需數(shù)據(jù),然后按 TAB 鍵轉(zhuǎn)至下一個(gè)字段,在記錄末尾,按 TAB 鍵轉(zhuǎn)至下一個(gè)記錄。 編輯記錄:如果要編輯字段中的數(shù)據(jù),單擊要編輯的字段,如果要替換整個(gè)字段的值,指向字段的最左邊,在鼠標(biāo)變?yōu)榧犹?hào)時(shí),單擊該字段,鍵入要插入的文本。 注意:如果鍵入有錯(cuò),可按 BACKSPACE 鍵；如果要取消對(duì)當(dāng)前字段的更

42、改,按ESC 鍵；如果要取消對(duì)整個(gè)記錄的更改,在移出該字段之前再次按 ESC 鍵,當(dāng)從一個(gè)記錄移動(dòng)到其它記錄時(shí), Access 將保存對(duì)該記錄的修改。 復(fù)制或移動(dòng)數(shù)據(jù):在其它應(yīng)用程序,如Excel、Word中,選擇要復(fù)制或移動(dòng)的一至多行。如果是從Word中復(fù)制數(shù)據(jù),應(yīng)確保記錄在選擇之前已經(jīng)在表中排列好或已經(jīng)使用制表符分隔開(kāi),如果粘貼數(shù)據(jù)到數(shù)據(jù)表中,應(yīng)確保數(shù)據(jù)表中的列與要復(fù)制或移動(dòng)的數(shù)據(jù)的順序一致,如果粘貼數(shù)據(jù)到窗體上,而窗體上相應(yīng)的控件名稱與復(fù)制數(shù)據(jù)的列名相同,Access 將粘貼數(shù)據(jù)到名稱相同的控件上。在Access 中,打開(kāi)要向其中粘貼記錄的數(shù)據(jù)表或窗體,如果要替換現(xiàn)有記錄,選擇要替換的記

43、錄,然后單擊工具欄上的“粘貼追加”或“粘貼”按鈕 ；如果窗體中的記錄選定器不可用,要選擇當(dāng)前記錄,可單擊“編輯”菜單中的“選擇記錄”命令。 刪除記錄:單擊要?jiǎng)h除的記錄,單擊工具欄上的“刪除記錄”按鈕 。第五章系統(tǒng)總體規(guī)劃系統(tǒng)功能a系統(tǒng)管理:用于對(duì)系統(tǒng)初始化,進(jìn)出系統(tǒng),用戶管理和密碼管理等。b 業(yè)務(wù)管理:用與對(duì)站點(diǎn),線路,班次,票價(jià)等業(yè)務(wù)基礎(chǔ)數(shù)據(jù)管理?？稍O(shè)置各種票價(jià)項(xiàng)目,通過(guò)票價(jià)公式自動(dòng)生成票價(jià)！c 售票管理:主要用與窗口日常售票,具有售票,補(bǔ)票,留票,代售票,簽票,退票等功能。d 行包管理:對(duì)乘客托運(yùn)的行李包裹進(jìn)行管理。包括行包收運(yùn),行包領(lǐng)取,小物品寄存管理。e 車輛管理:進(jìn)行車輛調(diào)度管理,具

44、體車輛報(bào)道,臨時(shí)加班,班次合并,車輛及座位調(diào)整,班次延時(shí),改乘等功能。第六章系統(tǒng)具體實(shí)現(xiàn)用戶界面的實(shí)現(xiàn)611 登陸界面 在工程引用ADO2.0。在命令按鈕單擊寫(xiě)下連接數(shù)據(jù)庫(kù)USER表的判斷語(yǔ)句Private Sub Command1_Click()denlu_name = Text1.Textdenlu_pass = Text2.TextDim mycn As New ADODB.ConnectionDim myrs As New ADODB.RecordsetSet myrs = New ADODB.Recordsetmycn.Open Provider=Microsoft.Jet.OLED

45、B.4.0;Data Source=rsgl.mdb;myrs.Open SELECT * FROM user where (user.user)= + denlu_name + ;, mycn, adOpenKeyset, adLockOptimisticIf myrs.BOF = True And myrs.EOF = True ThenMsgBox 查無(wú)此人, , 登陸信息Else If myrs(pass) = denlu_pass Then MsgBox ok, , 登陸信息 Form2.Show Unload Me Else MsgBox 密碼不正確, , 登陸信息 End If

46、目的是USER表沒(méi)有該用戶,將無(wú)法使用本程序 612 主界面具體實(shí)現(xiàn)見(jiàn).圖613 各個(gè)模塊的實(shí)現(xiàn)a系統(tǒng)管理:用于對(duì)系統(tǒng)初始化,進(jìn)出系統(tǒng),用戶管理和密碼管理等。通過(guò)ADO控件連接到數(shù)據(jù)庫(kù)的USER表,通過(guò)SQL語(yǔ)句“SELECT user.user, user.pass FROM user; “ 篩選出全部記錄 用DATA GRID控件,將它的數(shù)據(jù)源設(shè)為ADO控件,將它的各列顯示出數(shù)據(jù)庫(kù)的各列。屬性設(shè)為可寫(xiě)。b 業(yè)務(wù)管理:用與對(duì)站點(diǎn),線路,班次,票價(jià)等業(yè)務(wù)基礎(chǔ)數(shù)據(jù)管理?？稍O(shè)置各種票價(jià)項(xiàng)目,通過(guò)票價(jià)公式自動(dòng)生成票價(jià)！c 售票管理:主要用與窗口日常售票,具有售票,補(bǔ)票,留票,代售票,簽票,退票等功能

47、。d 行包管理:對(duì)乘客托運(yùn)的行李包裹進(jìn)行管理。包括行包收運(yùn),行包領(lǐng)取,小物品寄存管理。e 車輛管理:進(jìn)行車輛調(diào)度管理,具體車輛報(bào)道,臨時(shí)加班,班次合并,車輛及座位調(diào)整,班次延時(shí),改乘等功能。621數(shù)據(jù)庫(kù)的實(shí)現(xiàn)用戶表:用戶表里存儲(chǔ)了可進(jìn)入數(shù)據(jù)庫(kù)的用戶名和密碼包括:編號(hào),姓名,密碼該表主要完成用戶的增加、刪除 、更新等功能userpass111111222222333333業(yè)務(wù)管理:用與對(duì)站點(diǎn),線路,班次,票價(jià)等業(yè)務(wù)基礎(chǔ)數(shù)據(jù)管理。可設(shè)置各種票價(jià)項(xiàng)目,通過(guò)票價(jià)公式自動(dòng)生成票價(jià)！站點(diǎn)線路班次基價(jià)座位等級(jí)11111￥30.00硬座SDFAS2￥30.00臥鋪ADF4￥30.00軟座售票管理:主要用與窗口

48、日常售票,具有售票,補(bǔ)票,留票,代售票,簽票,退票等功能。ID類別開(kāi)車時(shí)間地點(diǎn)票價(jià)檢票口路線起點(diǎn)終點(diǎn)1售票11112退票22223補(bǔ)票3333行包管理:對(duì)乘客托運(yùn)的行李包裹進(jìn)行管理。包括行包收運(yùn),行包領(lǐng)取,小物品寄存管理。車輛管理:ID類別物品重量物品類型寄件人收件人寄件時(shí)間是否驗(yàn)收1111111899-12-3122223333進(jìn)行車輛調(diào)度管理,具體車輛報(bào)道,臨時(shí)加班,班次合并,車輛及座位調(diào)整,班次延時(shí),改乘等功能。與VB的連接Visual Basic提供了與底層數(shù)據(jù)庫(kù)系統(tǒng)緊密的連接。Visual Basic 支持不同的關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)并充分發(fā)揮每一個(gè)數(shù)據(jù)庫(kù)的特長(zhǎng)。生成獨(dú)立應(yīng)用或脫離服務(wù)器

49、運(yùn)行的服務(wù)以上的應(yīng)用,Visual Basic連接數(shù)據(jù)庫(kù)的方式有兩種:通過(guò)使用Visual Basic的 ADO控件。 通過(guò)使用由Visual Basic提供的專用的直接與數(shù)據(jù)庫(kù)相連的接口第七章結(jié)束語(yǔ)經(jīng)過(guò)一個(gè)多月的設(shè)計(jì)和開(kāi)發(fā),系統(tǒng)基本開(kāi)發(fā)完畢。其功能基本符合用戶需求,能夠完成人事存儲(chǔ)和。并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。,對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短,所以該系統(tǒng)還有許多不盡如人意的地方,比如功能較少等多方面問(wèn)題。這些都有待進(jìn)一步改善。 致謝在本次畢業(yè)設(shè)計(jì)中,我從指導(dǎo)老師身上學(xué)到了很多東西。,使我得到不少的提高這對(duì)于我以

50、后的工作和學(xué)習(xí)都有一種巨大的幫助,感謝他耐心的輔導(dǎo)。第八章主要參考文獻(xiàn)1 Visual Basic 6.0 使用指南 作者:Bob Reselman , Richard Peasley , Wayne Pruchniak.出版社:電子工業(yè)出版社 2 中文Access 20XX 24學(xué)時(shí)教程 作者:Craig Eddy ,Timothy Buchanan出版社:機(jī)械工業(yè)出版社附錄程序清單及注釋程序清單6.1 FORM1Private Sub Command1_Click()denlu_name = Text1.Textdenlu_pass = Text2.TextDim mycn As New ADODB.ConnectionDim myrs As New ADODB.RecordsetSet myrs = New ADODB.Recordsetmycn.Open Provider=Microso