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ī)的龐大的存儲空間，高性能的處理能力，高度可靠的數(shù)據(jù)安全，清晰的可視化數(shù)據(jù)等這些優(yōu)勢來輔助單位對車輛進(jìn)行管理，加強(qiáng)對本單位使用車輛的管理，實(shí)現(xiàn)了計(jì)算機(jī)資源的合理利用，真正實(shí)現(xiàn)了減少勞動力提高勞

2、動質(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ù)流圖:車輛返還內(nèi)部車隊(duì)一車輛:二信息ii允許/拒絕（0申請信息借車（拒借）單位職工輸入信息-圖2第一借車）（還車）E更新司機(jī)信息統(tǒng)車輛信息統(tǒng)計(jì)表計(jì)表1/查詢,查詢/AZ/查詢系二層數(shù)據(jù)流圖圖3第三層數(shù)據(jù)流

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

4、型20任意對單位駕駛員的標(biāo)識2）數(shù)據(jù)處理：表2數(shù)據(jù)處理處理過程名說明輸入輸出處理添加添加借出歸/還信息車輛信息表車輛信息表執(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ī)信息違歸處罰對違歸使

5、用的處罰明細(xì)車輛管理系統(tǒng)員工（司機(jī)）違早記錄、事故記錄、過期還車還車信息登記員工車輛管理系統(tǒng)車輛信息、司機(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ù)的變動統(tǒng)計(jì)4）數(shù)據(jù)存儲:表4數(shù)據(jù)存儲數(shù)據(jù)存儲名說明編P輸入數(shù)據(jù)流輸出數(shù)據(jù)流組成存取方式頻率司機(jī)信息統(tǒng)計(jì)表對司機(jī)的統(tǒng)計(jì)信息01司機(jī)信息車輛管理

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

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

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

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

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

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

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

13、null申請汽車的原因及用途時(shí)間apltimeIntnotnull申請時(shí)間及時(shí)長五、物理設(shè)計(jì)索引說明用主鍵索引，即利用數(shù)據(jù)庫默認(rèn)索引。六、系統(tǒng)實(shí)現(xiàn)采用的工具有：visualbasic6.0SQLServer2005完成的功能：用戶登錄賬戶管理等相關(guān)方面的功能部分功能代碼如下：1、用戶登錄功能代碼如下：1.1 數(shù)據(jù)有效性檢查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"您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉DBapi_DisconnectEndElseExitSubEndIfEndIf1.4 .4判斷密碼是否正確MyUser.GetInfo(NameKey)I

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

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

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

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

19、密功能代碼如下：PrivateFunctionEncryption(ByValstrEncAsString)AsStringDimiAsInteger'for循環(huán)用DimstrTmpAsString'臨時(shí)字符存儲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)'進(jìn)行加密ElseIfAsc(Mid(strEnc,i,1)<=126AndAsc(Mid(strEnc,i,1)>=80ThenstrTmp=Chr(Asc(Mid(strEnc,i,1)-47)'asc進(jìn)行加密ElseIfAsc(Mid(strEnc,i,1)<=79AndAsc(Mid(strEnc,i,1)>=33ThenstrTmp=Chr(Asc(Mid(strEnc,i,1)+47)'a