【正文】 元 = + 1 If = Then i = 1 str = 本單位剩余余額: (i, 2).Text = str (i, 6).Text = Int((0) (0)) amp。) End If = TrueSet mdbrs = (str)If = True ThenMsgBox 沒有查找到記錄!!ElseCall callmain = + 1i = 1str = 　　小　　計:(i, 2).Text = str(i, 5).Text = (0) amp。 amp。 and 車牌號=39。 amp。) Set mdbrs2 = (select sum(加油量) from 加油信息 where 單位名稱=39。 amp。 and 車牌號=39。 amp。 order by 月份 asc Set mdbrs1 = (select sum(單次加油金額) from 加油信息 where 單位名稱=39。 amp。 and 車牌號=39。 amp。) If Then str = select * from 加油信息 where 單位名稱=39。 amp。)Set mdbrs3 = (select 預存款余額 from 客戶信息 where 單位名稱=39。 amp。)Set mdbrs2 = (select sum(加油量) from 加油信息 where 單位名稱=39。 amp。 order by 月份 ascSet mdbrs1 = (select sum(單次加油金額 ) from 加油信息 where 單位名稱=39。 amp。 元End IfEnd SubPrivate Sub XPButton2_Click()End SubPrivate Sub XPButton3_Click()Unload MeEnd SubPrivate Sub XPButton4_Click()If Thenstr = select * from 加油信息 where 單位名稱=39。))If = True ThenMsgBox 沒有查找到記錄!!ElseCall callmain = True = + 1i = 1str = 小　　計:(i, 2).Text = str(i, 5).Text = (0) amp。 amp。 and 月份=val(39。 amp。 and 車牌號 =39。 amp。))Set mdbrs2 = (select sum(加油量) from 加油信息 where 單位名稱=39。 amp。 and 月份=val(39。 amp。 and 車牌號=39。 amp。))Set mdbrs1 = (select sum(單次加油金額 ) from 加油信息 where 單位名稱=39。 amp。 and 月份=val(39。 amp。 and 車牌號=39。 amp。讀取下一記錄LoopFor i = 1 To 7(i).Locked = TrueNextExit Subfinish:MsgBox End SubPrivate Sub XPButton1_Click()Set mdbrs = (select * from 加油信息 where 單位名稱=39。設定讀取列 If (j 1) = Null Then 39。 (升) Else If i = 5 Then (1, i + 1).Text = (i).Name amp。On Error GoTo finish = 2i = 7 = i + 1For i = 0 To 6 If i = 3 Then (1, i + 1).Text = (i).Name amp。 End If 39。 End If 39。 Else 39。 (0, i + 1).Text = (i).Name amp。 Else 39。 (0, i + 1).Text = (i).Name amp。 Else 39。 (0, i + 1).Text = (i).Name amp。For i = 0 To 6 39。 MsgBox (0) (0) LoopEnd SubPrivate Sub Form_Load() CNwinndy, W]vyYnonvku\ntyZbl_e`hms^ 39。 39。 amp。) Do While Not 39。 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。 aa amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。MsgBox aaSet mdbrs = (select * from 客戶信息)(hang, 9).Text = bbi = hang39。讀取下一記錄Loop(1).Locked = TrueExit Subfinish:MsgBox End SubPrivate Sub Grid1_RowColChange(ByVal Row As Long, ByVal Col As Long)hang = RowEnd SubPrivate Sub XPButton6_Click()39。設定讀取列 If (j 1).Value = Then 39。))MsgBox 目標己刪除 ,請刷新數據!, vbInformation, 刪除成功 Call callmainExit Subfinish:MsgBox End SubPrivate Sub XPButton5_Click()Unload MeEnd SubPrivate Sub callmain()On Error GoTo finishgridsav2 = Falsegridedi2 = Truegriddel2 = TrueSet mdbrs = (select * from 客戶信息) = 1i = 9 = i + 1For i = 0 To 8 If i = 8 Then (0, i + 1).Text = (i).Name amp。 (hang, 1).Text amp。)) Next MsgBox 修改的數據己經完成, vbInformation, 完成操作 Call callmainExit Subfinish:MsgBox End SubPrivate Sub XPButton4_Click()On Error GoTo finishIf griddel2 = False ThenMsgBox 當前刪除操作不被允許!, vbInformation, 非使用對象 Exit SubEnd IfIf hang = 0 ThenMsgBox 沒有選擇客戶或者沒有客戶可以刪除!, vbInformation, 非使用對象 Exit SubEnd IfSet mdbrs = (delete from 客戶信息 where 客戶編號=val(39。 (i, 1).Text amp。) where 客戶編號=val(39。 (i, 9).Text amp。,預存款余額=val(39。 s8 amp。,郵編=39。 s7 amp。,郵件地址=39。 s6 amp。,傳真號碼=39。 (i, 5).Text amp。,聯(lián)系方式=39。 (i, 4).Text amp。,地址=39。 (i, 3).Text amp。,負責人 =39。 (i, 2).Text amp。))) MsgBox 提交成功！, vbInformation, Call callmain Else MsgBox 該單位己存在 ！, vbInformation, 不可重名 Exit Sub End If(9).Locked = TrueExit Subfinish:MsgBox End SubPrivate Sub XPButton3_Click()On Error GoTo finishDim s6, s7, s8 As StringIf gridedi2 = False ThenMsgBox 當前修改操作不被允許!, vbInformation, 非使用對象 Exit SubEnd IfFor i = 1 To 1If (i, 6).Text = Thens6 = Elses6 = (i, 6).TextEnd IfIf (i, 7).Text = Thens7 = Elses7 = (i, 7).Text End IfIf (i, 8).Text = Thens8 = Elses8 = (i, 8).Text End If Set mdbrs = (update 客戶信息 set 單位名稱=39。 (1, 9).Text amp。,val(39。 s8 amp。,39。 s7 amp。,39。 s6 amp。,39。 (1, 5).Text amp。,39。 (1, 4).Text amp。,39。 (1, 3).Text amp。,39。 (1, 2).Text amp。) If = True Then Set mdbrs = (insert into 客戶信息( 單位名稱,負責人,地址,聯(lián)系方式,傳真號碼,郵件地址,郵編,預存款余額) values(39。 (1, 2).Text amp。End IfDim s6, s7, s8 As StringIf (1, 2).Text = ThenMsgBox 單位名稱不可以是空格！, vbInformation, 錯誤提示Exit SubEnd IfIf (1, 3).Text = ThenMsgBox 負責人不可以是空格！, vbInformation, 錯誤提示Exit SubEnd IfIf (1, 4).Text = ThenMsgBox 請?zhí)顚憜挝坏刂罚?, vbInformation, 錯誤提示Exit Sub End IfIf (1, 5).Text = ThenMsgBox 請?zhí)顚懧?lián)系方式！ , vbInformation, 錯誤提示Exit Sub End IfIf (1, 6).Text = Thens6 = Elses6 = (1, 6).TextEnd IfIf (1, 7).Text = Thens7 = Elses7 = (1, 7).Text End IfIf (1, 8).Text = Thens8 = Elses8 = (1, 8).Text End IfSet mdbrs = (select * from 客戶信息 where 單位名稱=39。MsgBox 不支持保存操作！, vbInformati