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

2、動質量的目的車輛管理系統要求有如下管理功能：(1)用車申請(2)派車登記(3)車輛支出的登記(4)查看功能：可隨時查看車輛基本信息、駕駛員基本信息、車輛使用記錄、違章記錄、車輛費用管理、事故記錄；(5)根據車號查看當前車的使用情況(6)統計功能：統計各車輛的違章記錄、事故記錄等；在某一時間內各車輛的油料使用情況本人在系統開發中承擔用戶登錄，賬戶管理，登陸密碼加密等相關功能二、需求分析1、 數據流圖:車輛返還內部車隊一車輛:二信息ii允許/拒絕（0申請信息借車（拒借）單位職工輸入信息-圖2第一借車）（還車）E更新司機信息統車輛信息統計表計表1/查詢,查詢/AZ/查詢系二層數據流圖圖3第三層數據流

3、圖2、 數字字典：1）數據項：表1數據項數據項名字節長度取值范圍數據項含義說明單位職工字符型20任意車輛申請人部門字符型20任意車輛申請人所在部門外出目的地字符型20任意申請人外出目的地外出時間字符型20任意申請人外出時間外出事由字符型20任意申請人外出原因車牌號字符型20任意標識車輛車牌號出車時間整型20任意車輛借出時間返回時間整型20任意車輛返還時間駕駛員駕照號字符型20任意司機的駕照編號事故記錄單字符型20任意車輛外出違早、事故的記錄車輛費用單字符型20任意車輛外出花費費用事故記錄字符型20任意車輛外出違早記錄編R整型20任意對單位員工的標識汽車編號整型20任意單位車輛的編號駕駛員編號整

4、型20任意對單位駕駛員的標識2）數據處理：表2數據處理處理過程名說明輸入輸出處理添加添加借出歸/還信息車輛信息表車輛信息表執行添加操作查詢查詢借出歸/還信息車輛信息表車輛信息表執行查詢操作修改修改借出歸/還信息車輛信息表車輛信息表執行修改操作刪除刪除借出歸/還信息車輛信息表車輛信息表執行刪除操作統計統計車輛借出歸還信息車輛信息表車輛信息表執行統計操作3）數據流:表3數據流數據流名說明數據流來源數據流去向組成用車申請員工對借車原由員工車輛管理系統申請人、所在的描述部門、外出目的地，外出時間、外出事由派車登記表對借出車輛的登記內部車隊車輛管理系統車牌號、車輛型號、燃油種類、司機信息違歸處罰對違歸使

5、用的處罰明細車輛管理系統員工（司機）違早記錄、事故記錄、過期還車還車信息登記員工車輛管理系統車輛信息、司機信息借車憑證借車信息登記車輛管理系統員工車輛信息、司機信息提交記錄司機對外出使用車輛的記錄信息司機車輛管理系統事故、燃油、維修等狀況的記錄檢查異常（正常）對歸還車輛的檢查看是否超期等（正常）申請單據車輛管理系統檢查歸還汽車是否被損壞、超期等結算費用結算車輛管理系統員工（司機）對違規、超期罰款結算更新對表數據的增刪修改等車輛管理系統各個信息表格對各個數據的變動統計4）數據存儲:表4數據存儲數據存儲名說明編P輸入數據流輸出數據流組成存取方式頻率司機信息統計表對司機的統計信息01司機信息車輛管理

6、系統司機姓名、住址、所在部門、聯系電話隨機更新借還統U表車輛借出歸還統計信息02借出/歸還信息車輛管理系統車輛車牌號、車輛借出時間、車輛歸還時間隨機更新車輛信息統計表對車輛目前情況的統計03汽車的借還信息車輛管理系統車輛忙閑維修以及外出使用記錄與統計隨機更新三、概要分析1、分析實體：職工、車輛、駕駛員、出車、事故、維修、油耗、變動實體屬性：職工：編號、姓名、性別、籍貫、生日、政治面貌、住址、身份證號、電話、部門、工齡車輛：汽車編號、車牌號、車型、忙閑、車名、車齡、變動駕駛員：駕駛員編號、忙閑、駕照號事故：時間、地點、類型、費用維修：時間、地點、類型、費用油耗：時間、地點、燃油類型、費用變動：變

