【正文】 39。) where 客戶編號=val(39。 amp。 (i, 1).Text amp。 39。))MsgBox 你本次的存款為: amp。 aa amp。 元　　 amp。 你的預(yù)交款總額為: amp。 bb amp。 元, vbInformation, 充值成功!End IfExit Subfinish:MsgBox End Sub加油信息統(tǒng)計接口與代碼圖 　加油信息統(tǒng)計Dim str, str1 As StringDim i As IntegerPrivate Sub Combo1_LostFocus() Set mdbrs2 = (select 車牌號 from 車輛表 where 單位名稱=39。 amp。 amp。 39。) Do While Not 39。 MsgBox (0) (0) LoopEnd SubPrivate Sub Combo4_LostFocus() Set mdbrs2 = (select 車牌號 from 車輛表 where 單位名稱=39。 amp。 amp。 39。) Do While Not 39。 MsgBox (0) (0) LoopEnd SubPrivate Sub Form_Load() CNwinndy, W]vyYnonvku\ntyZbl_e`hms^ 39。進(jìn)行注冊O(shè)n Error GoTo finishmdi = Falsestr = select * from 加油信息 = False = 8(1).Width = 100(2).Width = 100(3).Width = 80(4).Width = 80(5).Width = 70(6).Width = 120(7).Width = 40With Grid1 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat . = Tahoma . = 8 .BackColorFixed = RGB(84, 201, 134) .BackColorFixedSel = RGB(167, 111, 177) .BackColorBkg = RGB(198, 229, 211) .BackColorScrollBar = RGB(167, 111, 177) .BackColor1 = RGB(231, 235, 247) .BackColor2 = RGB(198, 229, 211) .GridColor = RGB(148, 190, 231) .Column(0).Width = 0End With Set mdbrs = (select * from 加油信息) 39。For i = 0 To 6 39。 If i = 3 Then 39。 (0, i + 1).Text = (i).Name amp。 (元/升) 39。 Else 39。 If i = 4 Then 39。 (0, i + 1).Text = (i).Name amp。 (升) 39。 Else 39。 If i = 5 Then 39。 (0, i + 1).Text = (i).Name amp。 (元) 39。 Else 39。 (0, i + 1).Text = (i).Name 39。 End If 39。 End If 39。 End If 39。Next Set mdbrs1 = (select 單位名稱 from 客戶信息) Do While Not (0) (0) Loop For i = 1 To 12 i NextExit Subfinish: MsgBox End SubPrivate Sub Form_Unload(Cancel As Integer)mdi = TrueEnd SubPrivate Sub callmain()39。On Error GoTo finish = 2i = 7 = i + 1For i = 0 To 6 If i = 3 Then (1, i + 1).Text = (i).Name amp。 (元/升) Else If i = 4 Then (1, i + 1).Text = (i).Name amp。 (升) Else If i = 5 Then (1, i + 1).Text = (i).Name amp。 (元) Else (1, i + 1).Text = (i).Name End If End If End If Nexti = 2Do While Not = + 1 For j = 1 To 7 39。設(shè)定讀取列 If (j 1) = Null Then 39。空值的處理 (i, j).Text = Else (i, j).Text = (j 1) End If Next i = i + 1 39。讀取下一記錄LoopFor i = 1 To 7(i).Locked = TrueNextExit Subfinish:MsgBox End SubPrivate Sub XPButton1_Click()Set mdbrs = (select * from 加油信息 where 單位名稱=39。 amp。 amp。 39。 and 車牌號=39。 amp。 amp。 39。 and 月份=val(39。 amp。 amp。 39。))Set mdbrs1 = (select sum(單次加油金額 ) from 加油信息 where 單位名稱=39。 amp。 amp。 39。 and 車牌號=39。 amp。 amp。 39。 and 月份=val(39。 amp。 amp。 39。))Set mdbrs2 = (select sum(加油量) from 加油信息 where 單位名稱=39。 amp。 amp。 39。 and 車牌號 =39。 amp。 amp。 39。 and 月份=val(39。 amp。 amp。 39。))If = True ThenMsgBox 沒有查找到記錄!!ElseCall callmain = True = + 1i = 1str = 小　　計:(i, 2).Text = str(i, 5).Text = (0) amp。 升(i, 6).Text = (0) amp。 元End IfEnd SubPrivate Sub XPButton2_Click()End SubPrivate Sub XPButton3_Click()Unload MeEnd SubPrivate Sub XPButton4_Click()If Thenstr = select * from 加油信息 where 單位名稱=39。 amp。 amp。 39。 order by 月份 ascSet mdbrs1 = (select sum(單次加油金額 ) from 加油信息 where 單位名稱=39。 amp。 amp。 39。)Set mdbrs2 = (select sum(加油量) from 加油信息 where 單位名稱=39。 amp。 amp。 39。)Set mdbrs3 = (select 預(yù)存款余額 from 客戶信息 where 單位名稱=39。 amp。 amp。 39。) If Then str = select * from 加油信息 where 單位名稱=39。 amp。 amp。 39。 and 車牌號=39。 amp。 amp。 39。 order by 月份 asc Set mdbrs1 = (select sum(單次加油金額) from 加油信息 where 單位名稱=39。 amp。 amp。 39。 and 車牌號=39。 amp。 amp。 39。) Set mdbrs2 = (select sum(加油量) from 加油信息 where 單位名稱=39。 amp。 amp。 39。 and 車牌號=39。 amp。 amp。 39。) End If = TrueSet mdbrs = (str)If = True ThenMsgBox 沒有查找到記錄!!ElseCall callmain = + 1i = 1str = 　　小　　計:(i, 2).Text = str(i, 5).Text = (0) amp。 升(i, 6).Text = (0) amp。 元 = + 1 If = Then i = 1 str = 本單位剩余余額: (i, 2).Text = str (i, 6).Text = Int((0) (0)) amp。 元 End IfEnd IfElseMsgBox 請選擇單位!End IfEnd Sub參考文獻(xiàn)[1] 劉萌. Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實例導(dǎo)航, 北京：人民郵電出版社,2022[2] 劉韜 . Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)實例導(dǎo)航, 北京：人民郵電出版社,2022[3] 求是科技. Visual Basic信息管理系統(tǒng)開發(fā)實例導(dǎo)航， 北京：人民郵電出版社， 2022[4] 賽奎春. Visual Basic 信息系統(tǒng)開發(fā)實例精選， 北京：機(jī)械工業(yè)出版社，2022[5] 郭瑞軍. Visual Basic 數(shù)據(jù)庫開發(fā)實例精粹， 北京：電子工業(yè)出版社， 2022[6] 夏邦貴 劉凡馨. Visual Basic ， 北京：機(jī)械工業(yè)出版社,2022 [7] 邵浩. Visual Basic 程序設(shè)計， 福建：東南大學(xué)出版社，2022 [8] 知力 Access 2022中級教程， 北京：機(jī)械工業(yè)出版社， 1999[9] [美] Alison Balter著 瀟湘工作室譯. Access 2022中文版開發(fā)指南， 北京：人民郵電出版社， 2022 [10]　求是科技. Access 企業(yè)辦公系統(tǒng)開發(fā)實例導(dǎo)航， 北京：人民郵電出版社， 2022 [11] [美] Stephen The Complete Reference Office 2022[M] Publisher：Brandon ， 1994致 謝至此，本次的設(shè)計己經(jīng)全部結(jié)束，在此特別感謝老師的悉心指導(dǎo)，并感謝所有教授我專業(yè)知識的老師們，有了你們的幫助和支持，才讓我更加圓滿的完成的學(xué)業(yè)，在此我再次對各位老師表示感謝?。?！