汽車租賃系統(tǒng)畢業(yè)論文

1、<p><b>　　引言</b></p><p>　　人們對(duì)汽車的需求(特別是節(jié)假日)仿佛突然之間爆發(fā)出來，一時(shí)間使汽車租賃成為了消費(fèi)熱點(diǎn)，想來這也并不是沒有原因的。其一，經(jīng)濟(jì)的發(fā)展，生活水平的提高，使人們對(duì)汽車的需求越來越大。隨著生活逐漸富裕，人們已有能力租車消費(fèi)，但中國現(xiàn)有汽車保有量難以充分滿足需求。有調(diào)查表明，目前國內(nèi)汽車擁有量為1800多萬輛，但擁有駕駛執(zhí)照的人卻高達(dá)400

2、0多萬，而且這個(gè)數(shù)目還在不斷增加?！坝斜緹o車”者造就了租車業(yè)的巨大市場。目前，28%的廣州人、19%的北京人、12%的上海人擁有駕駛執(zhí)照。從這可以看出，中國的汽車保有量是多么的有限，而想開車的人又是多么的無限。其二，購買私車還不能普及。從個(gè)人來說，租車是實(shí)現(xiàn)有車開最好的途徑，買車一次性投入大，購車的手續(xù)多，養(yǎng)車費(fèi)用高。而私車的利用率一般不高，閑置時(shí)間較長；出現(xiàn)交通事故后，處理手續(xù)太煩鎖。而租車則有很大的靈活性，既不會(huì)占用大量資金，也不會(huì)

3、出現(xiàn)閑置，車況有保證，出差到外地也可以駕駛車輛。而且租賃車的車型可選擇，客戶既能承受，又能滿足各樣的需求。其三，一個(gè)成熟的汽車消費(fèi)市場，租車與購車的需求是不能互相取代的，租車服務(wù)以臨時(shí)性用車需求、公司日常用車需求為市場方向，私人購</p><p>　　由以上可以看出，中國汽車租賃的市場需求非常巨大。汽車租賃業(yè)，毫無疑問是一個(gè)朝陽產(chǎn)業(yè)。談起汽車租賃業(yè)的前景，許多人都認(rèn)為是一片光明，然而我們要指出的是，汽車租賃表現(xiàn)的

4、繁榮并不能掩蓋其發(fā)展中的諸多問題，其光明的前景也不代表它肯定會(huì)健康的成長。</p><p>　　汽車租賃業(yè)起源于20世紀(jì)初的美國，經(jīng)過近一個(gè)世紀(jì)的發(fā)展，已成為租賃行業(yè)最大的一個(gè)分支。中國汽車租賃以80年中國國際信托投資公司用跨國租賃方式為北京市租賃一批汽車作為開始，已經(jīng)經(jīng)歷了將近二十年的發(fā)展。最早的中國汽車租賃公司，誕生在1989年籌辦亞運(yùn)會(huì)之際，主要是為了服務(wù)亞運(yùn)會(huì)而設(shè)立的。</p><p&

5、gt;　　汽車租賃業(yè)已成為一個(gè)特殊的行業(yè)，呈現(xiàn)出典型的假日經(jīng)濟(jì)現(xiàn)象。在十一黃金周期間，北京、上海、廣州等城市的汽車租賃公司車輛出租率都達(dá)到了100%。從1990年開始，汽車租賃業(yè)在中國慢慢發(fā)展起來，到2000年進(jìn)入了較快速的發(fā)展階段。在上海、北京、深圳等大中城市，汽車租賃業(yè)務(wù)發(fā)展迅猛，租車用于商務(wù)、旅游、婚禮、自駕游也已成為一種時(shí)尚。據(jù)安飛士汽車租賃公司的一份不完全統(tǒng)計(jì)，截止06年8月，國內(nèi)汽車租賃市場的供租賃車接近10萬輛，營業(yè)額近1

6、00億。截止目前中國有超過2600萬的本本族，有證無車族占總數(shù)的近三分之一。有專家預(yù)測，到2015年，汽車租賃市場經(jīng)營規(guī)模將達(dá)到180億。很多城市都出現(xiàn)了駕駛執(zhí)照持有者大大超過了購車者的現(xiàn)象，個(gè)別地方甚至出現(xiàn)了110：3的懸殊比例。</p><p>　　本系統(tǒng)是為了適應(yīng)目前我國汽車租賃公司的迅猛發(fā)展而出現(xiàn)的一些問題而設(shè)計(jì)的, 汽車租賃的發(fā)展將會(huì)對(duì)我國經(jīng)濟(jì)建設(shè)和社會(huì)生活的很多領(lǐng)域發(fā)揮不可替代的作用，尤其是對(duì)于傳統(tǒng)運(yùn)

7、輸業(yè)、旅游業(yè)以及汽車工業(yè)、汽車流通業(yè)等相關(guān)行業(yè)發(fā)展的帶動(dòng)作用是十分顯著的。不僅可以節(jié)省巨額投資，調(diào)整資產(chǎn)結(jié)構(gòu)，而且可以根據(jù)市場實(shí)際需要租用適用的車型，這樣更靈活，更經(jīng)濟(jì)，更有效地提高車輛利用率，減少資金占用和資源的浪費(fèi)。可以緩解資金短缺的矛盾，是擴(kuò)大生產(chǎn)規(guī)模的有效途徑。汽車租賃的發(fā)展將會(huì)帶來一種更加方便、快捷、舒適的旅客運(yùn)輸形式。</p><p>　　因此如能夠充分利用汽車租賃管理系統(tǒng)對(duì)汽車租賃進(jìn)行管理規(guī)范企業(yè)的

8、管理和經(jīng)營行為，減少企業(yè)的經(jīng)營成本，提高工作效率。</p><p>　　本系統(tǒng)采用的開發(fā)工具及開發(fā)環(huán)境:</p><p>　　1、開發(fā)工具：Visual Basic、 Access</p><p>　　2、開發(fā)環(huán)境：Windows98/2000/XP、 Visual Basic5.0</p><p>　　第一章 課題的背景及意義</p

9、><p>　　1.1 汽車租賃的背景</p><p>　　生活環(huán)境及工作方式變化——越來越多的家庭、個(gè)人由于工作環(huán)境、勞動(dòng)方式的變化，不再求長期擁有汽車，而是以“招之即來”的方式使用各種汽車。用戶認(rèn)為，租賃汽車可以節(jié)省大筆投資，不必支付諸如養(yǎng)路費(fèi)、保險(xiǎn)費(fèi)和維修費(fèi)等之類的費(fèi)用，甚至不需要建家用車庫。因?yàn)榭砂葱r(shí)、天等時(shí)間單位來租車，亦可要求租賃公司派出司機(jī)來開車。</p><

10、p>　　生活及工作中個(gè)性化需求日益突出——由于工作上的特殊要求和業(yè)余生活的豐富多樣化，人們對(duì)汽車的功能和配置在某一特定時(shí)間內(nèi)有特殊的需求。這在通常情況下一般汽車是滿足不了的，但是租賃公司就可以提供這類專用汽車以滿足不同用戶的不同需要。如“辦公汽車”、“旅游度假汽車”、“多媒體汽車”等。</p><p>　　汽車作為經(jīng)營輔助手段的觀念成為時(shí)代潮流——越來越多的中小企業(yè)利用租賃汽車來完成其經(jīng)營活動(dòng)是當(dāng)代汽車租賃

11、市場呈現(xiàn)出的一個(gè)明顯的發(fā)展趨勢。2000-2006年，美國汽車租賃營業(yè)額每月平均增長10.5%，其中，與中小企業(yè)發(fā)生的營業(yè)額每月平均增長31%。在日本新開業(yè)的中小企業(yè)中，有80%是主要靠租賃汽車來完成各種經(jīng)營業(yè)務(wù)活動(dòng)。</p><p>　　1.2汽車租賃的特點(diǎn)</p><p>　　1、運(yùn)營的車輛以經(jīng)濟(jì)型和小型車輛為主—— 在各主要汽車租賃公司的運(yùn)營車輛構(gòu)成中74%為經(jīng)濟(jì)型和小型車輛，僅有9

