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

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

2、，真正實(shí)現(xiàn)了減少勞動(dòng)力提高勞動(dòng)質(zhì)量的目的車輛管理系統(tǒng)要求有如下管理功能：(1) 用車申請(2) 派車登記(3) 車輛支出的登記(4) 查看功能：可隨時(shí)查看車輛基本信息、駕駛員基本信息、車輛使用記錄、違章記錄、車輛費(fèi)用管理、事故記錄；(5) 根據(jù)車號查看當(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é)長度取值范圍數(shù)據(jù)項(xiàng)含義說明單位職工字符型20任

3、意車輛申請人部門字符型20任意車輛申請人所在部門外出目的地字符型20任意申請人外出目的地外出時(shí)間字符型20任意申請人外出時(shí)間外出事由字符型20任意申請人外出原因車牌號字符型20任意標(biāo)識(shí)車輛車牌號出車時(shí)間整型20任意車輛借出時(shí)間返回時(shí)間整型20任意車輛返還時(shí)間駕駛員駕照號字符型20任意司機(jī)的駕照編號事故記錄單字符型20任意車輛外出違章、事故的記錄車輛費(fèi)用單字符型20任意車輛外出花費(fèi)費(fèi)用事故記錄字符型20任意車輛外出違章記錄編號整型20任意對單位員工的標(biāo)識(shí)汽車編號整型20任意單位車輛的編號駕駛員編號整型20任意對單位駕駛員的標(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ù)流去向組成用車申請員工對借車原由的描述員工車輛管理系統(tǒng)申請人、所在部門、外出目的地，外出時(shí)間、外出事由派車登記表對借出車輛的登記內(nèi)部車隊(duì)車輛管理系統(tǒng)車牌號、車輛型號、燃油種類、司機(jī)信息違歸處罰對違歸使用的處罰明細(xì)車輛管理系統(tǒng)員工（司機(jī)）違章記錄、事故記錄、過期還車還車信息登記員工車輛管理系統(tǒng)車輛信

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

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

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

8、號，汽車編號，地點(diǎn)，事由，時(shí)間）編號，汽車編號為外碼R4、駕駛員（駕駛員編號，駕照號，忙閑）R5、事故（汽車編號，時(shí)間，地點(diǎn)，費(fèi)用，類型）R6、維修（汽車編號，時(shí)間，地點(diǎn)，費(fèi)用，類型）R7、油耗（汽車編號，時(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ù)類型長度完整性約束備注編號staff_IDIntpk員工統(tǒng)一號姓名staff_namevarchar20Not null性

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

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

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

12、t null忙/閑busy_freevarchar20not null當(dāng)前駕駛員狀態(tài)7）申請信息表: applicants表11申請信息表含義屬性名數(shù)據(jù)類型長度完整性約束備注編號staff_IDIntpk員工編號號汽車編號carIdIntnot null地點(diǎn)locationVarchar20not null事由aplwhyvarchar20not null申請汽車的原因及用途時(shí)間apltimeIntnot null申請時(shí)間及時(shí)長五、物理設(shè)計(jì)索引說明用主鍵索引，即利用數(shù)據(jù)庫默認(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 請輸入用戶名 txtUser.SetFocus Exit Sub End If If txtPwd = Then MsgBox 請輸入密碼 txtPwd.SetFocus Exit Sub End If 1.2將用戶輸入賦值到變量中 NameKey = MakeStr(txtUser) PasswordKey = MakeStr(txtPwd) 1.3 判斷用戶是否存在 If MyUser.In_DB(NameKey) = False Then MsgBo

14、x 用戶名不存在 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 密碼錯(cuò)誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBap

15、i_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.GetInfo (DataList1.Text) 2.4設(shè)置用戶名 lblUserName = MyUser.username 2.5 設(shè)置用戶類型 If Format(MyUser.username, ) = admin Then lblUserType = 系統(tǒng)

16、管理員2.6 確認(rèn)刪除 If MsgBox(是否刪除當(dāng)前用戶, vbYesNo, 請確認(rèn)) = vbYes Then 刪除當(dāng)前用戶 MyUser.Delete (DataList1.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 =

17、MyUser.Pwd .modify = True 如果當(dāng)前用戶為Admin，則不能修改用戶名 If Format(MyUser.username, ) = 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è)置用

18、戶名 lblUserName = MyUser.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(strEnc) 1) Then Encryption = Else For i = 1

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