車輛管理系統(tǒng)數(shù)據(jù)庫(kù)設(shè)計(jì)

1、學(xué)年論文（課程論文、課程設(shè)計(jì)）題目： 車輛管理系統(tǒng) 作者： 所在學(xué)院： 信息科學(xué)與工程學(xué)院 專業(yè)年級(jí)： 信息安全09-1 指導(dǎo)教師： 職稱： 講 師 2012年 5月 25 日一、概述隨著經(jīng)濟(jì)的日益增長(zhǎng)，信息化時(shí)代已經(jīng)到來，生活中各種信息趨向數(shù)字化、清晰化。車輛管理系統(tǒng)就是在這樣的一個(gè)環(huán)境中誕生的，交通的日益發(fā)達(dá)，使得一個(gè)單位不再是簡(jiǎn)單的一輛商務(wù)車，而是有很多輛車組成，而且車型也不再單一，這使得單位車輛信息復(fù)雜化。因此我們將發(fā)揮計(jì)算機(jī)的龐大的存儲(chǔ)空間，高性能的處理能力，高度可靠的數(shù)據(jù)安全，清晰的可視化數(shù)據(jù)等這些優(yōu)勢(shì)來輔助單位對(duì)車輛進(jìn)行管理，加強(qiáng)對(duì)本單位使用車輛的管理,實(shí)現(xiàn)了計(jì)算機(jī)資源的合理利用

2、，真正實(shí)現(xiàn)了減少勞動(dòng)力提高勞動(dòng)質(zhì)量的目的車輛管理系統(tǒng)要求有如下管理功能：(1) 用車申請(qǐng)(2) 派車登記(3) 車輛支出的登記(4) 查看功能：可隨時(shí)查看車輛基本信息、駕駛員基本信息、車輛使用記錄、違章記錄、車輛費(fèi)用管理、事故記錄；(5) 根據(jù)車號(hào)查看當(dāng)前車的使用情況(6) 統(tǒng)計(jì)功能：統(tǒng)計(jì)各車輛的違章記錄、事故記錄等；在某一時(shí)間內(nèi)各車輛的油料使用情況本人在系統(tǒng)開發(fā)中承擔(dān)用戶登錄，賬戶管理，登陸密碼加密等相關(guān)功能二、 需求分析1、 數(shù)據(jù)流圖：圖1第一層數(shù)據(jù)流圖圖2第二層數(shù)據(jù)流圖圖3第三層數(shù)據(jù)流圖2、 數(shù)字字典：1）數(shù)據(jù)項(xiàng)： 表1數(shù)據(jù)項(xiàng)數(shù)據(jù)項(xiàng)名類型字節(jié)長(zhǎng)度取值范圍數(shù)據(jù)項(xiàng)含義說明單位職工字符型20任

3、意車輛申請(qǐng)人部門字符型20任意車輛申請(qǐng)人所在部門外出目的地字符型20任意申請(qǐng)人外出目的地外出時(shí)間字符型20任意申請(qǐng)人外出時(shí)間外出事由字符型20任意申請(qǐng)人外出原因車牌號(hào)字符型20任意標(biāo)識(shí)車輛車牌號(hào)出車時(shí)間整型20任意車輛借出時(shí)間返回時(shí)間整型20任意車輛返還時(shí)間駕駛員駕照號(hào)字符型20任意司機(jī)的駕照編號(hào)事故記錄單字符型20任意車輛外出違章、事故的記錄車輛費(fèi)用單字符型20任意車輛外出花費(fèi)費(fèi)用事故記錄字符型20任意車輛外出違章記錄編號(hào)整型20任意對(duì)單位員工的標(biāo)識(shí)汽車編號(hào)整型20任意單位車輛的編號(hào)駕駛員編號(hào)整型20任意對(duì)單位駕駛員的標(biāo)識(shí)2）數(shù)據(jù)處理：表2數(shù)據(jù)處理處理過程名說明輸入輸出處理添加添加借出歸/還

