1、 網(wǎng)絡(luò)數(shù)據(jù)庫課程設(shè)計車輛租賃管理班 級： 網(wǎng)絡(luò)07-2班 學(xué) 號：姓 名： 李建杰 前 言近年來，計算機技術(shù)日趨成熟，數(shù)據(jù)庫技術(shù)不斷發(fā)展，管理信息系統(tǒng)的應(yīng)用已延伸到社會的各個領(lǐng)域。結(jié)合管理信息系統(tǒng)的開發(fā)方法及步驟，以此為理論基礎(chǔ)，開發(fā)出一個小型的信息管理系統(tǒng)車輛租賃管理系統(tǒng)。車輛租賃管理是汽車租賃公司開展日常運營活動的必須的環(huán)節(jié)。傳統(tǒng)的手工管理方式不但浪費人力、時間，而且管理復(fù)雜，易出差錯。基于計算機技術(shù)的完備的車輛租賃管理系統(tǒng)把一些繁瑣的數(shù)據(jù)計算、信息處理化為簡單的指令操作。完全實現(xiàn)數(shù)據(jù)信息的電算化管理，徹底把人從手工管理中解放出來。經(jīng)過艱苦的努力,我終于實現(xiàn)了預(yù)期的設(shè)計目標(biāo),開發(fā)出這套具有

2、一定實用價值的車輛租賃管理系統(tǒng),使用這套系統(tǒng)有利于提高汽車輛租賃公司的勞動生產(chǎn)率，節(jié)約生產(chǎn)成本，增加經(jīng)濟效益。信息管理系統(tǒng)的服務(wù)性系統(tǒng)，能滿足保險業(yè)務(wù)的需求、客戶群的拓展和管理模式的變化。系統(tǒng)開發(fā)具有超前意識，強調(diào)系統(tǒng)的標(biāo)準(zhǔn)化、系列化，模塊化設(shè)計，有明確的功能模塊結(jié)構(gòu)和技術(shù)支持模塊結(jié)構(gòu)，便于系統(tǒng)維護(hù)、修改和升級，跟隨先進(jìn)技術(shù)的發(fā)展。工程信息管理的自動化、規(guī)范化是當(dāng)今社會的發(fā)展趨勢。信息錄入項目齊全、完整、系統(tǒng)，這些無疑是現(xiàn)代工程信息管理系統(tǒng)的要求。現(xiàn)代化的工程信息管理系統(tǒng)中靈活使用了表格對檔案分門別類，組成工程信息管理系統(tǒng)，可以方便地查詢、閱讀、修改、交流和重復(fù)使用。 目 錄1.需求分析：42

3、.概念設(shè)計53.邏輯設(shè)計94.物理設(shè)計115.數(shù)據(jù)庫的實現(xiàn)116.設(shè)計心得207. 參考文獻(xiàn) 20. 車輛租賃管理1.需求分析1.1車輛租賃管理涉及到的數(shù)據(jù)有：租賃合同數(shù)據(jù)部門數(shù)據(jù)職工數(shù)據(jù)用戶數(shù)據(jù)車輛數(shù)據(jù)車輛故障數(shù)據(jù)1.2車輛租賃管理的處理需求有：查詢所有可租車輛和已租車輛信息查詢租賃合同信息查詢車輛的故障情況計算租車費用1.3業(yè)務(wù)流程圖 2.概念設(shè)計2.1局部視圖設(shè)計（1）確定局部視圖的設(shè)計范圍該應(yīng)用涉及到車輛租用、故障檢修、租用費用計算等。（2）確定實體及實體的主鍵車輛租賃管理涉及到的實體有：租賃合同，存放所有租用車輛的租賃合同。主鍵：租賃合同編號職工，存放公司所有職工信息。主鍵：職工編號

4、部門，存放公司所有部門信息。主鍵：部門編號用戶，存放所有租用車輛的信息。主鍵：用戶編號車輛，存放所有可租用車輛信息。主鍵：車輛編號車輛故障，存放所有車輛損壞信息。主鍵：車輛編號檢查日期 （3）定義實體間的聯(lián)系 一個部門有多名職工，每個職工只屬于一個部門。則部門實體與職工實體之間是一對多聯(lián)系。 一個部門有多輛車可出租，而每輛車只屬于一個部門擁有。則部門實體與車輛實體之間是一對多聯(lián)系。 一輛車可能有多次故障，而每個故障只對應(yīng)一輛車。則車輛實體與車輛故障實體之間是一對多聯(lián)系。 一輛車可多次出租，而一份租賃合同只能租用一輛車。則車輛實體和租賃合同實體之間是一對多聯(lián)系。 每個用戶可通過簽訂多次租賃合同租