12、%的豪華和特種車輛，經(jīng)濟(jì)型車輛占到了34%；除歐洲的巴基特租賃公司的特種車隊(duì)外，其他公司的運(yùn)營車輛中轎車所占比重多為90%，卡車僅為10%。</p><p>　　2、與汽車生產(chǎn)廠商合作緊密——通過汽車制造廠商提供的服務(wù)，汽車租賃公司的龐大車隊(duì)實(shí)現(xiàn)了車輛的快速更新（一般為8—12個(gè)月）；但同時(shí)應(yīng)看到，這種合作并不僅僅是資產(chǎn)的控制關(guān)系（在國際大汽車租賃公司的股東構(gòu)成中，也僅有歐洲汽車、赫茲兩家公司是汽車公司的子公司）

13、，對(duì)汽車制造廠商來說，更多的應(yīng)體現(xiàn)為與客戶之間的合作和服務(wù)關(guān)系------資料顯示，在美國汽車批量銷售中，有30%賣給租賃公司；福特公司的批量銷售已占到年銷量的23%，其中50%賣到租賃公司 。</p><p>　　3、服務(wù)流程規(guī)范、簡捷——從證件的核查，到租車、還車各個(gè)環(huán)節(jié)都實(shí)現(xiàn)了全程的規(guī)范、簡捷，特別是有針對(duì)性的推出了“即刻還車”服務(wù)，更有利于客戶的整個(gè)行程。</p><p>　　4、

14、先進(jìn)的經(jīng)營管理和市場營銷模式：</p><p>　?。?）會(huì)員制——是各大汽車租賃公司的普遍特色，通過建立客戶檔案，不僅實(shí)現(xiàn)了對(duì)客戶的更優(yōu)質(zhì)服務(wù)，而且極大穩(wěn)固了公司的客戶群體。</p><p>　?。?）客戶公司的賬戶管理——針對(duì)不同公司情況和商務(wù)需求提供專門的團(tuán)體費(fèi)率計(jì)劃和相應(yīng)的配套服務(wù)，并參與到客戶公司差旅交通費(fèi)用的管理控制，極大方便了客戶公司。</p><p>

15、;　?。?）“以人為本”的全方位服務(wù)——通過“綠色通道”系統(tǒng)對(duì)站點(diǎn)、車輛等各種信息的監(jiān)控，而且采取GDS等全球銷售預(yù)訂系統(tǒng)、衛(wèi)星導(dǎo)航系統(tǒng)和各種服務(wù)指南，實(shí)現(xiàn)了一整套以客戶為中心的服務(wù)活動(dòng)。</p><p>　　5、救援、保險(xiǎn)等基本保障體系完備——提供租賃車輛的救援活動(dòng)及租賃公司的救援電話號(hào)碼已成為對(duì)國際汽車租賃公司的最基本要求，租賃公司與專業(yè)的救援機(jī)構(gòu)共同組成了基本的救援保障體系；而且在汽車租賃保險(xiǎn)方面，除了一般

16、車輛的各險(xiǎn)種外，還開展了針對(duì)租賃車輛的險(xiǎn)種，而且租賃公司內(nèi)都有專門的索賠管理機(jī)構(gòu)。</p><p>　　6、與其他交通工具和旅店、餐飲、旅游、商務(wù)等行業(yè)相互協(xié)作形成多方位服務(wù)體系——作為服務(wù)行業(yè)一員的汽車租賃業(yè)充分利用行業(yè)間緊密的協(xié)作關(guān)系（甚至形成了資本紐帶關(guān)系，以歐洲汽車為例，1999年以前，法國飯店及票據(jù)業(yè)巨頭雅高集團(tuán)曾控股50%），為客戶提供了多方位的優(yōu)質(zhì)服務(wù)產(chǎn)品，實(shí)現(xiàn)了建立在“以人為本”基礎(chǔ)上的效益最大。

17、</p><p>　　1.3汽車租賃的發(fā)展趨勢</p><p>　　??汽車租賃公司的規(guī)模化經(jīng)營趨勢日益加劇——通過多次并購和特許經(jīng)營等模式的創(chuàng)新，世界主要汽車租賃公司已從最初的小規(guī)模經(jīng)營發(fā)展成為現(xiàn)在遍布全球主要國家，平均租賃站點(diǎn)數(shù)千個(gè)，運(yùn)營車輛數(shù)十萬輛，雇員數(shù)萬人的特大型跨國公司。而日趨突出的規(guī)?；?jīng)營帶來的效益規(guī)?；侨虬l(fā)展的潮流?？缧袠I(yè)的合作更為廣泛——汽車租賃業(yè)與金融、保險(xiǎn)、航空

18、運(yùn)輸、旅游、酒店服務(wù)、汽車制造等多行業(yè)的合作更為緊密，通過對(duì)客戶需求的全方位服務(wù)，實(shí)現(xiàn)汽車租賃持續(xù)的發(fā)展動(dòng)力。</p><p>　　對(duì)潛在市場的爭奪越來越激烈——隨著信息網(wǎng)絡(luò)和電子商務(wù)等新技術(shù)日益普及——汽車租賃公司通過引入電子商務(wù)和互聯(lián)網(wǎng)絡(luò)的廣泛普及應(yīng)用，將更加快捷、高效地進(jìn)行業(yè)務(wù)拓展，有效降低管理成本，實(shí)現(xiàn)經(jīng)營業(yè)務(wù)的持續(xù)穩(wěn)定增長，最終從而使其自身的經(jīng)營管理水平和競爭能力不斷提高。</p><

19、;p>　　1.4我國汽車租賃的現(xiàn)狀</p><p>　　中國汽車租賃以80年中國國際信托投資公司用跨國租賃方式為北京市租賃一批汽車作為開始，已經(jīng)經(jīng)歷了將近二十年的發(fā)展。</p><p>　　最早的中國汽車租賃公司，誕生在1989年籌辦亞運(yùn)會(huì)之際，主要是為了服務(wù)亞運(yùn)會(huì)而設(shè)立的。</p><p>　　1995年，北京出現(xiàn)了第一家針對(duì)個(gè)人計(jì)時(shí)租賃的汽車租賃公司。之后

20、，幾乎各省會(huì)城市都出現(xiàn)了汽車租賃公司。到目前為止，僅北京、上海、廣州、西安四地汽車租賃公司已達(dá)2000多家，可供租賃車輛有20萬之多，全國汽車租賃市場的營業(yè)額約為22—30億元 。汽車租賃也從僅僅為外事活動(dòng)和旅游提供服務(wù)發(fā)展到為尋常百姓服務(wù)。投資汽車租賃的企業(yè)越來越多，全國大中城市基本都有汽車租賃公司存在，用于租賃的車輛總數(shù)不斷擴(kuò)大。 </p><p>　　汽車租賃業(yè)已成為一個(gè)特殊的行業(yè)，呈現(xiàn)出典型的假日經(jīng)濟(jì)現(xiàn)象

21、。在十一黃金周期間，北京、上海、廣州等城市的汽車租賃公司車輛出租率都達(dá)到了100%。</p><p>　　從1990年開始，汽車租賃業(yè)在中國慢慢發(fā)展起來，到2000年進(jìn)入了較快速的發(fā)展階段。在上海、北京、深圳等大中城市，汽車租賃業(yè)務(wù)發(fā)展迅猛，租車用于商務(wù)、旅游、婚禮、自駕游也已成為一種時(shí)尚。據(jù)安飛士汽車租賃公司的一份不完全統(tǒng)計(jì)，截止06年8月，國內(nèi)汽車租賃市場的供租賃車接近10萬輛，營業(yè)額近100億。截止目前中國