4、信息車輛信息表車輛信息表執(zhí)行添加操作查詢查詢借出歸/還信息車輛信息表車輛信息表執(zhí)行查詢操作修改修改借出歸/還信息車輛信息表車輛信息表執(zhí)行修改操作刪除刪除借出歸/還信息車輛信息表車輛信息表執(zhí)行刪除操作統(tǒng)計(jì)統(tǒng)計(jì)車輛借出歸還信息車輛信息表車輛信息表執(zhí)行統(tǒng)計(jì)操作3）數(shù)據(jù)流：表3數(shù)據(jù)流數(shù)據(jù)流名說明數(shù)據(jù)流來源數(shù)據(jù)流去向組成用車申請(qǐng)員工對(duì)借車原由的描述員工車輛管理系統(tǒng)申請(qǐng)人、所在部門、外出目的地，外出時(shí)間、外出事由派車登記表對(duì)借出車輛的登記內(nèi)部車隊(duì)車輛管理系統(tǒng)車牌號(hào)、車輛型號(hào)、燃油種類、司機(jī)信息違歸處罰對(duì)違歸使用的處罰明細(xì)車輛管理系統(tǒng)員工（司機(jī)）違章記錄、事故記錄、過期還車還車信息登記員工車輛管理系統(tǒng)車輛信

5、息、司機(jī)信息借車憑證借車信息登記車輛管理系統(tǒng)員工車輛信息、司機(jī)信息提交記錄司機(jī)對(duì)外出使用車輛的記錄信息司機(jī)車輛管理系統(tǒng)事故、燃油、維修等狀況的記錄檢查異常（正常）對(duì)歸還車輛的檢查看是否超期等（正常）申請(qǐng)單據(jù)車輛管理系統(tǒng)檢查歸還汽車是否被損壞、超期等結(jié)算費(fèi)用結(jié)算車輛管理系統(tǒng)員工(司機(jī))對(duì)違規(guī)、超期罰款結(jié)算更新對(duì)表數(shù)據(jù)的增刪修改等車輛管理系統(tǒng)各個(gè)信息表格對(duì)各個(gè)數(shù)據(jù)的變動(dòng)統(tǒng)計(jì)4）數(shù)據(jù)存儲(chǔ)：表4數(shù)據(jù)存儲(chǔ)數(shù)據(jù)存儲(chǔ)名說明編號(hào)輸入數(shù)據(jù)流輸出數(shù)據(jù)流組成存取方式頻率司機(jī)信息統(tǒng)計(jì)表對(duì)司機(jī)的統(tǒng)計(jì)信息01司機(jī)信息車輛管理系統(tǒng)司機(jī)姓名、住址、所在部門、聯(lián)系電話隨機(jī)更新借還統(tǒng)計(jì)表車輛借出歸還統(tǒng)計(jì)信息02借出/歸還信息車輛

6、管理系統(tǒng)車輛車牌號(hào)、車輛借出時(shí)間、車輛歸還時(shí)間隨機(jī)更新車輛信息統(tǒng)計(jì)表對(duì)車輛目前情況的統(tǒng)計(jì)03汽車的借還信息車輛管理系統(tǒng)車輛忙閑維修以及外出使用記錄與統(tǒng)計(jì)隨機(jī)更新三、概要分析1、分析實(shí)體：職工、車輛、駕駛員、出車、事故、維修、油耗、變動(dòng)實(shí)體屬性：職工：編號(hào)、姓名、性別、籍貫、生日、政治面貌、住址、身份證號(hào)、電話、部門、工齡車輛：汽車編號(hào)、車牌號(hào)、車型、忙閑、車名、車齡、變動(dòng)駕駛員：駕駛員編號(hào)、忙閑、駕照號(hào)事故：時(shí)間、地點(diǎn)、類型、費(fèi)用維修：時(shí)間、地點(diǎn)、類型、費(fèi)用油耗：時(shí)間、地點(diǎn)、燃油類型、費(fèi)用變動(dòng)：變動(dòng)單號(hào)、汽車編號(hào)、變動(dòng)時(shí)間、原因出車：時(shí)間2、 ER圖：四、 邏輯結(jié)構(gòu)設(shè)計(jì)1、 關(guān)系模式：R1、車

7、輛（汽車編號(hào)，車名，車型，車牌號(hào)，忙/閑，車齡）R2、職工（編號(hào)，姓名，性別，部門，籍貫，生日，政治面貌，住址，身份證號(hào)，工齡，電話，部門）R3、申請(qǐng)（編號(hào)，汽車編號(hào)，地點(diǎn)，事由，時(shí)間）R4、駕駛員（駕駛員編號(hào)，駕照號(hào)，忙閑）R5、事故（汽車編號(hào)，時(shí)間，地點(diǎn)，費(fèi)用，類型）R6、維修（汽車編號(hào)，時(shí)間，地點(diǎn)，費(fèi)用，類型）R7、油耗（汽車編號(hào)，時(shí)間，地點(diǎn)，費(fèi)用，燃油類型）R8、變動(dòng)（變動(dòng)單號(hào)，汽車編號(hào)、變動(dòng)時(shí)間、原因）2、 關(guān)系模式規(guī)范化：R1、車輛（汽車編號(hào)，車名，車型，車牌號(hào)，忙/閑，車齡）R2、職工（編號(hào)，姓名，性別，部門，籍貫，生日，政治面貌，住址，身份證號(hào)，工齡，電話，部門）R3、申請(qǐng)（編

