【導(dǎo)讀】隨著銀行卡的普及，很多地方安裝了大量的存款機、取款機和POS機等銀行自助設(shè)備。而為用戶提供更加穩(wěn)定和優(yōu)質(zhì)的服務(wù)。在文章的最后，還根據(jù)數(shù)據(jù)庫系統(tǒng)的調(diào)試結(jié)果，提出了可以進(jìn)一步改進(jìn)的部分，以。便在投入實際應(yīng)用后系統(tǒng)可以更加穩(wěn)定可靠的工作。

　　

【正文】 值讀取不同的記錄，對應(yīng)的代碼如下： Private Sub GridRefresh() 39。判斷是否有查詢字段 If Len(Trim(txtDevNo)) = 0 Then SchCnd = Else 39。設(shè)置查詢條件 SchCnd = AND = 39。 + Trim(txtDevNo) + 39。 End If If Len(Trim()) 0 Then SchCnd = SchCnd + AND = + Trim(()) End If If Len(Trim()) 0 Then SchCnd = SchCnd + AND = + Trim(()) End If = Conn 39。設(shè)置連接字符串 = SELECT AS 設(shè)備編號 , AS 分類 , _ + As 設(shè)備品牌 , AS 設(shè)備型號 , AS 購買價格 , _ + AS 布放地點 , AS 所屬支行 , AS 開通時間 , _ + AS 管理員 , AS 提交人 , As 狀態(tài) _ + FROM Device d,BaseInfo t1, BaseInfo t2, BaseInfo t3 _ + WHERE = And = And = _ + SchCnd + ORDER BY Set = Adodc1 39。設(shè)置數(shù)據(jù)源 (0).Width = 800 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 過程。 Private Sub Form_Load() 39。 設(shè)備分類信息 = Conn 39。設(shè)置連接字符串 = SELECT * FROM BaseInfo WHERE TypeId=1 39。選擇設(shè)備分類 Set = Adodc2 39。綁定數(shù)據(jù)源 = InfoName 39。顯示列名 = InfoId 39。綁定列值 39。 支行信息 = Conn 39。設(shè)置連接字符串 = SELECT * FROM BaseInfo WHERE TypeId=3 39。選擇支行 Set = Adodc3 39。綁定數(shù)據(jù)源 = InfoName 39。顯示列名 = InfoId 39。綁定列值 39。刷新設(shè)備信息 GridRefresh End Sub Cmd_add_click 過程。 Private Sub Cmd_Add_Click() 39。將 Modify 變量設(shè)置為 False，表示當(dāng)前狀態(tài)為插入新記錄 = False 39。初始化 FrmDeviceEdit 信息 = 39。設(shè)備編號 = 39。設(shè)備型號 = 0 39。單價 = 39。數(shù)量 = Now 39。開通時間 = 39。管 理員 = 39。提交人 39。啟動編輯窗體 1 39。刷新 DataGrid 表格的內(nèi)容 GridRefresh End Sub cmd_modi_click 過程，修改。 Private Sub Cmd_Modi_Click() If = True Then MsgBox 請選擇記錄 Exit Sub End If 39。將 Modify 變量設(shè)置為 False，表示當(dāng)前狀態(tài)為插入新記錄 = True 39。初始化 FrmDeviceEdit 信息 = Trim((0)) 39。設(shè)備編號 = Trim((0)) 39。設(shè)備編號 = Trim((1)) 39。分類編號 = Trim((2)) 39。設(shè)備品牌 = Trim((3)) 39。設(shè)備型號 = Trim((4)) 39。購買價格 = Trim((5)) 39。布放地點 = Trim((6)) 39。支行 = Trim((7)) 39。開通時間 = Trim((8)) 39。管理員 = Trim((9)) 39。 提交人 39。編輯時設(shè)備編號和數(shù)量不能更改 = False 39。啟動編輯窗體 1 GridRefresh 39。刷新 DataGrid 表格的內(nèi)容 End Sub 設(shè)備信息選擇窗體 為了方便用戶在其他模塊中選擇設(shè)備信息，設(shè)計一個選擇設(shè)備的窗體，窗體名為 FrmDeviceSel 中，使用 DATAGRID 和 ADODC 控件來顯示設(shè)備的數(shù)據(jù)。 FrmDeviceSel 窗體的布局如圖 46 所示 。 圖 46 當(dāng)用戶雙擊 DataList1 控件時觸發(fā) DataGrid_DblClick 事件，對應(yīng)的代碼如下： Private Sub DataGrid1_DblClick() 39。將雙擊選擇的設(shè)備信息放入指定對象中 If Then MsgBox (請選擇記錄 ) Exit Sub End If (Trim((0))) Unload Me End Sub 設(shè)備維護(hù)信息管理模塊 設(shè)備維護(hù)管理模塊可以實現(xiàn)添加、修改、刪除和查看設(shè)備維護(hù)信息 。 設(shè)備維護(hù)信息編輯窗體 設(shè)備維護(hù)信息編輯窗體的名稱為 FrmMntenanceEdit,窗體的布局如圖 47 所示。 圖 47 當(dāng)用戶單擊“選擇”按鈕時，將顯示所有的設(shè)備信息觸發(fā) Cmd_DeviceSel_click事件，對應(yīng)的代碼如下： Private Sub Cmd_DeviceSel_Click() 1 39。設(shè)備選擇窗體 39。讀取指定對象信息 txtDevNo = Trim() 39。設(shè)備編號 () 39。設(shè)備品牌 txtEnterprise = Trim() txtModel = Trim() 39。設(shè)備型號 () txtBranch = Trim() 39。屬性支行 txtPlace = Trim() 39。布放地點 End Sub 當(dāng)用戶在設(shè)備窗體中選擇了設(shè)備，同時將設(shè)備信息 放入到對象 MyDeviceSel中，所以當(dāng)用戶退出選擇設(shè)備窗體時，系統(tǒng)可以從對象 MyDeviceSel 中讀取選擇的設(shè)備信息。 當(dāng)單擊“確定”按鈕時觸發(fā) Cmd_OK_Click 事件，代碼如下： Private Sub Cmd_OK_Click() 39。檢查用戶錄入數(shù)據(jù)的有效性 If Len(Trim(txtDevNo)) = 0 Then MsgBox (請選擇設(shè)備 ) Exit Sub End If If Len(Trim(txtEngineer)) = 0 Then MsgBox 請輸入維護(hù)人員 Exit Sub End If 39。把用戶錄入的數(shù)據(jù)賦值到數(shù)據(jù)庫對象變量中 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。根據(jù)變量 Modify 的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then .Insert Else .Update (OriId) End If End With 39。關(guān)閉窗口 Unload Me End Sub 設(shè)備維護(hù)信息管理模塊 設(shè)備維護(hù)管理窗體為 FrmMntenance,窗體的布局如圖 48 所示。 當(dāng)裝載窗體時觸發(fā) Form_Load 事件，對應(yīng)的代碼如下： Private Sub Form_Load() = Now = Now + 1 GridRefresh End Sub 程序初始化時間范圍控件的值，將起始日期設(shè)置為當(dāng)天，終止日期設(shè)置為第二天。然后調(diào)用 GridRefresh 過程，刷新表格中的設(shè)備維護(hù)數(shù)據(jù)。代碼如下： Private Sub GridRefresh() 39。設(shè)置查詢條件 If Len(Trim(txtDevNo)) = 0 Then SchCnd = And Else SchCnd = AND =39。 + Trim(txtDevNo) + 39。 And End If SchCnd = SchCnd + Between 39。 + Format(, yyyymmdd) _ + 39。 And 39。 + Format(, yyyymmdd) + 39。 39。設(shè)置數(shù)據(jù)源的屬性 = Conn = SELECT AS 編號 , AS 設(shè)備編號 , _ + AS 設(shè)備品牌 , AS 設(shè)備型號 , AS 所屬支行 , _ + AS 布放地點 , AS 設(shè)備報修時間 , AS 到達(dá)現(xiàn)場時間 , _ + AS 故障解決時間 , AS 故障原因 , CASE WHEN 0 _ + THEN 39。否 39。 ELSE 39。是 39。 END AS 是否更換配件 , AS 更換配件的列表 , _ + AS 維護(hù)人員 , AS 維護(hù)費用 , AS 備注 _ + FROM Device d, BaseInfo t1, BaseInfo t2, Maintenance m _ + WHERE = AND = AND = _ + SchCnd + ORDER BY 39。 MsgBox Set = Adodc1 (0).Width = 0 (1).Width = 1000 (2).Width = 1000 (3).Width = 1000 (4).Width = 1000 (5).Width = 1000 (6).Width = 1000 (7).Width = 1000 (8).Width = 1000 (9).Width = 1000 (10).Width = 1000 (11).Width = 1000 (12).Width = 1000 (13).Width = 1000 (14).Width = 1000 End Sub 添加、修改和刪除記錄的代碼與設(shè)備信息管理窗體 中的相關(guān)代碼相似。 設(shè)備巡檢信息管理模塊 設(shè)備巡檢管理模塊可以添加、修改、刪除和查看設(shè)備巡檢信息。 設(shè)備巡檢信息編輯窗體 設(shè)備巡檢信息編輯窗體的名稱為 FrmCheckEdit，窗體的布局如圖 49 所示。 圖 49 當(dāng)單擊“確定”按鈕時觸發(fā) Cmd_OK_Click 事件，代碼如下： Private Sub Cmd_OK_Click() 39。檢查用戶錄入數(shù)據(jù)的有效性 If Len(Trim(txtDevNo)) = 0 Then MsgBox (請選擇設(shè)備 ) Exit Sub