22、有超過2600萬的本本族，有證無車族占總數(shù)的近三分之一。有專家預(yù)測，到2015年，汽車租賃市場經(jīng)營規(guī)模將達(dá)到180億。很多城市都出現(xiàn)了駕駛執(zhí)照持有者大大超過了購車者的現(xiàn)象，個(gè)別地方甚至出現(xiàn)了110：3的懸殊比例。</p><p>　　第二章 研究現(xiàn)狀與設(shè)計(jì)目標(biāo)分析</p><p><b>　　2.1 設(shè)計(jì)背景</b></p><p>　　2.

23、1.1租賃與出租的業(yè)種區(qū)別</p><p>　　首先，我們要搞清楚汽車租賃與出租汽車在定義上的區(qū)別。汽車租賃有兩種業(yè)種：一是出租汽車，二是汽車租賃。前者是一種奢侈的公共交通工具，盡管使用“出租”這個(gè)名詞，并冠有“租賃公司”這個(gè)名稱，實(shí)際上已經(jīng)不能完全算是租賃的范疇。后者才是真正的意義的租賃，因?yàn)樗慕?jīng)營方式主要是出租車輛，一般不包括駕駛?cè)藛T（商用車輛除外）。</p><p>　　為了區(qū)分汽

24、車租賃的業(yè)種，我們用英文標(biāo)注似乎更清晰地表達(dá)他們的區(qū)別。出租汽車（taxi）主要是民用和商務(wù)，屬于交通運(yùn)輸產(chǎn)業(yè)。汽車租賃（rental）有民用和商務(wù)之分。個(gè)人可以租用，也有生產(chǎn)用車輛，主要用在工程建設(shè)、搶險(xiǎn)救災(zāi)、巡回檢測、巡回醫(yī)療、運(yùn)鈔等生產(chǎn)、經(jīng)營、公共事業(yè)方面。汽車融資租賃（lease）主要用在生產(chǎn)用車領(lǐng)域，現(xiàn)在也開始進(jìn)入民用和商務(wù)服務(wù)領(lǐng)域。前者解決臨時(shí)使用的問題，后者解決長期使用并最終擁有的問題；前者使用的車型可以隨意挑選和更換，后

25、者使用的車輛一旦確定下來不容易更換；前者使用車輛的人永遠(yuǎn)得不到產(chǎn)權(quán)，后者租期結(jié)束后使用者可以獲得車輛的產(chǎn)權(quán)；前者從某種角度看是在抑制銷售，后者是促進(jìn)銷售。本文所涉及的內(nèi)容主要是民用和商務(wù)用車的租賃。</p><p>　　2.1.2汽車租賃業(yè)的發(fā)展現(xiàn)狀</p><p>　　1、租車產(chǎn)業(yè)：市場成長空間大</p><p>　　據(jù)了解，北京首汽租賃公司經(jīng)營成績突出，經(jīng)營效果

26、理想，多個(gè)車種，常租率達(dá)70%以上。北方平安汽車租賃公司每逢假日，公司的汽車出租率就經(jīng)常達(dá)到100%，要是趕上節(jié)假日，則更是火得需要客戶提前半個(gè)月預(yù)定。全國汽車租賃業(yè)的“老大”——今日新概念汽車俱樂部，生意更火熱。新概念擁有租賃車輛2000余輛，平日出租率80%左右，周末達(dá)到100%。雖然，在節(jié)假日期間，將最短租賃時(shí)間從原來的24小時(shí)調(diào)整為7天，將非會(huì)員價(jià)調(diào)高了100多元，但車輛還是出現(xiàn)了嚴(yán)重的供不應(yīng)求現(xiàn)象。此外，隨著公務(wù)用車制度的改革

27、所帶來的政府機(jī)關(guān)租車、商務(wù)用車、現(xiàn)階段財(cái)政控購與企業(yè)單位用車之間的矛盾以及社會(huì)車輛總量控制和路面通行能力等方面原因也將支撐起我國汽車租賃業(yè)的美好的明天。</p><p>　　據(jù)美國克里夫蘭市場咨詢公司的統(tǒng)計(jì)表明：世界各國開辦的租賃業(yè)公司和其營業(yè)收入，與其他服務(wù)行業(yè)相比，增幅遙遙領(lǐng)先。面對(duì)繁榮的市場，租賃商們表示：假日經(jīng)濟(jì)給他們帶來的最大收益是消費(fèi)者對(duì)汽車租賃的需求和認(rèn)可，這一深遠(yuǎn)意義遠(yuǎn)遠(yuǎn)大于他們短期獲得的經(jīng)濟(jì)效益

28、。</p><p>　　2、租車群體：個(gè)人、商務(wù)、團(tuán)體用車占三成</p><p>　　汽車租賃業(yè)如此紅火，是哪些人在租車用呢？據(jù)了解，目前，最主要的消費(fèi)者是三資企業(yè)職員。另外，外企公司和外派辦事機(jī)構(gòu)，個(gè)體或私企單位以及金融機(jī)構(gòu)員工租車者也不在少數(shù)。租賃汽車的主要用途依次為，國家企事業(yè)單位和三資企業(yè)公務(wù)用車；節(jié)假日郊游私人用車；接站及陪同用車，買車前的試駕和做教練車使用等。</p>

29、;<p>　　2.2 設(shè)計(jì)系統(tǒng)分析</p><p>　　系統(tǒng)分析是根據(jù)系統(tǒng)規(guī)劃階段建立的業(yè)務(wù)模型，并在現(xiàn)有資料的基礎(chǔ)上深入地調(diào)查研究，進(jìn)行功能分析，最終確定新系統(tǒng)的邏輯功能結(jié)構(gòu)。系統(tǒng)分析可以采用業(yè)務(wù)流程圖和數(shù)據(jù)流程圖的方式來表達(dá)系統(tǒng)分析的結(jié)果。</p><p>　　本系統(tǒng)的主要設(shè)計(jì)實(shí)現(xiàn)目標(biāo)如下：</p><p><b>　　1、基本信息管理&

30、lt;/b></p><p>　　(1) 添加、修改、刪除和查看汽車管理類型信息</p><p>　　添加、修改、刪除和查看會(huì)員類型信息</p><p>　　(2) 添加、刪除、修改、刪除保險(xiǎn)公司信息</p><p><b>　　查看保險(xiǎn)的汽車信息</b></p><p>　　(3) 添加、

31、刪除車輛基本特征信息</p><p>　　添加車輛保險(xiǎn)信息和車輛描述</p><p><b>　　(4) 退出系統(tǒng)</b></p><p><b>　　2、客戶會(huì)員管理</b></p><p>　　(1) 添加、修改、刪除、查找客戶基本信息</p><p><b>

32、　　添加會(huì)員信息</b></p><p>　　(2) 查找、修改、注銷會(huì)員信息</p><p>　　(3) 瀏覽、添加、修改、刪除會(huì)員類型信息</p><p><b>　　3、日常業(yè)務(wù)管理</b></p><p>　　(1) 瀏覽、添加、刪除、修改出租與出租審核信息</p><p>　

33、　(2) 瀏覽、添加、刪除、修改續(xù)租與續(xù)租審核信息</p><p>　　(3) 瀏覽、添加、刪除、修改歸還與歸還審核信息</p><p><b>　　4、系統(tǒng)用戶管理</b></p><p>　　添加、刪除系統(tǒng)用戶帳號(hào)</p><p>　　第三章 汽車租賃系統(tǒng)的設(shè)計(jì)</p><p>　　3.1