8、號(hào)，汽車編號(hào)，地點(diǎn)，事由，時(shí)間）編號(hào)，汽車編號(hào)為外碼R4、駕駛員（駕駛員編號(hào)，駕照號(hào)，忙閑）R5、事故（汽車編號(hào)，時(shí)間，地點(diǎn)，費(fèi)用，類型）R6、維修（汽車編號(hào)，時(shí)間，地點(diǎn)，費(fèi)用，類型）R7、油耗（汽車編號(hào)，時(shí)間，地點(diǎn)，費(fèi)用，燃油類型）上述關(guān)系中的每個(gè)屬性都是不可再分的，所以滿足第一范式。上述關(guān)系中的每個(gè)屬性都完全依賴于關(guān)系主碼，所以滿足第二范式。上述關(guān)系都不存在傳遞依賴關(guān)系，所以滿足第三范式。3、 最后確定的關(guān)系定義：1）職工信息表：staffs表5職工信息表含義屬性名數(shù)據(jù)類型長(zhǎng)度完整性約束備注編號(hào)staff_IDIntpk員工統(tǒng)一號(hào)姓名staff_namevarchar20Not null性

9、別Sexvarchar20Not null籍貫Nationalityvarchar20Not null 生日birthvarchar20Not null政治面貌Political_Partyvarchar20Not null家庭住址Family_Placevarchar20Not null身份證號(hào)Id_Cardvarchar20Not Null證件號(hào)BadgeIDvarchar20Not null電話Home_phonevarchar20Not null郵編Postcodevarchar20Not null工齡InDatevarchar20Not null2）維修信息表：reparis表6維修

10、信息表含義屬性名數(shù)據(jù)類型長(zhǎng)度完整性約束備注汽車編號(hào)carIdIntpk執(zhí)行單exeIDint時(shí)間haptimeVarchar20地點(diǎn)locationVarchar20費(fèi)用feeInt類型haptypeVarchar203）事故信息表：accidents表7事故信息表含義屬性名數(shù)據(jù)類型長(zhǎng)度完整性約束備注汽車編號(hào)carIdIntPk執(zhí)行單exeIDint時(shí)間atimeVarchar20地點(diǎn)locationVarchar20費(fèi)用feeInt類型haptypeVarchar204）油耗信息表：fuels表8油耗信息表含義屬性名數(shù)據(jù)類型長(zhǎng)度完整性約束備注汽車編號(hào)carIdIntpk執(zhí)行單exeIDint

11、時(shí)間atimeVarchar20地點(diǎn)locationVarchar20費(fèi)用feeInt燃油種類haptypeVarchar20汽車燃油的類型5）車輛信息表：carinfo表9車輛信息表含義屬性名數(shù)據(jù)類型長(zhǎng)度完整性約束備注汽車編號(hào)carIdIntPk車名carnamevarchar20車型ctypevarchar20車牌號(hào)numbervarchar20車齡agevarchar20汽車使用的時(shí)長(zhǎng)忙/閑bofvarchar20當(dāng)前車輛狀態(tài)6）駕駛員信息表：driverinfo表10駕駛員信息表含義屬性名數(shù)據(jù)類型長(zhǎng)度完整性約束備注駕駛員編號(hào)driIdIntpk駕照號(hào)licencevarchar20no

12、t null忙/閑busy_freevarchar20not null當(dāng)前駕駛員狀態(tài)7）申請(qǐng)信息表: applicants表11申請(qǐng)信息表含義屬性名數(shù)據(jù)類型長(zhǎng)度完整性約束備注編號(hào)staff_IDIntpk員工編號(hào)號(hào)汽車編號(hào)carIdIntnot null地點(diǎn)locationVarchar20not null事由aplwhyvarchar20not null申請(qǐng)汽車的原因及用途時(shí)間apltimeIntnot null申請(qǐng)時(shí)間及時(shí)長(zhǎng)五、物理設(shè)計(jì)索引說明用主鍵索引，即利用數(shù)據(jù)庫(kù)默認(rèn)索引。六、 系統(tǒng)實(shí)現(xiàn)采用的工具有：visual basic 6.0 SQL Server 2005完成的功能：用戶登錄