5、用多次車輛，而每份租賃合同只對應(yīng)一個用戶。則用戶實體與租賃合同之間是一對多聯(lián)系。 一個部門有多名職工，其中有一個經(jīng)理可以管理部門中的其他職工。經(jīng)理和普通職工之間的管理與被管理是一種自聯(lián)系，而且是一對多的。 一個職工可以排除多個車輛故障，而每個車輛故障有一個職工進(jìn)行排除排除，則職工實體與故障實體之間是一對多聯(lián)系。 （4）給實體及聯(lián)系加上描述屬性租賃合同實體的描述屬性有：租賃合同編號，借用日期，借用時間，還車日期，還車時間，用車前公里數(shù)，用車后公里數(shù)，保險編號，保險費，用戶編號，車輛編號。職工實體的描述屬性有：職工編號，姓名，性別，地址，辦公電話，住宅電話，Email，職位，部門編號。部門實體的描

6、述屬性有：部門編號，部門名稱，部門地址，部門電話，部門傳真號，經(jīng)理職工編號。用戶實體的描述屬性有：用戶編號，用戶名稱，用戶地址，郵編，用戶電話，用戶傳真號，Email。車輛實體的描述屬性有：車輛編號，制造商，車型，顏色，出租費用，部門編號，租出標(biāo)志。車輛故障實體的描述屬性有：車輛編號，檢查日期，檢查時間，檢查結(jié)果，職工編號。 系統(tǒng)ER圖：3.邏輯設(shè)計3.1租賃合同（租賃合同編號，借用日期，借用時間，還車日期，還車時間，用車前公里數(shù)，用車后公里數(shù)，保險金，用戶編號，車輛編號）主鍵：租賃合同編號。外鍵：用戶編號，引用了用戶關(guān)系中的用戶編號； 車輛編號，引用了車輛關(guān)系中的車輛編號。函數(shù)依賴集F：租賃

7、合同編號®借用日期，借用時間，還車日期，還車時間，用車前公里數(shù)，用車后公里數(shù)，保險金，用戶編號，車輛編號 關(guān)系中不存在非主屬性與候選鍵之間的部分與傳遞函數(shù)依賴，所以租賃合同關(guān)系滿足第3范式。3.2部門（部門編號，部門名稱，部門地址，部門電話，部門傳真號，經(jīng)理職工編號）主鍵：部門編號。候補鍵：部門電話； 部門傳真號；經(jīng)理職工編號。外鍵：經(jīng)理職工編號，引用了職工關(guān)系中的職工編號。函數(shù)依賴集F：部門編號®部門名稱，部門地址，部門電話，部門傳真號，經(jīng)理職工編號，部門電話®部門編號，部門名稱，部門地址，部門傳真號，經(jīng)理職工編號，部門傳真號®部門編號，部門名稱，部門

8、地址，部門電話，經(jīng)理職工編號。經(jīng)理職工編號®部門編號，部門名稱，部門地址，部門電話，部門傳真號由于部門名稱®部門地址，故部門編號®部門地址是傳遞函數(shù)依賴。 關(guān)系中存在非主屬性與候選鍵之間的傳遞函數(shù)依賴，所以部門關(guān)系是第2范式。3.3職工（職工編號，姓名，性別，地址，辦公電話，住宅電話，Email，職位，部門編號）主鍵：職工編號。候補鍵：Email。外鍵：部門編號，引用了部門關(guān)系中的部門編號。函數(shù)依賴集F：職工編號®姓名，性別，地址，辦公電話，住宅電話，Email，職位，部門編號，Email®職工編號，姓名，性別，地址，辦公電話，住宅電話，職位，

9、部門編號。 關(guān)系中不存在非主屬性與候選鍵之間的部分與傳遞函數(shù)依賴，所以職工關(guān)系滿足第3范式。 3.4用戶（用戶編號，用戶名稱，地址，郵編，用戶電話，用戶傳真號，Email）主鍵：用戶編號。候補鍵：用戶電話； 用戶傳真號； Email。函數(shù)依賴集F：用戶編號®用戶名稱，地址，郵編，用戶電話，用戶傳真號，Email，用戶電話®用戶編號，用戶名稱，地址，郵編，用戶傳真號，Email，用戶傳真號®用戶編號，用戶名稱，地址，郵編，用戶電話，EmailEmail®用戶編號，用戶名稱，地址，郵編，用戶電話，用戶傳真號 關(guān)系中不存在非主屬性與候選鍵之間的部分與傳遞函數(shù)依