7、動單號、汽車編號、變動時間、原因出車：時間2、ER圖:1FI亡/閑,駕駛員編號.姓名駕駛員1承擔、評價11出車指派1車齡油耗時間.,一（地點費用）”編號.1變動修工部門工齡.政治生日忙/閑Y發生N事故N類型職工,原因：四、邏輯結構設計1、關系模式:維修費用時間地點R1、車輛（汽車編號,車名，車型，車牌號，忙/閑，車齡）R2、職工（編殳，姓名，性別，部門，籍貫，生日，政治面貌，住址，身份證號,工齡，電話，部門）R&申請（編號，汽車編號，地點,事由，時間）R4駕駛員（駕駛員編號,駕照號，忙閑）RS事故（汽車編號,時間，地點，費用，類型）R&維修（汽車編號,時間，地點，費用，類型）R

8、7、油耗（汽車編號,時間，地點，費用，燃油類型）R&變動（變動單號,汽車編號、變動時間、原因）2、 關系模式規范化：R1、車輛（汽車編號,車名，車型，車牌號，忙/閑，車齡）R2、職工（緘良，姓名，性別，部門，籍貫，生日，政治面貌，住址，身份證號,工齡，電話，部門）R&申請（編號，汽車編號，地點,事由，時間）編號，汽車編號為外碼R4駕駛員（駕駛員編號,駕照號，忙閑）RS事故（汽車編號,時間，地點，費用，類型）R&維修（汽車編號,時間，地點，費用，類型）R7、油耗（汽車編號,時間，地點，費用，燃油類型）上述關系中的每個屬性都是不可再分的，所以滿足第一范式。上述關系中的每個屬

9、性都完全依賴于關系主碼，所以滿足第二范式。上述關系都不存在傳遞依賴關系，所以滿足第三范式。3、 最后確定的關系定義1）職工信息表：staffs表5職工信息表含義屬性名數據類型長度完整性約束備注編Rstaff_IDIntPk員工統一號姓名sta龜namevarchar20Notnull性別Sexvarchar20NotnullNationalityvarchar20Notnull生日birthvarchar20Notnull政治面貌Political_Partyvarchar20Notnull家庭住址Family_Placevarchar20Notnull身份證號Id_Cardvarchar20

10、NotNull證件號BadgeIDvarchar20Notnull電話Home_phonevarchar20Notnull郵編Postcodevarchar20Notnull工齡InDatevarchar20Notnull2）維修信息表：reparis表6維修信息表含義屬性名數據類型長度完整性約束備注汽車編號carIdIntpk執行單exeIDint時間haptimeVarchar20地點locationVarchar20費用feeInt回haptypeVarchar203）事故信息表：accidents表7事故信息表含義屬性名數據類型長度完整性約束備注汽車編號carIdIntPk執行單exe

11、IDint時間atimeVarchar20地點locationVarchar20費用feeInt回haptypeVarchar204）油耗信息表：fuels表8油耗信息表含義屬性名數據類型長度完整性約束備注汽車編號carIdIntpk執行單exeIDint時間atimeVarchar20地點locationVarchar20費用feeInt燃油種類haptypeVarchar20汽車燃油的類型5）車輛信息表：carinfo表9車輛信息表含義屬性名數據類型長度完整性約束備注汽車編號carIdIntPk車名carnamevarchar20車型ctypevarchar20車牌號numbervarch

12、ar20車齡agevarchar20汽車使用的時長，卜t/閑bofvarchar20當前車輛狀態6）駕駛員信息表：driverinfo表10駕駛員信息表含義屬性名數據類型長度完整性約束備注駕駛員編號driIdIntpk駕照號licencevarchar20notnull，卜t/閑busy_freevarchar20notnull當前駕駛員狀態7）申請信息表:applicants表11申請信息表含義屬性名數據類型長度完整性約束備注編RstaffJDIntpk員工編號號汽車編號carIdIntnotnull地點locationVarchar20notnull事由aplwhyvarchar20not

