【正文】 (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附錄：程序與代碼　用戶登陸Private Sub XPButton1_Click()On Error GoTo finishuser = Set mdbrs = (select * from 登陸 where 用戶名=39。 amp。 amp。 39。 and 密碼=39。 amp。 amp。 39。)If = True Then = = MsgBox 用戶名和密碼不正確??！Elseuser111 = (0)sup = (2)If (2) = 經(jīng)理 Then chair = TrueEnd IfIf (2) = 管理員 Then workman = TrueEnd IfIf (2) = 客戶 Then cust = TrueEnd If Unload Me End IfExit Subfinish:MsgBox End SubPrivate Sub XPButton2_Click()EndEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall XPButton1_ClickEnd IfEnd SubPrivate Sub Text2_KeyPress(KeyAscii As Integer)If KeyAscii = 13 ThenCall XPButton1_ClickEnd IfEnd Sub 用戶管理接口與代碼　用戶管理Dim gridsave As BooleanDim gridedit As BooleanDim griddelete As BooleanPrivate Sub Form_Load()On Error GoTo finish CNwinndy, W]vyYnonvku\ntyZbl_e`hms^ 39。進(jìn)行注冊With Grid1 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat . = Tahoma . = 8 .BackColorFixed = RGB(90, 158, 214) .BackColorFixedSel = RGB(110, 180, 230) .BackColorBkg = RGB(90, 158, 214) .BackColorScrollBar = RGB(231, 235, 247) .BackColor1 = RGB(231, 235, 247) .BackColor2 = RGB(239, 243, 255) .GridColor = RGB(148, 190, 231) .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat .GridColor = RGB(148, 190, 231) . = Tahoma . = 8 .Column(0).Width = 0 .Column(1).Width = 100 .Column(2).Width = 100 .Column(3).Width = 100 .Column(3).CellType = cellComboBox .ComboBox