10、賴，所以用戶關(guān)系是第3范式。 主鍵：車輛編號。外鍵：部門編號，引用了部門關(guān)系中的部門編號。函數(shù)依賴集F：車輛編號®制造商，車型，顏色，出租費用，部門編號。 關(guān)系中不存在非主屬性與候選鍵之間的部分與傳遞函數(shù)依賴，所以車輛關(guān)系是第3范式。 3.6車輛故障（車輛編號，檢查日期，檢查時間，檢查結(jié)果，職工編號）主鍵：車輛編號檢查日期。外鍵：車輛編號，引用了車輛關(guān)系中的車輛編號； 職工編號，引用了職工實體中的職工編號。 雖然部門實體是第2范式，但是，部門實體主要提供查詢，幾乎很少有增、刪、改操作，故部門關(guān)系的異常操作可以忽略。故車輛租賃管理的數(shù)據(jù)庫設(shè)計是合理的。 4.物理設(shè)計租賃合同（租賃合同編

11、號，借用日期，借用時間，還車日期，還車時間，用車前公里數(shù)，用車后公里數(shù)，保險金，用戶編號，車輛編號）部門（部門編號，部門名稱，部門地址，部門電話，部門傳真號，經(jīng)理職工編號）職工（職工編號，姓名，性別，地址，辦公電話，住宅電話，Email，職位，部門編號）用戶（用戶編號，用戶名稱，地址，郵編，用戶電話，用戶傳真號，Email）車輛（車輛編號，制造商，車型，顏色，出租費用，部門編號，租出標(biāo)志）車輛故障（車輛編號，檢查日期，檢查時間，檢查結(jié)果，職工編號）5.數(shù)據(jù)庫的實現(xiàn)5.1數(shù)據(jù)庫子模塊 5.2源代碼VERSION 1.0 CLASSBEGINPublic CarNo As StringPublic

12、 TypeId As LongPublic CarName As StringPublic Color As StringPublic OilNo As StringPublic EngineNo As StringPublic CarCase As StringPublic SaleId As IntegerPublic BuyDate As StringPublic InsurNo As StringPublic InsurId As LongPublic InsurType As StringPublic InsurSdate As StringPublic InsurEdate As

13、StringPublic Deposit As LongPublic DayPrice As LongPublic WeekEndPrice As LongPublic WeekPrice As LongPublic MonthPrice As LongPublic DayKM As LongPublic OverTimePrice As LongPublic OverKMPrice As LongPublic Status As StringPublic Comment As StringPublic Sub Init() CarNo = "" TypeId = 0 Ca

14、rName = "" Color = "" OilNo = "" EngineNo = "" CarCase = "" SaleId = 0 BuyDate = "" InsurNo = "" InsurId = 0 InsurType = "" InsurSdate = "" InsurEdate = "" Deposit = 0 DayPrice = 0 WeekEndPrice = 0 We

15、ekPrice = 0 MonthPrice = 0 DayKM = 0 OverTimePrice = 0 OverKMPrice = 0 Status = "待命" Comment = ""End Sub'刪除Cars數(shù)據(jù)Public Sub Delete(ByVal TmpCarNo As String) SqlStmt = "Delete FROM Cars WHERE CarNo='" + Trim(TmpCarNo) + "'" SQLExt (SqlStmt)End SubPu

