【正文】 (1, 8).Text = Thens8 = Elses8 = (1, 8).Text End IfSet mdbrs = (select * from 客戶信息 where 單位名稱=39。 amp。 (1, 2).Text amp。 39。) If = True Then Set mdbrs = (insert into 客戶信息(單位名稱,負(fù)責(zé)人,地址,聯(lián)系方式,傳真號碼,郵件地址,郵編,預(yù)存款余額) values(39。 amp。 (1, 2).Text amp。 39。,39。 amp。 (1, 3).Text amp。 39。,39。 amp。 (1, 4).Text amp。 39。,39。 amp。 (1, 5).Text amp。 39。,39。 amp。 s6 amp。 39。,39。 amp。 s7 amp。 39。,39。 amp。 s8 amp。 39。,val(39。 amp。 (1, 9).Text amp。 39。))) 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 當(dāng)前修改操作不被允許!, 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。 amp。 (i, 2).Text amp。 39。,負(fù)責(zé)人=39。 amp。 (i, 3).Text amp。 39。,地址=39。 amp。 (i, 4).Text amp。 39。,聯(lián)系方式=39。 amp。 (i, 5).Text amp。 39。,傳真號碼=39。 amp。 s6 amp。 39。,郵件地址=39。 amp。 s7 amp。 39。,郵編=39。 amp。 s8 amp。 39。,預(yù)存款余額=val(39。 amp。 (i, 9).Text amp。 39。) where 客戶編號=val(39。 amp。 (i, 1).Text amp。 39。)) Next MsgBox 修改的數(shù)據(jù)己經(jīng)完成, vbInformation, 完成操作 Call callmainExit Subfinish:MsgBox End SubPrivate Sub XPButton4_Click()On Error GoTo finishIf griddel2 = False ThenMsgBox 當(dāng)前刪除操作不被允許!, vbInformation, 非使用對象Exit SubEnd IfIf hang = 0 ThenMsgBox 沒有選擇客戶或者沒有客戶可以刪除!, vbInformation, 非使用對象 Exit SubEnd IfSet mdbrs = (delete from 客戶信息 where 客戶編號=val(39。 amp。 (hang, 1).Text amp。 39。))MsgBox 目標(biāo)己刪除,請刷新數(shù)據(jù)!, 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。 (元) Else(0, i + 1).Text = (i).NameEnd IfNexti = 1Do While Not = + 1 For j = 1 To 9 39。設(shè)定讀取列 If (j 1).Value = Then 39?？罩档奶幚?(i, j).Text = Else (i, j).Text = (j 1).Value End If Next i = i + 1 39。讀取下一記錄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。On Error GoTo finishIf hang = 0 ThenMsgBox 請選擇客戶!, vbInformation, 非使用對象Exit SubEnd Ifaa = InputBox(請輸入預(yù)存款金額:, 充值, 100, 500, 500)If aa 0 Thenbb = aa + Val((hang, 9).Text)39。MsgBox aaSet mdbrs = (select * from 客戶信息)(hang, 9).Text = bbi = hang39。Set mdbrs = (update 客戶信息 set 預(yù)存款余額=val(39。 amp。 (hang, 9) amp。 39。) where 單位名稱=39。 amp。 (hang, 2).Text amp。 39。) Set mdbrs = (update 客戶信息 set 單位名稱=39。 amp。 (i, 2).Text amp。 39。,負(fù)責(zé)人=39。 amp。 (i, 3).Text amp。 39。,地址=39。 amp。 (i, 4).Text amp。 39。,聯(lián)系方式=39。 amp。 (i, 5).Text amp。 39。,預(yù)存款余額=val(39。 amp。 (i, 9).Text amp。 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)計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:Ms