【導讀】的實用的計算機公路票據(jù)管理程序來幫助管理員進行更有效的車輛收費工作。立和維護以及前端應用程序的開發(fā)兩個方面。對于前者要求建立起數(shù)據(jù)一致性和。完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應用程序功能完備,易使用等。代,不斷修正和改進,直到形成用戶滿意的可行系統(tǒng)。而對于后者則要求應。的，面向對象的Windows開發(fā)語言，它具有易用，通用和開發(fā)效率高的特點。正如BillGate所說，世界上絕大多數(shù)的Windows. 應用程序是用VisualBasic編寫的。在眾多的開發(fā)工具中，我們?yōu)槭裁匆x擇

　　

【正文】 End If If m_enable Then = je5_1 + je5_2 + je5_3 = zs5_1 + zs5_2 + zs5_3 Else = je5_1 = zs5_1 End If 39。合計 Dim jehj, zshj As Long jehj = je30_1 + je30_2 + je30_3 + je20_1 + je20_2 + je20_3 + je15_1 + je15_2 + je15_3 + je10_1 + je10_2 + je10_3 + je5_1 + je5_2 + je5_3 zshj = zs30_1 + zs30_2 + zs30_3 + zs20_1 + zs20_2 + zs20_3 + zs15_1 + zs15_2 + zs15_3 + zs10_1 + zs10_2 + zs10_3 + zs5_1 + zs5_2 + zs5_3 = jehj = zshj 39。小寫金額 Dim xxje As Long xxje = jehj = xxje 39。不夠 7 位數(shù)前面加 0 = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) 36 = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + 37 Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) = Left(0000000, (7 Len(Trim(CStr())))) + Trim(CStr()) 39。判斷 是否有多次票根 If 0 Then piao5 = CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() ElseIf 0 Then piao5 = CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() Else piao5 = CStr() amp。 amp。 CStr() End If If 0 Then piao10 = CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() ElseIf 0 Then piao10 = CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() Else piao10 = CStr() amp。 amp。 CStr() End If If 0 Then piao15 = CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() ElseIf 0 Then piao15 = CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() Else piao15 = CStr() amp。 amp。 CStr() End If 38 If 0 Then piao20 = CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() ElseIf 0 Then piao20 = CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() Else piao20 = CStr() amp。 amp。 CStr() End If If 0 Then piao30 = CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() ElseIf 0 Then piao30 = CStr() amp。 amp。 CStr() amp。 , amp。 CStr() amp。 amp。 CStr() Else piao30 = CStr() amp。 amp。 CStr() End If 39。向數(shù)據(jù)庫插入數(shù)據(jù) If m_enable Then strn = insert into data(begin5,end5,begin10,end10,begin15,end15,begin20,end20,begin30,end30,begintwo5,endtwo5,beginthree5,endthree5,begintwo10,endtwo10,beginthree10,endthree10,begintwo15,endtwo15,beginthree15,endthree15,begintwo20,endtwo20,beginthree20,endthree20,begintwo30,endtwo30,beginthree30,endthree30,zs5,je5,zs10,je10,zs15,je15,zs20,je20,zs30,je30,hjzs,hjje,bz,bc,station,sxm,riqi,ph5,ph10,ph15,ph20,ph30,gonghao) amp。 _ values(39。 amp。 txt5b amp。 39。,39。 amp。 txt5e amp。 39。,39。 amp。 txt10b amp。 39。,39。 amp。 txt10e amp。 39。,39。 amp。 txt15b amp。 39。,39。 amp。 txt15e amp。 39。,39。 amp。 txt20b amp。 39。,39。 amp。 txt20e amp。 39。,39。 amp。 txt30b amp。 39。,39。 amp。 txt30e amp。 39。,39。 amp。 txt5b1temp amp。 39。,39。 amp。 txt5e1temp amp。 39。,39。 amp。 txt5b2temp amp。 39。,39。 amp。 txt5e2temp amp。 39。,39。 amp。 txt10b1temp amp。 39。,39。 amp。 txt10e1temp amp。 39。,39。 amp。 txt10b2temp amp。 39。,39。 amp。 txt10e2temp amp。 39。,39。 amp。 txt15b1temp amp。 39。,39。 amp。 txt15e1temp amp。 39。,39。 amp。 txt15b2temp amp。 39。,39。 amp。 txt15e2temp amp。 39。,39。 amp。 txt20b1temp amp。 39。,39。 amp。 txt20e1temp amp。 39。,39。 amp。 txt20b2temp amp。 39。,39。 amp。 txt20e2temp amp。 39。,39。 amp。 txt30b1temp amp。 39。,39。 amp。 txt30e1temp amp。 39。,39。 amp。 txt30b2temp amp。 39。,39。 amp。 txt30e2temp amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 39 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。, amp。 _ 39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。, amp。 rwdate amp。 ,39。 amp。 piao5 amp。 39。,39。 amp。 piao10 amp。 39。,39。 amp。 piao15 amp。 39。,39。 amp。 piao20 amp。 39。,39。 amp。 piao30 amp。 39。,39。 amp。 amp。 39。) Else strn = insert into data(begin5,end5,begin10,end10,begin15,end15,begin20,end20,begin30,end30,zs5,je5,zs10,je10,zs15,je15,zs20,je20,zs30,je30,hjzs,hjje,bz,bc,station,sxm,riqi,ph5,ph10,ph15,ph20,ph30,gonghao)values(39。 amp。 txt5b amp。 39。,39。 amp。 txt5e amp。 39。,39。 amp。 txt10b amp。 39。,39。 amp。 txt10e amp。 39。,39。 amp。 txt15b amp。 39。,39。 amp。 txt15e amp。 39。,39。 amp。 txt20b amp。 39。,39。 amp。 txt20e amp。 39。,39。 amp