16、blic Function GetInfo(ByVal TmpCarNo As String) As Boolean Dim rs As New ADODB.Recordset SqlStmt = "SELECT * FROM Cars WHERE CarNo='" + Trim(TmpCarNo) + "'" Set rs = QueryExt(SqlStmt) If rs.EOF = True Then GetInfo = False Exit Function Else If IsNull(rs.Fields(0) Then Car

17、No = "" Else CarNo = rs.Fields(0) End If If IsNull(rs.Fields(1) Then TypeId = 0 Else TypeId = rs.Fields(1) End If If IsNull(rs.Fields(2) Then CarName = "" Else CarName = rs.Fields(2) End If If IsNull(rs.Fields(3) Then Color = "" Else Color = rs.Fields(3) End If If IsNul

18、l(rs.Fields(4) Then OilNo = "" Else OilNo = rs.Fields(4) End If If IsNull(rs.Fields(5) Then EngineNo = "" Else EngineNo = rs.Fields(5) End If If IsNull(rs.Fields(6) Then CarCase = "" Else CarCase = rs.Fields(6) End If If IsNull(rs.Fields(7) Then SaleId = 0 Else SaleId =

19、 rs.Fields(7) End If If IsNull(rs.Fields(8) Then BuyDate = "" Else BuyDate = rs.Fields(8) End If If IsNull(rs.Fields(9) Then InsurNo = "" Else InsurNo = rs.Fields(9) End If If IsNull(rs.Fields(10) Then InsurId = 0 Else InsurId = rs.Fields(10) End If If IsNull(rs.Fields(11) Then I

20、nsurType = "" Else InsurType = rs.Fields(11) End If If IsNull(rs.Fields(12) Then InsurSdate = "" Else InsurSdate = rs.Fields(12) End If If IsNull(rs.Fields(13) Then InsurEdate = "" Else InsurEdate = rs.Fields(13) End If If IsNull(rs.Fields(14) Then Deposit = 0 Else Depo

21、sit = rs.Fields(14) End If If IsNull(rs.Fields(15) Then DayPrice = 0 Else DayPrice = rs.Fields(15) End If If IsNull(rs.Fields(16) Then WeekEndPrice = 0 Else WeekEndPrice = rs.Fields(16) End If If IsNull(rs.Fields(17) Then WeekPrice = 0 Else WeekPrice = rs.Fields(17) End If If IsNull(rs.Fields(18) Th

22、en MonthPrice = 0 Else MonthPrice = rs.Fields(18) End If If IsNull(rs.Fields(19) Then DayKM = 0 Else DayKM = rs.Fields(19) End If If IsNull(rs.Fields(20) Then OverTimePrice = 0 Else OverTimePrice = rs.Fields(20) End If If IsNull(rs.Fields(21) Then OverKMPrice = 0 Else OverKMPrice = rs.Fields(21) End

23、 If If IsNull(rs.Fields(22) Then Status = "" Else Status = rs.Fields(22) End If If IsNull(rs.Fields(23) Then Comment = "" Else Comment = rs.Fields(23) End If End If GetInfo = TrueEnd Function'判斷是否已經(jīng)存在此車牌號碼Public Function In_DB(ByVal TmpCarNo As String) As Boolean Dim rs As Ne

24、w ADODB.Recordset SqlStmt = "SELECT * FROM Cars WHERE CarNo='" + Trim(TmpCarNo) + "'" Set rs = QueryExt(SqlStmt) If Not rs.EOF Then In_DB = True Else In_DB = False End IfEnd FunctionPublic Sub Insert() '設(shè)置INSERT語句 SqlStmt = "INSERT INTO Cars(CarNo,TypeId, CarName

25、,Color,OilNo,EngineNo,CarCase," & _ "SaleId,BuyDate,InsurNo,InsurId,InsurType,InsurSdate,InsurEdate,Deposit," & _ "DayPrice,WeekEndPrice,WeekPrice,MonthPrice,DayKM,OverTimePrice,OverKMPrice," & _ "Status,Comment)" & _ " Values('" + Tri

26、m(CarNo) + "'," + Trim(TypeId) + ",'" + Trim(CarName) + "','" & _ Trim(Color) + "','" + Trim(OilNo) + "','" + Trim(EngineNo) + "','" & _ Trim(CarCase) + "'," + Trim(SaleId) + &qu

27、ot;,'" + Trim(BuyDate) + "','" & _ Trim(InsurNo) + "'," + Trim(InsurId) + ",'" + Trim(InsurType) + "','" & _ Trim(InsurSdate) + "','" + Trim(InsurEdate) + "'," + Trim(Deposit) + ",&q

28、uot; & _ Trim(DayPrice) + "," + Trim(WeekEndPrice) + "," + Trim(WeekPrice) + "," & _ Trim(MonthPrice) + "," & _ Trim(DayKM) + "," + Trim(OverTimePrice) + "," + Trim(OverKMPrice) + ",'" & _ Trim(Status) + "

29、','" + Trim(Comment) + "')" '執(zhí)行SQL語句 SQLExt (SqlStmt)End SubPublic Sub Update(ByVal TmpCarNo As String) '設(shè)置UPDATE語句 SqlStmt = "Update Cars Set TypeId=" + Trim(TypeId) _ + ", CarName='" + Trim(CarName) + "',Color='" + Trim(C

30、olor) _ + "',OilNo='" + Trim(OilNo) + "',EngineNo='" + Trim(EngineNo) _ + "',CarCase='" + Trim(CarCase) + "',SaleId=" + Trim(SaleId) _ + "SaleId=" + Trim(SaleId) + ",BuyDate='" + Trim(BuyDate) + "',&

31、quot; _ + "InsurNo='" + Trim(InsurNo) + "',InsurId=" + Trim(InsurId) + "," _ + "InsurType='" + Trim(InsurType) + "',InsurSdate='" + Trim(InsurSdate) + "'," _ + "InsurEdate='" + Trim(InsurEdate) + "',Deposit=" + Trim(desposit) + "," _ + "DayPrice=" + Trim(DayPrice) + ",WeekEndPrice=" + Trim(WeekEndPrice) + "," _ + "WeekPrice=" + Trim(WeekPrice) + &qu