【正文】 End If 39。Dim rs As New sql = insert into alltc(cp,cx,cz,sj,addby) values(39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 Trim() amp。 39。,39。 amp。 nowuser amp。 39。) sql MsgBox (添加成功，現(xiàn)在開始計(jì)費(fèi)!!!) Else MsgBox (請?zhí)顚懲暾? Exit Sub End IfEnd Sub車輛出站操作管理車輛出站操作與進(jìn)站操作類似，但不是再由管理員輸入車牌號了，而是由系統(tǒng)直接從數(shù)據(jù)庫中讀取車牌，列在下拉框中，然后由管理員選擇即可，這樣避免了多次輸入有誤導(dǎo)致降低工作效率。操作界面如下圖所示：實(shí)現(xiàn)該功能模塊的主要代碼如下所示：Private Sub Combo2_Click() Dim sql Dim rs As New sql = select * from alltc where cp=39。 amp。 Trim() amp。 39。 sql, mycon, 1, 1 If Then Else = rs(cx) = rs(cz) = rs(sj) = rs(addtime) = Now() = DateDiff(n, rs(addtime), Now()) * End IfEnd SubPrivate Sub Command1_Click() If Trim() = 請選擇 Then MsgBox (請先選擇您要操作的車牌號!) Exit Sub End If sql = update alltc set iscz=39。139。,jine=39。 amp。 amp。 39。 where cp=39。 amp。 Trim() amp。 39。 sql MsgBox (操作成功!) End SubPrivate Sub Form_Load() Dim sql Dim rs As New sql = select * from alltc where iscz=39。039。 sql, mycon, 1, 1If Then Else Do While Not (rs(cp)) Loop End IfEnd Sub統(tǒng)計(jì)查詢管理該模塊是讓管理員可以更清楚的知道近段時(shí)間的車輛進(jìn)出站歷史記錄。該模塊的界面如下圖所示：實(shí)現(xiàn)該模塊功能的主要代碼如下所示：Private Sub Command5_Click() sql = select * from alltc where 1=1If Trim() Then sql = sql + and cp like 39。% amp。 Trim() amp。 %39。End IfIf Trim() 請選擇 Then sql = sql + and cx=39。 amp。 Trim() amp。 39。End IfCall GetData(sql)End SubPrivate Sub Form_Load() (小轎車) (中巴車) (大巴車) (卡車) (其他)Call GetData(select * from alltc order by id desc)End SubFunction GetData(sql)Dim rs As New sql, mycon, 1, 1If ThenElse Dim i As Integer With MSFlexGrid1 i = 1 .Rows = 1 Do While Not i = i + 1 .Rows = i .TextMatrix(i 1, 1) = rs(ID) .TextArray(0) = .TextMatrix(i 1, 2) = rs(cp) .TextMatrix(i 1, 3) = rs(cx) .TextMatrix(i 1, 4) = rs(cz) .TextMatrix(i 1, 5) = rs(sj) .TextMatrix(i 1, 6) = rs(addtime) .TextArray(1) = 編號 .TextArray(2) = 車牌 .TextArray(3) = 車型 .TextArray(4) = 車主 .TextArray(5) = 手機(jī) .TextArray(6) = 入站時(shí)間 .ColWidth(0) = 300 .ColWidth(1) = 1200 .ColWidth(2) = 1200 .ColWidth(3) = 1200 .ColWidth(4) = 1200 .ColWidth(5) = 1200 .ColWidth(6) = 1800 Loop End With End IfEnd Function系統(tǒng)數(shù)據(jù)維護(hù)采用系統(tǒng)數(shù)據(jù)維護(hù)更好的使得數(shù)據(jù)不被流失，通過備份更有效的保持?jǐn)?shù)據(jù)的完整性。系統(tǒng)數(shù)據(jù)維護(hù)包括備分?jǐn)?shù)據(jù)庫、還原數(shù)據(jù)庫 數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)在設(shè)計(jì)數(shù)據(jù)庫表結(jié)構(gòu)，創(chuàng)建一個(gè)數(shù)據(jù)庫，使用的數(shù)據(jù)庫為tcsf (停車收費(fèi))。該系統(tǒng)共需要兩個(gè)表，分別為管理員信息表（allusers）、停車歷史記錄表（alltc）。一、基本信息管理管理員信息表（allusers）該管理員信息表的ER圖如下：管理員用戶名密碼權(quán)限添加時(shí)間表allusers：編號字段名稱數(shù)據(jù)類型說明1ID自動編號編號、主鍵2usernamevarchar用戶名3pwdtinyint密碼4cxvarchar（30）權(quán)限5addtimevarchar（50）添加時(shí)間停車記錄表（alltc）車場ER圖如下：車場車位?？寇囕v進(jìn)站時(shí)間出站時(shí)間是否出站費(fèi)用表alltc：編號字段名稱數(shù)據(jù)類型說明1ID自動編號編號、主鍵2cpvarchar（50）車牌3cxvarchar（100）車型4czvarchar（50）車主姓名5sjvarchar（50）車主手機(jī)6Addtimedatetime進(jìn)站時(shí)間7addbyvarchar（50）操作員8isczvarchar（1）是否已出站9jinevarchar（50）付費(fèi)金額從以上數(shù)據(jù)庫的兩個(gè)表創(chuàng)建的數(shù)據(jù)庫代碼可以看出,每個(gè)表中的屬性設(shè)置了主鍵,以及一些關(guān)鍵屬性不為空,同時(shí)在設(shè)置數(shù)據(jù)庫的時(shí)候,基本達(dá)到第三范式的要求,注意消除了數(shù)據(jù)的冗余性,保證了數(shù)據(jù)的完整性和可靠性[2]. 總結(jié)經(jīng)過一個(gè)多月的設(shè)計(jì)和開發(fā)，系統(tǒng)基本開發(fā)完畢。其功能基本符合用戶需求，能夠完成停車場車輛管理存儲和。并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。，對于數(shù)據(jù)的一致性的問題也通過程序進(jìn)行了有效的解決。但是由于畢業(yè)設(shè)計(jì)時(shí)間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如功能較少等多方面問題。這些都有待進(jìn)一步改善。在軟件的編寫過程中，我充分體會了軟件編程工作者的辛苦，因?yàn)槊恳粋€(gè)細(xì)微的細(xì)節(jié)都必須十分的注意，如果稍有不慎，就會全盤皆輸，而且往往很多的時(shí)候，程序我自己覺得非常的正確，但是就是編譯通不過，在查找錯(cuò)誤的過程中，面臨著否認(rèn)自己的過程，非常的痛苦，而且由于自己的經(jīng)驗(yàn)及各方面的能力的不足，所以進(jìn)展的速度非常的緩慢，往往幾天的時(shí)間還沒有一點(diǎn)進(jìn)展。在開始編寫程序的時(shí)候，我看到別人的軟件功能非常的詳細(xì)，而且界面非常的漂亮，總希望自己的軟件也非常的完善，但是，經(jīng)過二個(gè)月的學(xué)習(xí)，發(fā)現(xiàn)編一個(gè)優(yōu)秀的軟件決不是一蹴而就的事情，需要長時(shí)間的積累和經(jīng)驗(yàn)，而這個(gè)方面又是我的弱項(xiàng)，因此，在朋友的幫助下，我終于認(rèn)清自己的不足及劣勢，不要貪圖大而全，只要盡我所能，編制一個(gè)實(shí)用簡單的軟件也是件很不容易的事情。在反反復(fù)復(fù)的學(xué)習(xí)及虛心請教之下，我的辛勤努力有了匯報(bào)，終于做出了一個(gè)簡單的軟件，雖然這個(gè)軟件的功能非常的簡單，而且我想，在實(shí)際的運(yùn)用中，肯定會有所不足，但是，它畢竟代表了我辛勤的結(jié)晶。致 謝在論文即將完成之際，回顧緊張但又充實(shí)的學(xué)習(xí)班和開發(fā)過程，本人在此向所有關(guān)心我的及幫助我的老師和同學(xué)們致以最真誠的感謝。另外，我還要感謝在這幾年來對我有所教導(dǎo)的老師，他們孜孜不倦的教誨不但讓我學(xué)到了很多知識，而且讓我掌握了學(xué)習(xí)的方法，更教會了我做人處事的道理，在此表示感謝。同時(shí)，在系統(tǒng)開發(fā)過程中還有同組的同學(xué)也給了我不少幫助，這里一并表示感謝。參考文獻(xiàn)[1][2] ：電子工業(yè)出版社, 2001[3]. [4][5][6][7]龔沛曾 陸慰民 Basic [8] 周靄如, Basic . 北京：清華大學(xué)出版社， 2002[9]Ekedahl Advanced Technology, 2000
[10]Jung D,Boutquin Waite Group39。s VisualBasic6 , 2003[11] 宋德富 張強(qiáng)華 計(jì)算機(jī)專業(yè)英語教程 第1版 北京： 高等教育出版社 1999