34、數(shù)據(jù)庫的建立</p><p>　　設(shè)計(jì)數(shù)據(jù)庫的關(guān)鍵是設(shè)計(jì)表，首先確定需要什么樣的表。設(shè)計(jì)時(shí)首先要為每列指派數(shù)據(jù)類型，數(shù)據(jù)庫類型定義了各列所允許的數(shù)據(jù)值。</p><p>　　文本:用于存儲(chǔ)文本或字符與數(shù)字的結(jié)合，最多可存儲(chǔ)255個(gè)字符?！白侄未笮　睂傩钥刂瓶梢暂斎氲淖疃嗟淖址麛?shù)。</p><p>　　備注:用于存儲(chǔ)長文本,例如注釋或說明。最多可存儲(chǔ)65536個(gè)字符。

35、</p><p>　　數(shù)字:用于存儲(chǔ)將要進(jìn)行算術(shù)運(yùn)算的數(shù)據(jù)，存儲(chǔ)空間為1、2、4或8個(gè)字節(jié)。</p><p>　　日期/時(shí)間:用語存儲(chǔ)日期和時(shí)間，存儲(chǔ)空間為8個(gè)字節(jié)。</p><p>　　是/否:用于存儲(chǔ)只可能是兩個(gè)值中的一個(gè)的數(shù)據(jù)。不允許Null值，存儲(chǔ)空間1位。</p><p><b>　　3.2創(chuàng)建工程</b>&l

36、t;/p><p>　　首先要?jiǎng)?chuàng)建工程存儲(chǔ)的目錄,例如 “汽車租賃管理系統(tǒng)\Code”。運(yùn)行Visual Basic 6。0主程序，并選擇新建 “標(biāo)準(zhǔn)EXE”工程。新建工程后,在Visual Basic窗口中有一個(gè)缺省的窗體Form 1。</p><p>　　選擇 “工程”菜單中的 “工程1屬性”命令,在 “工程屬性”對(duì)話框中,將工程名設(shè)置為汽車租賃管理系統(tǒng)。單擊 “保存”按鈕,將工程存儲(chǔ)為汽車

37、租賃管理系統(tǒng)。bop,將窗體保存為FrmMain。frx</p><p>　　Visual Basic資源通常有窗體、模塊、和類模塊等構(gòu)成。在 “工程資源管理器”中可以對(duì)窗體、模塊和類模塊進(jìn)行管理。</p><p>　　窗體是Visual Basic程序中必不可少的資源。它可以實(shí)現(xiàn)程序的外觀顯示,添加程序代碼,實(shí)現(xiàn)需要的功能。窗體文件通常直接存放在應(yīng)用程序的目錄下。</p>

38、<p>　　模塊可以用來管理全局常量、變量和用戶字定義函數(shù)等。本系統(tǒng)定在應(yīng)用程序目錄下創(chuàng)建Modules目錄,用來存放模塊文件。</p><p>　　<1> Cost用來管理工程中的全局常量；</p><p>　　<2> DbFunc 用來管理與數(shù)據(jù)庫操作相關(guān)的函數(shù)； </p><p>　　<3> GeneralFunc

39、 用來管理通過的用戶字定義；</p><p>　　<4>ImageFunc 用來管理與圖象文件存儲(chǔ)有關(guān)的訪問數(shù)據(jù)庫函數(shù)；</p><p>　　<5>Variable用來管理工程中的全局變量,包括全局?jǐn)?shù)組和全局對(duì)象。</p><p><b>　　3.3風(fēng)險(xiǎn)控制問題</b></p><p>　　這是長

40、期以來一直困擾租賃業(yè)的大問題。這個(gè)問題一方面有社會(huì)的因素，更多的是企業(yè)對(duì)車輛的風(fēng)險(xiǎn)控制意識(shí)不強(qiáng)，過分依賴承租人的信用，而放松自己控制能力造成的。通常人們習(xí)慣于租賃公司自身的風(fēng)險(xiǎn)控制能力，忘卻了融資租賃是邊緣產(chǎn)業(yè)。僅靠租賃公司的風(fēng)險(xiǎn)控制是不夠的，還要借助法律手段和社會(huì)資源。</p><p>　　為提高客戶對(duì)汽車公司承若的信賴程度和降低汽車租賃公司的巨額風(fēng)險(xiǎn)，特于客戶簽定汽車租賃合同。</p><

41、p>　　3.4 Visual Basic 5.0與Access 2003數(shù)據(jù)庫的連接</p><p><b>　　1、使用控件 </b></p><p><b>　?、?Data控件 </b></p><p>　　Data控件是Visual Basic 5.0中的一個(gè)內(nèi)置數(shù)據(jù)控件，可以通過設(shè)置Data控件的conne

42、ct、DatabaseName、RecordSource屬性實(shí)現(xiàn)對(duì)數(shù)據(jù)庫的連接和訪問。 通過Data控件連接加密的數(shù)據(jù)庫的方法有兩種：一種方法是在設(shè)計(jì)狀態(tài)時(shí)，在“屬性窗口”中將Data控件的connect屬性的缺省值”Access”改為”; pwd=1234”即可，其它屬性的設(shè)置方法與沒有加密的Access數(shù)據(jù)庫的連接相同。 另一種方法是在運(yùn)行時(shí)，通過代碼對(duì)connect屬性賦值來實(shí)現(xiàn)。如： </p><p>　

43、　Data1.connect=”; pwd=1234” </p><p>　　Data1.DatabaseName=APP.path + “\ssgl.mdb” </p><p>　　其中，”1234”為Access數(shù)據(jù)庫文件ssgl.mdb的密碼，下同。 </p><p><b>　?、贏dodc控件 </b></p><

44、p>　　Adodc控件是一個(gè)ActiveX控件，它使用Microsoft ActiveX Data Objects(ADO)創(chuàng)建到數(shù)據(jù)庫的連接。使用Adodc控件之前，要先將Adodc控件添加到控件工具箱中。方法如下：在VB 5.0種選擇“工程”菜單，再點(diǎn)擊“部件”菜單項(xiàng)，在彈出的“部件”對(duì)話框中選中“Microsoft ADO Data Control 5.0(OLEDB)”選項(xiàng)即可。 </p><p>

45、　　通過Adodc控件連接加密的數(shù)據(jù)庫的方法也有兩種：一種方法是在設(shè)計(jì)狀態(tài)時(shí)，在“屬性窗口”中，對(duì)Adodc控件的ConnectionString屬性設(shè)置一個(gè)有效的連接字符串，并在連接字符串后增加上”; Jet OLEDB: DataBase password=1234”，再設(shè)置Adodc控件的CommandType、RecordSource的屬性就可以創(chuàng)建到加密的數(shù)據(jù)庫的連接了。另一種方法是在運(yùn)行時(shí)，通過代碼動(dòng)態(tài)地設(shè)置Connecti

46、onString、CommandType和RecordSource屬性來創(chuàng)建連接。 只要在ConnectionString屬性的有效連接字符串后增加上”; Jet OLEDB: DataBase password=1234”即可。 </p><p><b>　　2、使用數(shù)據(jù)對(duì)象 </b></p><p>　?、?DAO數(shù)據(jù)對(duì)象 </p><p>

47、;　　要能正確引用DAO數(shù)據(jù)對(duì)象來建立與數(shù)據(jù)庫的連接，應(yīng)先在VB集成開發(fā)環(huán)境中選擇“工程”菜單，再點(diǎn)擊“引用”菜單項(xiàng)，在彈出的“引用”對(duì)話框選擇“Microsoft DAO 2.51 Object Library”選項(xiàng)來添加DAO數(shù)據(jù)對(duì)象類型庫。 接下來就可用如下代碼來建立到加密的Access數(shù)據(jù)庫ssgl.mdb的連接。 </p><p>　　Dim db AS DataBase </p><