13、賬戶管理等相關(guān)方面的功能部分功能代碼如下：1、用戶登錄功能代碼如下：1.1數(shù)據(jù)有效性檢查 If txtUser = "" Then MsgBox "請(qǐng)輸入用戶名" txtUser.SetFocus Exit Sub End If If txtPwd = "" Then MsgBox "請(qǐng)輸入密碼" txtPwd.SetFocus Exit Sub End If 1.2將用戶輸入賦值到變量中 NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 1.3 判斷

14、用戶是否存在 If MyUser.In_DB(NameKey) = False Then MsgBox "用戶名不存在" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉" DBapi_Disconnect End Else Exit Sub End If End If 14 判斷密碼是否正確 MyUser.GetInfo (NameKey) If MyUser.Pwd <> PasswordKey Then MsgBox &

15、quot;密碼錯(cuò)誤" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉" DBapi_Disconnect End Else Exit Sub End If End If2、賬戶管理功能代碼如下2.1 '啟動(dòng)窗體FrmUserEdit .Show 1 End With 2.2 '刷新用戶名列表框 AdoUserList.Refresh DataList1_ClickEnd Sub2.3'讀取當(dāng)前用戶數(shù)據(jù) MyUser.Get

16、Info (DataList1.Text) 2.4'設(shè)置用戶名 lblUserName = MyUser.username 2.5 '設(shè)置用戶類型 If Format(MyUser.username, "<") = "admin" Then lblUserType = "系統(tǒng)管理員"2.6 '確認(rèn)刪除 If MsgBox("是否刪除當(dāng)前用戶", vbYesNo, "請(qǐng)確認(rèn)") = vbYes Then '刪除當(dāng)前用戶 MyUser.Delete (DataL

17、ist1.Text) '刷新用戶名列表框內(nèi)容 AdoUserList.Refresh DataList1_Click End IfEnd Sub2.7 把當(dāng)前用戶的數(shù)據(jù)賦值到FrmUserEdit窗體的相關(guān)位置 With FrmUserEdit .OriUser = MyUser.username .txtUserName = MyUser.username .txtPass = MyUser.Pwd .txtPass2 = MyUser.Pwd .modify = True '如果當(dāng)前用戶為Admin，則不能修改用戶名 If Format(MyUser.username, &

18、quot;<") = "admin" Then .txtUserName.Enabled = False End If '將變量Modify設(shè)置為True，表示當(dāng)前狀態(tài)為修改已有數(shù)據(jù) 2.8'啟動(dòng)窗體FrmUserEdit .Show 1 End With 2.9 '刷新用戶名列表框 AdoUserList.Refresh DataList1_ClickEnd Sub2.10'讀取當(dāng)前用戶數(shù)據(jù) MyUser.GetInfo (DataList1.Text) 2.11'設(shè)置用戶名 lblUserName = MyUser

19、.username 2.12設(shè)置用戶類型 If Format(MyUser.username, "<") = "admin" Then lblUserType = "系統(tǒng)管理員"3 用戶登錄密碼加密功能代碼如下：Private Function Encryption(ByVal strEnc As String) As String Dim i As Integer 'for循環(huán)用 Dim strTmp As String '臨時(shí)字符存儲(chǔ) Encryption = "" If (Len(str

20、Enc) < 1) Then Encryption = "" Else For i = 1 To Len(strEnc) If Asc(Mid(strEnc, i, 1) < -6000 And Mid(strEnc, i, 1) <> "?" Then strTmp = Chr(Asc(Mid(strEnc, i, 1) - 5) '對(duì)gbk的漢字進(jìn)行加密 ElseIf Asc(Mid(strEnc, i, 1) <= 126 And Asc(Mid(strEnc, i, 1) >= 80 Then strTmp = Chr(Asc(Mid(strEnc, i, 1) - 47) '對(duì)大于79的asc進(jìn)行加密 ElseIf Asc(Mid(strEnc, i, 1) <= 79 And Asc(Mid(strEnc, i, 1) >= 33 Then strTmp = Chr(Asc(Mid(strEnc, i, 1) + 47) '對(duì)小于