1、登錄頁(yè)面的代碼Public a, b, c, d, e As StringPrivate Sub Command1_Click()a = Trim(Text1.Text)b = Trim(Text2.Text)c = Trim(Text3.Text)If a = "" Or b = "" Or c = "" ThenMsgBox "請(qǐng)輸入所要求的信息再登錄！", vbOKCancel + 48, " 登錄 "ElseIf a = "" ThenMsgBox " 賬號(hào)

2、不能為空，請(qǐng)輸入！", vbOKCancel + 48, " 登錄 "Text1.SetFocusElseIf b = "" ThenMsgBox " 密碼不能為空，請(qǐng)輸入！", vbOKCancel + 48, " 登錄 "Text2.SetFocusElseIf c = "" ThenMsgBox " 請(qǐng)?jiān)俅屋斠淮蚊艽a！", vbOKCancel + 48, " 登錄 "Text3.SetFocusElseIf a <> &quo

3、t; 農(nóng)大 111 自行車 " ThenMsgBox "賬號(hào)錯(cuò)誤！請(qǐng)確認(rèn)輸入", vbOKCancel + 48, " 登錄 "Text1.Text = ""Text1.SetFocusElseIf b <> "fafu111" ThenMsgBox "密碼錯(cuò)誤！請(qǐng)確認(rèn)輸入", vbOKCancel + 48, " 登錄 "Text2.Text = ""Text2.SetFocusElseIf c <> b ThenMsg

4、Box " 密碼不一致！請(qǐng)確認(rèn)輸入", vbOKCancel + 48, " 登錄 "Text2.Text = ""Text3.Text = ""Text2.SetFocusElseIf a = " 農(nóng)大 111 自行車 " And b = "fafu111" Thene = MsgBox(" 登錄成功！", vbOKCancel + 64, " 登陸成功 ")If e = vbOK ThenForm1.HideForm2.ShowEl

5、seText1.Text = ""Text2.Text = ""Text3.Text = ""End IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left + 20If Label1.Left > Me.Width Then Label1.Left = 4440: Timer1.Enabled = False End Sub主窗體代碼Private Sub cheliang1

