【正文】 MsgBox Set = Adodc1 (0).Width = 0 (1).Width = 1000 。是 39。否 39。 39。 And 39。 And End If SchCnd = SchCnd + Between 39。設(shè)置查詢條件 If Len(Trim(txtDevNo)) = 0 Then SchCnd = And Else SchCnd = AND =39。然后調(diào)用 GridRefresh 過程，刷新表格中的設(shè)備維護(hù)數(shù)據(jù)。關(guān)閉窗口 Unload Me End Sub 設(shè)備維護(hù)信息管理模塊 銀行設(shè)備管理系統(tǒng) 34 設(shè)備維護(hù)管理窗體為 FrmMntenance,窗體的布局如圖 48 所示。把用戶錄入的數(shù)據(jù)賦值到數(shù)據(jù)庫對(duì)象變量中 With MyMaintenance .DevNo = MakeStr(txtDevNo) .ReportDate = Format(, yyyymmdd) .ArriveDate = Format(, yyyymmdd) .SolveDate = Format(, yyyymmdd) .Reason = MakeStr(txtReason) .ChangeAccessory = If = 1 Then .AccessoryList = MakeStr(txtAccessoryList) Else .AccessoryList = End If .Engineer = MakeStr(txtEngineer) .Amount = Val(txtAmount) .Comment = MakeStr(txtComment) 39。 當(dāng)單擊“確定”按鈕時(shí)觸發(fā) Cmd_OK_Click 事件，代碼如下： Private Sub Cmd_OK_Click() 39。屬性支行 txtPlace = Trim() 39。設(shè)備品牌 txtEnterprise = Trim() txtModel = Trim() 39。讀取指定對(duì)象信息 txtDevNo = Trim() 39。 銀行設(shè)備管理系統(tǒng) 32 圖 47 當(dāng)用戶單擊“選擇”按鈕時(shí)，將顯示所有的設(shè)備信息觸發(fā) Cmd_DeviceSel_click事件，對(duì)應(yīng)的代碼如下： Private Sub Cmd_DeviceSel_Click() 1 39。將雙擊選擇的設(shè)備信息放入指定對(duì)象中 If Then MsgBox (請(qǐng)選擇記錄 ) Exit Sub End If (Trim((0))) Unload Me End Sub 設(shè)備維護(hù)信息管理模塊 設(shè)備維護(hù)管理模塊可以實(shí)現(xiàn)添加、修改、刪除和查看設(shè)備維護(hù)信息 。 FrmDeviceSel 窗體的布局如圖 46 所示 。啟動(dòng)編輯窗體 1 GridRefresh 39。 提交人 39。開通時(shí)間 = Trim((8)) 39。布放地點(diǎn) = Trim((6)) 39。設(shè)備型號(hào) = Trim((4)) 39。分類編號(hào) = Trim((2)) 39。設(shè)備編號(hào) = Trim((0)) 39。將 Modify 變量設(shè)置為 False，表示當(dāng)前狀態(tài)為插入新記錄 = True 39。刷新 DataGrid 表格的內(nèi)容 GridRefresh End Sub cmd_modi_click 過程，修改。提交人 39。開通時(shí)間 = 39。單價(jià) = 39。設(shè)備編號(hào) = 39。將 Modify 變量設(shè)置為 False，表示當(dāng)前狀態(tài)為插入新記錄 = False 39。刷新設(shè)備信息 GridRefresh End Sub Cmd_add_click 過程。顯示列名 = InfoId 39。選擇支行 Set = Adodc3 39。 支行信息 = Conn 39。顯示列名 = InfoId 39。選擇設(shè)備分類 Set = Adodc2 39。 設(shè)備分類信息 = Conn 39。設(shè)置列寬度 (1).Width = 1200 (2).Width = 1200 (3).Width = 1200 (4).Width = 1200 (5).Width = 1000 (6).Width = 1200 (7).Width = 800 (8).Width = 1200 (9).Width = 1200 (10).Width = 1200 End Sub Form_Load 過程。設(shè)置連接字符串 = SELECT AS 設(shè)備編號(hào) , AS 分類 , _ + As 設(shè)備品牌 , AS 設(shè)備型號(hào) , AS 購買價(jià)格 , _ + AS 布放地點(diǎn) , AS 所屬支行 , AS 開通時(shí)間 , _ + AS 管理員 , AS 提交人 , As 狀態(tài) _ 銀行設(shè)備管理系統(tǒng) 29 + FROM Device d,BaseInfo t1, BaseInfo t2, BaseInfo t3 _ + WHERE = And = And = _ + SchCnd + ORDER BY Set = Adodc1 39。 + Trim(txtDevNo) + 39。判斷是否有查詢字段 If Len(Trim(txtDevNo)) = 0 Then SchCnd = Else 39。 Schd 變量用來記錄查詢條件，定義代碼如下： Private schd as string (2)GridRefresh過程。 銀行設(shè)備管理系統(tǒng) 28 下面是窗體 FrmDevice 中各個(gè)過程的代碼。窗體的主要的控件及其屬性如表 45 所示。關(guān)閉窗口 Unload Me End Sub 設(shè)備信息管理窗體 設(shè)備信息管理窗體的名稱為 FrmDevice。根據(jù)變量 Modify 的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then 39。檢查用戶錄入數(shù)據(jù)的有效性 If Len(Trim(txtDevNo)) = 0 Then MsgBox (請(qǐng)輸入設(shè)備編號(hào) ) Exit Sub End If If Len(Trim(txtModel)) = 0 Then MsgBox 請(qǐng)輸入設(shè)備型號(hào) Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請(qǐng)選擇設(shè)備分類 Exit Sub End If 銀行設(shè)備管理系統(tǒng) 26 If Len(Trim()) = 0 Then MsgBox 請(qǐng)選擇設(shè)備品牌 Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請(qǐng)選擇所屬支行 Exit Sub End If If Len(Trim(txtPrice)) = 0 Then MsgBox 請(qǐng)輸入設(shè)備單價(jià) Exit Sub End If If Len(Trim()) = 0 Then MsgBox 請(qǐng)選擇布放地點(diǎn) Exit Sub End If 39。綁定列值 End Sub （ 2） cmd_ok_click 過程。綁定數(shù)據(jù)源 = InfoName 39。設(shè)置連接字符串 = SELECT * FROM BaseInfo WHERE TypeId=3 39。綁定列值 39。綁定數(shù)據(jù)源 = InfoName 39。設(shè)置連接字符串 = SELECT * FROM BaseInfo WHERE TypeId=2 39。綁定列值 39。綁定數(shù)據(jù)源 = InfoName 39。設(shè)置連接字符 串 = SELECT * FROM BaseInfo WHERE TypeId=1 39。當(dāng)裝入窗體 FrmDeviceEdit 時(shí)觸發(fā) Form_Load 事件，對(duì)應(yīng)的代碼如下： Private Sub DataRefresh() 銀行設(shè)備管理系統(tǒng) 25 39。 表 44 窗 FrmDeviceEdit 中包含的控件及其屬性 對(duì)象名 屬性 屬性值 txtDevno 設(shè)備編號(hào) Adodcl 為設(shè)備分類提供數(shù)據(jù)源 Dco_typeid 設(shè)備分類 Adodc2 為設(shè)備品牌提供數(shù)據(jù)源 Dco_enterprise 設(shè)備品牌 Txtmodel 設(shè)備型號(hào) txtprice 購買價(jià)格 txtplace 布放地點(diǎn) Adodc3 為所屬支行提供數(shù)據(jù)源 Dco_branch 所屬支行 Txtstartdate 開通時(shí)間 Txtadmin 管理員 Txtposter 創(chuàng)建人 Cmd_ok Caption 確定 Cmd_cancel Caption 取消 下面是窗體 FrmDeviceEdit 中各個(gè)過程的代碼。 設(shè)備信息編輯窗體 設(shè)備信息編輯窗體可以用來添加和修改設(shè)備的基本信息，窗體名稱為FrmDeviceEdit,窗體的布局如圖 44 所示。 支行信息管理窗體 支行信息管理窗體也是 Frmtype，只是公共變量 Type ID 的值為 3。 刪除分類 (Val()) DataRefresh 39。選擇要?jiǎng)h除的分類名稱，用戶單擊“刪除”按鈕觸發(fā) Cmd_Del_Click 事件，對(duì)應(yīng)的代碼如下： Private Sub Cmd_Del_Click() If Len(Trim()) = 0 Then MsgBox (請(qǐng)選擇記錄 ) Exit Sub End If 39。更新名稱 = Trim(txtName) (OriId) DataRefresh 39。判斷新的名稱是否和原來的相同 If Trim(txtName) = OriInfoName Then Exit Sub End If 39。選擇分類名稱，在文本框中對(duì)其修改后，單擊“修改”按鈕觸發(fā) Cmd_Modi_Click 事件，對(duì)應(yīng)的程序代碼如下： Private Sub Cmd_Modi_Click() 39。將分類名稱保存到變量中 txtName = Trim() 39。記錄編號(hào) If (OriId) = True Then 39。選擇數(shù)據(jù)列表中的記錄，在文本框中同時(shí)顯示此分類名稱，對(duì)應(yīng)的代碼如下： 銀行設(shè)備管理系統(tǒng) 22 Private Sub DataList1_Click() 39。判斷數(shù)據(jù)庫中是否已經(jīng)存在此分類名稱 If (Trim(txtName), 1) = True Then MsgBox (已經(jīng)存在此分類名稱 ) Exit Sub End If 39。在文本框中輸入新的分類名稱，單擊“添加”按鈕時(shí)觸發(fā) cmd_add_click 事件，代碼如下： Private Sub Cmd_Add_Click() 39。設(shè)置列表中顯示字段 = InfoID 39。設(shè)置 SQL 語句 = SELECT * FROM BaseInfo WHERE TypeId= + Trim(TypeID) 39。其中過程 DataRefresh 對(duì)應(yīng)的代碼如下： Private Sub DataRefresh() 39。 對(duì)象名 屬性 屬性值 DataList1 Name DataList1(用來顯示設(shè)備分類名稱 ) Adodcl Visible False(用來提供數(shù)據(jù)源 ) TxtName Name Txtname（用來編輯分類名稱） Cmd_Add caption 添加 Cmd_Modi caption 修改 Cmd_del Caption 刪除 Cmd_exit Caption 退出 窗體代碼如下： （ 1） Form_Load 過程，對(duì)應(yīng)代碼： 銀行設(shè)備管理系統(tǒng)