車輛管理系統(tǒng)數據庫設計

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

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

3、意車輛申請人部門字符型20任意車輛申請人所在部門外出目的地字符型20任意申請人外出目的地外出時間字符型20任意申請人外出時間外出事由字符型20任意申請人外出原因車牌號字符型20任意標識車輛車牌號出車時間整型20任意車輛借出時間返回時間整型20任意車輛返還時間駕駛員駕照號字符型20任意司機的駕照編號事故記錄單字符型20任意車輛外出違章、事故的記錄車輛費用單字符型20任意車輛外出花費費用事故記錄字符型20任意車輛外出違章記錄編號整型20任意對單位員工的標識汽車編號整型20任意單位車輛的編號駕駛員編號整型20任意對單位駕駛員的標識2）數據處理：表2數據處理處理過程名說明輸入輸出處理添加添加借出歸/還

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

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

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

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

8、號，汽車編號，地點，事由，時間）編號，汽車編號為外碼R4、駕駛員（駕駛員編號，駕照號，忙閑）R5、事故（汽車編號，時間，地點，費用，類型）R6、維修（汽車編號，時間，地點，費用，類型）R7、油耗（汽車編號，時間，地點，費用，燃油類型）上述關系中的每個屬性都是不可再分的，所以滿足第一范式。上述關系中的每個屬性都完全依賴于關系主碼，所以滿足第二范式。上述關系都不存在傳遞依賴關系，所以滿足第三范式。3、 最后確定的關系定義：1）職工信息表：staffs表5職工信息表含義屬性名數據類型長度完整性約束備注編號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、信息表含義屬性名數據類型長度完整性約束備注汽車編號carIdIntpk執(zhí)行單exeIDint時間haptimeVarchar20地點locationVarchar20費用feeInt類型haptypeVarchar203）事故信息表：accidents表7事故信息表含義屬性名數據類型長度完整性約束備注汽車編號carIdIntPk執(zhí)行單exeIDint時間atimeVarchar20地點locationVarchar20費用feeInt類型haptypeVarchar204）油耗信息表：fuels表8油耗信息表含義屬性名數據類型長度完整性約束備注汽車編號carIdIntpk執(zhí)行單exeIDint

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

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

13、賬戶管理等相關方面的功能部分功能代碼如下：1、用戶登錄功能代碼如下：1.1數據有效性檢查 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 您已經三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 DBapi_Disconnect End Else Exit Sub End If End If 14 判斷密碼是否正確 MyUser.GetInfo (NameKey) If MyUser.Pwd PasswordKey Then MsgBox 密碼錯誤 Try_times = Try_times + 1 If Try_times = 3 Then MsgBox 您已經三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關閉 DBap

15、i_Disconnect End Else Exit Sub End If End If2、賬戶管理功能代碼如下2.1 啟動窗體FrmUserEdit .Show 1 End With 2.2 刷新用戶名列表框 AdoUserList.Refresh DataList1_ClickEnd Sub2.3讀取當前用戶數據 MyUser.GetInfo (DataList1.Text) 2.4設置用戶名 lblUserName = MyUser.username 2.5 設置用戶類型 If Format(MyUser.username, ) = admin Then lblUserType = 系統(tǒng)

16、管理員2.6 確認刪除 If MsgBox(是否刪除當前用戶, vbYesNo, 請確認) = vbYes Then 刪除當前用戶 MyUser.Delete (DataList1.Text) 刷新用戶名列表框內容 AdoUserList.Refresh DataList1_Click End IfEnd Sub2.7 把當前用戶的數據賦值到FrmUserEdit窗體的相關位置 With FrmUserEdit .OriUser = MyUser.username .txtUserName = MyUser.username .txtPass = MyUser.Pwd .txtPass2 =

17、MyUser.Pwd .modify = True 如果當前用戶為Admin，則不能修改用戶名 If Format(MyUser.username, ) = admin Then .txtUserName.Enabled = False End If 將變量Modify設置為True，表示當前狀態(tài)為修改已有數據 2.8啟動窗體FrmUserEdit .Show 1 End With 2.9 刷新用戶名列表框 AdoUserList.Refresh DataList1_ClickEnd Sub2.10讀取當前用戶數據 MyUser.GetInfo (DataList1.Text) 2.11設置用

18、戶名 lblUserName = MyUser.username 2.12設置用戶類型 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 臨時字符存儲 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的漢字進行加密 ElseIf Asc(Mid(strEnc, i, 1) = 80 Then strTmp = Chr(Asc(Mid(strEnc, i, 1) - 47) 對大于79的asc進行加密 ElseIf Asc(Mid(strEnc, i, 1) = 33 Then strTmp = Chr(Asc(Mid(strEnc, i, 1) + 47) 對小于80的asc進行加密 Else strTmp = Mid(strEnc