48、;p>　　Set db=OpenDataBase(App.path + “\ssgl.mdb” , False , False , ” ; pwd=1234”) </p><p>　　② ADO數(shù)據(jù)對(duì)象 </p><p>　　ADO是Microsoft推出的處理關(guān)系數(shù)據(jù)庫和非關(guān)系數(shù)據(jù)庫中信息的最新技術(shù)，也是Microsoft推崇的用于數(shù)據(jù)連接和訪問的技術(shù)。在VB 5.0中，Adodc

49、控件、ADO數(shù)據(jù)對(duì)象及DataEnvironment（數(shù)據(jù)環(huán)境設(shè)計(jì)器）都采用的是ADO技術(shù)，因而它們處理加密的Access數(shù)據(jù)庫的方法類似。 </p><p>　　要能正確引用ADO數(shù)據(jù)對(duì)象，應(yīng)在VB 5.0集成開發(fā)環(huán)境中選擇“工程”菜單，再點(diǎn)擊“引用”菜單項(xiàng)，在彈出的“引用”對(duì)話框中選中“Microsoft ActiveX Data Objects 1.1 Library”選項(xiàng)來添加ADO數(shù)據(jù)對(duì)象類型庫?？捎萌?/p>

50、下代碼來建立到加密的Access數(shù)據(jù)庫ssgl.mdb的連接。 </p><p>　　Dim cnn AS ADODB.Connection </p><p>　　Dim rst AS ADODB.Recordset </p><p>　　Set cnn=New ADODB.Connection </p><p>　　Cnn.Provider

51、= “Microsoft.Jet.OLEDB.2.51” </p><p>　　“Cnn.ConnectionString=Data Source=” & App.path & “\ssgl.mdb;” & _ ;”</p><p>　　“Jet OLEDB:Database password=1234” </p><p><b>

52、;　　cnn.Open </b></p><p><b>　　3.5系統(tǒng)流程圖</b></p><p>　　本系統(tǒng)流程如下圖3.1</p><p><b>　　否</b></p><p><b>　　是</b></p><p><b&g

53、t;　　管理員</b></p><p>　　圖3.1系統(tǒng)流程圖 </p><p>　　第四章 系統(tǒng)結(jié)構(gòu)與模型</p><p>　　4.1 功能模塊劃分 </p><p>　　本系統(tǒng)分為4個(gè)功能模塊,基本信息管理、客戶信息管理、日常業(yè)務(wù)管理、系統(tǒng)用戶管理,其功能模塊如下圖4.1。</p><p>

54、　　圖4.1 汽車租賃管理系統(tǒng)功能模塊示意圖</p><p>　　基本信息管理模塊基本功能如下圖4.2。</p><p><b>　　提供車輛數(shù)據(jù)</b></p><p>　　圖4.2基本信息管理模塊功能圖</p><p>　　客戶信息管理模塊基本功能如下圖4.3。</p><p>　　客戶會(huì)員管

55、理模塊基本功能如下圖4.4。</p><p>　　圖4.4 客戶會(huì)員管理模塊功能圖</p><p>　　日常業(yè)務(wù)管理模塊是整個(gè)系統(tǒng)的核心,其它模塊為其提供基礎(chǔ)數(shù)據(jù),其基本功能如下圖4.5。</p><p>　　圖4.5 日常業(yè)務(wù)管理模塊功能圖</p><p>　　在本系統(tǒng)初始化時(shí),用戶管理模塊有有一個(gè)默認(rèn)的"系統(tǒng)管理員"用

56、Admin,管理員用戶可以創(chuàng)建用戶、修改用戶信息,以及刪除用戶；普通的用戶只能修改自己的用戶名和密碼。</p><p>　　用戶管理功能模塊的關(guān)系如下圖4.6。</p><p>　　圖4.6用戶管理功能集合模塊關(guān)系圖</p><p>　　根據(jù)本系統(tǒng)結(jié)構(gòu)規(guī)劃出的實(shí)體有7個(gè)，分別是:“車輛信息表”、“保險(xiǎn)公司信息表”、“客戶信息表”、“租賃信息表”、“會(huì)員類型表”、“保

57、險(xiǎn)類型表”、“用戶信息表”。</p><p>　　4.2實(shí)體E-R圖如下。</p><p>　　圖4.7車輛信息表實(shí)體屬性圖</p><p>　　圖4.8公司信息實(shí)體屬性圖</p><p>　　圖4.9客戶信息表實(shí)體屬性圖</p><p>　　圖4.10汽車租賃信息表實(shí)體屬性圖</p><p>

58、　　圖4.10會(huì)員類型表實(shí)體圖</p><p>　　圖4.11保險(xiǎn)類型表實(shí)體屬性圖</p><p>　　圖4.12用戶信息表實(shí)體屬性圖</p><p><b>　　1：M</b></p><p>　　擁有 租賃 1：M</p><p><b>　　擁有</b>

59、;</p><p><b>　　1：M</b></p><p><b>　　買保險(xiǎn) M:N</b></p><p>　　圖4.13汽車租賃系統(tǒng)E-R圖</p><p><b>　　4.3創(chuàng)建數(shù)據(jù)庫</b></p><p>　　在設(shè)計(jì)數(shù)據(jù)庫表結(jié)構(gòu)之前,首

60、先要?jiǎng)?chuàng)建一個(gè)數(shù)據(jù)庫。首先打開Access，新建一個(gè)空數(shù)據(jù)庫，本系統(tǒng)使用的數(shù)據(jù)庫為"lease.mdb"。</p><p><b>　　4.4設(shè)計(jì)表結(jié)構(gòu)</b></p><p>　　數(shù)據(jù)庫包含以下7張表:類型表Types、會(huì)員類型表MemberType、公司信息表Company、客戶信息表Customer、汽車信息表Cars、汽車租賃lease和用戶

61、信息表Users。</p><p>　　下面是類型表的結(jié)構(gòu):</p><p>　　1、類型表Types</p><p>　　類型表Types用來保存汽車分類和保險(xiǎn)類型的信息。本系統(tǒng)是采用樹狀結(jié)構(gòu)來管理類型數(shù)據(jù),也就是在類型之間建立從屬關(guān)系。表Types的結(jié)構(gòu)如下表4.14。</p><p>　　表4.14 Types的結(jié)構(gòu)</p>

62、<p>　　2、會(huì)員類型表MemberType6</p><p>　　會(huì)員類型表MemberType用來保存會(huì)員類型信息。表MemberType的結(jié)構(gòu)如下表4.15。 </p><p>　　表4.15MemberType的結(jié)構(gòu) </p><p>　　3、公司信息表Company</p><p>　　公司信

63、息表Company用來保存銷售商和保險(xiǎn)公司的基本信息。表Company的結(jié)構(gòu)如下表4.16。</p><p>　　表4.16 Company的結(jié)構(gòu)</p><p>　　4、客戶信息表Customer</p><p>　　客戶信息表Customer用來保存保險(xiǎn)公司的基本信息。表Customer的結(jié)構(gòu)如下表4.17。</p><p>　　表4.1

64、7 Customer的結(jié)構(gòu)</p><p>　　5、汽車信息表Cars</p><p>　　汽車信息表Cars用來保存汽車基本信息。表Cars的結(jié)構(gòu)如下表4.5。</p><p>　　表4.18 Cars的結(jié)構(gòu)</p><p>　　6、汽車租賃表Lease</p><p>　　汽車租賃表Lease用來保存汽車租賃的日常

65、業(yè)務(wù)信息。表Lease的結(jié)構(gòu)如下表4.19。</p><p>　　表4.19 Lease的結(jié)構(gòu)</p><p>　　7、用戶信息表Users</p><p>　　用戶信息表Users用來保存系統(tǒng)用戶信息。表Users的結(jié)構(gòu)如下表4.20。</p><p>　　表4.20 Users的結(jié)構(gòu) </p><p>　　第五章

