車庫車位管理信息系統設計與實現論文-資料下載頁

　　

【正文】 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 (添加成功，現在開始計費!!!) Else MsgBox (請填寫完整) Exit Sub End IfEnd Sub車輛出站操作管理車輛出站操作與進站操作類似，但不是再由管理員輸入車牌號了，而是由系統直接從數據庫中讀取車牌，列在下拉框中，然后由管理員選擇即可，這樣避免了多次輸入有誤導致降低工作效率。操作界面如下圖所示：實現該功能模塊的主要代碼如下所示：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統計查詢管理該模塊是讓管理員可以更清楚的知道近段時間的車輛進出站歷史記錄。該模塊的界面如下圖所示：實現該模塊功能的主要代碼如下所示：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) = 手機 .TextArray(6) = 入站時間 .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系統數據維護采用系統數據維護更好的使得數據不被流失，通過備份更有效的保持數據的完整性。系統數據維護包括備分數據庫、還原數據庫 數據庫結構設計在設計數據庫表結構，創建一個數據庫，使用的數據庫為tcsf (停車收費)。該系統共需要兩個表，分別為管理員信息表（allusers）、停車歷史記錄表（alltc）。一、基本信息管理管理員信息表（allusers）該管理員信息表的ER圖如下：管理員用戶名密碼權限添加時間表allusers：編號字段名稱數據類型說明1ID自動編號編號、主鍵2usernamevarchar用戶名3pwdtinyint密碼4cxvarchar（30）權限5addtimevarchar（50）添加時間停車記錄表（alltc）車場ER圖如下：車場車位停靠車輛進站時間出站時間是否出站費用表alltc：編號字段名稱數據類型說明1ID自動編號編號、主鍵2cpvarchar（50）車牌3cxvarchar（100）車型4czvarchar（50）車主姓名5sjvarchar（50）車主手機6Addtimedatetime進站時間7addbyvarchar（50）操作員8isczvarchar（1）是否已出站9jinevarchar（50）付費金額從以上數據庫的兩個表創建的數據庫代碼可以看出,每個表中的屬性設置了主鍵,以及一些關鍵屬性不為空,同時在設置數據庫的時候,基本達到第三范式的要求,注意消除了數據的冗余性,保證了數據的完整性和可靠性[2]. 總結經過一個多月的設計和開發，系統基本開發完畢。其功能基本符合用戶需求，能夠完成停車場車輛管理存儲和。并提供部分系統維護功能,使用戶方便進行數據備份和恢復、數據刪除。，對于數據的一致性的問題也通過程序進行了有效的解決。但是由于畢業設計時間較短，所以該系統還有許多不盡如人意的地方，比如功能較少等多方面問題。這些都有待進一步改善。在軟件的編寫過程中，我充分體會了軟件編程工作者的辛苦，因為每一個細微的細節都必須十分的注意，如果稍有不慎，就會全盤皆輸，而且往往很多的時候，程序我自己覺得非常的正確，但是就是編譯通不過，在查找錯誤的過程中，面臨著否認自己的過程，非常的痛苦，而且由于自己的經驗及各方面的能力的不足，所以進展的速度非常的緩慢，往往幾天的時間還沒有一點進展。在開始編寫程序的時候，我看到別人的軟件功能非常的詳細，而且界面非常的漂亮，總希望自己的軟件也非常的完善，但是，經過二個月的學習，發現編一個優秀的軟件決不是一蹴而就的事情，需要長時間的積累和經驗，而這個方面又是我的弱項，因此，在朋友的幫助下，我終于認清自己的不足及劣勢，不要貪圖大而全，只要盡我所能，編制一個實用簡單的軟件也是件很不容易的事情。在反反復復的學習及虛心請教之下，我的辛勤努力有了匯報，終于做出了一個簡單的軟件，雖然這個軟件的功能非常的簡單，而且我想，在實際的運用中，肯定會有所不足，但是，它畢竟代表了我辛勤的結晶。致 謝在論文即將完成之際，回顧緊張但又充實的學習班和開發過程，本人在此向所有關心我的及幫助我的老師和同學們致以最真誠的感謝。另外，我還要感謝在這幾年來對我有所教導的老師，他們孜孜不倦的教誨不但讓我學到了很多知識，而且讓我掌握了學習的方法，更教會了我做人處事的道理，在此表示感謝。同時，在系統開發過程中還有同組的同學也給了我不少幫助，這里一并表示感謝。參考文獻[1][2] ：電子工業出版社, 2001[3]. [4][5][6][7]龔沛曾 陸慰民 Basic [8] 周靄如, Basic . 北京：清華大學出版社， 2002[9]Ekedahl Advanced Technology, 2000
[10]Jung D,Boutquin Waite Group39。s VisualBasic6 , 2003[11] 宋德富 張強華 計算機專業英語教程 第1版 北京： 高等教育出版社 1999