【正文】 管理 (車輛維修管理 ,車輛報廢管理等 ) 二 : 車輛管理 (車輛建立 ,車輛查詢 ,車輛刪除 ,車輛變更查詢等 .) 三 : 車輛運營管理 (車輛運營表 ,車輛運營查詢 ,清空車輛運營表 ) 四 :駕駛員管理 (駕駛員管理 ,駕駛員查詢等 ) 五 :耗材管理（對于油，車的耗材類管理） 六：計劃管理（訓(xùn)練，保養(yǎng)，維修等預(yù)定的計劃） 七：系統(tǒng)維護(hù) (系統(tǒng)備份 ,系統(tǒng)還原 ,系統(tǒng)檢查 ) 3． 環(huán)境需求：客戶端應(yīng)有 IE或其它 瀏覽器，服務(wù)器端應(yīng)有 Windows2020,WindowsNT,或 Windows98 ，服務(wù)器軟件應(yīng)有 pws或 IIS,硬件要求 386以上的計算機(jī)。 1． 技術(shù)可行性：本組開發(fā)成員都具有一定的電腦知識，學(xué)習(xí)過多種程序開發(fā)語言。 3． 現(xiàn)階段各種各樣的 車輛 越來越多， 車輛 的書也越來越多 ， 車輛 的管理工作也越來越復(fù)雜。 經(jīng)過以上可行性論證，本系統(tǒng)可以按任務(wù)書要求開發(fā)。 4. 系統(tǒng)設(shè)計 這里的設(shè)計依賴于前面的系統(tǒng)分析。 4． 1 登陸 模塊 本模塊所要實現(xiàn)在功能是重要的，對于用戶來說， 登陸 前后的區(qū)別在于： 登陸 之前不是本的成員，無權(quán) 操作 ， 無權(quán) 瀏覽；之后有權(quán)查詢也有權(quán) 操作 。并由這個 ASP文件進(jìn)行數(shù)據(jù)庫動作，根據(jù)不同的動作結(jié)果，系統(tǒng)將作出不同的信息反饋給用戶。如果查詢到結(jié)果。 登陸 是否是管理員 顯示提示失敗信息 顯示提示成功信 息 登陸結(jié)束 用戶管理 提取 Form 表單 字符轉(zhuǎn)換 數(shù)據(jù)庫操作 14 是 否 5. 系統(tǒng)實現(xiàn) 本 系統(tǒng) 是面向大眾的，界面友好，操作簡單，具有上網(wǎng)經(jīng)歷的人都可根據(jù)界面的提示順利完成登陸 ，查詢， 單位 ，歸還等一系列動作功能。 該系統(tǒng)對運行硬件的要求： 386以上處理器， 640k以上內(nèi)存， 1兆以上的可用硬盤空間，具有 3。 2車輛查詢登記 : 是否成功 顯示失敗后返回 顯示成功后返回 修改結(jié)束 15 代碼分析 : % If request(action) = save Then Call save() ElseIf request(action) = edit Then Call edit() ElseIf request(action) = del Then Call del() ElseIf request(action) = outlist Then Call outlist() ElseIf request(action) = saveoutlist Then Call saveoutlist() Else Call list() End If End Sub Sub list()% script language=javascript function browse(id){=39。+id。+id。id=39。 Request(zd) amp。 39。split(Request(order),|)(0)amp。 desc End If End If 39。當(dāng)前頁的記錄數(shù)目 % tr class=bg_tablebody align=center tda href=?action=editamp。 18 tr class=bg_tabletop align=center td colspan=2b查詢記錄 /b/td /tr tr class=bg_tablebody td width=150 align=right字段： select size=1 name=zd option value= selected==全部 ==/option option value=車號 %If Request(zd) = 車號 Then%selected%End If%車號 /option option value=車輛類型 %If Request(zd) = 車輛類型 Then%selected%End If%車輛類型 /option option value=所屬單位 %If Request(zd) = 所屬單位 Then%selected%End If%所屬單位 /option /select/td td= input type=text name=keyword size=25 value=39。 type=image src=Images/btn/ class=39。(delete from [技術(shù)檢查狀態(tài)記錄 ] where [車號 ]=39。) 39。 39。 ch amp。 amp。(delete from [油料登記 ] where [車號 ]=39。) 39。 39。 ch amp。 amp。(delete from [車輛使用雜費 ] where [車號 ]=39。) 39。 39。 id readonly= ElseIf mode=insert Then readonly= Else sql = sql amp。mode=%=mode%amp。 onSubmit=39。 table width=39。 cellpadding=39。 tr class=bg_tablebody td width=19% align=right車號： /td td width=31%input type=text name=ch size=12 value=%=FormatValue1(mode,rs(車號))% %=readonly% dataType=CarNumber msg= 車號不正確 %If mode browse Then%font color=FF0000*/font(格式：軍 A00000)%End If%/td td width=19% align=right編配日期： /td td width=31%input type=text name=bprq size=12 value=%=FormatValue1(mode,rs(編配日期 ))% %=readonly% dataType=Date msg=日期格式為“ %=Date()%” %If modebrowse Then% input type=button onClick=SelectDate(39。) value=取消 %End If% /td /tr tr class=bg_tablebody td align=right廠牌型號： /td tddiv style=position:absolute。 div style=position:absolute。textalign:left。idname=cpxh frameBorder=0 width=180 scrolling=yes height=60/iframe /div /div div style=visibility:visible。width:0px。top:21px。overflow:visible。input name=cllx type=text id=cllx value=%=FormatValue1(mode,rs( 車 輛 類 型 ))% size=12 %=readonly% onClick=ShowOrHidden(39。height:0px。left:0px。 id=csysdiv iframe marginWidth=0 marginHeight=0 src=?tablename= 車輛基本特征amp。csysdiv39。overflow:visible。visibility:hidden。itemname= 所 屬 單 位 amp。) %If mode browse Then%font color=FF0000*/font(如：業(yè)務(wù)科 ...)%End If%/div /td /tr tr class=bg_tablebody td align=right備注： /td td colspan=3input type=text name=bz size=40 value=%=FormatValue1(mode,rs(備注))% %=readonly%/td /tr %If mode insert Then% tr class=bg_tablebody td align=right車輛照片： /td td colspan=5%If modeinsert Then%img id=39。fileid=%=rs(id)% frameBorder=0 width=400 scrolling=no height=20/iframe/td /tr %End If% /table /div table width=100% cellspacing=1 cellpadding=5 align=center class=bg_tablemain tr class=bg_tablebottom td align=center!include file=Inc/ %If mode=update Then% input id=advcheck name=showit type=checkbox value=1 onclick=showpic() checked span id=advance1相關(guān)圖片上傳 /span %End If% : 25 代碼分析 : % dim total(100,2) Set rs = () sql=select [所屬單位 ] from [車輛基本特征 ] group by [所屬單位 ] sql,conn,3,3 j = 0 hj = 0 If Then 單位無車輛 Else do while not j = j + 1 sybm = rs(所屬單位 ) total(j,2) = sybm number = 0 sql =select * from [車輛基本 特征 ] where [所屬單位 ]=39。 Set rss = () sql,conn,3,3 26 If not Then number = End If total(j,1)=number hj = hj + number Loop CountMy = hj total_no=j all_width = total_no * 100 + 30 total_width = total_no * 100 Call table1(total,20,34,all_width,300,total_width) Set rs = nothing Set rs = () sql=select [車輛類型 ],count(車輛類型 ) from [車輛基本特征 ] group by [車輛類型 ] sql,conn,3,3 str = n = 0 do while not If n 0 Then str = str amp。 rs(1) amp。 我 所選擇的課題為 車輛 管理系統(tǒng)。我們在些感謝那些在開發(fā)過程中給我們提出寶貴意見的老師和同學(xué)，有了他們的幫助才使我們的系統(tǒng)功能慢慢完善，從而基本能投入使用。在本次畢業(yè)設(shè)計中，我從指導(dǎo)老師身上學(xué)到了很多東西。他們的包容能化解我在生活和學(xué)習(xí)上的不開心