66、 系統(tǒng)實(shí)現(xiàn)技術(shù)</p><p><b>　　5.1創(chuàng)建工程</b></p><p>　　運(yùn)行Visual Basic5.0主程序，并選擇新建“標(biāo)準(zhǔn)EXE”工程。新建工程后，在Visual Basic5.0窗口中有一個(gè)缺省的窗體Form1。</p><p>　　選擇“工程”菜單中的“工程1屬性”命令，在“工程屬性“對(duì)話框中，將工程名設(shè)置為汽車租賃

67、管理系統(tǒng)。單擊“保存”按鈕，將工程儲(chǔ)存為汽車租賃管理系統(tǒng).Vbp將Forml窗體保存為FrmMain.frx。</p><p><b>　　5.1.1添加模塊</b></p><p>　　根據(jù)Visual Basic功能模塊的劃分原則分別創(chuàng)建以下幾個(gè)模塊:</p><p>　　1.const 用來管理工程中的常量；</p><

68、;p>　　1.DbFunc 用來管理工程中的與數(shù)據(jù)庫操作相關(guān)的聲明變量和函數(shù)；</p><p>　　2.GeneralFunc 用來管理工程中一些通用的自定義函數(shù)；</p><p>　　3.Variable 用來管理工程中的全局變量， Variable 模塊的代碼；</p><p>　　5.1.2添加類模塊</p><p><b&

69、gt;　　1、Types類</b></p><p>　　Types 類用來管理Types的數(shù)據(jù)庫操作它保存為Types.cls。Types類的成員函數(shù)如表5.1所示。</p><p>　　表5.1 Types類的成員函數(shù)</p><p>　　根據(jù)參數(shù)TmpTypelds中的類型編號(hào)返回對(duì)應(yīng)的類型名稱的字符串此函數(shù)，將根據(jù)選定的多個(gè)保險(xiǎn)類型的編號(hào)取得對(duì)應(yīng)的

70、所有的類型名稱。</p><p>　　1.MemberTypeld類</p><p>　　MemberTypeld類用來管理表MemberTypeld的數(shù)據(jù)庫，操作它保存為MemberTypeld.cls。如表5.2所示。</p><p>　　表5.2 MemberTypeld類的成員函數(shù)</p><p>　　2.Company類</

71、p><p>　　Company類用來管理Company的數(shù)據(jù)庫操作它保存為Company.cls。如表5.3所示。</p><p>　　表5.3 Company類的成員函數(shù)</p><p>　　4、Customer類</p><p>　　Customer類用來管理表Customer數(shù)據(jù)庫操作它保存為Customer.cls。如表5.4所示。<

72、;/p><p>　　表5.4 Customer類的成員函數(shù)</p><p><b>　　5、Cars類</b></p><p>　　Cars類用來管理表Cars的數(shù)據(jù)庫操作它保存為Cars.cls。如表5.5所示。</p><p>　　表5.5 Cars類的成員函數(shù)</p><p>　　6、Lease

73、Car類</p><p>　　LeaseCar類用來管理LeaseCar的數(shù)據(jù)庫操作.他保存為LeaseCar.cls。如表5.6所示。</p><p>　　表5.6 LeaseCar類的成員函數(shù)</p><p><b>　　7、Users類</b></p><p>　　Users類用來管理表Users的數(shù)據(jù)庫操作它保存

74、為Users.cls。如表5.7所示。 </p><p>　　表5.7 Users類的成員函數(shù)</p><p><b>　　8、登錄用戶表</b></p><p>　　用戶登陸時(shí)進(jìn)行管理。如表5.8所示。</p><p>　　表5.8 登陸用戶表</p><p>　　9、登陸窗體包含的控件及其屬性

75、</p><p><b>　　如表5.9所示。</b></p><p>　　表5.9登陸窗體包含的控件及其屬性</p><p><b>　　10、菜單項(xiàng)屬性</b></p><p><b>　　如表5.10所示。</b></p><p>　　表5.10菜

76、單項(xiàng)屬性</p><p><b>　　5.2設(shè)計(jì)登陸窗體</b></p><p>　　登陸窗體的名稱為FrmLogin界面布局如下圖5.1所示。</p><p>　　圖5.1 登陸窗體的截面布局</p><p>　　5.2.1設(shè)計(jì)主界面</p><p>　　主窗體是工程的啟動(dòng)對(duì)象創(chuàng)建主窗體名為Fr

77、mMain打開主窗體的設(shè)計(jì)窗口選擇 “工具”菜單項(xiàng)中的 “菜單編輯器”對(duì)菜單內(nèi)容進(jìn)行編輯。菜單設(shè)計(jì)器如下圖5.2所示。</p><p>　　圖5.2菜單編輯器 </p><p>　　5.3設(shè)計(jì)類型編輯窗體圖 </p><p>　　編輯類型信息的窗體可以用來添加和修改類型信息。創(chuàng)建一個(gè)新的窗體FrmTypeEdit，其中包含的控件及其屬性如下表5.11，圖5.3所示。

78、</p><p>　　表5.13窗體FrmTypeEdit中包含的控件及其屬性</p><p>　　圖5.3 窗體FrmTypeEdit的布局</p><p>　　5.3.1設(shè)計(jì)類型管理窗體</p><p>　　創(chuàng)建一個(gè)新的窗體名稱為FrmTpye，如下圖5.4所示。</p><p>　　圖5.4 類型管理窗體<

79、/p><p>　　此過程中將根據(jù)類型的不同決定顯示的類型名稱，首先顯示汽車分類名稱。</p><p>　　5.3.2設(shè)計(jì)選擇類型窗體</p><p>　　為了方便用戶在其他模塊中選擇保險(xiǎn)種類需要設(shè)計(jì)一個(gè)選擇保險(xiǎn)種類的窗</p><p>　　體窗體名為FrmTypesel，如下圖5.5所示。</p><p>　　圖5.5

80、選擇保險(xiǎn)種類的窗體</p><p>　　“選擇保險(xiǎn)種類”窗體中使用ListView控件來顯示類型的名稱并且類型名稱為</p><p>　　多選項(xiàng)，包含的控件及屬性如下表5.14所示。</p><p>　　表5.14 窗體FrmTypeSel包含的控件及其屬性</p><p>　　1、Form_Load過程</p><p&g

81、t;　　當(dāng)窗體載入時(shí)將提取的 保險(xiǎn)種類數(shù)據(jù)放到ListView1控件中。</p><p>　　數(shù)組Arr_Id和Arr_Type是在Variable模塊中定義的兩個(gè)公共變量 Arr_Id中保存了類型編號(hào) Arr_Type保存了類型名稱數(shù)據(jù)。</p><p>　　2、Cmd_Selectd_Click過程</p><p>　　當(dāng)用戶單擊 “選擇”按鈕時(shí)觸發(fā)Cmd_Se

82、lected_Click事件。</p><p>　　變量sInsuItems和sInsuKeys同樣是在Variable模塊中定義的兩個(gè)公共變量分別用來保存所有選中的類型編號(hào)和類型名稱并且用逗號(hào)分隔。</p><p>　　5.4設(shè)計(jì)公司信息編輯窗體</p><p>　　圖5.6 公司信息錄入</p><p>　　5.4.1設(shè)計(jì)查看保險(xiǎn)公司汽

83、車信息窗體</p><p>　　圖5.7保險(xiǎn)公司信息</p><p>　　5.5設(shè)計(jì)車輛編輯窗口</p><p>　　車輛管理模塊FrmCarEdit窗體的布局如圖5.8所示。</p><p>　　圖5.8車輛管理模塊</p><p>　　1、DataSteUp過程</p><p>　　Data

84、SteUp過程過程的功能是載入窗體所需要的數(shù)據(jù)信息數(shù)據(jù)包括汽車類型、保險(xiǎn)公司信息。</p><p>　　2、Cmd_Select_Click過程</p><p>　　當(dāng)用戶單擊 “選擇”按鈕時(shí)觸發(fā)Cmd_Select_Click事件。</p><p>　　5.5.1設(shè)計(jì)車輛管理模塊窗體</p><p>　　車輛管理窗體為FrmCar窗體的布局