13、null申請汽車的原因及用途時間apltimeIntnotnull申請時間及時長五、物理設計索引說明用主鍵索引，即利用數據庫默認索引。六、系統實現采用的工具有：visualbasic6.0SQLServer2005完成的功能：用戶登錄賬戶管理等相關方面的功能部分功能代碼如下：1、用戶登錄功能代碼如下：1.1 數據有效性檢查IftxtUser=""ThenMsgBox"請輸入用戶名"txtUser.SetFocusExitSubEndIfIftxtPwd=""ThenMsgBox"請輸入密碼"txtPwd.SetFo

14、cusExitSubEndIf1.2 將用戶輸入賦值到變量中NameKey=MakeStr(txtUser)PasswordKey=MakeStr(txtPwd)1.3 判斷用戶是否存在IfMyUser.In_DB(NameKey)=FalseThenMsgBox"用戶名不存在”Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已經三次嘗試進入本系統，均不成功，系統將關閉DBapi_DisconnectEndElseExitSubEndIfEndIf1.4 .4判斷密碼是否正確MyUser.GetInfo(NameKey)I

15、fMyUser.Pwd<>PasswordKeyThenMsgBox"密碼錯誤"Try_times=Try_times+1IfTry_times>=3ThenMsgBox"您已經三次嘗試進入本系統，均不成功，系統將關閉DBapi_DisconnectEndElseExitSubEndIfEndIf2、賬戶管理功能代碼如下'啟動窗體FrmUserEdit.Show1EndWith'刷新用戶名列表框AdoUserList.RefreshDataList1_ClickEndSub'讀取當前用戶數據MyUser.GetInfo(D

16、ataList1.Text)'設置用戶名lblUserName=MyUser.username'設置用戶類型IfFormat(MyUser.username,"<")="admin"ThenlblUserType="系統管理員"'確認刪除IfMsgBox("是否刪除當前用戶",vbYesNo,"請確認")=vbYesThen'刪除當前用戶MyUser.Delete(DataList1.Text)'刷新用戶名列表框內容AdoUserList.Refre

17、shDataList1_ClickEndIfEndSub把當前用戶的數據賦值到FrmUserEdit窗體的相關位置WithFrmUserEdit.OriUser=MyUser.username.txtUserName=MyUser.username.txtPass=MyUser.Pwd.txtPass2=MyUser.Pwd.modify=True'如果當前用戶為Admin,則不能修改用戶名IfFormat(MyUser.username,"<")="admin"Then.txtUserName.Enabled=FalseEndIf'

18、;將變量Modify設置為True,表示當前狀態為修改已有數據'啟動窗體FrmUserEdit.Show1EndWith,刷新用戶名列表框AdoUserList.RefreshDataList1_ClickEndSub'讀取當前用戶數據MyUser.GetInfo(DataList1.Text)'設置用戶名lblUserName=MyUser.username設置用戶類型IfFormat(MyUser.username,"<")="admin"ThenlblUserType="系統管理員"3用戶登錄密碼加

19、密功能代碼如下：PrivateFunctionEncryption(ByValstrEncAsString)AsStringDimiAsInteger'for循環用DimstrTmpAsString'臨時字符存儲Encryption=""If(Len(strEnc)<1)ThenEncryption=""ElseFori=1ToLen(strEnc)IfAsc(Mid(strEnc,i,1)<-6000AndMid(strEnc,i,1)<>"?"Then又tgbk的漢字對大于79的對小于80的strTmp=Chr(Asc(Mid(strEnc,i,1)-5)'進行加密ElseIfAsc(Mid(strEnc,i,1)<=126AndAsc(Mid(strEnc,i,1)>=80ThenstrTmp=Chr(Asc(Mid(strEnc,i,1)-47)'asc進行加密ElseIfAsc(Mid(strEnc,i,1)<=79AndAsc(Mid(strEnc,i,1)>=33ThenstrTmp=Chr(Asc(Mid(strEnc,i,1)+47)'a