汽車租賃管理系統(tǒng)的設(shè)計和實(shí)現(xiàn)的分析

...wd......wd......wd...摘要近年來，隨著計算機(jī)技術(shù)的成熟及數(shù)據(jù)庫技術(shù)的開展，信息管理系統(tǒng)的應(yīng)用已延伸到社會的各個領(lǐng)域。以信息管理系統(tǒng)的開發(fā)為理論根基，開發(fā)出汽車租賃管理系統(tǒng)。汽車租賃管理是汽車租賃公司開展日常運(yùn)營的重要工具。傳統(tǒng)的人工管理方式不但浪費(fèi)時間，而且管理復(fù)雜，易出過失。汽車租賃管理系統(tǒng)能使繁瑣的數(shù)據(jù)計算、信息處理變得簡單易操作，完全實(shí)現(xiàn)數(shù)據(jù)信息的電算化管理。使用這套系統(tǒng)有助于提高汽車租賃公司的效率，節(jié)約成本，增加經(jīng)濟(jì)效益。本論文主要介紹了該系統(tǒng)的生成及VisualBasic6.0和Access的一般原理。闡述了整個汽車租賃管理系統(tǒng)的制作步驟及工作原理；設(shè)計實(shí)現(xiàn)了系統(tǒng)用戶管理、基本信息管理、業(yè)務(wù)管理、會員管理等程序模塊；分析了系統(tǒng)的可行性并解決了可能存在的問題。關(guān)鍵詞：數(shù)據(jù)庫；VisualBasic6.0；汽車租賃管理AbstractInrecentyears,withthedevelopmentofthetechnologyofcomputeranddatabase.Informationmanagementsystemhasstretchedintoeveryfieldofoursociety.Basedonthedevelopmenttheoryoftheinformationmanagementsystemthendevelopedanothermanagementsystem--theautomobilelend-lease.Themanagementofautomobilelendingandleasingplayaveryimportantroleinthecompany'sdailyoperation.Comparedwiththetraditionalwaywhichwastehumanresourcesandtime.Atthesametime,itiscomplicatedandoftenrunswithmistakes.Whiletheautomobilelend-leasesystemturnthecomplicateddatacalculationandinformationprocessingintosimpleinstructions.Notonlyincreasetheefficiency,buttheeconomicbenefits.ThispapermainlyintroducesthedevelopbackgroundofthesystemandthebasictheoryofVisualBasic6.0andAccessVisual.Ittellsthestructureoftheautomobilelend-leasemanagementsystemanditsworkingtheory;itanalyzesthespecialty,difficultyandimportantthingsinsystemrealization.Thedesignrealizesthemanagementofthesystemusers,thebasicinformation,thebusiness,andthemembers'management.Keywords:Database；VisualBasic6.0；Theautomobilelend-leasemanagement目錄第1章緒論11.1開發(fā)背景11.2系統(tǒng)功能簡介11.3開發(fā)工具11.3.1VisualBasic6.0簡介21.3.2Access2003簡介21.4可行性研究與需求分析31.4.1可行性研究31.4.2需求分析3第2章系統(tǒng)數(shù)據(jù)庫設(shè)計42.1數(shù)據(jù)庫管理系統(tǒng)簡介42.2ADO數(shù)據(jù)庫訪問技術(shù)42.3系統(tǒng)功能分析研究52.4系統(tǒng)功能模塊圖52.5數(shù)據(jù)字典62.6數(shù)據(jù)庫各表的數(shù)據(jù)構(gòu)造7第3章系統(tǒng)功能設(shè)計123.1登錄模塊設(shè)計123.2主程序界面設(shè)計133.3根基數(shù)據(jù)管理模塊的實(shí)現(xiàn)143.3.1車輛和保險類型管理窗體的設(shè)計143.3.2汽車銷售商管理窗體的設(shè)計153.3.3保險公司管理窗體的設(shè)計163.3.4車輛管理窗體的設(shè)計173.4客戶會員管理模塊的實(shí)現(xiàn)183.4.1客戶信息管理窗體的設(shè)計183.4.2會員信息管理窗體設(shè)計193.4.3會員類型管理窗體設(shè)計213.5日常業(yè)務(wù)管理模塊的實(shí)現(xiàn)213.5.1汽車租賃管理窗體設(shè)計223.5.2汽車歸還管理窗體設(shè)計24結(jié)論26致謝27參考文獻(xiàn)27附錄程序代碼29第1章緒論1.1開發(fā)背景今天，隨著人民生活水平的不斷提高，汽車已不再遙不可及，汽車租賃作為一種全新的消費(fèi)模式已成為一個極具市場潛力的行業(yè)，它不僅可以有效的疏通汽車生產(chǎn)與汽車銷售之間的“瓶頸〞，而且對汽車消費(fèi)市場的擴(kuò)展有著不可低估的成效。在這個“時間就是金錢〞的社會，加快生活節(jié)奏，提高生活效率刻不容緩。因此在必要的時候向汽車出租公司提出租賃車輛的要求，已成為被群眾認(rèn)可的選擇。在社會需求的帶動下，汽車租賃市場出現(xiàn)了前所未有的繁榮景象。各個汽車租賃公司門庭假設(shè)市，業(yè)務(wù)激增。然而在繁忙的景象背后，卻也暴露出汽車租賃公司在處理業(yè)務(wù)信息時以人工方式為主所帶來的諸如：效率低下，管理混亂，失誤增多等諸多弊端。在實(shí)踐中，汽車租賃行業(yè)的業(yè)主們逐漸意識到在租賃行業(yè)中借助計算機(jī)引入信息管理的重要性，并開場不斷提高自身的素質(zhì)和高科技在工作中的投入，以改善信息的管理，提高服務(wù)效率。汽車租賃管理系統(tǒng)就是對車輛信息和客戶信息的管理，主要包括車輛的基本信息、車輛的出租狀態(tài)、車輛的投保情況、客戶信息的管理等。它的設(shè)計開發(fā)充分按照汽車租賃的實(shí)際業(yè)務(wù)流程，結(jié)合了租賃行業(yè)的實(shí)際運(yùn)營特點(diǎn)，滿足汽車租賃行業(yè)的信息化需求。1.2系統(tǒng)功能簡介汽車租賃管理系統(tǒng)針對的是汽車租賃公司在向客戶提供出租車輛服務(wù)過程中面對的各種問題而開發(fā)的，對其業(yè)務(wù)信息進(jìn)展自動化、信息化處理，使車輛租賃管理變得高校、快捷、標(biāo)準(zhǔn)。此系統(tǒng)具有完善的功能，使用輕松方便，易于維護(hù)，適應(yīng)性強(qiáng)。包括客戶信息管理、車輛信息管理、汽車租賃歸還管理、會員類型管理、會員信息管理、保險公司管理、汽車銷售商管理等。具有添加、修改、刪除、查詢等功能，通過這些管理模塊，可以使汽車租賃服務(wù)更加清晰，更加便捷，提高了服務(wù)質(zhì)量，減少了操作人員的工作量。希望它能為業(yè)內(nèi)人員的工作提供一定的幫助。1.3開發(fā)工具1.3.1VisualBasic6.0簡介VisualBasic是一種構(gòu)造化的編程語言，它集成了一個完整且功能強(qiáng)大的應(yīng)用程序開發(fā)環(huán)境。操作簡單易學(xué)，使程序設(shè)計不再復(fù)雜?！皏isual〞指的是開發(fā)圖形用戶界面〔GUI〕的方法。不需編寫大量代碼去描述界面元素的外觀和位置，而只要把預(yù)先建設(shè)的對象加到屏幕上，一點(diǎn)即可?！癇asic〞是一種在計算機(jī)技術(shù)開展歷史上應(yīng)用的最為廣泛的語言。另外，在VisualBasic中引入了控件的概念，在Windows中控件的身影無處不在，各種各樣的按鈕，文本框等都是控件。VisualBasic把這些控件模式化，并且每個控件都有假設(shè)干屬性用來控制控件的外觀以及工作方法。VisualBasic是具有集成的可視化數(shù)據(jù)庫工具，VisualBasic6.0提供了一整套工具以在任何應(yīng)用程序中集成數(shù)據(jù)庫。它可用來設(shè)計和修改ADO等數(shù)據(jù)庫工具，也可用拖放方式創(chuàng)立綁有數(shù)據(jù)的表格和報告。更重要的是VisualBasic簡單、易學(xué)、實(shí)用，深受廣闊編程愛好者的喜愛。1.3.2Access2003簡介MicrosoftAccess數(shù)據(jù)庫管理系統(tǒng)是MicrosoftOffice系列應(yīng)用軟件的一局部，是基于Windows平臺的數(shù)據(jù)庫管理系統(tǒng)，它操作簡單、功能全面、使用方便，不僅具有傳統(tǒng)數(shù)據(jù)庫管理軟件所具有的功能，同時還進(jìn)一步增強(qiáng)了與Internet的集成，用戶可以通過Internet共享Access數(shù)據(jù)庫。Access具有強(qiáng)大的數(shù)據(jù)管理功能，可以方便地利用各種數(shù)據(jù)源，生成窗體〔表單〕、查詢、報表和應(yīng)用程序等。1Access2003是Microsoft公司出品的關(guān)聯(lián)式資料庫套裝軟體。它提供視覺化的設(shè)計介面，不必撰寫程式，即可快速，簡單地開發(fā)出美觀實(shí)用的資料庫管理系統(tǒng)。Access2003由如下組成：資料表：為access儲存資料的地方，亦為資料的基本來源，一個資料庫至少要存在一個資料表。查詢：可依使用者需求，以一些限制條件〔篩選,過濾…〕來選取資料表中。表單：建設(shè)一個讓使用者輸入，查詢，修改資料的操作畫面。報表：將資料庫里的資料運(yùn)用報表做成有利用價值的畫面資料。資料頁：為Access2003的新增物件，資料發(fā)布至網(wǎng)路的媒介。此物件完成建設(shè)后，將會在資料庫檔案外，再產(chǎn)生一個HTML檔。巨集：建設(shè)簡單的資料操作指令與將一連串的執(zhí)行動作自動化。應(yīng)用于一些重復(fù)性高的動作或者用于使用者自訂工作環(huán)境上。模組：開發(fā)應(yīng)用系統(tǒng)的工具。是讓使用者能更隨心所欲的去控制系統(tǒng)。1.4可行性研究與需求分析1.4.1可行性研究通過對局部用戶和部門的調(diào)查研究說明，傳統(tǒng)的租賃管理系統(tǒng)，在后期維護(hù)和更新上比較麻煩，如果對功能模塊進(jìn)展修改，需要對整個系統(tǒng)進(jìn)展重新架構(gòu)才能實(shí)現(xiàn)。本系統(tǒng)在基本信息管理模塊中實(shí)現(xiàn)了對車輛、客戶、駕駛員等信息的增加、刪除、修改等功能。在日常任務(wù)模塊中，實(shí)現(xiàn)了對租賃和歸還信息的管理。在根基數(shù)據(jù)管理中還涉及了租賃合同的打印，非常周到，貼合實(shí)際。本系統(tǒng)具有：操作簡便、靈活，用戶界面直觀；可實(shí)現(xiàn)企業(yè)管理程序化、條理化、標(biāo)準(zhǔn)化、高效化；提供及時、可靠的數(shù)據(jù)資料，并自動對數(shù)據(jù)進(jìn)展分析；多數(shù)操作選項(xiàng)采用人工選擇的方式，防止了用戶記憶一些不必要的指令，減輕用戶操作負(fù)擔(dān)。1.4.2需求分析開發(fā)汽車租賃管理系統(tǒng)的目的就是為了使租賃公司能夠更好的為客戶服務(wù)且工作不需要花費(fèi)大量的時間和精力。這不但使客戶租車過程簡化、快捷，還能使租賃公司信息更標(biāo)準(zhǔn)，易管理.綜上所述,公司不再需要過多的人員去管理繁雜的資料，既節(jié)省了辦公效率、降低了成本,還節(jié)省了客戶的時間。本系統(tǒng)經(jīng)過短期的可行性市場調(diào)查與分析工作及長期實(shí)踐操作，最后確定整體系統(tǒng)方案，在綜合各項(xiàng)軟件指標(biāo)的前提下認(rèn)真完成。第2章系統(tǒng)數(shù)據(jù)庫設(shè)計2.1數(shù)據(jù)庫管理系統(tǒng)簡介數(shù)據(jù)庫是信息管理系統(tǒng)的基本技術(shù)，是計算機(jī)科學(xué)的重要分支。數(shù)據(jù)庫〔DataBase，DB〕是指長期儲存在計算機(jī)內(nèi)的、有組織的、可以共享的數(shù)據(jù)集合。數(shù)據(jù)庫中的數(shù)據(jù)按一定的數(shù)據(jù)模型組織、描述和儲存，具有較小的冗余度、較高的數(shù)據(jù)獨(dú)立性和易擴(kuò)展性，并可以為各種用戶共享。數(shù)據(jù)庫管理系統(tǒng)是在操作系統(tǒng)的支持下，為數(shù)據(jù)庫的建設(shè)、使用和維護(hù)而配置的軟件環(huán)境，如MicrosoftSQLServer、MicrosoftAccess等。數(shù)據(jù)庫系統(tǒng)是位于用戶與操作系統(tǒng)之間的一層數(shù)據(jù)管理軟件，它在操作系統(tǒng)的根基上，對數(shù)據(jù)庫進(jìn)展管理和控制，利用數(shù)據(jù)庫管理系統(tǒng)提供的一系列命令，用戶能方便地實(shí)現(xiàn)對數(shù)據(jù)庫的基本操作〔如建表、向表中添加記錄、刪除記錄和修改記錄等〕。用戶使用的各種數(shù)據(jù)庫命令以及數(shù)據(jù)庫應(yīng)用程序的運(yùn)行，都要通過數(shù)據(jù)庫管理系統(tǒng)來實(shí)現(xiàn)；另外，數(shù)據(jù)庫管理系統(tǒng)還要保證數(shù)據(jù)的安全性，完整性，多用戶對數(shù)據(jù)庫的并發(fā)使用以及發(fā)生故障后系統(tǒng)的回復(fù)等任務(wù)。在信息資源已成為各個部門的重要財富和資源的當(dāng)下。開發(fā)一個滿足各個部門信息處理要求的信息系統(tǒng)也因此成為一個企業(yè)或組織生存和開展的重要局部。因此，作為信息系統(tǒng)核心，數(shù)據(jù)庫已得到越來越廣泛的應(yīng)用，新的應(yīng)用領(lǐng)域采用數(shù)據(jù)庫存儲和處理信息資源。對于一個國家來說，數(shù)據(jù)庫的規(guī)模、信息量的大小和使用頻度已成為衡量這個國家信息化程度的重要標(biāo)志。2.2ADO數(shù)據(jù)庫訪問技術(shù)VisualBasic作為一種面向?qū)ο蟮目梢暬幊坦ぞ?，具有簡單易學(xué)、靈活方便易于擴(kuò)大的特點(diǎn)。因此它越來越多的用作數(shù)據(jù)庫應(yīng)用程序的前端開發(fā)工具。在VisualBasic中，可以通過ActiveX數(shù)據(jù)對象(ADO)，數(shù)據(jù)訪問對象(DAO)，ODBC直接連接到數(shù)據(jù)庫：其中ADO是最新的數(shù)據(jù)庫訪問技術(shù)。它是使用更加簡單，靈活的對象模型。本系統(tǒng)就是基于這種技術(shù)開發(fā)的。ADO在工程的創(chuàng)立過程中提供執(zhí)行以下操作的方式：連接到數(shù)據(jù)源。指定訪問數(shù)據(jù)源的命令，同時可帶變量參數(shù)或優(yōu)化執(zhí)行。通常涉及ADO的Command對象。執(zhí)行命令，例如一個SELECT腳本。如果這個命令使數(shù)據(jù)按表中行的形式返回，那么將這些行存儲在易于檢查、操作或更改的緩存中。適當(dāng)情況下，可以把緩存行的更改內(nèi)容寫回數(shù)據(jù)庫中，更新數(shù)據(jù)源。提供常規(guī)方法檢測錯誤〔錯誤通常由建設(shè)連接或執(zhí)行命令造成〕，涉及ADO的Error對象。2.3系統(tǒng)功能分析研究本系統(tǒng)通過對市場需求的具體調(diào)研和分析,確定本系統(tǒng)應(yīng)具備系統(tǒng)管理根基數(shù)據(jù)管理、客戶會員管理、日常業(yè)務(wù)管理等模塊的功能.下面具體分析一下各個模塊的功能。系統(tǒng)管理模塊該模塊可以完成修改用戶密碼，添加新用戶，設(shè)置密碼以及退出系統(tǒng)等操作。2、根基數(shù)據(jù)管理模塊在這個模塊中，可以設(shè)置車輛類型和保險類型，而且還可以對汽車銷售商，車輛的保險公司進(jìn)展管理，如添加，修改和刪除等操作。客戶會員管理模塊在這個模塊中，可以設(shè)置會員的級別以及添加，修改，和刪除客戶和會員的信息。4、日常業(yè)務(wù)管理模塊在這個模塊中可以完成車輛的出租，審核以及還車的操作，而且可以查詢和打印租賃合同。2.4系統(tǒng)功能模塊圖汽車租賃管理信息系統(tǒng)的系統(tǒng)功能構(gòu)造圖如圖2.1所示。圖2.1系統(tǒng)總體功能設(shè)計2.5數(shù)據(jù)字典數(shù)據(jù)字典是關(guān)于數(shù)據(jù)信息的集合，它為分析階段的工具，其作用就是在軟件分析和設(shè)計的過程中給人提供關(guān)于數(shù)據(jù)的描述信息，在數(shù)據(jù)字典中，建設(shè)一組嚴(yán)密一致的定義很有助于改進(jìn)分析員和用戶之間的通信，因此將消除可能的誤解。數(shù)據(jù)字典主要應(yīng)該包括的每個數(shù)據(jù)元素的控制信息有：名字，別名，描述，定義，位置。數(shù)據(jù)字典中包含的每個數(shù)據(jù)元素的控制信息是很有價值的。因?yàn)榱谐隽耸褂靡粋€給定的數(shù)據(jù)元素的所有程序〔或者模塊〕，所以很容易估計改變一個數(shù)據(jù)將產(chǎn)生的影響，并且能對所有受影響的程序或者模塊做出相應(yīng)的調(diào)整。本系統(tǒng)的數(shù)據(jù)字典如下：1、名字：car別名：車輛信息描述：車輛的購置，保險。技術(shù)信息。使用，價格等信息。定義：car=carno+cartype+arname+color+oilno+engineno+carcase+saleid+buydate+insurno+insured+insurtype+insurSdate+insurEdate+deposit+dayprice+weekendprice+weekprice+monthprice+Daykm+overtimeprice+overkmprice+status+comment位置：車輛管理，汽車租賃，車輛歸還2、名字：users別名：用戶信息描述：系統(tǒng)用戶的名稱定義：users=username+userpwd位置：用戶信息3、名字：customer別名：客戶信息描述：記錄客戶的名字，年齡，聯(lián)系方式等各種信息定義：customer=id+name+sex+age+idcard+telephone+workplace+address+zipcode+email+licenseno+licensetype+gedate+expiredate+diverage+flag+typeid+certificate+warrantor+wildcard+wworkplace4、名字：membertype別名：會員類型描述：記錄會員類型的編號，名稱，折扣率定義：membertype=id+typename+rate位置：會員類型定義，會員信息，汽車租賃，車輛歸還5、名字：company別名：公司信息描述：保險公司和車輛銷售商的名稱，地址，聯(lián)系方式等信息定義：company=id+company+telephone+zipcode+fax+address+email+contact+typeid+comment位置：銷售商信息，保險公司信息，車輛信息7、名字：types別名：類型信息描述：車輛品牌類型以及保險種類定義：types=id+typename+typeid+description8、名字：lease別名：租賃業(yè)務(wù)信息描述：合同編號，租賃模式。租還車時間等業(yè)務(wù)信息定義：lease=contractno+carno+custid+leasetime+leasemode+price1+price2+workdays+weekendcount+deposit+daykm+oprice1+oprice2+returntime+returnkm+othercost+rate+dayment+total+status+createdate+username+realtime位置：車輛租賃，車輛歸還2.6數(shù)據(jù)庫各表的數(shù)據(jù)構(gòu)造本系統(tǒng)數(shù)據(jù)庫名稱為CarMIS，數(shù)據(jù)庫中包括：①用戶信息表〔users〕②車輛信息表〔Cars〕③公司信息表〔Company〕④客戶信息表〔Customer〕⑤車輛和保險類型信息表〔Types〕⑥會員類型信息表〔MenberType〕⑦租賃信息表〔Lease〕。各表數(shù)據(jù)構(gòu)造如下：表2.1用戶信息表的數(shù)據(jù)構(gòu)造表名：Users說明：用戶信息表字段名類型大小空值描述Usernamenvarchar20用戶名userpwdnvarchar40用戶密碼表2.2車輛信息表的數(shù)據(jù)構(gòu)造表名：Cars說明：車輛信息表字段名類型大小空值描述Carnonvarchar20Y汽車編號Typeidsmallint2Y烈性編號carnamenvarchar50Y汽車名稱colornvarchar20Y顏色oilnonvarchar30Y燃油編號enginenonvarchar50Y發(fā)動機(jī)標(biāo)號carcasenvarchar50Y車架編號Saleidint2Y銷售商Buydatesmalldatetime10Y購置日期Insurnonvarchar50Y保險公司insuridint4Y保單號insurtypenvarchar50Y保險類型Insursdatesmalldatetime10Y保險開場日期Insuredatesmalldatetime10Y保險完畢日期Depositsmallint4Y押金Daypricesmallint4Y日租金Weekend-pricesmallint4Y周末日租金Weekpricesmallint4Y周租金monthpricesmallint4Y月租金daykmsmallint4Y日限公里overtimepricesmallint4Y超時單位費(fèi)用overkmpricesmallint14Y超公里單位費(fèi)用statusnvarchar10Y狀態(tài)commentntext10Y備注表2.3公司信息表的數(shù)據(jù)構(gòu)造表名：Company說明：公司信息表字段名類型大小空值描述Idint4公司編號Companynvarchar100Y公司名稱Telephonenvarchar50YZipcodenvarchar8YFaxnvarchar50YAddessnvarchar50Y地址Emailnvarchar50Y電郵Contactnvarchar50Y聯(lián)系人Typeidtinyint1Y類型編號commentntext16Y備注表2.4客戶信息表的數(shù)據(jù)構(gòu)造表名：Customer說明：客戶信息表字段名類型大小空值描述Idnvarchar20Y客戶編號Namenvarchar50Y名稱Sexnvarchar2Y性別Agesmallint2Y年齡Idcardnvarchar30Y會員卡號Telephonenvarchar30YWorkplacenvarchar30Y工作地點(diǎn)Addressnvarchar50Y地址Zipcodenvarchar50YEmailnvarchar10Y電郵Licensenonvarchar30Y駕照IDLicensetypenvarchar20Y駕照類型Getdatenvarchar20Y駕照獲得日期Expireddatenvarchar20Y駕照過期日期Driveragesmallint2Y駕齡Flagtinyint2Y折扣Typeidint4Y會員類型編號Certificatenvarchar40Y抵押證件Warrantornvarchar50Y擔(dān)保人Widcardnvarchar30Y擔(dān)保人身份證wworkplacenvarchar100Y擔(dān)保人工作地點(diǎn)表2.5車輛和保險類型信息表的數(shù)據(jù)構(gòu)造表名：Types說明：車輛和保險類型信息表字段名類型大小空值描述Idint4編號typenamenvarchar50Y類型名稱Typeidtinyint2類型編號descriptionnvarchar100Y描述表2.6會員類型信息表的數(shù)據(jù)構(gòu)造表名MemberType說明：會員類型信息表字段名類型大小空值描述Idint4會員編號Typenamenvarchar20Y類型名稱Ratereal8Y享受折扣表2.7租賃信息表的數(shù)據(jù)構(gòu)造表名：Lease說明：租賃信息表字段名類型大小空值描述Contracnonvarchar50Y合同編號Carnonvarchar20Y車輛編號Custidnvarchar20Y客戶編號Leasetimesmalldatetime10Y租賃日期Leasemodenvarchar10Y租賃方式Price1smallint4Y價格1Price2smallint4Y價格2Workdayssmallint2Y工作天數(shù)Weekendcountsmallint2Y周末天數(shù)Depositint4Y押金Daykmsmallint2Y超限時間數(shù)Outkmsmallint4Y超限費(fèi)用Oprice1smallint4Y日限時間超限費(fèi)用Oprice2smallint4Y日限公里超限費(fèi)用Returntimesmalldatetime10還車時間returnkmint4實(shí)際公里Othercostint4Y其他費(fèi)用Ratereal4Y享受折扣Paymentint4實(shí)際支付Totalint4費(fèi)用總額Statusnvarchar10Y狀態(tài)Createdatesmalldatetime10創(chuàng)立日期Usernamenvarchar20經(jīng)辦人realrtimesmalldatetime10Y實(shí)際還車時間第3章系統(tǒng)功能設(shè)計3.1登錄模塊設(shè)計登錄模塊是進(jìn)入系統(tǒng)后的第一個界面，為了提高系統(tǒng)的安全性，本系統(tǒng)設(shè)置了身份驗(yàn)證功能，以防非法人員進(jìn)入系統(tǒng)。登錄流程圖如圖3.1所示。輸入用戶名和密碼輸入用戶名和密碼判斷用戶是否存在判斷密碼是否正確登錄成功否否是是圖3.1登錄流程圖登錄模塊窗體如圖3.2所示，包含三個標(biāo)簽控件，一個框架，兩個文本框和兩個命令按鈕。圖3.2登陸界面首先點(diǎn)擊工程菜單，選擇“添加窗體〞，在新建的工程內(nèi)添加一個空窗體，在適當(dāng)?shù)奈恢卯嫵隹蚣?，然后在框架?nèi)添加兩個標(biāo)簽控件和兩個文本框，然后把另一個標(biāo)簽和兩個命令按鈕畫在下面，設(shè)置各個控件屬性，最后編寫源代碼。例如：將第二個命令按鈕的控制名設(shè)為“cmd_cancel〞,caption屬性設(shè)為“取消〞，字體設(shè)為“宋體〞，enable和visible屬性均設(shè)為“True〞，編寫按鈕單擊時間源代碼如下：PrivateSubCmd_Cancel_Click()EndEndSub3.2主程序界面設(shè)計用戶登錄成功后，即進(jìn)入系統(tǒng)主界面。主界面的外觀設(shè)計應(yīng)該大方美觀，布局合格，方便用戶的下一步操作，其窗體布局如下，菜單欄內(nèi)設(shè)有五個子菜單欄，工具欄內(nèi)設(shè)有六個按鈕，分別連接常用的功能。用戶登錄成功后，即進(jìn)入系統(tǒng)主程序界面。主界面的窗體布局如下，菜單欄內(nèi)設(shè)有【根基數(shù)據(jù)管理】、【客戶會員管理】【日常業(yè)務(wù)管理】【系統(tǒng)管理】四個子菜單，工具欄內(nèi)設(shè)有六個按鈕，分別為【車輛類型設(shè)置】【汽車銷售商管理】【保險公司管理】【汽車租賃】【汽車歸還】【會員信息】。主程序界面如圖3.3。圖3.3主程序界面點(diǎn)擊新建工程按鈕，在生成的窗體上單擊右鍵，在彈出的菜單欄上點(diǎn)擊“菜單編輯器〞命令，翻開菜單編輯器。設(shè)計好程序各級菜單。在窗體上添加“圖像列表控件〞，用于保存工具欄按鈕所使用的圖像，在窗體上添加“工具欄控件〞，將其與“圖像控制列表控件〞相關(guān)聯(lián)。并參加代表耽誤按鈕的“按鈕對象〞，最后編寫工具欄對應(yīng)的源代碼。工具欄單擊事件源代碼如下：PrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCase"aa"LoadFrmTypeFrmType.ShowvbModalCase"bb"LoadFrmSalesFrmSales.ShowvbModalCase"cc"LoadFrmInsuranceFrmInsurance.ShowvbModalCase"dd"LoadFrmLeaseFrmLease.ShowvbModalCase"ee"LoadFrmReturnFrmReturn.ShowvbModalCase"gg"LoadFrmMembersFrmMembers.ShowvbModalEndSelectEndSub3.3根基數(shù)據(jù)管理模塊的實(shí)現(xiàn)3.3.1車輛和保險類型管理窗體的設(shè)計該窗體上設(shè)有兩個單項(xiàng)選擇按鈕，一個datalist控件，四個命令按鈕，其窗體如下：圖3.4車輛和保險類型設(shè)置界面首先按設(shè)計添加窗體，安排好各控件的布局，設(shè)置其相應(yīng)屬性，例如：將左邊的“單項(xiàng)選擇按鈕〞名稱屬性設(shè)為“optsel〞,caption屬性設(shè)為“汽車類型〞,Indexs屬性設(shè)為“0〞，字體屬性設(shè)為“宋體〞，value值設(shè)為“True〞，而命令按鈕設(shè)置同上，如對“添加〞按鈕的設(shè)置，設(shè)置完成后編寫源代碼。3.3.2汽車銷售商管理窗體的設(shè)計此窗體用于對車輛銷售商的信息如：銷售商名稱，聯(lián)系，，地址，，電子郵箱等操作，還可以根據(jù)用戶選擇的銷售商名稱查詢該廠商旗下汽車租賃情況。窗體設(shè)計如圖3.5。圖3.5汽車銷售商管理界面此窗體上設(shè)置了六和命令按鈕，一個Datagrid控件，一個標(biāo)簽控件和一個文本框。首先按設(shè)計添加窗體，做好各控件的布局，設(shè)置相應(yīng)屬性，如：datagrid控件名稱屬性設(shè)置為“datagrid1〞,dragmode屬性設(shè)置為“0〞，allowaddnew屬性設(shè)為“False〞,Allowdelete屬性設(shè)置為“False〞,allowupdate屬性設(shè)為“False〞。字體設(shè)置為“宋體〞，Enable和Visible屬性均設(shè)為“True〞。其添加命令按鈕單擊事件源代碼如下：PrivateSubCmd_Add_Click()FrmCompanyEdit.Modify=FalseFrmCompanyEdit.nTid=1FrmCompanyEdit.txtCompany=""FrmCompanyEdit.lblType="銷售商"FrmCompanyEdit.txtTelephone=""FrmCompanyEdit.txtFax=""FrmCompanyEdit.txtAddress=""FrmCompanyEdit.txtContact=""FrmCompanyEdit.txtComment=""FrmCompanyEdit.txtZipCode=""FrmCompanyEdit.txtEmail=""FrmCompanyEdit.Show1GridRefreshEndSub3.3.3保險公司管理窗體的設(shè)計此窗體用于對保險公司信息如：保險公司的公司名稱，聯(lián)系，，地址，，電子郵箱等備注的查詢，添加，修改和刪除。另外還可根據(jù)用戶選擇的保險公司名稱查詢投保語該保險公司的汽車的情況。設(shè)計窗體如圖3.6。圖3.6保險公司管理界面首先按設(shè)計添加窗體，安排好各控件的布局，設(shè)置其相應(yīng)屬性，如：名稱屬性為“l(fā)abel1〞，alignment屬性設(shè)置為“0〞，文本框?qū)ζ浞绞綖椤白髮R〞，Caption屬性設(shè)置為“保險公司名〞，字體屬性設(shè)置為“宋體〞。查看保險車輛按鈕的單擊事件源代碼如下：PrivateSubCmd_ViewCars_Click()FrmSaleCars.nType=2FrmSaleCars.sSaleName=Trim(Adodc1.Recordset.Fields(1))FrmSaleCars.nSaleId=Adodc1.Recordset.Fields(0)FrmSaleCars.txtSaleName=Trim(Adodc1.Recordset.Fields(1))FrmSaleCars.Caption="查看保險公司保險汽車"FrmSaleCars.Label1="保險公司名稱"FrmSaleCars.Show1EndSub3.3.4車輛管理窗體的設(shè)計本窗體用于提供對車輛信息的添加，修改和刪除功能，可處理的信息包括車輛的基本信息如車牌號，狀態(tài)，車輛類型，顏色，押金，日租金等。設(shè)計界面如圖3.7。圖3.7車輛管理界面3.4客戶會員管理模塊的實(shí)現(xiàn)3.4.1客戶信息管理窗體的設(shè)計客戶信息管理窗體用于對客戶信息如：編號、姓名、性別、年齡、駕駛證編號、駕齡等的查找、添加、修改、刪除等操作。并且提供將普通客戶參加會員的服務(wù)。本窗體上設(shè)置有六個命令按鈕，一個Adodc控件，一個Datagrid控件，一個標(biāo)簽控件和一個文本框。命令按鈕分別為“添加〞“修改〞“刪除〞“查找〞“參加會員〞“退出〞。窗體設(shè)計如圖3.8。圖3.8客戶信息管理界面點(diǎn)擊“工程〞菜單，選擇“添加窗體〞，在窗體上畫出所需控件，把這些控件移動至窗體內(nèi)適當(dāng)位置，并設(shè)置各個控件的屬性，最后編寫各個控件相應(yīng)事件過程。如，對于命令按鈕：“刪除〞，當(dāng)放置好按鈕位置后，將其名稱屬性設(shè)置為“Cmd_del〞，對于Caption屬性那么設(shè)置為“刪除〞，字體屬性設(shè)置為“宋體〞，Enabled和Visible屬性設(shè)置為true。 進(jìn)展刪除操作時，首先在列表框上顯示出來的客戶信息條目中將要刪除一條選中〔如果不選擇，系統(tǒng)那么默認(rèn)為選擇了第一條〕做出選擇后，單擊“刪除〞按鈕，顯示一個對話框，選中用戶是否確認(rèn)刪除，選“是〞，那么系統(tǒng)從數(shù)據(jù)庫中刪除該項(xiàng)，并彈出一個信息框，告知用戶操作成功。 命令按鈕“刪除〞單擊事件源代碼如下：PrivateSubCmd_Del_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"請選擇記錄"ExitSubEndIfIfMsgBox("是否確定要刪除",vbYesNo,"請確認(rèn)")=vbNoThenExitSubEndIfMyCustomer.Delete(Trim(Adodc1.Recordset.Fields(0)))MsgBox"成功",vbInformationGridRefreshEndSub3.4.2會員信息管理窗體設(shè)計會員信息管理窗體用于對會員信息如，編號，姓名，年齡駕駛證編號，駕齡，登記日期等的查找、修改及注銷功能。本窗體上設(shè)有四個命令按鈕，一個Datagrid控件，一個標(biāo)簽控件和一個文本框。窗體設(shè)計如圖3.9。圖3.9會員信息管理界面點(diǎn)擊“工程〞菜單，選擇“添加窗體〞，在新建工程內(nèi)添加一個空窗體，先設(shè)置窗體的屬性，名稱屬性設(shè)置為“Frmmembers〞，StartUpPosition屬性設(shè)置為“2〞，即窗體首次出現(xiàn)是在屏幕中心顯示，F(xiàn)ont屬性設(shè)置為“宋體〞，Caption屬性設(shè)置為“會員管理〞。接著對其它控件的屬性進(jìn)展設(shè)置。 命令按鈕“注銷會員〞的功能是將用戶選定的會員條目從客戶信息表中刪除〔如果不選擇，系統(tǒng)默認(rèn)為選擇了第一條〕選擇后，單擊“注銷會員〞按鈕，彈出對話框，詢問用戶“是否確定要注銷會員資格〞，選擇“是〞，系統(tǒng)執(zhí)行注銷操作，并彈出一個信息框，顯示“注銷會員成功〞，最后系統(tǒng)更新Datagrid控件中顯示的會員信息條目。命令按鈕“注銷會員〞單擊事件籌劃年供需源代碼如下：PrivateSubCmd_OffMember_Click()IfAdodc1.Recordset.EOF=TrueThenMsgBox"請選擇記錄"ExitSubEndIfIfMsgBox("是否確定要注銷會員資格",vbYesNo,"請確認(rèn)")=vbNoThenExitSubEndIfMyCustomer.TypeId=0MyCustomer.UpdateToMember(Trim(Adodc1.Recordset.Fields(0)))MsgBox"注銷會員成功",vbInformationGridRefreshEndSub3.4.3會員類型管理窗體設(shè)計本窗體用于對會員類型的管理，即對會員等級進(jìn)展分類，如，vip會員，一般會員，超級會員等，不同等級的用戶享受的租賃價格的折扣不同。通過“添加〞功能可登記新的會員用戶，及其享受的折扣，通過“修改〞功能可修改已有的會員類型名稱及折扣?！皠h除〞功能與之前描述的“注銷會員〞操作類似，在此不再贅述。 本窗體上設(shè)置有四個命令按鈕，一個Datagrid控件，窗體設(shè)計如圖3.10。圖3.10會員類型管理界面點(diǎn)擊“工程〞菜單，選擇“添加窗體〞，設(shè)置各個控件在窗體中的位置，然后設(shè)置窗體及各控件屬性，最后編寫窗體及各個空間源代碼。 當(dāng)窗體載入是，觸發(fā)form_load()事件，即窗體載入事件。該載入事件的源代碼： PrivateSubForm_load()GridRefresh EndSub 其中，GridRefresh為一個函數(shù)調(diào)用語句，是在窗體模塊內(nèi)部定義的一個私有過程，在過程中設(shè)置了Adodc控件的兩個屬性，分別為Connectionstring屬性和Recordsource屬性。該過程的作用為在DataGrid控件上向用戶顯示會員類型的即存信息。3.5日常業(yè)務(wù)管理模塊的實(shí)現(xiàn)3.5.1汽車租賃管理窗體設(shè)計汽車租賃模塊的實(shí)現(xiàn)是本系統(tǒng)的關(guān)鍵，當(dāng)客戶提出租車要求時，租賃公司通過系統(tǒng)的這一模塊向數(shù)據(jù)庫的Lease表中添加新的租賃記錄。在車輛處于特定的狀態(tài)時，可執(zhí)行對記錄信息的修改、刪除、審核、續(xù)租等操作。車輛的狀態(tài)由Lease表中狀態(tài)字段指定。本窗體上設(shè)置有一個DataGrid控件，一個組合框，一個標(biāo)簽控件，八個命令按鈕控件，設(shè)計窗體如圖3.11。圖3.11汽車租賃管理界面在“工程〞中添加一個窗體后，按上述布局設(shè)置空間。然后進(jìn)展各控件的屬性設(shè)置。當(dāng)執(zhí)行“添加〞操作并成功添加一條新的租賃信息后，將在DataGrid控件中顯示出這條新的記錄，其中“狀態(tài)〞欄內(nèi)為“出租〞，此時，可對這一條記錄執(zhí)行“修改〞、“刪除〞操作，添加車輛出租信息后，確定所添數(shù)據(jù)無誤，那么應(yīng)執(zhí)行“租賃審核〞命令，“審核〞即為確定。當(dāng)單擊“租賃審核〞按鈕后，將彈出一個對話框，詢問用戶是否確執(zhí)行租賃審核，選擇“是〞，車輛“狀態(tài)〞那么變?yōu)椤白赓U審核〞，即用戶將不能對該記錄執(zhí)行“修改〞、“刪除〞命令，但可執(zhí)行“續(xù)租〞命令。執(zhí)行“續(xù)租〞后，車輛狀態(tài)變?yōu)椤袄m(xù)租〞。確定續(xù)租信息無誤，執(zhí)行“續(xù)租審核〞命令。 當(dāng)單擊“添加〞命令按鈕后，將觸發(fā)“添加〞命令按鈕的單擊事件。此時將翻開“編輯車輛出租信息〞窗體，如圖3.12。圖3.12添加或修改租賃信息的界面窗體上設(shè)有三個Datagrid控件和三個ADODC控件，系統(tǒng)將在程序執(zhí)行中為ADODC控件設(shè)置connectionstring屬性和recordsource屬性，為datagrid控件設(shè)置datasource屬性，以到達(dá)將datagrid控件與數(shù)據(jù)庫相連，在datagrid控件中顯示相關(guān)信息的目的處于“出租審核〞的合同可以打印，單擊“打印合同〞按鈕，就能打印出所選的租賃合同，結(jié)果如圖3.13。圖3.13租賃合同的打印3.5.2汽車歸還管理窗體設(shè)計本模塊用于對車輛歸還業(yè)務(wù)的管理，通過本模塊可對已租車輛實(shí)現(xiàn)歸還，信息修改，結(jié)算審核和查詢操作，窗體設(shè)計如圖3.14。圖3.14汽車租賃歸還管理界面當(dāng)辦理歸還業(yè)務(wù)時，翻開此窗體，單擊命令按鈕“歸還〞，翻開“車輛歸還結(jié)算審核〞，如圖3.15。圖3.15汽車歸還結(jié)算界面按辦理租賃業(yè)務(wù)時所創(chuàng)立的合同編號，查找相應(yīng)的車輛信息，即可進(jìn)展歸還操作。當(dāng)處理完歸還信息后，返回“車輛租賃歸還〞窗體，在datagrid控件中顯示出剛處理完的歸還業(yè)務(wù)信息，車輛狀態(tài)為“歸還〞，只有對“歸還〞狀態(tài)的信息，才能執(zhí)行“結(jié)算審核〞操作。單擊“結(jié)算審核〞命令按鈕，將彈出一個對話框，詢問用戶是否確認(rèn)結(jié)算審核信息，選擇“是〞，將最后完成車輛的歸還業(yè)務(wù)的處理，此時車輛狀態(tài)為“結(jié)算審核〞。當(dāng)添加完窗體上的各個控件后，進(jìn)展窗體布局，屬性設(shè)置。最后完成代碼編寫。如將窗體的名稱屬性設(shè)為'Frmreturn",caption屬性設(shè)為“車輛租賃歸還管理〞，字體設(shè)置為“宋體〞，Startupposit屬性設(shè)為"2"，即窗體首次出現(xiàn)時位置在屏幕中心，，然后編寫代碼如下：PrivateSubForm_Load()GridRefreshcob_Status.AddItem"歸還",0cob_Status.AddItem"歸還審核",1Cmd_RntCheck.Enabled=FalseEndSub結(jié)論經(jīng)過三個月的摸索學(xué)習(xí)。終于完成了這個“汽車租賃管理系統(tǒng)〞。通過對開發(fā)過程的研究，我對對數(shù)據(jù)庫及visualBasic6.0的使用方法有了更深的理解。讓我深刻體會到一個工程的開發(fā)，編程過程并不那么簡單，從軟件的需求分析到系統(tǒng)設(shè)計再到工程代碼的實(shí)現(xiàn)，讓我體會到要成為熟練掌握編程語言的軟件開發(fā)者是多么不容易，一個實(shí)用的高質(zhì)量的系統(tǒng)軟件，要想充分滿足客戶需求，必須扎扎實(shí)實(shí)的做好需求分析，為后續(xù)的系統(tǒng)設(shè)計和實(shí)現(xiàn)打下良好的根基。 本系統(tǒng)界面簡潔，設(shè)計合理，能夠?qū)崿F(xiàn)預(yù)計的功能，但系統(tǒng)的容錯性還不太完善。這也暴露出我的編程能力還有待提高。今后我會繼續(xù)努力學(xué)習(xí)，不斷充實(shí)自己，提高自己的能力?？偟膩碚f，本系統(tǒng)的設(shè)計基本符合用戶要求，可以為用戶使用。由于本人水平有限，在設(shè)計思路和技巧方法上可能比較愚鈍，在開發(fā)語言的掌握上可能相對淺薄，所以，反映到系統(tǒng)中，難免存在許多的缺乏之處，殷切希望各位教師批評、指正。致謝首先我要衷心的感謝我的指導(dǎo)教師黃迎春教師，因?yàn)檫@篇論文是在他的悉心指導(dǎo)下才完成的。在設(shè)計的起初階段，我總被一些問題所難倒，不知如何切入重點(diǎn)，從而讓我對畢業(yè)設(shè)計失去了信心與耐性，是黃教師在百忙之中抽出休息時間對我進(jìn)展了一番思想上的教育并耐心的一步一步的指導(dǎo)我的畢業(yè)設(shè)計。在教師的細(xì)心指導(dǎo)下，我重新對設(shè)計有了理性的思考，這不但解決了我心中的害怕，而且也解決了我在畢業(yè)設(shè)計中所遇到的嚴(yán)謹(jǐn)?shù)膯栴}，而且使我更加懂得了如何去分析和解決問題，并從中體會到了真正成功的喜悅。黃教師在學(xué)術(shù)上給予我精心的指導(dǎo)，可以說他一絲不茍的敬業(yè)精神、淵博的學(xué)術(shù)知識和嚴(yán)謹(jǐn)求實(shí)的治學(xué)態(tài)度使我受益匪淺，讓我也把更多的精力放在了我在大學(xué)校原里最后的一次考試——畢業(yè)設(shè)計。通過這兩個月的磨練，使我懂得了要想成為一名優(yōu)秀的編程人員，不但要有良好的根基知識，踏實(shí)地基本功，更重要的是要有不怕困難，戰(zhàn)勝困難的決心和勇氣。因此，每每遇到問題后我都會自己潛心研究，查找各種資料，借助網(wǎng)絡(luò)和圖書兩大信息力量，加上我平時的所學(xué)，盡量解決問題度過難關(guān)。其次還要感謝給予我?guī)椭?、支持和鼓勵的同學(xué)特別是同組的同學(xué)，是他們給了我很大的幫助，讓我能夠順利的完成本次畢業(yè)設(shè)計；是他們給了我大學(xué)最后時光的快樂，讓我懂得學(xué)習(xí)的真諦。最后,我要向?qū)W習(xí)中默默支持我的家人和朋友，及所有關(guān)心幫助過我的師長和同學(xué)們表示誠摯的感謝，因?yàn)槟銈兊拇嬖?，使得我在走進(jìn)大學(xué)后努力的學(xué)習(xí)，快速的增長知識，現(xiàn)在即將走出大學(xué)校園，我會加倍的努力，使自己更上一層樓，做個對社會有用的人!參考文獻(xiàn)[1]羅朝盛.VisualBasic6.0程序設(shè)計教程.第三版.人民郵電出版社,2009.2[2]劉志嫵.基于VB和SQL的數(shù)據(jù)庫編程技術(shù)，第一版，清華大學(xué)出版社,2008.4.[3]劉玉山.VB數(shù)據(jù)庫工程設(shè)計模塊化教程，第一版，機(jī)械工業(yè)出版社,2009.8.[4]楊富國,王健.VisualBasic程序開發(fā)案例解析，第一版，北京交通大學(xué)出版社,2006.2[5]李勇帆.VisualBasic6.0程序設(shè)計與應(yīng)用，人民郵電出版社,2006.2[6]沈大林.中文VisualBasic6.0實(shí)用教程:構(gòu)造化程序設(shè)計.第一版，人民郵電出版社,2005.6[7]陳承歡.ADO.NET數(shù)據(jù)庫訪問技術(shù)案例教程，第一版.人民郵電出版,2008.4[8]楊芙清．全國計算機(jī)等級考試二級教程．第1版．高等教育出版社，2001,10[9]童愛紅，候太平．VisualBasic數(shù)據(jù)庫編程．第1版．清華大學(xué)出版社，北京交通大學(xué)出版社，2004，6：[10]劉文濤，VisualBasic+Access數(shù)據(jù)庫開發(fā)與實(shí)例，第一版，清華大學(xué)出版社，2006.7附錄程序代碼PublicSubConnectstring()Conn="provider=Microsoft.Jet.Oledb.4.0;DataSource="&_App.pATH+"\database\CarMIS.mdb"&";PersistSecurityInfo=False"EndSubPrivateSubConnect()IfIsConnect=TureThenExitSubEndIfSetcnn=NewADODB.Connectioncnn.ConnectionString=Conncnn.OpenIfcnn.State<>adStateOpenThenMsgBox"數(shù)據(jù)庫連接失敗"EndEndIfIsConnect=TrueEndSubPrivateSubDisconnect()DimRcAsLongIfIsConnect=FalseThenExitSubEndIfcnn.CloseSetcnn=NothingIsConnect=FalseEndSubPublicSubDB_Connect()Connect_Num=Connect_Num+1ConnectEndSubPublicSubDB_Disconnect()IfConnect_Num>=CONNECT_LOOP_MAXThenConnect_Num=0DisconnectEndIfEndSubPublicSubDBapi_Disconnect()Connect_Num=0DisconnectEndSubPublicSubSQLExt(ByValTmpSQLstmtAsString)DimcmdAsNewADODB.CommandDB_ConnectSetcmd.ActiveConnection=cnncmd.CommandText=TmpSQLstmtcmd.ExecuteSetcmd=NothingDB_DisconnectEndSubPublicFunctionQueryExt(ByValTmpSQLstmtAsSrting)AsADODB.RecordsetDimrstAsNewADODB.RecordsetDB_ConnectSetrst.ActiveConnection=cnnrst.CuisorTyepe=aDOpenDynamicrst.LockType=adLockOptisticrst.OpenTmpSQLstmtSetQueryExt=rstEndFunctionPublicSubInit()UserName=""UserPwd=""EndSubPublicSubDelete(ByValTmpUserAsString)SqlStmt="DELETEFROMUsersWHEREUserName='"_+Trim(TmpUser)+"'"SQLExt(SqlStmt)EndSubPublicFunctionGetInfo(ByValTmpUserAsString)AsBooleanUserName=TampUserDimrsAsNewADODB.RecordsetSqlStmt="SELECT*FROMUsersWHEREUserName='"_+Trim(TmpUser)+"""Setrs=QueryExt(SqlStmt)Ifrs.EOFThenGetInfo=FalseExitFuntionElseIfIsNull(rs.Fields(1))ThenUserPwd=""ElseUserPwd=Trim(rs.Fields(1))EndIfEndIfGetInfo=TrueEndFunctionPublicFunctionIn_DB(ByValTmpUserAdString)AsBooleanDimrsAsNewADODB.RecordsetSqlStmt="SELECT*FROMUsersWHEREUserName='"_+Trim(TmpUser)+"""Setrs=QueryExt(SqlStmt)IfNotrs.EOFThenIn_DB=TrueElseIn_db=FalseEndIfEndFunctionPublicSubInset()SqlStmt="INSERTINTOUsersValues('"_+Trim(UserName)+"','"+Trim(UserPwd)+"')"SQLExt(SqlStmt)EndSubPublicSubUpdate(ByValTmpUserAsString)SqlStmt="UpdateUsersSetUserName='"+Trim(UserName)_+'"',UserPwd='"+Trim(UserPwd)_+"'WHEREUserName='"+Trim(TmpUser)+"'"SQLExt(SqlStmt)EndSubPublicSubInit()TypeName=""TypeId=1Description=""EndSubPublicSubDelete(ByValTmpIdAsLong)SqlStmt="DELETEFROMTypesWHEREId="+Trim(TmpId)SQLExt(SqlStmt)EndSubPublicFunctionGetInfo(ByValTmpIdAsLong)AsBooleanDimrsAsNewADODB.RecordsetSqlStmt="SELECT*FROMTypesWHEREId="+Trim(TmpId)Setrs=QueryExt(SqlStmt)Ifrs.EOFThenInitGetInfo=FalseElseIfIsNull(rs.Fields(0))ThenId=0ElseId=rs.Fields(0)EndIfIfIsNull(rs.Fields(1))ThenTypeName=""ElseTypeName=rs.Fields(1)EndIfIfIsNull(rs.Fields(2))ThenTypeId=1ElseTypeId=rs.Fields(2)EndIfIfIsNull(rs.Fields(3))ThenDescription=""ElseDescription=rs.Fields(3)EndIfGetInfo=TrueEndIfEndFunctionPublicFunctionIn_DB(ByValTmpTypeNameAsString,ByValTmpTidAs_Integer)AsBooleanDimrsAsNewADODB.RecordsetSqlStmt="SELECT*FROMTypesWHERETypeName'"_+Trim(TmpTypeName)+"'ANDTypeId="+Trim(Str(TmpTid))Setrs=QueryExt(SqlStmt)Ifrs.EOF=TrueThenIn_DB=FaleseElseIn_DB=TrueEndIfEndFunctionPublicSubGetInfoByTypeId(ByValTmpTypeIdAsInteger)DimrsAsNewADODB.RecordsetDimiAsLongEraseArr_TypeReDimArr_Type(0)EraseArr_IdReDimArr__Id(0)SqlStmt="SELECT*FROMTypesWHERETypeId="+Trim(TmpTypeId)Setrs=QueryExt(SqlStmt)i=0WhileNotrs.EOFReDimPreserveArr_Id(i+1)ReDimPreserveArr_Type(i+1)Arr_Id(i)=rs.Fields(0)Arr_TYPE(i)=RS.fIELDS(1)I=I+1rs.MoveNextWendEndSubPublicFunctionGetTypeNames(ByValTmpTypeIdsAsString)AsStringDimrsAsNewADODB.RecordsetDimiAsIntegeri=0GetTypeNames=""Sqlstmt="SELECT*FROMTypesWHEREIdIN("+Trim(TmpTypeIds)+")"Setrs=QueryExt(SqlStmt)WhlieNotrs.EOFIfi=0ThenGetTypeNames=rs.Fields(1)ElseGetTypeNames=GetTypeNames+","+rs.Fields(1)EndIfi=i+1rs.MoveNextWendEndFunctionPublicSubInsert()SqlStmt="INSERTINTOUsersValues('"_+Trim(UsersName)+"','"+Trim(UserPwd)+"')"SQLExt(SqlStmt)EndSubPublicSubUpdate(ByValTmpUserAsString)SqlStmt="UpdateUsersSetUserName='"+Trim(UserName)"_+"',UserPwd='"+Trim(UserPwd)_+"'WHEREUserName='"+Trim(TmpUser)+"'"SQLExt(SqlStmt)EndSubPublicSubInit()Company=""Telephone=""ZipCode=""Fax=""Address=""Email=""Contact=""TypeId=1Comment=""EndSubPublicSubDelete(ByValTmpIdAsLong)SqlStmt="DELETEFROMCompanyWHEREId="+Trim(TmpId)SQLExt(SqlStmt)EndSubPublicFunctionGetInfo(ByValTmpIdAsInteger)AsBooleanDimrsAsNewADODB.RecordsetSqlStmt="SELECT*FROMCompanyWHEREId="+Trim(TmpId)Setrs=QueryExt(SqlStmt)Ifrs.EOFThenInitGetInfo=FaleseElseIfIsNull(rs.Fields(0))ThenId=0ElseId=rs.Fields(0)EndIfIfIsNull(rs.Fields(1))ThenCompany=""ElseCompany=rs.Fields(1)EndIfIfIsNull(rs.Fields(2))ThenTelephone=""ElseTelephone=rs.Fields(2)EndIfIfIsNull(rs.Fields(3))ThenZipCode=""ElseZipCode=rs.Fields(3)EndIfIfIsNull(rs.Fields(4))ThenFax=""ElseFax=rs.Fields(4)EndIfIfIsNull(rs.Fields(5))ThenAddress=""ElseAddress=rs.Fields(5)EndIfIfIsNull(rs.Fields(6))ThenEmail=""ElseEmail=rs.Fields(6)EndIfIfIsNull(rs.Fields(7))ThenContact=""Contact=rs.Fields(7)EndIfIfIsNull(rs.Fields(8))ThenTypeId=1ElseTypeId=rs.Fields(8)EndIfIfIsNull(rs.Fields(9))ThenComment=""ElseComment=rs.Fields(9)EndIfGetInfo=TrueEndIfEndFunctionPublicFunctionIn_DB(ByValTmpTidAsInteger)AsBooleanDimrsAsNewADODB.RecordsetSqlStmt="SELECT*FROMCompanyWHERETypeId="+Trim(Str(TmpTid))Setrs=QueryExt(SqlStmt)Ifrs.EOF=TrueThenIn_DB=FlaseElseIn_DB=TrueEndIfEndFunctionPublicSubInsert()SqlStmt="INSERTINTOCompany(Company,Telephone,Fax,ZipCode,Address,"_&_"Email,Contact,TypeId,Comment)VALUES('"+Trim(Company)+_Trim(Telephone)+"','"+Trim(Fax)+"','"+Trim(ZipCode)+_"','"&_Trim(Address)+"','"+Trim(Email)+'','"+Trim(Contact)+_"','"&_Trim(TypeId)+",'"+Trim(Comment)+"')"SQLExt(SqlStmt)EndSubPublicSubUpdate(ByValTmpIdAsLong)SqlStmt="UPDATECompanySETCompany='"+Trim(Company)&_"',Telephone='"+Trim(Telephone)+"',Fax='"+Trim(Fax)+"',"&_"ZipCode='"+Trim(ZipCode)+"',Address='"+Trim(Address)+_"',Email='"&Trim(Email)+"',Contact='"+Trim(Contact)+"',Comment='"&_Trim(Comment)+"'WhereId="+Trim(Str(TmpId))SQLExt(SqlStmt)EndSubPublicSubUpdateToMember(ByValTmpIdAsString)SqlStmt="UpdateCustomerSetFlag=1,"_+"TypeId="+Trim(TypeId)_+"WHEREId='"+Trim(TmpId)+"'"S