85、如圖5.9所示。</p><p><b>　　圖5.9 車輛管理</b></p><p>　　1、Cmd_Add_Click過程</p><p>　　當(dāng)用戶單擊 “添加”按鈕時(shí)觸發(fā)Cmd_Add_Click事件。</p><p>　　5.5.2在主界面中增加代碼</p><p>　　當(dāng)選擇 “車輛

86、管理”菜單項(xiàng)時(shí)觸發(fā)m_Cars_Click代碼。</p><p>　　5.6客戶會(huì)員管理模塊設(shè)計(jì)</p><p>　　客戶會(huì)員管理包含3個(gè)部分:</p><p>　　1、客戶管理:可以添加、刪除、和查看客戶記錄并且假如會(huì)員。</p><p>　　2、會(huì)員管理:可以修改、注銷、和查看會(huì)員記錄。</p><p>　　3、會(huì)

87、員類型管理:可以添加、修改、和查看會(huì)員類型記錄。</p><p>　　5.6.1設(shè)計(jì)客戶會(huì)員信息編輯窗體</p><p>　　客戶會(huì)員信息編輯窗體的名稱為FrmCustomerEdit布局圖如圖5.10所示。</p><p>　　圖5.10 客戶信息</p><p>　　在編輯客戶信息的窗體中會(huì)員信息是隱藏的只有當(dāng)客戶假如會(huì)員時(shí)才顯示。<

88、;/p><p><b>　　1、公共變量</b></p><p>　　IsMember變量它用來判斷客戶是否為會(huì)員。</p><p>　　2、DataSetUp過程</p><p>　　當(dāng)窗體啟動(dòng)時(shí)觸發(fā)Form_Load過程它將調(diào)用DataSetUp過程載入會(huì)員信息。</p><p>　　3、doc_

89、MemType_Click過程</p><p>　　當(dāng)用戶單擊 “會(huì)員類型”下拉框觸發(fā)doc_MemType_Click事件代。</p><p>　　5.6.2設(shè)計(jì)客戶信息管理對(duì)話框</p><p>　　客戶信息管理的名稱為FrmCustomer窗體布局如圖5.11所示。</p><p>　　圖5.11 窗體FrmCustomer的布局<

90、;/p><p>　　1、Cmd_JoinMember過程</p><p>　　當(dāng)用戶單擊 “加入會(huì)員”按鈕時(shí)觸發(fā)Cmd_JoinMember事件將客戶信息重新讀取到FrmCustomerEdit窗體中并將公共變量IsMember設(shè)置為true表明當(dāng)前用戶為會(huì)員同時(shí)顯示會(huì)員信息。</p><p>　　2、GridRefresh過程根據(jù)指定的條件刷新DataGrid中記錄代

91、碼如下。</p><p>　　Private Sub GridRefresh()</p><p>　　If Len(Trim(txtName)) = 0 Then '客戶名稱為空</p><p>　　SchCnd = ""</p><p><b>　　Else</b></p>

92、<p>　　SchCnd = " AND Name Like '%" + Trim(txtName) + "%'" '設(shè)置查詢條件</p><p><b>　　End If</b></p><p>　　Adodc1.ConnectionString = Conn '數(shù)據(jù)庫連接字

93、符串</p><p>　　Adodc1.RecordSource = "SELECT Id AS 編號(hào),Name AS 姓名,Sex AS 性別," _</p><p>　　+ "Age AS 年齡,LicenseNo AS 駕駛證編號(hào),DriverAge AS 駕齡," _</p><p>　　+ "GetDate

94、 AS 登記日期 FROM Customer WHERE Flag=0 " _</p><p>　　+ SchCnd + " ORDER BY Id"</p><p>　　Adodc1.Refresh</p><p>　　Set DataGrid1.DataSource = Adodc1 '設(shè)置數(shù)據(jù)源</p>

95、;<p>　　DataGrid1.Columns(0).Width = 800 '設(shè)置列寬度</p><p>　　DataGrid1.Columns(1).Width = 1200</p><p>　　DataGrid1.Columns(2).Width = 800</p><p>　　DataGrid1.Columns(3).Wid

96、th = 800</p><p>　　DataGrid1.Columns(4).Width = 1200</p><p>　　DataGrid1.Columns(5).Width = 800</p><p>　　DataGrid1.Columns(6).Width = 1200</p><p><b>　　End Sub</b

97、></p><p>　　Private Sub Cmd_Del_Click()</p><p>　　If Adodc1.Recordset.EOF = True Then</p><p>　　MsgBox "請(qǐng)選擇記錄"</p><p><b>　　Exit Sub</b></p>

98、<p><b>　　End If</b></p><p>　　If MsgBox("是否確定要?jiǎng)h除 ", vbYesNo, "請(qǐng)確認(rèn)") = vbNo Then</p><p><b>　　Exit Sub</b></p><p><b>　　End If<

99、;/b></p><p>　　MyCustomer.Delete (Trim(Adodc1.Recordset.Fields(0)))</p><p>　　GridRefresh</p><p><b>　　End Sub</b></p><p>　　5.6.3設(shè)計(jì)會(huì)員管理窗體</p><p&g

100、t;　　會(huì)員管理窗體的名稱為FrmMembers窗體布局如圖5.12所示。</p><p>　　圖5.12 窗體FrmMembers的布局</p><p>　　會(huì)員管理中顯示的是表Customer中種類編號(hào)為1的會(huì)員信息用戶可以重新修改客戶信息并可以注銷客戶的會(huì)員資格。</p><p>　　當(dāng)用戶單擊 “注銷”會(huì)員按鈕時(shí)觸發(fā)Cmd_OffMember_Click事件

101、對(duì)應(yīng)的代碼如下:</p><p>　　Private Sub Cmd_OffMember_Click()</p><p>　　If Adodc1.Recordset.EOF = True Then</p><p>　　MsgBox "請(qǐng)選擇記錄"</p><p><b>　　Exit Sub</b>&

102、lt;/p><p><b>　　End If</b></p><p>　　If MsgBox("是否確定要注銷會(huì)員資格 ", vbYesNo, "請(qǐng)確認(rèn)") = vbNo Then</p><p><b>　　Exit Sub</b></p><p><b&

103、gt;　　End If</b></p><p><b>　　'更新記錄</b></p><p>　　MyCustomer.TypeId = 0</p><p>　　MyCustomer.UpdateToMember (Trim(Adodc1.Recordset.Fields(0)))</p><p>

104、　　'刷新DataGrid表格的內(nèi)容</p><p>　　GridRefresh</p><p><b>　　End Sub</b></p><p>　　注冊(cè)會(huì)員的過程就是將此客戶的會(huì)員類型置為0。</p><p>　　5.6.4設(shè)計(jì)會(huì)員類型編輯窗體</p><p>　　會(huì)員類型管理窗體為

105、FrmMemberTypeEdit窗體的布局如圖5.13所示。</p><p>　　圖5.13 窗體FrmMemberTypeEdit的布局</p><p>　　Cmd_OK_Click()過程見附錄。</p><p>　　5.6.5設(shè)計(jì)會(huì)員類型管理窗體</p><p>　　會(huì)員類型管理窗體為FrmMemberType窗體的布局如下圖5.14

106、所示。</p><p>　　圖5.14 會(huì)員類型</p><p>　　1、 Cmd_Del_Click()事件見附錄。</p><p>　　2、顯示小數(shù)時(shí)需要裝換數(shù)據(jù)庫表MemberType中折扣字段的格式GridRefresh過程代碼見附錄。</p><p>　　5.6.6在主界面中增加代碼</p><p>　　當(dāng)選