6、_Click()Form5.ShowEnd SubPrivate Sub cheliang2_Click()Form6.ShowEnd SubPrivate Sub chuzu_Click()Form4.ShowEnd SubPrivate Sub kehuguanli1_Click()Form7.ShowEnd SubPrivate Sub tongji_Click()Form8.ShowEnd SubPrivate Sub xitong2_Click()Form3.ShowEnd SubPrivate Sub xitong3_Click()j = MsgBox(" 確定要退出嗎？

7、", vbOKCancel + 32, " 警告 ")If j = vbOK ThenEndEnd IfEnd Sub初始化窗體代碼Private Sub Command1_Click()Select Case Combo1.ListIndexCase 0If MsgBox(" 真的要進(jìn)行初始化嗎？", vbYesNo, "確認(rèn)初始化操作") = vbYes ThenCall deldata("bike")Combo1.ListIndex = -1ElseCombo1.ListIndex = -1End

8、IfCase 1If MsgBox(" 真的要進(jìn)行初始化嗎？", vbYesNo, "確認(rèn)初始化操作") = vbYes ThenCall deldata("users")Combo1.ListIndex = -1ElseCombo1.ListIndex = -1End IfCase 2If MsgBox(" 真的要進(jìn)行初始化嗎？", vbYesNo, "確認(rèn)初始化操作") = vbYes ThenCall deldata("book")Combo1.ListIndex =

9、-1ElseCombo1.ListIndex = -1End IfCase 3If MsgBox(" 真的要進(jìn)行系統(tǒng)初始化嗎？ ", vbYesNo, " 確認(rèn)初始化操作 ") = vbYes Then Call deldata("bike")Call deldata("users")Call deldata("book")Combo1.ListIndex = -1ElseCombo1.ListIndex = -1End IfEnd SelectEnd SubPrivate Sub Comman

10、d2_Click()Form3.HideEnd SubPrivate Sub Form_Load()End Sub出租處理代碼Private Sub Command1_Click()Dim rs As ADODB.RecordsetIf Trim(Text1.Text) = "" ThenMsgBox " 請(qǐng)先輸入客戶編號(hào)！"Command1.Enabled = TrueElsesql = "select*fromusers where 客戶編號(hào) =" & "'" & Trim(Text1.

11、Text) & "'"Set rs = exesql(sql)If rs.RecordCount = 0 ThenMsgBox " 沒(méi)有該客戶 "Text1.Text = ""Text1.SetFocusExit SubElseAdodc1.RecordSource = sqlrs.UpdateText1.Text = rs.Fields(" 客戶編號(hào) ").ValueText2.Text = rs.Fields(" 姓名 ").ValueIf rs.Fields("

12、身份證號(hào) ").Value <> "" Then Text4.Text = rs.Fields("身份證號(hào) ").ValueIf rs.Fields(" 學(xué)生證號(hào) ").Value <> "" Then Text4.Text = rs.Fields("學(xué)生證號(hào) ").ValueText3.Text = rs.Fields(" 性別 ").ValueText5.Text = rs.Fields(" 手機(jī)號(hào)碼 ").Value

13、rs.CloseSet rs = NothingSet conn = NothingEnd IfEnd IfCommand1.Enabled = FalseEnd SubPrivate Sub Command10_Click()i = MsgBox(" 確認(rèn)信息沒(méi)有錯(cuò)了嗎？", vbOKCancel + 32,警告 )If i = vbOK ThenCommand10.Enabled = FalseElseCommand10.Enabled = TrueEnd IfEnd SubPrivate Sub Command11_Click()Frame4.Visible = Fa

14、lseEnd SubPrivate Sub Command12_Click()Dim mey As StringIf Text14.Text <> "" Thenmey = Str(Val(Text15.Text) * Val(Combo3.Text) + Val(Text14.Text)Elsemey = Str(Val(Text15.Text) * Val(Combo3.Text)End IfText9.Text = Format(mey, "#0.0") & "元 "End SubPrivate Sub Co

15、mmand13_Click()Dim rs As ADODB.Recordsetw = MsgBox(" 確定要?jiǎng)h除嗎？刪除后不可恢復(fù)", vbOKCancel + 32,警告 )If w = vbOK ThenIf Trim(Text17.Text) <> "" Thensql = "select * from book where訂單號(hào) =" & "'" & Trim(Text17.Text) & "'"Set rs = exesql(sq

16、l)rs.DeleteAdodc3.RefreshDataGrid1.RefreshMsgBox " 刪除成功 "'清空數(shù)據(jù)Text17.Text = ""Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = "&quo

17、t;Text9.Text = ""Text10.Text = ""Text11.Text = ""Text13.Text = ""Text14.Text = ""Text15.Text = ""rs.CloseEnd IfEnd IfEnd SubPrivate Sub Command14_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text =

18、 ""Text5.Text = ""Command1.Enabled = TrueEnd SubPrivate Sub Command15_Click()Text6.Text = ""Text7.Text = ""Text8.Text = ""Command2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Dim rs As ADODB.RecordsetIf Trim(Text6.Text) = "" ThenMsgBox

19、 " 請(qǐng)先輸入車輛編號(hào)！"Command2.Enabled = TrueElsesql = "select*frombike where 車輛編號(hào) =" & "'" & Trim(Text6.Text) & "'"Set rs = exesql(sql)If rs.RecordCount = 0 ThenMsgBox " 車庫(kù)并沒(méi)有該車輛"Text6.Text = ""Text6.SetFocusExit SubElseAdodc2.R

20、ecordSource = sqlrs.UpdateText7.Text = rs.Fields(" 車輛型號(hào) ").ValueText8.Text = rs.Fields(" 顏色 ").Valuers.CloseSet rs = NothingSet conn = NothingEnd IfEnd IfCommand2.Enabled = FalseEnd SubPrivate Sub Command3_Click()Text11.Text = Now()End SubPrivate Sub Command4_Click()Text13.Text =

21、 Now()End SubPrivate Sub Command5_Click()If Text11.Text <> "" And Combo3.Text <> "" ThenDim sql As StringDim rs As ADODB.RecordsetDim conn As New ADODB.ConnectionSet rs = New ADODB.RecordsetSet conn = New ADODB.Connectionconn.ConnectionString = "Provider=SQLOLEDB

22、.1;Persist Security Info=False;User ID=sa;Initial Catalog=bbu;Data Source=" & GetName()conn.OpenIf Command1.Enabled <> False Or Command2.Enabled <> False Or Command10.Enabled <> False ThenMsgBox " 有表單信息漏填或忘了點(diǎn)擊“確定”"ElseIf Trim(Text17.Text) <> "" Th

23、ensql = "select * from book where訂單號(hào) =" & "'" & Trim(Text17.Text) & "'"rs.Open sql, conn, 1, 1If rs.RecordCount <> 0 Then'判斷是否重復(fù)MsgBox " 該訂單編號(hào)已存在！請(qǐng)重新填寫(xiě)"Text17.Text = ""Text17.SetFocusrs.CloseElsers.Closesql = "selec

24、t * from book"rs.Open sql, conn, 3, 2rs.AddNewrs.Fields(" 訂單號(hào) ").Value = Trim(Text17.Text)rs.Fields(" 客戶編號(hào) ").Value = Trim$(Text1.Text)rs.Fields(" 證件號(hào) ").Value = Trim(Text4.Text)rs.Fields(" 姓名 ").Value = Trim(Text2.Text)rs.Fields(" 性別 ").Value =

25、 Trim(Text3.Text)rs.Fields(" 手機(jī)號(hào)碼 ").Value = Trim(Text5.Text)rs.Fields(" 車輛編號(hào) ").Value = Trim(Text6.Text)rs.Fields(" 車輛型號(hào) ").Value = Trim(Text7.Text)rs.Fields(" 顏色 ").Value = Trim(Text8.Text)rs.Fields(" 狀態(tài) ").Value = " 出租 "rs.Fields("

26、出租時(shí)間 ").Value = Trim(Text11.Text)If Combo3.Text <> "" Then rs.Fields("單價(jià) ").Value = Trim(Combo3.Text)If Trim(Text10.Text) <> "" Then rs.Fields("押金 ").Value = Trim(Text10.Text)rs.Fields(" 是否已入庫(kù) ").Value = " 否 "rs.UpdateMsgBo

27、x " 出租成功 "'清空數(shù)據(jù)Adodc3.RefreshDataGrid1.Refreshrs.CloseSet rs = NothingSet conn = NothingCommand4.Enabled = TrueText15.Enabled = TrueText9.Enabled = TrueCombo1.Enabled = TrueText14.Enabled = TrueEnd IfEnd IfCommand1.Enabled = TrueCommand2.Enabled = TrueCommand10.Enabled = TrueElseMsgBox

28、 " 出租時(shí)間和單價(jià)不能為空！ "Command10.Enabled = TrueExit SubEnd IfEnd SubPrivate Sub Command6_Click()Frame4.Visible = TrueEnd SubPrivate Sub Command7_Click()Dim rs As ADODB.RecordsetIf Trim(Text17.Text) <> "" Thensql = "select * frombook where 訂單號(hào) =" & "'"

29、& Trim(Text17.Text) & "'"Set rs = exesql(sql)If rs.RecordCount = 0 ThenMsgBox " 并沒(méi)有該訂單，請(qǐng)確認(rèn)"Text17.Text = ""Text17.SetFocusExit SubEnd If'以可寫(xiě)方式打開(kāi)記錄集rs.UpdateIf Option1.Value = True Thenrs.Fields(" 狀態(tài) ").Value = " 出租 "Elsers.Fields(&quo

30、t; 狀態(tài) ").Value = " 歸還 "End IfIf Trim(Text13.Text) <> "" Then rs.Fields("歸還時(shí)間 ").Value = Trim(Text13.Text)If Combo1.Text <> "" Then rs.Fields("是否損壞 ").Value = Combo1.TextIf Combo4.Text <> "" Then rs.Fields("是否已入庫(kù)

31、").Value = Combo4.TextIf Text4.Text <> "" Then rs.Fields("罰金 ").Value = Trim(Text14.Text)rs.Fields(" 出租款 ").Value = Text9.Textrs.UpdateAdodc3.RefreshDataGrid1.RefreshMsgBox " 歸還成功 "'清空數(shù)據(jù)Text1.Text = ""Text2.Text = ""Text3.Tex

32、t = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Text9.Text = ""Text10.Text = ""Text11.Text = ""Text13.Text = ""rs.CloseEnd IfEnd SubPrivate Sub Command8_Click()If Trim

33、(Text16.Text) <> "" ThenDim rs As ADODB.RecordsetSelect Case Combo2.ListIndexDim sql As StringCase 0sql = "select * from book where訂單號(hào) =" & "'" & Trim(Text16.Text) & "'"Case 1sql = "select * from book where客戶編號(hào) =" & &quo

34、t;'" & Trim(Text16.Text) & "'"Case 2sql = "select * from book where車輛編號(hào) =" & "'" & Trim(Text16.Text) & "'"End SelectSet rs = exesql(sql)If rs.EOF = True ThenMsgBox " 不存在滿足此條件的訂單！，請(qǐng)確認(rèn) "Text16.Text = ""

35、;Text16.SetFocusrs.CloseExit SubElsers.UpdateAdodc3.RecordSource = sqlAdodc3.RefreshDataGrid1.Refreshrs.CloseSet rs = NothingSet conn = NothingEnd IfElseMsgBox " 請(qǐng)先填寫(xiě)條件"Exit SubEnd IfEnd SubPrivate Sub Command9_Click()Combo2.Text = ""Text16.Text = ""End SubPrivate Sub D

36、ataGrid1_Click()Call DataGrid1_GotFocusEnd SubPrivate Sub DataGrid1_GotFocus()Dim rs As ADODB.RecordsetIf DataGrid1.Columns("訂單號(hào) ").Value <> "" ThenText17.Text = DataGrid1.Columns(" 訂單號(hào) ").ValueIf Trim(Text17.Text) <> "" Thensql = "select * fr

37、om book where訂單號(hào) =" & "'" & Trim(Text17.Text) & "'"Set rs = exesql(sql)rs.UpdateAdodc3.RefreshDataGrid1.RefreshText1.Text = rs.Fields(" 客戶編號(hào) ").ValueText2.Text = rs.Fields(" 姓名 ").ValueText4.Text = rs.Fields(" 證件號(hào) ").ValueTex

38、t5.Text = rs.Fields(" 手機(jī)號(hào)碼 ").ValueIf rs.Fields(" 性別 ").Value <> "" Then Text3.Text = rs.Fields(" 性別 ").Value Text7.Text = rs.Fields(" 車輛型號(hào) ").ValueIf rs.Fields(" 押金 ").Value <> "" Then Text10.Text = rs.Fields("押金

39、 ").ValueText6.Text = rs.Fields(" 車輛編號(hào) ").ValueText8.Text = rs.Fields(" 顏色 ").ValueCombo3.Text = rs.Fields(" 單價(jià) ").ValueIf rs.Fields(" 出租時(shí)間 ").Value <> "" Then Text11.Text = rs.Fields("出租時(shí)間 ").ValueIf rs.Fields(" 是否已入庫(kù) "

40、;).Value <> "" Then Combo4.Text = rs.Fields(" 是否已入庫(kù) ").ValueIf rs.Fields(" 歸還時(shí)間 ").Value <> "" Then Text13.Text = rs.Fields(" 歸還時(shí)間 ").Value If rs.Fields(" 罰金 ").Value <> "" Then Text14.Text = rs.Fields(" 罰金

41、").ValueIf rs.Fields(" 出租款 ").Value <> "" Then Text9.Text = rs.Fields("出租款 ")If rs.Fields(" 狀態(tài) ").Value = " 出租 " ThenOption1.Value = TrueElseOption2.Value = TrueEnd IfIf rs.Fields(" 是否損壞 ").Value <> "" Then Combo1

42、.Text = rs.Fields(" 是否損壞 ").Value rs.CloseCommand4.Enabled = TrueText15.Enabled = TrueText9.Enabled = TrueCombo1.Enabled = TrueText14.Enabled = TrueEnd IfEnd IfEnd SubPrivate Sub Form_Load()Command4.Enabled = FalseText15.Enabled = FalseText9.Enabled = FalseCombo1.Enabled = FalseText14.Enab

43、led = FalseEnd Sub車輛管理代碼Private Sub Command4_Click()Dim rs As ADODB.RecordsetIf Trim(Text1.Text) <> "" And Text1.Text = DataGrid1.Columns(" 車輛編號(hào) ").Value Then sql = "select * from bike where 車輛編號(hào) =" & "'" & Trim(Text1.Text) & "'&

44、quot;Set rs = exesql(sql)ElseMsgBox " 原車輛編號(hào)要填寫(xiě)且不能更改！"Text1.Text = ""Text1.SetFocusExit SubEnd IfIf Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" And Combo1.Text <> "" Then sql = "select * from bike&

45、quot;'以可寫(xiě)方式打開(kāi)記錄集rs.Updaters(" 車輛編號(hào) ") = Trim(Text1.Text)rs(" 車輛型號(hào) ") = Trim(Combo1.Text)rs(" 顏色 ") = Trim(Text2.Text)rs(" 原價(jià) ") = Trim(Text3.Text)rs(" 投入時(shí)間 ") = Trim(Text4.Text)rs(" 是否已入庫(kù) ") = Trim(Combo2.Text)rs(" 是否可借 ") = T

46、rim(Combo3.Text)rs(" 是否損壞 ") = Trim(Combo4.Text)If Trim(Text5.Text) <> "" Then rs(" 入庫(kù)時(shí)間 ") = Trim(Text5.Text) If Trim(Text6.Text) <> "" Then rs(" 報(bào)廢時(shí)間 ") = Trim(Text6.Text) rs.UpdateAdodc1.RefreshDataGrid1.RefreshMsgBox " 修改成功 "

47、;'清空數(shù)據(jù)Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""rs.CloseElseMsgBox " 信息不對(duì)，請(qǐng)把必填信息填寫(xiě)完整！"Exit SubEnd IfEnd SubPrivate Sub Command5_Click()Dim rs As ADODB.Recordsetw = MsgBox("

48、確定要?jiǎng)h除嗎？刪除后不可恢復(fù)If w = vbOK Then", vbOKCancel + 32,警告 )If Trim(Text1.Text) <> "" Thensql = "select * from bike where車輛編號(hào) =" & "'" & Trim(Text1.Text) & "'"Set rs = exesql(sql)rs.DeleteAdodc1.RefreshDataGrid1.RefreshMsgBox " 刪除成

49、功 "'清空數(shù)據(jù)Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""rs.CloseEnd IfEnd IfEnd SubPrivate Sub Command6_Click()If Text7.Text <> "" ThenDim rs As ADODB.RecordsetSelect Case C

50、ombo5.ListIndexDim sql As StringCase 0sql = "select * from bike where車輛編號(hào)=" & "'" & Trim(Text7.Text) & "'"Case 1sql = "select * from bike where車輛型號(hào)=" & "'" & Trim(Text7.Text) & "'"Case 2sql = "se

51、lect * from bike where是否已入庫(kù)=" & "'" & Trim(Text7.Text) & "'"Case 3sql = "select * from bike where是否可借=" & "'" & Trim(Text7.Text) & "'"Case 4sql = "select * from bike where是否損壞=" & "'

52、" & Trim(Text7.Text) & "'"End SelectSet rs = exesql(sql)If rs.EOF = True Then'判斷是否重復(fù)MsgBox " 不存在滿足此條件的車！請(qǐng)確認(rèn)"Text7.Text = ""Text7.SetFocusrs.CloseExit SubElsers.UpdateAdodc1.RecordSource = sqlAdodc1.RefreshDataGrid1.RefreshText1.Text = rs.Fields(&quo

53、t; 車輛編號(hào) ").ValueText2.Text = rs.Fields(" 顏色 ").ValueIf rs.Fields(" 是否可借 ").Value <> "" Then Combo3.Text = rs.Fields(" 是否可借 ").Value If rs.Fields(" 是否已入庫(kù) ").Value <> "" Then Combo2.Text = rs.Fields(" 是否已入庫(kù)").ValueT

54、ext3.Text = rs.Fields(" 原價(jià) ").ValueText4.Text = rs.Fields(" 投入時(shí)間 ").ValueIf rs.Fields(" 是否損壞 ").Value <> "" Then Combo4.Text = rs.Fields(" 是否損壞 ").Value If rs.Fields(" 入庫(kù)時(shí)間 ").Value <> "" Then Text5.Text = rs.Fields(&q

55、uot; 入庫(kù)時(shí)間 ").Value If rs.Fields(" 報(bào)廢時(shí)間 ").Value <> "" Then Text6.Text = rs.Fields(" 報(bào)廢時(shí)間 ").Value rs.CloseSet rs = NothingSet conn = NothingEnd IfElseMsgBox " 請(qǐng)先填寫(xiě)條件"Exit SubEnd IfEnd SubPrivate Sub Command1_Click()Dim sql As StringDim rs As ADODB.R

56、ecordsetDim conn As New ADODB.ConnectionSet rs = New ADODB.RecordsetSet conn = New ADODB.Connectionconn.ConnectionString="Provider=SQLOLEDB.1;PersistSecurityInfo=False;UserID=sa;Initial Catalog=bbu;Data Source=" & GetName()conn.OpenIf Text2.Text <> "" And Text3.Text <

57、;> "" And Text4.Text <> "" And Combo1.Text <> "" Then If Trim(Text1.Text) <> "" And Len(Trim(Text1.Text) = 10 Thensql = "select * from bike where車輛編號(hào) =" & "'" & Trim(Text1.Text) & "'"rs.Ope

58、n sql, conn, 1, 1If rs.EOF <> True Then'判斷是否重復(fù)MsgBox " 該車編號(hào)已存在！請(qǐng)確認(rèn)"Text1.Text = ""rs.CloseElsers.Closesql = "select * from bike"rs.Open sql, conn, 3, 2'以可寫(xiě)方式打開(kāi)記錄集rs.AddNewrs("車輛編號(hào) ") = Trim(Text1.Text)rs("車輛型號(hào) ") = Trim(Combo1.Text)rs(&

59、quot;顏色 ") = Trim(Text2.Text)rs("原價(jià) ") = Trim(Text3.Text)rs("投入時(shí)間 ") = Trim(Text4.Text)If Combo3.Text <> "" Then rs.Fields("是否可借 ").Value = Combo3.TextIf Combo2.Text <> "" Then rs.Fields(" 是否已入庫(kù) ").Value = Combo2.Text If Te

60、xt4.Text <> "" Then rs.Fields(" 投入時(shí)間 ").Value = Text4.TextIf Combo4.Text <> "" Then rs.Fields(" 是否損壞 ").Value = Combo4.Text If Text5.Text <> "" Then rs.Fields(" 入庫(kù)時(shí)間 ").Value = Text5.TextIf Text6.Text <> ""

61、 Then rs.Fields(" 報(bào)廢時(shí)間 ").Value = Text6.Text rs.UpdateMsgBox " 錄入成功 "Adodc1.RefreshDataGrid1.Refresh'清空數(shù)據(jù)Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""rs.CloseSet rs = Noth

62、ingSet conn = NothingEnd IfElseb = MsgBox(" 請(qǐng)先填寫(xiě)正確的車輛編號(hào)", vbOKCancel + 48, " 警告 ")If b = vbOK ThenText1.Text = ""Text1.SetFocusEnd IfEnd IfElseMsgBox "有信息漏填寫(xiě)，請(qǐng)先填寫(xiě)！", vbOKCancel + 48, " 警告 "End IfEnd SubPrivate Sub Command2_Click()Text1.Text = "&

63、quot;Text2.Text = ""Text3.Text = ""Text4.Text = ""Text5.Text = ""Text6.Text = ""Combo1.Text = ""Combo2.Text = ""Combo3.Text = ""Combo4.Text = ""End SubPrivate Sub Command7_Click()sql = "select * from bike&

64、quot;Set rs = exesql(sql)Adodc1.RefreshDataGrid1.Refreshrs.CloseEnd SubPrivate Sub DataGrid1_Click()Call DataGrid1_GotFocusEnd SubPrivate Sub DataGrid1_GotFocus()Dim rs As ADODB.RecordsetText1.Text = DataGrid1.Columns(" 車輛編號(hào) ").ValueIf Trim(Text1.Text) <> "" Thensql = "select * from bike where車輛編號(hào) =" & "'" & Trim(Text1.Text) & "'"Set rs = exesql(sql)End Ifrs.UpdateText1.Text = rs.Fields(" 車輛編號(hào) ").ValueText2.Text = rs.Fields(" 顏色 ").ValueIf rs.