【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 rivate Sub cmdAll_Click() = False = 0 = 0 = 0 = 0 = 0 = 0 Call Rebind = True = False = False End Sub Private Sub QingKong() = 您所要查詢的車輛檔案如下： 39。清空 datagrid1控件里的記錄 = Provider=。Data Source= amp。 amp。 \ amp。 。Persist Security Info=False = select * from 車輛檔案 where 0=1 End Sub 系統(tǒng)其他模塊實(shí)現(xiàn)和相關(guān)技術(shù) 駕駛員、運(yùn)營(yíng)信息管理模塊 司機(jī)信息管理模塊主要由三個(gè)窗體組成，分別是 frmdriver、 frmdriverlist、 frmdriverfind。其中 frmdriver 窗體為司機(jī)信息的添加和修改窗體，它類似于以上詳細(xì)介紹的車輛信息窗體，它也是有一個(gè)全局變量 gintdmode 來(lái)控制是處于添加狀態(tài)還是修改狀態(tài)，用另外一個(gè)全局變量 flagdedit 來(lái)標(biāo)志當(dāng)前是否已經(jīng)進(jìn)行了數(shù)據(jù)修改，如果已經(jīng)修改將值置 1，在顯示數(shù)據(jù)的 時(shí)候，如果已經(jīng)修改則重新顯示數(shù)據(jù)，保證顯示數(shù)據(jù)與數(shù)據(jù)庫(kù)的統(tǒng)一。數(shù)據(jù)顯示窗體與車輛信息管理模塊基本一致，不再做詳細(xì)的介紹。查詢窗體，是允許對(duì)三個(gè)關(guān)鍵字進(jìn)行查詢，如圖 所示，只允許對(duì)其中一個(gè)關(guān)鍵字進(jìn)行查詢，實(shí)現(xiàn)思想是，根據(jù)用戶對(duì)關(guān)鍵字的選擇和填寫，自動(dòng)生成一個(gè) sql語(yǔ)句，賦值給顯示窗體 frmdriverlist 的公共變量 txtsql，然后進(jìn)行查詢最后將用戶的查詢結(jié)果在在窗體中顯示出來(lái)，這樣便實(shí)現(xiàn)了數(shù)據(jù)的查詢。 源代碼： Dim i As Integer Private Sub cmdAdd_Click() Unlockctl Dim temp1 temp1 = CStr(Year(Now)) = select * from 駕駛員檔案 order by 駕駛員編號(hào) If 0 Then = Year(Now) amp。 Format(Val(Right((0), 4) + 1), 0000) Else = Year(Now) amp。 0001 End If = = = = = = = = = = True = True = False = False = True = False i = 1 End Sub Private Sub cmdCancel_Click() On Error Resume Next 39。當(dāng)沒有添加數(shù)據(jù)的時(shí)候 處理異常 Lockctl = = False = False = True = True = True = True End Sub Private Sub cmdDelete_Click() If MsgBox(您確實(shí)要?jiǎng)h除記錄嗎？ , vbOKCancel, 系統(tǒng)提示 ) = vbOK Then (delete from 駕駛員檔案 where 駕駛員編號(hào) =39。 amp。 Text1 amp。 39。) MsgBox 記錄已刪除！ , , 系統(tǒng)提示 = = = = = = = = = = End If End Sub Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdFind_Click() Dim str As String str = InputBox$(輸入你要查詢的駕駛員編號(hào)： , 系統(tǒng)提示 ) If str = Then Exit Sub = select * from 駕駛員檔案 where 駕駛員編號(hào) =39。 + str + 39。 If 0 Then = (0) = (1) = (2) = (3) = (4) = (5) = (6) = (7) = (8) = (9) = (10) = (11) = (12) = True = True Else MsgBox 沒有你需要的信息！ , , 系統(tǒng)提示 = False = False End If End Sub Private Sub cmdOk_Click() Select Case i Case 1 If = Or = Or = Or = Or = Or = Or = Or = Or = Or = Then MsgBox 每一項(xiàng) 不能為空！ , , 系統(tǒng)提示 Exit Sub End If (insert into 駕駛員檔案 values (39。 amp。 Text1 amp。 39。,39。 amp。 Text2 amp。 39。,39。 amp。 Text3 amp。 39。,39。 amp。 amp。 39。,39。 amp。 Text4 amp。 39。,39。 amp。 amp。 39。,39。 amp。 Text5 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。)) MsgBox 記錄添加成功！ , , 系統(tǒng)提示 Case 2 (update 駕駛員檔案 set 駕駛員編號(hào) =39。 amp。 amp。 39。,姓名=39。 amp。 amp。 39。,性別 =39。 amp。 amp。 39。,出生年月 =39。 amp。 amp。 39。,駕駛證號(hào)=39。 amp。 amp。 39。,領(lǐng)證日期 =39。 amp。 amp。 39。,證件有效期 =39。 amp。 amp。 39。,駕齡 =39。 amp。 amp。 39。,準(zhǔn)駕車型 =39。 amp。 amp。 39。,何時(shí)參加工作 =39。 amp。 amp。 39。,聯(lián)系電話 =39。 amp。 amp。 39。,年檢記錄 =39。 amp。 amp。 39。,備注 =39。 amp。 amp。 39。 where 駕駛員編號(hào) =39。 amp。 amp。 39。) MsgBox 記錄修改成功！ , , 系統(tǒng)提示 End Select Lockctl = False = False = True = True = True = True End Sub Private Sub cmdUpdate_Click() Unlockctl i = 2 = True = True = False = False = True = False End Sub Private Sub Combo1_KeyPress(KeyAscii As Integer) KeyAscii = valiText(KeyAscii, Chr(13), True) If KeyAscii = 13 Then End Sub Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub DTPicker2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub DTPicker3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Form_Load() = 8460 = 3120 = select * from 車輛類型表 For i = 0 To 1 (0).Value Next End Sub Private Sub Lockctl() = False = False = False = False = False = False = False = False = False = False = False = False = False End Sub Private Sub Unlockctl() = True = True = True = True = True = True = True = True = True = True = True = True End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If = Then MsgBox 駕駛編號(hào)不能為空！ , , 系統(tǒng)提示 End If End If End Sub Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If = Then MsgBox 姓名不能為空！！ , , 系統(tǒng)提示 End If End If End Sub Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If = Then MsgBox 性別不能為空！ , , 系統(tǒng)提示 End If End If End Sub Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If = Then MsgBox 駕駛證號(hào)不能為空！！ , , 系統(tǒng)提示 End If End If End Sub Private Sub Text5_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If = Then MsgBox 證件有效期不能為空！ , , 系統(tǒng)提示 End If End If End Sub Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then End Sub Private Sub Text7_KeyDown(KeyCode As Integer, S