【正文】 ck()If mdi = False ThenMsgBox 請(qǐng)關(guān)閉打開的窗口！, vbInformation, 不允許當(dāng)前操作！Else39。進(jìn)行注冊(cè)With Grid1 .AllowUserResizing = True .DisplayFocusRect = False .ExtendLastCol = True .Appearance = Flat .FixedRowColStyle = Flat .ScrollBarStyle = Flat .Cols = 12 . = 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 = 30 .Column(2).Width = 100 .Column(3).Width = 50 .Column(4).Width = 100 .Column(5).Width = 100 .Column(6).Width = 100 .Column(7).Width = 80 .Column(8).Width = 80 .Column(9).Width = 80 End WithCall callmain(1).Locked = True(9).Locked = Truegridsav2 = Falsegridedi2 = Truegriddel2 = Truemdi = FalseExit Subfinish:MsgBox End SubPrivate Sub Form_Unload(Cancel As Integer)mdi = TrueEnd SubPrivate Sub XPButton1_Click()On Error GoTo finish(9).Locked = FalseSet mdbrs = (select * from 客戶信息) = 1 = 2(1).Locked = True(1, 2).SetFocusgridsav2 = Truegridedi2 = Falsegriddel2 = FalseExit Subfinish:MsgBox End SubPrivate Sub XPButton2_Click()39。If gridsav2 = False Then39。Exit Sub39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 (元) Else(0, i + 1).Text = (i).NameEnd IfNexti = 1Do While Not = + 1 For j = 1 To 9 39?？罩档奶幚?(i, j).Text = Else (i, j).Text = (j 1).Value End If Next i = i + 1 39。On Error GoTo finishIf hang = 0 ThenMsgBox 請(qǐng)選擇客戶 !, vbInformation, 非使用對(duì)象Exit SubEnd Ifaa = InputBox(請(qǐng)輸入預(yù)存款金額:, 充值, 100, 500, 500)If aa 0 Thenbb = aa + Val((hang, 9).Text)39。Set mdbrs = (update 客戶信息 set 預(yù)存款余額=val(39。 (hang, 9) amp。) where 單位名稱=39。 (hang, 2).Text amp。) Set mdbrs = (update 客戶信息 set 單位名稱=39。 (i, 2).Text amp。,負(fù)責(zé)人=39。 (i, 3).Text amp。,地址=39。 (i, 4).Text amp。,聯(lián)系方式=39。 (i, 5).Text amp。,預(yù)存款余額=val(39。 (i, 9).Text amp。) where 客戶編號(hào)=val(39。 (i, 1).Text amp。))MsgBox 你本次的存款為: amp。 元　　 amp。 bb amp。 amp。 39。 MsgBox (0) (0) LoopEnd SubPrivate Sub Combo4_LostFocus() Set mdbrs2 = (select 車牌號(hào) from 車輛表 where 單位名稱=39。 amp。) Do While Not 39。進(jìn)行注冊(cè)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。 If i = 3 Then 39。 (元/升) 39。 If i = 4 Then 39。 (升) 39。 If i = 5 Then 39。 (元) 39。 (0, i + 1).Text = (i).Name 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。 (元/升) Else If i = 4 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?？罩档奶幚?(i, j).Text = Else (i, j).Text = (j 1) End If Next i = i + 1 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 升(i, 6).Text = (0) amp。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 amp。 39。 升(i, 6).Text = (0) amp。 元 End IfEnd IfElseMsgBox 請(qǐng)選擇單位!End IfEnd Sub參考文獻(xiàn)[1] 劉萌. Visual Basic 企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航, 北京：人民郵電出版社,2022[2] 劉韜 . Visual Basic 數(shù)據(jù)庫(kù)系統(tǒng)開發(fā)實(shí)例導(dǎo)航, 北京：人民郵電出版社,2022[3] 求是科技. Visual Basic信息管理系統(tǒng)開發(fā)實(shí)例導(dǎo)航， 北京：人民郵電出版社， 2022[4] 賽奎春. Visual Basic 信息系統(tǒng)開發(fā)實(shí)例精選， 北京：機(jī)械工業(yè)出版社，2022[5] 郭瑞軍. Visual Basic 數(shù)據(jù)庫(kù)開發(fā)實(shí)例精粹， 北京：電子工業(yè)出版社， 2022[6] 夏邦貴 劉凡馨. Visual Basic ， 北京：機(jī)械工業(yè)出版社,2022 [7] 邵浩. Visual Basic 程序設(shè)計(jì)， 福建：東南大學(xué)出版社，2022 [8] 知力 Access 2022中級(jí)教程， 北京：機(jī)械工業(yè)出版社， 1999[9] [美] Alison Balter著 瀟湘工作室譯. Access 2022中文版開發(fā)指南， 北京：人民郵電出版社， 2022 [10]　求是科技. Access 企業(yè)辦公系統(tǒng)開發(fā)實(shí)例導(dǎo)航， 北京：人民郵電出版社， 2022 [11] [美] Stephen The Complete Reference Office 2022[M] Publisher：Brandon ， 1994致 謝至此，本次的設(shè)計(jì)己經(jīng)全部結(jié)束，在此特別感謝老師的悉心指導(dǎo)，并感謝所有教授我專業(yè)知識(shí)的老師們，有了你們的幫助和支持，才讓我更加圓滿的完成的學(xué)業(yè)，在此我再次對(duì)各位老師表示感