無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 本文配套程序下載地址 ： 無憂無慮畢設網 ()-大學生畢業設計站 ,免費畢業設計論文 ,無憂無慮畢設網 大學生畢業設計 ,出售各類畢業設計源碼 ,論文 ,程序源碼 ,網站源碼 ,免費視頻教程 ,我們將竭誠為您服務！ 第一章 前言 1.1 選題背景及意義 現在的中國汽車市場是一個充滿競爭、充滿挑戰的行業。為了推陳出新，吸引消費者，各家整車廠商殫精竭慮，無數。新概念、新產品和新服務模式層出不窮，原因無它，都想整合各種資源，最大程度吸引消費者的眼球，形成交易。汽車金融類服務的出現，正是在這種整體環境下應運而 生的，而汽車租賃則是其中頗具代表的一種金融服務產品 汽車 租賃作為道路運輸行業一種新的融資服務形式、一種新的出行消費方式和 汽車 生產廠家一種新的 汽車 營銷渠道，在我國正迎來良好的發展機遇。我國 汽車 租賃業已經引起社會各界和世界 汽車 租賃行業的高度關注，正逐步成為 汽車 產業鏈的重要一環，對我國經濟和道路運輸業的發展發揮著重要的作用。目前，全國多數城市的 汽車租賃行業正在各地 交通 部門的 管理 下健康有序發展，中國租車市場的巨大增長誘惑，正在吸引著越來越多的目光。 隨著汽車租賃業的迅速發展，租賃業務量也變的越來越多，以往人工處理數據的方式已阻礙了公司的發展，汽車租賃業務管理系統的開發迫在眉睫。 同時 使用汽車租賃管理系統 也更加 可以規范 企業 的管理和經營行為，減少 企業 的經營成本，提高工作效率。 本設計結合企業的實際需要， 利用計算機網絡和數據庫技術 ,主要完成了汽車租賃業務管理 系統的需求分析、數據庫設計、應用程序設計與開 發工作。 1 2 汽車租賃管理學的歷史及發展趨勢 汽車租賃業的發展背景 生 活環境及工作方式變化： 隨著世界經濟形勢的變化和西方國家產業結構的變化，人們對擁有汽車的觀念也在變化。越來越多的家庭、個人由于工作環境、勞動方式的變化，不再求長期擁有汽車，而是以 “ 招之即來 ” 的方式使用各種汽車。用戶認為，租賃汽車可以節省大筆投資，不必支付諸如養路費、保險費和維修費等之類的費用，甚至不需要建車庫。因為可按小時、天等時間單位來租車，亦可要求租賃公司派出司機來開車。 生活及工作中個性化需求日益突出： 由于工作上的特殊要求和業余生活的豐富無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 多樣化，人們對汽車的功能和配置在某一特定時間內有特殊的需求。這在通常情況下一般汽車是滿足不了的，但是租賃公司就可以提供這類專用汽車以滿足不同用戶的不同需要。如 “ 辦公汽車 ” 、 “ 旅游度假汽車 ” 、 “ 多媒體汽車 ” 等。 汽車作為經營輔助手段的觀念成為時代潮流： 越來越多的中小企業利用租賃汽車來完成其經營活動是當代汽車租賃市場呈現出的一個明顯的發展趨勢。 1997 年，美國汽車租賃營業額每月平均增長 20.5%，其中，與中小企業發生的營業 額每月平均增長 31%。在日本 1997 年新開業的中小企業中，有 80%是主要靠租賃汽車來完成各種經營業務活動。 汽車租賃業未來的發展趨勢 汽車租賃公司的規模化經營趨勢日益加劇 ： 通過多次并購和特許經營等模式的創新，世界主要汽車租賃公司已從最初的小規模經營發展成為現在遍布全球主要國家，平均租賃站點數千個，運營車輛數十萬輛，雇員數萬人的特大型跨國公司。而日趨突出的規模化經營帶來的效益規模化是全球發展的潮流。 跨行業的合作更為廣泛： 汽車租賃業與金融、保險、航空運輸、旅游、酒店服務、汽 車制造等多行業的合作更為緊密，通過對客戶需求的全方位服務，實現汽車租賃持續的發展動力。 對潛在市場的爭奪越來越激烈： 隨著歐美等發達國家汽車租賃市場業務的日趨成熟，亞洲和亞太地區等有發展潛力的新興市場已成為各汽車租賃業巨頭爭相搶奪的焦點。赫茲在亞太地區投入 10 多億美元，進行業務拓展；阿維斯以其優質服務在東南亞和大洋洲已占據了穩固的市場份額，歐洲汽車著眼于中東市場。隨著中國入世和更為全面的對外開放，中國 “ 這一廣闊且遠未充分開發的市場 ” 將成為各大公司爭奪的重點 。 信息網絡和電子商務等新技術日益普及： 汽車租賃公司通過引入電子商務和互聯網絡的廣泛普及應用，將更加快捷、高效地進行業務拓展，有效降低管理成本，實現經營業務的持續穩定增長，最終從而使其自身的經營管理水平和競爭能力不斷提高。 1.3 本課題研究的主要內容 隨著汽車租賃業的迅速發展，租賃業務量也變的越來越多，以往人工處理數據的方式已阻礙了公司的發展，汽車租賃業務管理系統的開發迫在眉睫。 用 Delphi 語言開發 SQL數據庫中數據，設計汽車租賃公司管理系統，處理實際遇到的汽車租賃公司業務問題。 本設計結合企業的實際需要， 利用計算機網絡和數據庫技術 ,主要完成 了汽車租賃業務管理系統的需求分析、數據庫設計、應用程序設計與開發工作。 該 系統無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 包括客戶會員 與非會員 管理、日常租賃與歸還管理、車輛管理以及保險公司管理等功能，通過對數據庫的控制和管理，可實現結算審核、查詢、增加、刪除、修改等功能 。 第二章 系統分析及 總體設計 2.1 系統分析 2.1.1需求分析 通過調查和分析要求具有以下功能： （ 1) 登陸信息管理：進入系統的帳戶和密碼，分管理員和普通用戶權限。 （ 2) 客戶信息管理：客戶信息包括客戶編號，客戶姓名，年齡，性別，電話。 （ 3) 會員信息管理：會員信息包括客戶編 號，會員姓名，年齡，性別，電話。 （ 4) 車輛信息管理：車輛信息包括汽車編號，汽車顏色，車牌號碼，車輛類型。 （ 5）類型信息管理：類型信息包括汽車編號，汽車品牌，汽車廠家地址。 （ 6）保險公司信息管理：此信息包括汽車編號，公司名稱，負責人，保險資金。 （ 7）汽車租賃信息管理：此信息包括汽車編號，出租天數，出租價格，租車人。 （ 8）汽車歸還信息管理：汽車歸還信息包括汽車編號，實際使用天數，實付金額，經辦人，回車公里數。 2.1.2 設計思路 本次軟件的設計按照功能模塊的分析規劃中所設定的模塊進行模塊化設計。在 各個模塊中又可以應數據庫操作的不同劃分為不同的操作塊。例如對于數據的添加、刪除、修改都屬于對數據表的管理維護，可將其共同歸屬為數據的管理模塊，不同的操作只是需對應為不同的操作塊；通過管理權限進行可分為普通用戶和管理員兩種不同的管理模塊。 本軟件的前端界面的設計主要采用 Delphi，而對于后端的數據庫，由于對 SQL Sever較為熟悉，并且 SQL Sever的視圖、觸發器、以及存儲過程的使用將大大的方便數據庫的維護、管理和查詢操作，大大加速程序的執行速度；所以使用 SQLSever2000來提供的支持。而 SQL Sever編程和 Delphi編程的結合使用可以地進一步揚長避短，發揮其各自的優點，例如，對于簡單的數據庫操作在 Delphi中的實現容易，并且也不會降低程序的執行速度；而對于復雜算法執行， SQL Sever下的執行將遠遠快于 Delphi下的執行。因此，此方案是可行且最好的。 對于軟件窗體的設計，將遵循直觀、簡潔的原則；數據庫的設計將遵照一致性及完整性的原則。設計思想：始終圍繞方便用戶使用。 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 2.1.3可行性分析 隨著人們生活水平的不斷提高，人們對汽車的消費和需求也越來越旺盛。很多汽車銷售公司的業務環節仍然運 用人工記賬的傳統方法，既容易出錯又會導致賬目混亂，查詢和統計起來也非常不方便，費時又費力，嚴重時會給公司造成難以挽回的損失。 結合上述問題，人們開發了汽車租賃公司管理系統， 使得人們 不但能使各業務環節協調一致，而且操作簡單，賬目清晰。通過賬目查詢，公司能在最短的時間內獲得市場信息，從而制訂相應的決策 。汽車租賃公司管理系統使用 Delphi 7.0 開發，它是目前最為流行的可視化快速應用程序開發環境，對數據庫有強大的支持。后臺數據庫使用 SQL Server 2000 數據庫，以保證數據的安全和執行高效。 2.2 總體設計 2.2.1系統設計工具概述 1. DELPHI 的介紹 Delphi 是 Inprise 公司 (即原 Borland)推出的基于真正面向對象語言 Object Pascal語言的可視化編程工具，是當今世界上最快的編譯器。能大大提高編程效率。面向對象的程序設計是現在最成功的高級語言程序設計方法，面向對象的程序設計的目的是創建可重用代碼，通過把屬性和方法封裝進 “對象 ”中，以更好地模擬現實世界 . Delphi 是全新的可視化編程環境，為我們提供了一種方便、快捷的 Windows 應用 程序開發工具。它使用了 Microsoft Windows圖形用戶界面的許多先進特性和設計思想，采用了彈性可重復利用的完整的面向對象程序語言 (Object-Oriented Language)、當今世界上最快的編輯器、最為領先的數據庫技術。 Delphi 7是 “第四代編程語言 ”的杰出代表，它是一個完全導向的、高度可視化的集成開發環境 ， 非常人性化。具有簡單、高效、功能強大的特點 。和 VC相比， Delphi更簡單、更易于掌握，而在功能上卻絲毫不遜色；和 VB相比， Delphi 則功能更強大、 更實用 。 Delphi7 是 Inprise 公司于 2002 年 8 月在美國推出 的一款非常優秀的可視化應用程序開發工具的最新版本。與以往的版本相比， Delphi7 突出了對 NET、WEBservices、 跨平臺開發的準備和支持， Delphi7 提供了開發電子商務應用程序的眾多新特征，可概括為： （ 1）提供了一些工具，對 NET架構進行準備。 （ 2）使用模板驅動構架 （ Model Driven Architecture-MDA） 。 （ 3）通過引入 Atozed Software 公司 的 IntraWeb 技術。 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： （ 4）通過 Borland Kylix3 For Delphi 版本，重新編譯并分發為 Linux 平臺應用，這不僅體現了 Delphi 7 的跨平臺的兼容性。 （ 5）通過 Delphi 7，可以使用戶的商業開發與 WEBservices 進行整合。 （ 6）使用 Delphi 7，通過瀏覽可用的 UDDI 目錄，采用網絡指紋技術。 （ 7） Delphi 7的 BizSnap 技術，強有力的擴展了使用商業 XML文檔。因此，可以在Delphi 7中開發與商業伙伴所使用 Web Services 的平臺進行無縫結 合的應用程序，包括支持 Microsoft 的 NET、 BizTalk等。 （ 8）在 Delphi 7中，通過由 MDIAS發展而來的 DataSnap 技術。 （ 9）在 Delphi 7中，引入 Rave Reports 技術，使程序員快速開發跨平臺的報表。 （ 10）在 Delphi 7 中，提供了支持 Windows XP 主題風格的 VCL組件。 2.SQL Server 2000 簡介 SQL Server 2000 是 Microsoft 公司推出的 SQL Server 數據庫管理系統的最新版本該版本繼承了 SQL Server 7.0 版本的優點同時又比它增加了許多更先進的功能具有使用方便可伸縮性好與相關軟件集成程度高等優點可跨越從運行 Microsoft Windows 98 的膝上型電腦到運行 Microsoft Windows 2000 的大型多處理器的服務器等多種平臺使用 。 SQLServer200能夠滿足今天的商業環境要求不同類型的數據庫解決方案 ,此外 還為您的數據管理與分析帶來了靈活性，允許單位在快速變化的環境中從容響應，從而獲得競爭優勢。作為一個完備的數據庫和數據分析包，SQLServer2000為快速開發新一代企業 級商業應用程序、為企業贏得核心競爭優勢打開了勝利之門。 SQL Server 2000建立在 SQL Server 6.5和 SQL Server 7.0堅固而雄厚的技術基礎之上 ,是公認的運行在 Windows NT平臺上的最佳數據庫。 SQL Server 2000 已經在性能和可擴展性方面確立了世界領先的地位，是一套完全的數據庫和數據分析解決方案。與以前的版本相比， SQL Server 2000 的特點體現在如下幾個方面 : 1 與 Internet的緊密結合 SQL Server 2000 的數據庫引擎集成了對 XML的支持，同時可以擴展、易于使用和安全的特點，成為建設大型 Web應用的 Windows DNA架構相集成。同時， SQL Server 2000所攜帶的諸如英語查詢以及 Microsoft查詢服務等為開發 Web應用提供了友好而強大的查詢界面。 2.可擴展性和可用性 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 為了兼顧各種配置計算機的使用， SQL Server 2000的數據庫引擎可以運行在從裝 Windows 98 的臺式機、筆記本電腦安裝 SQL Server 2000數據中心的多處理器計算機上。 SQL Server 2000企業版，具有聯盟服務器（ federeted servers）、視圖索引（ indexed views）以及超大規模的內存支持等特征，完全可以滿足最大規模的 Web站點的性能需求。 3 企業級數據庫 SQL Server 2000關系數據庫引擎具備有完善而強大的數據處理功能。它在有效保證數據庫一致性的基礎上，盡量降低成千上萬的數據庫用戶進行并發訪問時的管理和延遲成本。 SQL Server 2000的分布式查詢允許用戶同時引用多處數據源，但友好的界面使用戶覺得好象自始至終是在操作一個數據源。 4 簡單、友好的操作方式 SQL Server 2000包含一 整套的管理和開發工具。這些工具都具有非常友好的用戶界面，在提供強大功能的同時易于安裝、使用和發布。用戶可以把更多的精力放在自己的業務問題上，可以非常迅速地建立并發布強大而復雜的數據庫應用系統。 5 數據倉庫支持 SQL Server 2000為了滿足現代企業對大規模數據進行有效分析和利用的要求，包含了一系列提取、分析、總結數據的工具從而聯機分析處理成為可能。同時， SQL Server 2000提供了英語查詢工具和編程接口，使得以英語為基礎設計和管理、查詢數據庫成為可能。 2.2.2功能框圖及模塊分析 1功能框 圖 當用戶使用該系統時，首先是管理員輸入密碼和角色經系統開始驗證，假如密碼和角色都正確，系統則進入主截面，用戶在登陸后可以進入密碼修改界面進行修改密碼。在系統主界面下，分布著系統的子界面，每個子界面都具有不同的功能模塊，它們之間是互相獨立的，主界面統一對系統各個子界面進行調度。整個系統流程圖呈樹狀。如圖 2.1所示 為系統的功能框圖 ： 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 圖 2-1功能框圖 2. 模塊分析 為了便于系統的設計開發 ,根據系統功能要求 ,使用了模塊化設計 ,軟件研究所管理信息系統可以分為七個 功能模塊： 登錄界面： 該模塊的主要功能是 使管理 信息 系統的用戶 按 其權限 進入主界面。 主界面： 該模塊提供管理系統的主界面，是主系統的唯一入口和出口，該界面提供用戶選擇并調用各子模塊 。 系統管理界面： 該模塊的功能是可以對用戶的密碼進行修改。 基本信息管理 界面： 系統管理模快塊 主界面 基本信息模塊 客戶會員管理 日常信息管理 類型信息 保險信息 車輛信息 客戶信息 會員信息 汽車租賃 汽車歸還 登陸界面 開場 flash 密碼修改 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 該模塊的功能是對 汽車類型信息、保險公司信息、車輛信息等信息的設置 。 日常業務管理模塊界面： 該模塊的主要功能是對汽車租賃、汽車歸還信息的添加、修改、刪除。 客戶會員管理模塊： 該模塊的功能是對客戶信息、會員信息的添加、修改、刪除。 2.2.3系統數據 流圖 用戶進入軟件研究所管理信息系統之前需要進行權限驗證，只有合法的用戶才能進行相應的管理操作；普通用戶登陸之后只能查詢和修改自己的信息，瀏覽一些公共信息。需要處理的模塊包含：登錄模塊，修改密碼模塊，主界面模塊， 日常業務管理模塊（包括汽車租賃、汽車歸還的查詢等），客戶會員管理模塊（包括客戶信息、會員信息的查詢，添加，修改等），基本信息管理模塊（包括汽車類型信息、保險公司信息、車輛信息）。 數據庫模塊包括如圖 2-2 所示的幾個方面。 圖 2-2 數據庫模塊 管理員 普通用戶 修改密碼 操作 數據庫模塊 登陸信息 客戶信息 會員信息 車輛信息 類型信息 保險公司 汽車租賃 汽車歸還 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 圖 2-3 系統權限及 修改密碼流程 圖 2-4管理員運行流程 圖 2-5普通用戶運行流程 普通用戶 管理 查詢 管理員 管理 添加 修改 刪除 查詢 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 第三章 數據庫的設計 在系統后臺數據庫設計中，為了達到減少數據的冗余度，在設計數據庫時通常進行規范化分析，并使各個數據庫表滿足某種范式的要求。在關系數據庫設計中，關系模型要求數據庫表中每行記錄都必須是惟一的，而不允許出現相同的記錄。在設計數據庫表時，可以通過定義主鍵來保證記錄（實體）的惟一性。一個表的主鍵由一 個或多個字段組成，其值具有惟一性，而不允許取空值，主鍵的作用惟一地標識表中的每一條記錄。 3.1 實體描述 根據需求調研的結果，汽車租賃公司管理系統中，涉及到的實體有：類型信息表，保險公司信息表，車輛信息表，客戶信息表，會員信息表，汽車租賃信息表，汽車歸還信息表等。類型信息表，它包括一些基本結構的屬性信息：汽車編號、汽車品牌、汽車廠家地址等；保險公司信息表包括信息： 汽車編號，公司名稱，負責人，保險資金等；車輛信息表包含信息：汽車編號，汽車顏色，車牌號碼，車輛類型等；汽車租賃信息包含：汽車編號，出租天數 ，出租價格，租車人信息等；汽車歸還信息表：包括汽車編號，實際使用天書，實付金額，經辦人，回車公里數等；會員信息包含客戶編號，會員姓名，年齡，性別，電話等信息；客戶信息表包括信息：客戶編號，客戶姓名，年齡，性別，電話等信息。 E-R 方法 （ Entity-Relationship Approach） 即實體聯系方法，這種方法用 E-R圖來表示實體及其聯系。 ER 圖是用來描述某一組織 (單位 )的概念模型， 在數據庫中有嚴格的界定 ,是P.P.S.Chen于 1976 年提出的實體 -聯系方法 (Entity-Relationship Approach).該方法用 E R圖來描述現實世界的概念模型 它能 提供了表示實體、屬性和聯系的方法。構成 ER圖的基本要素是實體、屬性和關系 ； 實體是指客觀存在并可相互區分的事特；屬性指指實體所具有的每一個特性。 圖 3-1為系統 系統 E-R 圖 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 類型信息表 汽車編號 汽車品牌 汽車廠家地址 保險公司信息表 汽車編號 公司名稱 負責人 保險資金 車輛信息表 汽車編號 汽車顏色 車牌號碼 車輛類型 汽車租賃信息表 汽車編號 出租天數 出租價格 租車人 汽車歸還信息表 汽車編號 實際使用天數 實付金額 經辦人 回車公里數 客戶信息表 客戶編號 客戶姓名 年齡 性別 電話 會員信息表 客戶編號 會員姓名 年齡 性別 電話 1 1 1 1 1 1 1 1 1 N 1 1 1 1 圖 3-1系統 E-R圖 3.2 數據表的設計 根據對軟件的需求和功能分析，整個汽車租賃公司管理系統中的數據庫總共設計了下面這些表，分別為：登陸表，類型信息表，保險公司信息表，車輛信息表，客戶信息表，會員信息表，汽車租賃信息表，汽車歸還信息表。 下面著重闡述各表的數據結構 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 表 3-1 登陸信息表 字段名 數據類型 長度 主鍵否 功能描 述 登陸身份 char 10 是 登陸身份 登陸密碼 char 10 登陸密碼 級別 varchar 10 級別 如表 3-1所示為登陸系統信息表，登陸信息表用來保存進入系統用戶信息，表中包括登陸身份和登陸密碼、權限。登陸身份在這里是主鍵。 表 3-2 類型信息表 字段名 數據類型 長度 主鍵否 功能描述 汽車編號 nvarchar 8 是 汽車編號 汽車品牌 char 12 汽車品牌 汽車廠家地址 char 10 汽車廠家地址 如表 3-2所示為類型信息表，類型信息表用來保存汽車類型信息 ，表中包括登汽車編號，汽車品牌，汽車廠家地址。汽車編號在這里是主鍵。 表 3-3 客戶信息表 字段名 數據類型 長度 主鍵否 功能描述 客戶編號 varchar 10 是 客戶編號 客戶姓名 char 10 客戶姓名 年齡 varchar 10 年齡 性別 varchar 2 性別 電話 varchar 10 電話 如表 3-3所示為客戶信息表，客戶信息表用來保存客戶信息，表中包括客戶編號，客戶姓名，年齡，性別，電話。客戶編號在這里是主鍵。 表 3-4 會員信息表 字段名 數據類型 長度 主鍵 否 功能描述 客戶編號 varchar 10 是 客戶編號 會員姓名 char 10 客戶姓名 年齡 varchar 10 年齡 性別 varchar 2 性別 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 電話 varchar 10 電話 如表 3-4所示為會員信息表，會員信息表用來保存會員信息，表中包括客戶編號，會員姓名，年齡，性別，電話。客戶編號在這里是主鍵。它和表 3關聯是客戶的編號和名字是不變化的 表 3-5 汽車租賃信息表 字段名 數據類型 長度 主鍵否 功能描述 汽車編號 varchar 10 是 汽車編號 出租天數 char 10 出租天數 出租價格 varchar 10 出租價格 租人車 varchar 2 租車人 如表 3-5所示為汽車租賃信息表，汽車租賃信息表用來保存汽車租賃信息，表中包括汽車編號，出租天數，出租價格，租車人。汽車編號在這里是主鍵。 表 3-6 汽車歸還信息表 字段名 數據類型 長度 主鍵否 功能描述 汽車編號 varchar 10 是 汽車編號 實際使用天數 char 10 實際使用天 實付金額 varchar 10 實付金額 經辦人 varchar 2 經辦人 回車公里數 varchar 10 回車公里數 如表 3-6 所示為汽車歸還信息表，汽車租賃信息表表中包括汽車編號， 實際使用天數 ， 實付金額 ， 經辦人，回車公里數 。汽車編號在這里是主鍵。 3.3 后臺數據庫的配置 系統數據庫建立完成后，前臺界面訪問數據庫時，需要控件訪問后臺數據庫。Delphi7 中有 BDE 和 ADO 兩個數據訪問控件，在使用 Delphi 自帶數據庫 DataBase Desktop時，就用 BDE 控件訪問。這里系統后臺數據庫設計采用了 SQL Server 2000，因此使用 ADO數據庫控件訪問 SQL Server 數 據庫。 ADO 數據控件使用 Microsoft ActiveX Data Object（ ADO）快速地建立數據綁定控件和數據提供者之間的連接。使用 ADO 控件訪問 SQL Server 數據庫時，通常需要做以下幾件事情： ADOQuery （ 1） Delphi中的 Form窗體或 Data Module 中添加 ADO數據控件； （ 2） 使用 ADO 數據控件連接到一個 SQL Server 數據庫。 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 數據庫連接模塊如圖 3-2所示。 圖 3-2 數據庫連接模塊 1設計步驟 （ 1）在 Delphi 中選擇“ File” /“ New” /“ Form”菜單項，新建一個數據模塊，命名為“ Form1”。 （ 2）在“ ADO”組件頁中點選“ ADOQuery”組件，添加到窗體上，用 ADOQuery 組件用到連接數據庫上。 （ 3）點選 ADOQuery 1組件，在“ Object Inspector”窗口中，單擊 ConnectionString屬性右側的【 】按鈕， 彈出對話框如 圖 3-3所 示 。 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 圖 3-3 數據連接對話框 （ 4）單擊【 Build】按鈕，在彈出的對話框中的“提供程序”選項卡中設置希望連接的數據， 如圖 3-4所示 。 圖 3-4 連接屬性對話框 （ 5）選擇“連接”選項卡，設置連接相關設置， 如圖 3-5所示。 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 圖 3-5 連接屬性對話框 （ 6）單擊【測試連接】按鈕，如果連接成功，則提示成功，單擊【確定】按鈕完成數據庫的連接。 （ 7）這里需要指出的是，盡管 ADOTable 組件的屬性、事件和方法與 Table組件非常相似，但還有不同之處，比如 Table組件有 findly方法，但在 ADOTable組件卻取消了 findly 方法。 ADOQuary 組件的使用方法和 Query 組件類似，其ConnectionString 屬性和 Connection 屬性的設置與 ADOTable 組件同。值得注意的是，在程序中為參數賦值時和 Query組件稍有區別。一般情況下原來的賦值語句為：PararmByname( p1 ).value:=a1 ；而在 ADOQuery 中需要這樣寫：Parameter.ParaByname( P1 ).value： =a1；另外 原代碼 中使用的 Prepare 方法在這里也不能再使用。 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 第四章 系統詳細設計 4.1 開場 FLASH 模塊設計 開場 flash 模塊是系統運行是先彈出的一個 flash 圖片模塊，該模塊上面設置了定時控件， 5秒后會自動跳轉到登陸界面，或者手動點該 flash模塊也可以直接進入登陸界面。如圖 4-1所示，為開場 fiash模塊。 圖 4-1 Flash 模塊 整個 flash模塊使用的控件為 Additional 中的 Image控件和 System 中 Timer 控件。首先 點選 Tmage 組件，在“ Object Inspector ”窗口中，單擊“ Align”選擇其“ alClient ”屬性，即設置該控件占布整個 Form 窗口，然后點“ picture”可以添加所需要的圖片；點下 Timer 控件在“ Object Inspector ”窗口中名其“ Name”為“ Timer1 ” 在 Timer控件的單擊事件中添加如下代碼： procedure Tflash.Timer1Timer(Sender: TObject)； 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： begin inc(itime)； /計算時間， 5秒后自動關閉 if itime=5 then begin timer1.Enabled := false； flash.Visible := false； close； end； end； procedure Tflash.Image1Click(Sender: TObject)； begin close； /點擊界面 ,flash關閉 end； procedure Tflash.FormClose(Sender: TObject； var Action: TCloseAction)； begin Action := cafree； end； end. 4.2 登錄模塊設計 系統登陸實現了整個系統中權限檢查，管理員輸入用戶名和密碼口令，便可登陸系統進入系統主界面。 系統登錄主要用于對進入汽車租賃公司管理系統的用戶進行安全性檢查，阻止非法用戶進入該系統。驗證操作員及其密碼，主要通過記錄集結果（ RecordCount）結合 If語句判斷用戶選定的操作員及其輸入的密碼是否符合數據庫中的操作員和密碼 ，如果符合則允許登錄，否則提示用戶用戶名或密碼不正確。 如圖 4-2所示，為系統登陸界面 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 圖 4-2 登陸系統模塊 整個系統登陸界面使用的 Delphi 控件是 Standard 選項卡中的 Edit、 Lable 和Button。單擊運行的 Button，激發 Button1 Click 事件，對 Button1 Click 事件下進行編寫 代碼，這里的編程思想是，把要寫入用戶名和密碼相對應的兩個 Edit 中的字符串與登陸密碼表中的用戶名、密碼進行查找，查找完畢后并進行比較大小，如果相等，則布爾變量為 true，則彈出主界面窗口。否則的話，系統彈出提示信息，“登錄身份或密碼錯誤！”。此外在程序中添加管理員權限的語句，使管理員和普通用戶進入界面實現功能不一樣。 在【確定】按鈕的單擊事件中添加如下代碼： procedure Tlogin.Button1Click(Sender: TObject)； begin if (edit1.Text) and (edit2.Text) then/登錄身份與密碼不為空則查詢 begin with login.ADOQuery1 do begin close； sql.Clear； sql.Add(select * from denglu where 登錄身份=+edit1.text+ and 登錄密碼 =+edit2.text+)； open； if eof then /查詢不到滿足條件的記錄 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： showmessage(登錄身份或密碼錯誤 ) else begin ModalResult := mrOK； /查詢到了就返回 mrok if (login.ADOQuery1.FieldByName(級別 ).AsString=管理員 )then begin teac_info.GroupBox3.Visible:=true； teac_info.GroupBox4.Visible:=true； teac_info.GroupBox5.Visible:=true； pro_info.GroupBox3.Visible:=true； pro_info.GroupBox4.Visible:=true； pro_info.GroupBox5.Visible:=true； end else begin teac_info.GroupBox3.Visible:=false； teac_info.GroupBox4.Visible:=false； teac_info.GroupBox5.Visible:=false； pro_info.GroupBox3.Visible:=false； pro_info.GroupBox4.Visible:=false； pro_info.GroupBox5.Visible:=false； cla_info.GroupBox3.Visible:=false； cla_info.GroupBox4.Visible:=false； cla_info.GroupBox5.Visible:=false； huiyuan.GroupBox3.Visible:=false； huiyuan.GroupBox4.Visible:=false； huiyuan.GroupBox5.Visible:=false； end； end； end； end else showmessage(登錄身份和密碼不能為空 ) end； 在【取消】按鈕的單擊事件中添加如下代碼： procedure Tlogin.Button2Click(Sender: TObject)； begin Application.Terminate； end； 系統登錄流程圖如圖 4-3所示。 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 圖 4-3 系統登錄流程圖 4.3 主窗體的設計 在登陸窗體中輸入用戶名和正確的密碼口令后，系統彈出主窗體。 主窗體中主要控制方式是通過菜單和工具欄按鈕來調用子窗體，汽車租賃公司管理系統主窗體運行結果如圖 4-4所示 。 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 圖 4-4主體窗口模塊 在菜單設計器中，按照系統功能需求，添加了五組功能選擇菜單，分別為功能選項（包括類型信息、保險公司信息、車輛信息等）、系統管理（密碼修改）、客戶信息管理（客戶信息、會員信息）、日常業務管理（汽車租賃、汽車歸還）、退出系統（退出系統）。 程序設計思想是，主窗體統一對系統中 8個子窗體進行調度，并且每個子窗體的功能都不相同。雙擊 Main3. Sui.MainMenu1(菜單編輯器 )中的下拉菜單， 在Tmain.N2Click下編寫程序，實現單擊菜單選項彈出一個子窗體，一般用 form.show、form.BringToFront 或 form.showmodal語句 。 特別注意的是 ， 在調用一個子窗體時，必須在 implementation 后引用這個子窗體的單元。 4.4 系統管理模塊的設計 此模塊即為 修改密碼模塊。 這個模塊可以使登陸用戶自主修改自己的登陸密碼。如圖 4-5所示 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 圖 4-5密碼修改模塊 這個模塊使用的空間和登陸模塊是一樣的。 4.5功能選項模塊的設計 此模塊包含類型信息、保險公司信息、車輛信息。 4.5.1類型信息窗體 類型信息 窗體 界面見圖 4-6所示。 此界面的作用是汽車類型的基本信息，可以進行查詢、修改、添加、刪除。 圖 4-6 類型信息模塊 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 類型信息界面使用的 Delphi控件是 Standard選項卡中的 Edit、 Lable和 Button。單擊運行的 Button，激發 Button Click 事件，對 Button Click 事件下進行編寫代碼，這里的編程思想是，把要寫入用汽車編號和汽車品牌相對應的兩個 Edit 中的字符串與類型信息表中的用進行查找。 這里還用到 Data Controls 中的 DBGrid 的控件和 Data Access 中的 DataSource控件以及 ADD中的 ADOQuary 控件來連接數據庫顯示類型信息表。 步驟： （ 1）在 Delphi 中選擇“ File” /“ New” /“ Form”菜單項，新建一個數據模塊，命名為“ teac_info4”； （ 2）在 Form上添加 DBGrid 、 DataSource 、 ADOQuery 組件； （ 3）點選 DataSource1 組件，在“ Object Inspector”窗口中，單擊 DataSet 屬性右側選擇 ADOQuery1； （ 4）點選 ADOQuery1 組件， 在“ Object Inspector”窗口中，單擊 ConnectionString屬性右側的【 】按鈕連接數據庫，接著單擊 SQL屬性窗口添加程序： select * from leixing語句； （ 5）點選 DBGrid1 組件， 在“ Object Inspector”窗口中，單擊 DdataSource 屬性選擇 DataSource1。 上圖為管理員權限用戶進入系統界面，普通權限用戶只能進行查詢等功能。如圖4-7 所示： 圖 4-7 普通權限用戶進入界面 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 普通 用戶和管理員用戶界面比少了添加、修改、刪除等功能。他是通過登陸界面中的一段權限程序來實現的。具體如下： if (login.ADOQuery1.FieldByName(級別 ).AsString=管理員 )then begin teac_info.GroupBox3.Visible:=true； teac_info.GroupBox4.Visible:=true； teac_info.GroupBox5.Visible:=true； end else begin teac_info.GroupBox3.Visible:=false； teac_info.GroupBox4.Visible:=false； teac_info.GroupBox5.Visible:=false； end； end； 這個是通過屏蔽 teac_info4上的 3個 GroupBox 組件來實現的。 4.5.2保險公司信息窗體 保險公司信息模塊是對汽車編號，公司名稱，負責人，保險資金等進行添加、修改、查詢、刪除、瀏覽。 4.5.3車輛信息窗體 車輛信息管理模塊是對汽車編號，汽車顏色，車牌號碼，車輛類型等一些查詢、修改的模塊。如圖 4-8所示： 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 如圖 4-8 車輛信息模塊 4.6客戶管理模塊的設計 此模塊包含客戶信息、會員信息。 4.6 1 客戶信息模塊 客戶信息模塊：客戶信息包括客戶編號，客戶姓名，年齡，性別，電話。 此模塊就是對模塊中信息的各種處理 。 4.6 2 會員信息模塊 會員信息模塊是對客戶編號，會員姓名，年齡，性別，電話等信息的查詢、修改、添加、刪除等。 如圖 4-9所示： 圖 4-9 會員信息模塊 整個會員信息界面使用的 Delphi 控件是 Standard 選項卡中的 Edit、 Lable、Button以及一些連接數據庫的控件。單擊運行的 Button，激發 Button1 Click事件，對 Button1 Click 事件下進行編寫代碼，代碼如下： procedure Thuiyuan.Button8Click(Sender: TObject)； begin adoquery1.Close； 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： adoquery1.SQL.clear； adoquery1.SQL.Add(select * from huiyuan )； adoquery1.Open； end； procedure Thuiyuan.Button7Click(Sender: TObject)； begin adoquery1.Post； showmessage(修改成功 )； end； procedure Thuiyuan.Button6Click(Sender: TObject)； begin adoquery1.Edit； end； procedure Thuiyuan.Button5Click(Sender: TObject)； begin adoquery1.Delete； showmessage(修改成功 )； end； procedure Thuiyuan.Button3Click(Sender: TObject)； begin adoquery1.Append； end； procedure Thuiyuan.Button4Click(Sender: TObject)； begin adoquery1.Post； showmessage(修改成功 )； 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： end； procedure Thuiyuan.Button2Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from huiyuan where 會員姓名=+edit2.text+)； adoquery1.Open； end； procedure Thuiyuan.Button1Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from huiyuan where 客戶編號=+edit1.text+)； adoquery1.Open； end； procedure Thuiyuan.FormClose(Sender: TObject； var Action: TCloseAction)； begin Action := cafree； end； procedure Thuiyuan.FormCreate(Sender: TObject)； begin adoquery1.Open； end； 無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： procedure Thuiyuan.SpeedButton1Click(Sender: TObject)； begin huiyuan.Hide； end； end. 4.7日常業務管理模塊的設計 這個模塊包括汽車租賃模塊和汽車歸還模塊。 4.7 1 汽車租賃模塊 汽車租賃信息包括汽車編號，出租天數，出租價格，租車人。 該模塊是對其進行查詢、添加 、修改、刪除、瀏覽。 4.7 2 汽車歸還模塊 汽車歸還信息模塊：汽車歸還信息包括汽車編號，實際使用天數，實付金額，經辦人，回車公里數。汽車歸還模塊運行后顯示 如下圖 4-10所示： 圖 4-10 汽車歸還信息模塊 1. 窗體設計步驟 （ 1） 新建一個窗體，命名窗體為 “ guihuan” ,設置“ caption”屬性為無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： “ guihuan ”。 （ 2） 在“ standard”組件中選擇“ GroupBox”組件，在窗體上添加 3 個“ GroupBox” 組件，分別命名 為“ GroupBox1”， “ GroupBox2”， “ GroupBox3”。 （ 3） 將 3個 “ GroupBox”組件的“ caption”屬性分別設置為“按編號查詢”，“按負責人查詢”，“按里程查詢”。 （ 4） 在每個“ GroupBox”組件上添加“ standard”組件中“ Edit”組件和“ Button”組件，把“ Edit”組件中的“ Text”設置為空白，“ Button”組件的“ caption”屬性為“確定”。 （ 5） 在窗體“ guihuan”中添加 Data Controls 中的 DBGrid 的控件，打開其“ Columns”屬性，在里面添加表信息，如圖 4-11所示： 圖 4-11 （ 6） 在窗 體“ guihuan”中添加 DataSource1 、 ADOQuery1 組件，點選 DataSource1 組件，在“ Object Inspector”窗口中，單擊 DataSet屬性右側選擇 ADOQuery1；點選 ADOQuery1 組件， 在“ Object Inspector”窗口中，單擊 ConnectionString 屬性右側的【 】按鈕連接數據庫，接著單擊 SQL屬性窗口添加程序： select * from leixing 語句；最后點選 DBGrid1 組件， 在“ Object Inspector”窗口中，單擊 DdataSource屬性選擇 DataSource1。 2 查詢程序的設計 在 Delphi 中是通過 ADOQuery 控件來實現 對 SQL 語言支持的，也就是說用 Delphi 開發數據庫應用程序時，使用 SQL語言操作數據庫中的數據的唯一途徑是經過 ADOQuery無憂無慮畢設網 ():畢業設計源碼下載 畢業設計源碼下載： 控件。 ADOQuery控件是一個數據集控件，它在 Delphi控件選擇板上的 ADO上，它與DED上的 TTable控件一樣具有很多共同的特性，而同時它提供了比 TTable控件更加強大的數據庫操作功能。 ADOQuery 控件在 SQL 編程中占據了十分重要的位置。它實現了 Delphi 對 SQL 語言的支持，在 Delphi 開發的數據庫應用中， SQL 語句是通過ADOQuery 控件傳遞到要訪問的數據庫系 統的數據庫引擎中，由數據庫引擎具體執行SQL語句，以實現對數據的操作。在本程序的設計中，主要采用動態的 SQL語句，根據輸入的查詢條件的不同，將查詢條件按照參數的形式傳遞到 SQL語句中，通過執行SQL語句查詢出符合條件的記錄。 procedure Tguihuan.Button2Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from guihuan where 汽車編號=+edit1.text+)； adoquery1.Open； end； procedure Tguihuan.Button3Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； adoquery1.SQL.Add(select * from guihuan where 經辦人=+edit2.text+)； adoquery1.Open； end； procedure Tguihuan.Button4Click(Sender: TObject)； begin adoquery1.Close； adoquery1.SQL.clear； 無憂無慮畢設網