【正文】 = Conn 39。選擇支行 Set = Adodc3 39。設(shè)備編號 = 39。刷新 DataGrid 表格的內(nèi)容 GridRefresh End Sub cmd_modi_click 過程，修改。設(shè)備型號 = Trim((4)) 39。啟動編輯窗體 1 GridRefresh 39。讀取指定對象信息 txtDevNo = Trim() 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。 And End If SchCnd = SchCnd + Between 39。是 39。否 39。設(shè)置查詢條件 If Len(Trim(txtDevNo)) = 0 Then SchCnd = And Else SchCnd = AND =39。 當(dāng)單擊“確定”按鈕時觸發(fā) Cmd_OK_Click 事件，代碼如下： Private Sub Cmd_OK_Click() 39。 銀行設(shè)備管理系統(tǒng) 32 圖 47 當(dāng)用戶單擊“選擇”按鈕時，將顯示所有的設(shè)備信息觸發(fā) Cmd_DeviceSel_click事件，對應(yīng)的代碼如下： Private Sub Cmd_DeviceSel_Click() 1 39。 提交人 39。分類編號 = Trim((2)) 39。提交人 39。將 Modify 變量設(shè)置為 False，表示當(dāng)前狀態(tài)為插入新記錄 = False 39。 支行信息 = 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 過程。 Schd 變量用來記錄查詢條件，定義代碼如下： Private schd as string (2)GridRefresh過程。根據(jù)變量 Modify 的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then 39。設(shè)置連接字符串 = SELECT * FROM BaseInfo WHERE TypeId=3 39。綁定列值 39。 表 44 窗 FrmDeviceEdit 中包含的控件及其屬性 對象名 屬性 屬性值 txtDevno 設(shè)備編號 Adodcl 為設(shè)備分類提供數(shù)據(jù)源 Dco_typeid 設(shè)備分類 Adodc2 為設(shè)備品牌提供數(shù)據(jù)源 Dco_enterprise 設(shè)備品牌 Txtmodel 設(shè)備型號 txtprice 購買價(jià)格 txtplace 布放地點(diǎn) Adodc3 為所屬支行提供數(shù)據(jù)源 Dco_branch 所屬支行 Txtstartdate 開通時間 Txtadmin 管理員 Txtposter 創(chuàng)建人 Cmd_ok Caption 確定 Cmd_cancel Caption 取消 下面是窗體 FrmDeviceEdit 中各個過程的代碼。選擇要刪除的分類名稱，用戶單擊“刪除”按鈕觸發(fā) Cmd_Del_Click 事件，對應(yīng)的代碼如下： Private Sub Cmd_Del_Click() If Len(Trim()) = 0 Then MsgBox (請選擇記錄 ) Exit Sub End If 39。將分類名稱保存到變量中 txtName = Trim() 39。在文本框中輸入新的分類名稱，單擊“添加”按鈕時觸發(fā) cmd_add_click 事件，代碼如下： Private Sub Cmd_Add_Click() 39。 對象名 屬性 屬性值 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 過程，對應(yīng)代碼： 銀行設(shè)備管理系統(tǒng) 21 Private Sub Form_Load() 39。 銀行設(shè)備管理系統(tǒng) 17 表 41 設(shè)置登錄窗體的屬性 窗體屬性 設(shè)置值 具體說明 名稱 FrmLogin 設(shè)置窗體名稱 BorderStyle 1Fixed Single 設(shè)置窗體的邊框?qū)傩? Caption 身份驗(yàn)證 窗體的標(biāo)題條文本 ControlBox False 取消控制按鈕，防止用戶通過控制按鈕關(guān) 閉對話框 StartUpPosition 2屏幕中心 設(shè)置窗體彈出時，位置在屏幕中心 登錄窗體中控件的屬性如表 42 所示。 4) Check 類用來管理表 Check 的數(shù)據(jù)庫操作，它保存為 。 ? DbFunc 用來管理工程中與數(shù)據(jù)庫操作相關(guān)的聲明、變量和函 數(shù)。 (1)基本信息表 BaseInfo,保存設(shè)備分類、設(shè)備品牌和支行名稱的信息，結(jié)構(gòu)如表 21所示。 法律的可行性 此系統(tǒng)是由老師帶領(lǐng)及學(xué)生自主進(jìn)行設(shè)計(jì)及實(shí)施完成的，并無侵權(quán)和責(zé)任問題，法律上不存在任何問題。 技術(shù)的可行性 銀行設(shè)備管理系統(tǒng) 11 硬件： 本軟件對硬件并無特殊要求， CPU 奔騰以上，足夠空閑硬盤， 32M以上內(nèi)存，系統(tǒng)為 Windows 95 及以上就可以運(yùn)行了，雖然是采用 C/S 模式的，但就對這次設(shè)計(jì)而言，程序和數(shù)據(jù)庫都是在一臺機(jī)子上操作的，所以在現(xiàn)有條件下是足夠了。 可行性分析 時間行進(jìn)到 21 世紀(jì)，以計(jì)算機(jī)技術(shù)為主體的高新技術(shù)群體已經(jīng)將觸角深入到國發(fā)經(jīng)濟(jì)的方方面面。選擇開發(fā)工具應(yīng)該考慮客戶需求，系統(tǒng)功能和性能要求以及開發(fā)人員的習(xí)慣等因素。在添加設(shè)備移機(jī)信息時，需要首先選擇自助設(shè)備信息。設(shè)備維護(hù)信息包括報(bào)修時間、維護(hù)人員到達(dá)現(xiàn)場時間、故障解決時間、故障原因等信息。基本信息管理模塊可以添加、修改、刪除和查看等操作。 ? 確定用戶的類型。在系統(tǒng)初始化時，有兩個默認(rèn)的用戶。 ? 設(shè)備移機(jī)信息的添加、修改和查詢。 SQL 為許多任務(wù)提供了命令，其中包括： 查詢數(shù)據(jù) 在表中插入、修改和刪除記錄 建立、修改和刪除數(shù)據(jù)對象 控制對數(shù)據(jù)和數(shù)據(jù)對象的存取 保證數(shù)據(jù)庫一致性和完整性 以前的 數(shù)據(jù)庫管理系統(tǒng)為上述各類操作提供單獨(dú)的語言，而 SQL 將全部任務(wù)統(tǒng)一在一種語言中。雖然絕大多數(shù)的數(shù)據(jù)庫系統(tǒng)使用 SQL，但是它們同樣有它們自立另外的專有擴(kuò)展功能用于它們的系統(tǒng)。 銀行設(shè)備管理系統(tǒng) 5 圖 數(shù)據(jù)庫系統(tǒng)簡圖 數(shù)據(jù)庫系統(tǒng)簡介 本人設(shè)計(jì)的是一個關(guān)于銀行設(shè)備管理的數(shù)據(jù)庫系統(tǒng) ,通過這個系統(tǒng)管理員可以簡捷、方便的對銀行設(shè)備的記錄查閱、增加、刪除等功能。人們充分認(rèn)識到，數(shù)據(jù)庫是信息化社會中信息資源管理與開發(fā)利用的基礎(chǔ)。正 因?yàn)槿绱?，許多發(fā)達(dá)國家把金融信息化建設(shè)作為一項(xiàng)關(guān)系到國民經(jīng)濟(jì)全局的基礎(chǔ)性建設(shè)，都使用最新科學(xué)技術(shù)成就來裝備自己的金融業(yè)。銀行設(shè)備管理系統(tǒng)可以有效的記錄銀行設(shè)備的安裝和使用情況，規(guī)范對自助設(shè)備的管理，從而為用戶提供更加穩(wěn)定和優(yōu)質(zhì)的服務(wù)。目前世界上已經(jīng)有數(shù)百萬個數(shù)據(jù)庫系統(tǒng)在運(yùn)行，其應(yīng)用已經(jīng)深入到社會生活的各個領(lǐng)域，從企業(yè)管理，銀行管 理，資源管理，經(jīng)濟(jì)預(yù)測一直到信息檢索，檔案管理，普查統(tǒng)計(jì)等。 數(shù)據(jù)庫系統(tǒng) 數(shù)據(jù)庫系統(tǒng)本質(zhì)上是一個用計(jì)算機(jī)存儲記錄的系統(tǒng)。 SQL 語言介紹 SQL(Structured Query Language，結(jié)構(gòu)查詢語言 )是一個功能強(qiáng)大的數(shù)據(jù)庫語言。 SQL 語言有著非常突出的優(yōu)點(diǎn)，主要是： 非過程化語言 統(tǒng)一的語言 是所有關(guān)系數(shù)據(jù)庫的公共語言 非過程化語言： SQL 是一個非過程化的語言，因?yàn)樗淮翁幚硪粋€記錄，對數(shù)據(jù)提供自動導(dǎo)航。 ? 設(shè)備品牌信息的添加、修改、刪除和查詢。而模塊上數(shù)據(jù)說明，可執(zhí)行語句等程序?qū)ο蟮募?，它是單?dú)命名的而且可通過名字來訪問。Admin 用戶可以創(chuàng)建用戶、修改用戶信息以及刪除用戶；普通用戶則只能修改自己的用戶名和密碼。如果還有其他用戶使用本系統(tǒng)，可以在用戶管理模塊中創(chuàng)建和管理其他普通用戶。在自助設(shè)備信息管理模塊中可以對自助設(shè)備信息進(jìn)行添加、修改、刪除和查看等操作。設(shè)備巡檢是技術(shù)人員對自助設(shè)備進(jìn)行的例行檢查，目的在于及時發(fā)銀行設(shè)備管理系統(tǒng) 9 現(xiàn)和解決自助設(shè)備可能存在的問題。在添加設(shè)備報(bào)廢信息時，需要首先選擇自助設(shè)備信息。因此，本系統(tǒng)采用 Visual Basic 作為開發(fā)工具， SQL SERVER 作為后臺數(shù)據(jù)庫。如何利用先進(jìn)的管理手段，提高對銀行設(shè)備的管理水平，是每一家銀行所面臨的重要課題。 所以說技術(shù)上是可行的。 （ 2） .面向?qū)ο蟮姆治龇椒? 銀行設(shè)備管理系統(tǒng) 12 其核心是利用面向?qū)ο蟮母拍詈头椒檐浖枨蠼ㄔ炷Ｐ停ㄟ^提供對象，對象間消息傳遞等語言機(jī)制，讓分析人員在解空間中直接模擬問題空間中的對象極其行為，從而削減了語義斷層。 表 23 表 Maintenance 編號 字段名稱 數(shù)據(jù)類型 說明 銀行設(shè)備管理系統(tǒng) 13 1 MnID Int 記錄編號，主鍵 2 DevNo Varchar50 設(shè)備編號 3 ReportDate Datetime 設(shè)備報(bào)修時間 4 ArriveDate Datetime 到達(dá)現(xiàn)場時間 5 SolveDate Datetime 故障解決時間 6 Reason Varchar200 故障原因 7 ChangeAccessory Bit 是否更換配件 8 AccessoryList Varchar200 更換配件的列表 9 Engineer Varchar50 維護(hù)人姓名 10 Amount Float 維護(hù)費(fèi)用 11 Comment Varchar500 備注 (4)設(shè)備巡檢表 Check,保存設(shè)備巡檢的信息，結(jié)構(gòu)如表 24所示。 添加類模塊 在工程中，需要為每一個創(chuàng)建一個類模塊，將對此表的所有數(shù)據(jù)庫操作封裝在類中。 7) Users 類用來管理表 Users 的數(shù)據(jù)庫操作，它保存為 。 菜單設(shè)計(jì)器如圖： 42 所示。設(shè)置連接字符串 = Conn 39。插入新記錄 With MyBase .InfoName = Trim(txtName) .TypeID = TypeID .Insert End With DataRefresh End Sub （ 3） DataList_Click 過程。修改分類名稱 If Len(Trim()) = 0 Then MsgBox (請選擇記錄 ) Exit Sub End If 39。刷新 DataList1 End Sub 設(shè)備品牌信息管理窗體 設(shè)備品牌信息管理窗體也是 Frmtype，只是公共變量 Type ID 的值為 2。 設(shè)備分類信息 = Conn 39。選擇設(shè)備品牌 Set = Adodc2 39。顯示列名 = InfoId 39。在窗體 FrmDevice 中，使用 DataList控件來顯示設(shè)備分類和所屬支行等信息查詢條件信息，使用 DataGrid 控件來顯示設(shè)備數(shù)據(jù)，使用 3