107、擇 “客戶信息管理”菜單項(xiàng)時(shí)觸發(fā)m_Cars_Click事件。</p><p>　　汽車租賃管理模塊可以添加、修改、刪除、審核和查看汽車租賃信息并可實(shí)現(xiàn)汽車?yán)m(xù)租、審核續(xù)租以及打印汽車租賃合同的功能。</p><p>　　5.7設(shè)計(jì)編輯汽車租賃信息的窗體</p><p>　　編輯汽車租賃信息窗體名稱為FrmLeaseEdit窗體布局如下圖5.15所示，F(xiàn)rmLease

108、Edit中包含的主要控件及其屬性如表5.13所示。</p><p>　　圖5.15 窗體FrmLeaseEdit的布局</p><p>　　表5.13 窗體FrmLeaseEdit中包含的主要控件及其屬性 </p><p>　　下面介紹汽車租賃窗體中的主要變量:</p><p><b>　　1、變量定義</b></

109、p><p>　　變量Modify用來標(biāo)記當(dāng)前的數(shù)據(jù)庫訪問狀態(tài).當(dāng)Modify=True時(shí)表示修改已有的數(shù)據(jù);當(dāng)Modify=False時(shí)表示插入新的數(shù)據(jù)。</p><p>　　變量ContractNo用來標(biāo)記當(dāng)前租賃合同號(hào)的編號(hào)。</p><p>　　變量sCarNo用來標(biāo)記租賃的汽車的車牌號(hào)。</p><p>　　變量sCustld 用來標(biāo)記租

110、賃客戶的編號(hào)。</p><p>　　變量sLTime 用來標(biāo)記租賃的時(shí)間。</p><p>　　變量lCost 用來標(biāo)記沒有折扣前的租賃總費(fèi)用。</p><p>　　變量nCnt用來標(biāo)記工作日數(shù)量或周個(gè)數(shù)或月個(gè)數(shù)。</p><p>　　變量nECnt用來標(biāo)記日租賃模式下的周末個(gè)數(shù)。</p><p><b>　

111、　2、刷新數(shù)據(jù)過程</b></p><p>　　窗體中包含3個(gè)數(shù)據(jù)源分別提供3種不同的數(shù)據(jù)。過程CarRefresh、CarPriceRefresh和CustomerRefresh用來刷新表格中的數(shù)據(jù)。</p><p>　　CarRefresh過程從表Cars和Types中讀取汽車基本信息數(shù)據(jù)。</p><p>　　CarPriceRefresh過程從表

112、Cars中讀取汽車租賃價(jià)格數(shù)據(jù)。</p><p>　　CustomerRefresh過程從表Customer和MemberType中讀取客戶基本信息數(shù)據(jù)。</p><p>　　3、Cmd_SearchCar_Click過程</p><p>　　當(dāng)用戶單擊“查找”按鈕時(shí)觸發(fā)Cmd_SearchCar_Click事件。</p><p>　　要出租

113、的汽車必須是處于待命狀態(tài)的所以程序中要判斷數(shù)據(jù)庫表Cars中是否存在此車牌號(hào)個(gè)狀態(tài)值。如果找到了出租的車輛信息需要在表中顯示當(dāng)前的車輛信息和租賃價(jià)格。</p><p>　　4、Cmd_SchMember_Click過程</p><p>　　當(dāng)用戶單擊 “查找”按鈕時(shí)觸發(fā)Cmd_SchMember_Click事件。</p><p>　　5、cob_Mode_Click

114、過程</p><p>　　當(dāng)用戶更換租賃模式時(shí)觸發(fā)cob_Mode_Click過程重新計(jì)算租賃總費(fèi)用金額和歸還時(shí)間。</p><p>　　6、txtWeekEndCount_Change()過程</p><p>　　當(dāng)用戶更改txtWeekEndCount文本框中的內(nèi)容時(shí)觸發(fā)txtWeekEndCount_Ch</p><p>　　ange過

115、程.此文本框只是在租賃模式為按日才有效所以在程序中需要同時(shí)更改按日租賃時(shí)的租賃費(fèi)用和歸還時(shí)間。</p><p>　　7、Cmd_OK_Click過程</p><p>　　當(dāng)用戶單擊 “確定”按鈕時(shí)觸發(fā)Cmd_OK_Click過程在此過程中要執(zhí)行的操作如下:</p><p>　　1、驗(yàn)證指定的域中輸入的內(nèi)容是否滿足要求。</p><p>　　2

116、、判斷當(dāng)租賃模式為按日租賃時(shí)是否輸入了租賃的工作日或周末個(gè)數(shù)當(dāng)按周或月租賃時(shí)是否輸入了周個(gè)數(shù)或月個(gè)數(shù)。</p><p>　　3、如果要插入新的記錄則需要判斷輸入的合同編號(hào)是否重復(fù)。</p><p>　　4、保存數(shù)據(jù)時(shí)按照租賃模式將租賃價(jià)格(工作日、周和月租金)和租賃天或月數(shù)存入表Lease和Price1和WorkDays字段中而周末租金價(jià)格和個(gè)數(shù)存入Price2和WeekEndCount字

117、段中。</p><p>　　5.7.1設(shè)計(jì)編輯汽車租賃信息窗體</p><p>　　編輯汽車?yán)m(xù)租信息窗體的名稱為FrmLeaseAddEdit窗體布局如下圖5.16所示。</p><p>　　圖5.16窗體FrmLeaseAddEdit的布局</p><p>　　在車輛的續(xù)租過程中續(xù)租的各種價(jià)格繼續(xù)使用租賃的時(shí)的價(jià)格不能更改租賃模式也不允許更

118、改如果要更改租賃模式只能歸還車輛后重新辦理租賃手續(xù).在續(xù)租中只允許更改租賃的日(周、月)數(shù)同時(shí)系統(tǒng)自動(dòng)重新計(jì)算租賃總費(fèi)用和應(yīng)歸還時(shí)間。</p><p>　　5.7.2設(shè)計(jì)汽車租賃管理窗體</p><p>　　汽車租賃管理窗體名稱為FrmLease，窗體布局如下。</p><p>　　圖5.17 汽車租賃管理</p><p>　　第六章 性

119、能測試與分析</p><p><b>　　6.1軟件測試目的</b></p><p>　　軟件測試的目的了發(fā)現(xiàn)軟件中的錯(cuò)誤，而發(fā)現(xiàn)錯(cuò)誤并不是最終的目標(biāo)，通過測試發(fā)現(xiàn)錯(cuò)誤之后還必須診斷并改正錯(cuò)誤，這就是測試的目的。軟件測試的目標(biāo)為：（1）測試是為了發(fā)現(xiàn)程序中的錯(cuò)誤而執(zhí)行程序的過程。（2）好的測試方案是極可能發(fā)現(xiàn)迄今為止尚未發(fā)現(xiàn)的錯(cuò)誤。（3）成功的測試是發(fā)現(xiàn)了至今為止尚未

120、發(fā)現(xiàn)的錯(cuò)誤的測試。測試方法：白盒法 其測試的前提是可以把程序看成裝在一個(gè)透明的白盒子中，也就是完全了解程序的結(jié)構(gòu)盒處理過程。這種方法按照程序內(nèi)部的邏輯測試程序，檢驗(yàn)程序中的每一條通路是否能按預(yù)定的要求正確工作。黑盒法 其測試前提是把程序看成一個(gè)黑盒子，完全不考慮程序的內(nèi)部結(jié)構(gòu)盒處理過程。也就是說黑盒測試是在程序接口進(jìn)行的測試，它只檢查程序功能是否能按照規(guī)格說明書的規(guī)定正常使用，程序是否能適當(dāng)?shù)慕邮蛰斎氲臄?shù)據(jù)產(chǎn)生正確的輸出信息，并保持外部