vb侯奕樂-車輛管理系統(tǒng)(編輯修改稿)
2025-02-08 00:06 本頁面
【文章內(nèi)容簡介】 Case 管理員 Case 普通用 戶 = False = False = False End Select MDIForm1. Show Unload Me End If End Sub Private Sub Command2_Click() Unload Me 39。 End Sub Private Sub Form_Load() = 0 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If End Sub 2 . 車輛報廢 查詢 : 代碼分 析 : Private Sub ckcp_Click() If Then = True Else = Fals End If End Sub Private Sub cktime_Click() If Then = True = True Else = False = False End If End Sub Private Sub ckyy_Click() If Then = True Else = False End If End Sub Private Sub cmdCha_Click() 39。點(diǎn) 擊 查詢 按 紐后 首 先清 空 車輛 報 廢 列 表 Call QingKon 39。定 義 查詢 條 件的 字 符串 Dim sql As String Dim scp As String If Then scp = 車牌號碼 like 39。% amp。 amp。 %39。 Else scp = 車牌號碼 like 39。%39。 End If Dim stime As String If Then stime = 報 廢 日 期 between amp。 amp。 / amp。 amp。 / amp。 amp。 and amp。 amp。 / amp。 amp。 / amp。 amp。 Else stime = 報 廢日期 like 39。%39。 End If Dim sdd As String If Then syy = 報 廢 原因 like39。% amp。 amp。 %39。 Else syy = 報 廢 原因 like 39。%39。 End If sql = select * from 車 輛 報廢表 where amp。 scp amp。 and amp。 syy amp。 and amp。 stime 39。如 果沒 有 選擇 查 詢條 件 ，那 么 清空 上 一次查 詢 結(jié)果 并 給出 對 話 框 提示， 退 出查 詢 過程 If sql = select * from 車輛 報 廢表 where 車牌號碼 like 39。%39。and 報 廢原因 like 39。%39。and 報廢日期 like 39。%39。 Then Call QingKong MsgBox 請 選擇 查 詢條 件 , , 系 統(tǒng) 提示 Exit Sub End If 39。返 回 符合 查 詢條 件 的記 錄 集 Set adors = (sql) 39。如 果記 錄 集為 空 ，說 明 沒有 符 合條 件 的記錄 存 在， 清 空上 一 次 查 詢結(jié)果 集 并提 示 ， 39。退 出 此次 查 詢過 程 ，否則在 datagrid1 控件里 顯 示記 錄 集 If Then Call QingKong MsgBox 對 不 起 ， 沒 有 符合 您 查 詢 條件的 車 輛 ！ , , 系統(tǒng)提 示 Else = sql End If = 0 = 0 = 0 End Sub Private Sub cmdExit_Click() (1).Text = Unload Me End Sub Private Sub Form_Load() = 4155 = 5730 = 車輛 報 廢列 表 Call Rebind 39。將 車 輛報 廢 表里 的 車牌 號 碼加到 cmcp 控件里 Set adors = (select distinct 車牌 號 碼 , 報 廢 原 因 from 車 輛 報廢 表 ) On Error Resume Next Do (0) (1) Loop Until End Sub Private Sub Rebind() = 車輛 報 廢列 表 39。進(jìn) 行 與數(shù) 據(jù) 庫的 綁 定及 選 擇作 為 記 錄 源的表 = Provider=。Data Source= amp。 amp。 \ amp。 。Persist Security Info=False = select * from 車輛報 廢 表 End Sub Private Sub QingKong() = 您 所 要查 詢 的 報 廢車輛 記 錄如 下 ： = Provider=。Data Source= amp。 amp。 \ amp。 。
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1