【正文】 SQL 通常使用于數(shù)據(jù)庫的通訊。雖然絕大多數(shù)的數(shù)據(jù)庫系統(tǒng)使用 SQL，但是它們同樣有它們自立另外的專有擴展功能用于它們的系統(tǒng)。 SQL 允許用戶在高層的數(shù)據(jù)結(jié)構(gòu)上工作，而不對單個記錄進行操作，可操作記錄集，所有 SQL 語句接受集合作為輸入，返回集合作為輸出。 SQL 為許多任務(wù)提供了命令，其中包括： 查詢數(shù)據(jù) 在表中插入、修改和刪除記錄 建立、修改和刪除數(shù)據(jù)對象 控制對數(shù)據(jù)和數(shù)據(jù)對象的存取 保證數(shù)據(jù)庫一致性和完整性 以前的 數(shù)據(jù)庫管理系統(tǒng)為上述各類操作提供單獨的語言，而 SQL 將全部任務(wù)統(tǒng)一在一種語言中。 ? 支行信息的添加、修改、刪除和查詢。 ? 設(shè)備移機信息的添加、修改和查詢。采用信息隱藏，局部化，內(nèi)聚度，耦合度等原理來指導(dǎo)模塊設(shè)計將給整個系統(tǒng)的設(shè)計帶來很大益處。在系統(tǒng)初始化時，有兩個默認(rèn)的用戶。 用戶管理功能模塊的關(guān)系如 圖 22所示。 ? 確定用戶的類型。在創(chuàng)建用戶時，需要輸入用戶名和密碼?；拘畔⒐芾砟K可以添加、修改、刪除和查看等操作。自助設(shè)備信息包括設(shè)備 序列號、設(shè)備分類、設(shè)備品牌、設(shè)備型號、布放地點、管理員等信息。設(shè)備維護信息包括報修時間、維護人員到達現(xiàn)場時間、故障解決時間、故障原因等信息。設(shè)備巡檢信息包括設(shè)備巡檢時間、設(shè)備巡檢內(nèi)容、是否發(fā)現(xiàn)故障、故障原因等信息。在添加設(shè)備移機信息時，需要首先選擇自助設(shè)備信息。 本系統(tǒng)的流程分析如 圖 23 所示 。選擇開發(fā)工具應(yīng)該考慮客戶需求，系統(tǒng)功能和性能要求以及開發(fā)人員的習(xí)慣等因素。 開發(fā)本系統(tǒng)所需要的使用技術(shù) 開發(fā)數(shù)據(jù)庫管理信息系統(tǒng)需要掌握如下技術(shù)： ? 所選開發(fā)工具的基本編程方法。 可行性分析 時間行進到 21 世紀(jì)，以計算機技術(shù)為主體的高新技術(shù)群體已經(jīng)將觸角深入到國發(fā)經(jīng)濟的方方面面。要想解決這一難題，就必須有一套科學(xué)、高效、嚴(yán)密、實用的銀行設(shè)備管理系統(tǒng)。 技術(shù)的可行性 銀行設(shè)備管理系統(tǒng) 11 硬件： 本軟件對硬件并無特殊要求， CPU 奔騰以上，足夠空閑硬盤， 32M以上內(nèi)存，系統(tǒng)為 Windows 95 及以上就可以運行了，雖然是采用 C/S 模式的，但就對這次設(shè)計而言，程序和數(shù)據(jù)庫都是在一臺機子上操作的，所以在現(xiàn)有條件下是足夠了。 經(jīng)濟的可行性 本系統(tǒng)可使那些銀行對設(shè)備 管理工作更高效、方便，也 節(jié)省了管理成本。 法律的可行性 此系統(tǒng)是由老師帶領(lǐng)及學(xué)生自主進行設(shè)計及實施完成的，并無侵權(quán)和責(zé)任問題，法律上不存在任何問題。 （ 3） .面向數(shù)據(jù)的分 析方法 描述問題域中的信息項及其相關(guān)行為，然后根據(jù)信息項具有的層次結(jié)構(gòu)需求模型。 (1)基本信息表 BaseInfo,保存設(shè)備分類、設(shè)備品牌和支行名稱的信息，結(jié)構(gòu)如表 21所示。 表 24 表 Check 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)類型 說明 1 CheckID Int 記錄編號，主鍵 2 DevNo Varchar50 設(shè)備編號 3 CheckDate Datetime 設(shè)備巡檢時間 4 Comment Varchar500 設(shè)備巡檢內(nèi)容 5 FindError Bit 是否發(fā)現(xiàn)故障 6 Reason Varchar200 故障原因 7 ChangeAccessory Bit 是否更換配件 8 AccessoryList Varchar200 更換配件的列表 9 Amount Float 維修費用 10 CheckPerson Varchar50 巡檢人員 (5)設(shè)備移機表 Movement,保存設(shè)備移機信息，結(jié)構(gòu)如表 25 所示 表 25 表 Movement 的結(jié)構(gòu) 編號 字段名稱 數(shù)據(jù)類型 說明 1 MoveID Int 記錄編號，主鍵 2 DevNo Varchar50 設(shè)備編號 3 MoveDate Datetime 移機時間 4 Reason Varchar200 移機原因 5 NewPlace Varchar50 新 布放地點 6 NewAdmin Varchar50 新管理員 (6)設(shè)備報廢表 Discard,保存設(shè)備的報廢信息，結(jié)構(gòu)如表 26所示。 ? DbFunc 用來管理工程中與數(shù)據(jù)庫操作相關(guān)的聲明、變量和函 數(shù)。在通常情況下，類的成員變量與對應(yīng)的表中的字段名相同。 4) Check 類用來管理表 Check 的數(shù)據(jù)庫操作，它保存為 。 第四章系統(tǒng)設(shè)計 當(dāng)系統(tǒng)運行時，首先打開登錄窗體，只有有權(quán)限的用戶才能進入系統(tǒng)。 銀行設(shè)備管理系統(tǒng) 17 表 41 設(shè)置登錄窗體的屬性 窗體屬性 設(shè)置值 具體說明 名稱 FrmLogin 設(shè)置窗體名稱 BorderStyle 1Fixed Single 設(shè)置窗體的邊框?qū)傩? Caption 身份驗證 窗體的標(biāo)題條文本 ControlBox False 取消控制按鈕，防止用戶通過控制按鈕關(guān) 閉對話框 StartUpPosition 2屏幕中心 設(shè)置窗體彈出時，位置在屏幕中心 登錄窗體中控件的屬性如表 42 所示。 銀行設(shè)備管理系統(tǒng) 19 圖 42 主窗體 FrmMain 代碼如下： Private Sub Form_Load() 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è)置 SQL 語句 = SELECT * FROM BaseInfo WHERE TypeId= + Trim(TypeID) 39。在文本框中輸入新的分類名稱，單擊“添加”按鈕時觸發(fā) cmd_add_click 事件，代碼如下： Private Sub Cmd_Add_Click() 39。選擇數(shù)據(jù)列表中的記錄，在文本框中同時顯示此分類名稱，對應(yīng)的代碼如下： 銀行設(shè)備管理系統(tǒng) 22 Private Sub DataList1_Click() 39。將分類名稱保存到變量中 txtName = Trim() 39。判斷新的名稱是否和原來的相同 If Trim(txtName) = OriInfoName Then Exit Sub End If 39。選擇要刪除的分類名稱，用戶單擊“刪除”按鈕觸發(fā) Cmd_Del_Click 事件，對應(yīng)的代碼如下： Private Sub Cmd_Del_Click() If Len(Trim()) = 0 Then MsgBox (請選擇記錄 ) Exit Sub End If 39。 支行信息管理窗體 支行信息管理窗體也是 Frmtype，只是公共變量 Type ID 的值為 3。 表 44 窗 FrmDeviceEdit 中包含的控件及其屬性 對象名 屬性 屬性值 txtDevno 設(shè)備編號 Adodcl 為設(shè)備分類提供數(shù)據(jù)源 Dco_typeid 設(shè)備分類 Adodc2 為設(shè)備品牌提供數(shù)據(jù)源 Dco_enterprise 設(shè)備品牌 Txtmodel 設(shè)備型號 txtprice 購買價格 txtplace 布放地點 Adodc3 為所屬支行提供數(shù)據(jù)源 Dco_branch 所屬支行 Txtstartdate 開通時間 Txtadmin 管理員 Txtposter 創(chuàng)建人 Cmd_ok Caption 確定 Cmd_cancel Caption 取消 下面是窗體 FrmDeviceEdit 中各個過程的代碼。設(shè)置連接字符 串 = SELECT * FROM BaseInfo WHERE TypeId=1 39。綁定列值 39。綁定數(shù)據(jù)源 = InfoName 39。設(shè)置連接字符串 = SELECT * FROM BaseInfo WHERE TypeId=3 39。綁定列值 End Sub （ 2） cmd_ok_click 過程。根據(jù)變量 Modify 的值，決定是插入新數(shù)據(jù)，還是修改已有的數(shù)據(jù) If Modify = False Then 39。窗體的主要的控件及其屬性如表 45 所示。 Schd 變量用來記錄查詢條件，定義代碼如下： Private schd as string (2)GridRefresh過程。 + Trim(txtDevNo) + 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è)備分類 Set = Adodc2 39。 支行信息 = Conn 39。顯示列名 = InfoId 39。將 Modify 變量設(shè)置為 False，表示當(dāng)前狀態(tài)為插入新記錄 = False 39。單價 = 39。提交人 39。將 Modify 變量設(shè)置為 False，表示當(dāng)前狀態(tài)為插入新記錄 = True 39。分類編號 = Trim((2)) 39。布放地點 = Trim((6)) 39。 提交人 39。 FrmDeviceSel 窗體的布局如圖 46 所示 。 銀行設(shè)備管理系統(tǒng) 32 圖 47 當(dāng)用戶單擊“選擇”按鈕時，將顯示所有的設(shè)備信息觸發(fā) Cmd_DeviceSel_click事件，對應(yīng)的代碼如下： Private Sub Cmd_DeviceSel_Click() 1 39。設(shè)備品牌 txtEnterprise = Trim() txtModel = Trim() 39。 當(dāng)單擊“確定”按鈕時觸發(fā) Cmd_OK_Click 事件，代碼如下： Private Sub Cmd_OK_Click() 39。關(guān)閉窗口 Unload Me End Sub 設(shè)備維護信息管理模塊 銀行設(shè)備管理系統(tǒng) 34 設(shè)備維護管理窗體為 FrmMntenance,窗體的布局如圖 48 所示。設(shè)置查詢條件 If Len(Trim(txtDevNo)) = 0 Then SchCnd = And Else SchCnd = AND =39。 And 39。否 39。 MsgBox Set = Adodc1 (0).Width = 0 (1).Width = 1000 。是 39。 39。 And End If SchCnd = SchCnd + Between 39。然后調(diào)用 GridRefresh 過程，刷新表格中的設(shè)備維護數(shù)據(jù)。把用戶錄入的數(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。屬性支行 txtPlace = Trim() 39。讀取指定對象信息 txtDevNo = Trim() 39。將雙擊選擇的設(shè)