【文章內(nèi)容簡介】 Basic通過事件來執(zhí)行對象的操作。一個(gè)對象可能會產(chǎn)生多個(gè)事件，每個(gè)事件都可以通過一段程序來響應(yīng)。例如，命令按鈕是一個(gè)對象，當(dāng)用戶單擊該按鈕時(shí)，將產(chǎn)生一個(gè)“單擊”(CLICK)事件，而在產(chǎn)生該事件時(shí)將執(zhí)行一段程序，用來實(shí)現(xiàn)指定的操作。在用Visual Basic設(shè)計(jì)大型應(yīng)用軟件時(shí)，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個(gè)微小的子程序，即過程。這些過程分別面向不同的對象，由用戶操作引發(fā)某個(gè)事件來驅(qū)動完成某種特定的功能，或者由事件驅(qū)動程序調(diào)用通用過程來執(zhí)行指定的操作，這樣可以方便編程人員，提高效率。訪問數(shù)據(jù)庫Visual Basic具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理Microsoft Access格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲和檢索功能。同時(shí)，Visual Basic還能直接編輯和訪問其他外部數(shù)據(jù)庫，如dBASE，F(xiàn)oxPro，Paradox等，這些數(shù)據(jù)庫格式都可以用Visual Basic編輯和處理。Visual Basic提供開放式數(shù)據(jù)連接，即ODBC功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如SQL Server，Oracle等。在應(yīng)用程序中，可以使用結(jié)構(gòu)化查詢語言SQL數(shù)據(jù)標(biāo)準(zhǔn)，直接訪問服務(wù)器上的數(shù)據(jù)庫，并提供了簡單的面向?qū)ο蟮膸觳僮髦噶詈投嘤脩魯?shù)據(jù)庫訪問的加鎖機(jī)制和網(wǎng)絡(luò)數(shù)據(jù)庫的SQL的編程技術(shù)，為單機(jī)上運(yùn)行的數(shù)據(jù)庫提供了SQL網(wǎng)絡(luò)接口，以便在分布式環(huán)境中快速而有效地實(shí)現(xiàn)客戶/服務(wù)器(client/server)方案。動態(tài)數(shù)據(jù)交換(DDE)利用動態(tài)數(shù)據(jù)交換(Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動態(tài)數(shù)據(jù)鏈路。當(dāng)原始數(shù)據(jù)變化時(shí)，可以自動更新鏈接的數(shù)據(jù)。Visual Basic提供了動態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows應(yīng)用程序建立動態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。對象的鏈接與嵌入(OLE)對象的鏈接與嵌入(OLE)將每個(gè)應(yīng)用程序都看作是一個(gè)對象(object)，將不同的對象鏈接(link)起來，再嵌入(embed)某個(gè)應(yīng)用程序中，從而可以得到具有聲音、影像、圖像、動畫、文字等各種信息的集合式的文件。OLE技術(shù)是Microsoft公司對象技術(shù)的戰(zhàn)略，它把多個(gè)應(yīng)用程序合為一體，將每個(gè)應(yīng)用程序看作是一個(gè)對象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。利用OLE技術(shù)，可以方便地建立復(fù)合式文檔(pound document)，這種文檔由來自多個(gè)不同應(yīng)用程序的對象組成，文檔中的每個(gè)對象都與原來的應(yīng)用程序相聯(lián)系，并可執(zhí)行與原來應(yīng)用程序完全相同的操作。動態(tài)鏈接庫(DLL)Visual Basic是一種高級程序設(shè)計(jì)語言，不具備低級語言的功能，對訪問機(jī)器硬件的操作不太容易實(shí)現(xiàn)。但它可以通過動態(tài)鏈接庫技術(shù)將C/C++或匯編語言編寫的程序加入到Visual Basic應(yīng)用程序中，可以像調(diào)用內(nèi)部函數(shù)一樣調(diào)用其他語言編寫的函數(shù)。此外，通過動態(tài)鏈接庫，還可以調(diào)用Windows應(yīng)用程序接口(API)函數(shù)，實(shí)現(xiàn)SDK所具有的功能第四章 房屋租賃管理系統(tǒng)的詳細(xì)設(shè)計(jì)所謂數(shù)據(jù)庫，就是為了滿足某些系統(tǒng)、某些用戶的需要，在計(jì)算機(jī)系統(tǒng)中按照一定的數(shù)據(jù)模型、數(shù)據(jù)結(jié)構(gòu)等方式進(jìn)行組織、存儲和使用的互相關(guān)聯(lián)的數(shù)據(jù)集合，是數(shù)據(jù)按科學(xué)的結(jié)構(gòu)形式組織的“倉庫”。在實(shí)際中，人們把數(shù)據(jù)庫以文件形式存入于磁盤（軟盤、硬盤或磁帶）中，數(shù)據(jù)庫管理系統(tǒng)以文件形式對其進(jìn)行調(diào)度管理。 數(shù)據(jù)庫管理系統(tǒng)數(shù)據(jù)庫管理系統(tǒng)，簡稱DBMS，是為數(shù)據(jù)庫的建立，使用和維護(hù)而配置的軟件，它提供了安全性和完整性等統(tǒng)一控制機(jī)制，方便用戶管理和存取大量的數(shù)據(jù)資源。例如，Visual Basic 。在數(shù)據(jù)庫管理系統(tǒng)的支持下，數(shù)據(jù)完全獨(dú)立于應(yīng)用程序，并且能被多個(gè)用戶或程序共享，其關(guān)系如圖所示。 應(yīng)用程序3應(yīng)用程序2應(yīng)用程序1數(shù)據(jù)庫管理系統(tǒng)數(shù)據(jù)庫應(yīng)用程序與數(shù)據(jù)庫的關(guān)系數(shù)據(jù)庫管理系統(tǒng)一般具備數(shù)據(jù)庫的定義、操作、查詢及控制等功能。它將所有應(yīng)用程序使用的數(shù)據(jù)匯集起來，建立數(shù)據(jù)庫，使之面對所有應(yīng)用程序的查詢和訪問。因此，作為訪問者的應(yīng)用程序相對于數(shù)據(jù)庫來說是獨(dú)立的，而作為被訪問的數(shù)據(jù)在數(shù)據(jù)庫中同樣是獨(dú)立的。當(dāng)要建立新的數(shù)據(jù)管理系統(tǒng)時(shí)，只要生成一個(gè)新的應(yīng)用程序即可，它可以立即使用現(xiàn)成的數(shù)據(jù)庫，而不必建立新的數(shù)據(jù)文件。數(shù)據(jù)庫管理系統(tǒng)是為數(shù)據(jù)庫的建立、使用、管理和維護(hù)而配置的軟件。它建立在操作系統(tǒng)的基礎(chǔ)上，對數(shù)據(jù)庫進(jìn)行統(tǒng)一的管理和控制。用戶使用的各種數(shù)據(jù)庫命令以及應(yīng)用程序的執(zhí)行都要通過數(shù)據(jù)庫管理系統(tǒng)。數(shù)據(jù)庫管理系統(tǒng)還承擔(dān)著數(shù)據(jù)庫的維護(hù)工作，保證數(shù)據(jù)庫的安全性和完整性。數(shù)據(jù)庫管理系統(tǒng)的功能體現(xiàn)在“管理”二字上。它針對不同的用戶及不同的使用目的，提供給用戶各種操作、管理數(shù)據(jù)庫的命令、函數(shù)、控件和對象，以幫助用戶完成任務(wù)。其主要功能如下： 定義數(shù)據(jù)庫 根據(jù)用戶設(shè)計(jì)的數(shù)據(jù)結(jié)構(gòu),建立數(shù)據(jù)庫結(jié)構(gòu)組織. 存取數(shù)據(jù) 它包括很多基本操作:輸入、更新、插入、檢索、刪除、輸出、統(tǒng)計(jì)、排序、索引等。 數(shù)據(jù)庫運(yùn)行管理 所有數(shù)據(jù)庫的操作都要在數(shù)據(jù)庫管理系統(tǒng)的餓控制程序的統(tǒng)一管理下進(jìn)行，以保證正確運(yùn)行，保證數(shù)據(jù)庫正確有效。 數(shù)據(jù)庫系統(tǒng)的維護(hù) 系統(tǒng)維護(hù)是一項(xiàng)重要的工作，它包括數(shù)據(jù)庫的轉(zhuǎn)存、恢復(fù)、數(shù)據(jù)庫的重組及性能監(jiān)視、分析等。由上可見，數(shù)據(jù)庫管理系統(tǒng)是一個(gè)能使用和管理數(shù)據(jù)庫中數(shù)據(jù)的軟件。這是數(shù)據(jù)庫系統(tǒng)與文件系統(tǒng)的一個(gè)最大的區(qū)別。數(shù)據(jù)庫管理系統(tǒng)功能的強(qiáng)弱基本上決定了整個(gè)數(shù)據(jù)庫系統(tǒng)功能。 數(shù)據(jù)庫應(yīng)用系統(tǒng)數(shù)據(jù)庫應(yīng)用系統(tǒng)是指系統(tǒng)開發(fā)人員利用數(shù)據(jù)庫系統(tǒng)資源開發(fā)出來的，面向某一類信息處理問題而建立的軟件系統(tǒng)。數(shù)據(jù)庫系統(tǒng)的用戶自己編寫的、基于數(shù)據(jù)庫數(shù)據(jù)的程序稱為應(yīng)用程序，針對某一數(shù)據(jù)庫管理而編制的一組應(yīng)用程序形成該數(shù)據(jù)庫的應(yīng)用系統(tǒng)，它是數(shù)據(jù)庫系統(tǒng)的一個(gè)重要組成部分，它們與數(shù)據(jù)庫上的數(shù)據(jù)構(gòu)成數(shù)據(jù)庫中最活躍的部分。 數(shù)據(jù)庫的結(jié)構(gòu)設(shè)計(jì)為了實(shí)現(xiàn)管理信息系統(tǒng)的計(jì)算機(jī)化，僅僅用文字來描述信息的流動和存儲還遠(yuǎn)遠(yuǎn)不夠，還要進(jìn)一步調(diào)查分析舍去物質(zhì)流，抽象出信息流，定義出數(shù)據(jù)庫,各數(shù)據(jù)表的結(jié)構(gòu)，并對各種數(shù)據(jù)的屬性和各項(xiàng)處理功能進(jìn)行詳細(xì)分析。系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。通過對該系統(tǒng)的研究,將系統(tǒng)數(shù)據(jù)分為以下幾個(gè)表:客戶信息表,定金表,房屋表,押金表,求租，預(yù)定表以及租金等幾個(gè)表,各表的具體設(shè)計(jì)結(jié)構(gòu)如下:客戶信息表:字段名 類型 寬度 小數(shù)位數(shù)客戶編號 字符型 10租戶姓名 字符型 6工作單位 字符型 20聯(lián)系電話 字符型 2性別 字符型 8租戶人數(shù) 字符型 20身份證編號 字符型 20備注 備注型 4定金表:字段名 類型 寬度 小數(shù)位數(shù)收費(fèi)編號 字符型 10定金金額 字符型 10預(yù)定金編號 字符型 10收費(fèi)日期 日期型 8預(yù)定客戶 字符型 10預(yù)定房屋編號 字符型 10備注 備注型房屋表:字段名 類型 寬度 小數(shù)位數(shù)房屋編號 字符型 8物業(yè)地址 字符型 10房型 字符型 20建筑面積 數(shù)值型 5 2使用面積 數(shù)值型 5 2裝修情況 字符型 10出租價(jià)位 數(shù)值型 5 2目前狀態(tài) 字符型 字符型備注 備注型押金表:字段名 類型 寬度 小數(shù)位數(shù)收費(fèi)編號 字符型 10押金金額 數(shù)值型 5 2收費(fèi)日期 日期型 8合同編號 字符型 10客戶姓名 字符型 8房屋編號 字符型 10備注 備注型求租表:字段名 類型 寬度 小數(shù)位數(shù)求租客戶編號 字符型 10求租客戶姓名 字符型 10電話 字符型 15房型要求 字符型 50面積要求 數(shù)值型 5 2裝修要求 字符型 50意向價(jià)位 數(shù)值型 5 2意向房屋編號 字符型 10備注 備注租金表:字段名 類型 寬度 小數(shù)位數(shù)收費(fèi)編號 字符型 10租金年份 日期型 8租金月份 日期型 8應(yīng)交租金 數(shù)值型 5 2已交租金 數(shù)值型 5 2久費(fèi)金額 數(shù)值型 5 2客戶姓名 字符型 10交費(fèi)日期 日期型 8備注 備注啟動系統(tǒng)后，主界面設(shè)計(jì)效果圖如下: 公用模塊的設(shè)計(jì)代碼分析如下:Option ExplicitPublic conn As New 39。定義全局變量queryhouse 作為判斷frmHouse 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryhouse As Boolean39。定義全局變量sqlqh 作為查詢房屋信息時(shí)的sql語句Public sqlqh As String39。定義全局變量querycf 作為判斷frmClient 窗體家庭租戶選項(xiàng)卡顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public querycf As Boolean39。定義全局變量sqlqcf 作為查詢家庭租戶信息時(shí)的sql語句Public sqlqcf As String39。定義全局變量querycg 作為判斷frmClient 窗體家公司戶選項(xiàng)卡顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public querycg As Boolean39。定義全局變量sqlqcg 作為查詢公司租戶信息時(shí)的sql語句Public sqlqcg As String39。定義全局變量queryemp 作為判斷frmEmp 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryemp As Boolean39。定義全局變量sqlqe 作為查詢員工信息時(shí)的sql語句Public sqlqe As String39。定義全局變量queryqzc 作為判斷frmQZClient 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryqzc As Boolean39。定義全局變量sqlqzc 作為查詢求租客戶信息時(shí)的sql語句Public sqlqzc As String39。定義全局變量querycon 作為判斷frmAdminContract 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public querycon As Boolean39。定義全局變量sqlqcon 作為查詢合同信息時(shí)的sql語句Public sqlqcon As String39。定義全局變量sqlqyd 作為查詢預(yù)定單信息時(shí)的sql語句Public sqlqyd As String39。定義全局變量fromqzc 作為判斷frmYuDing 窗體是從frmQZClient窗體中單擊下定金預(yù)定調(diào)用的39。還是直接菜單調(diào)用的Public fromqzc As Boolean39。定義全局變量fromYuding 作為判斷frmPayDingJin 窗體是從frmYuDing窗體中單擊收取定金調(diào)用的39。還是直接菜單調(diào)用的Public fromYuding As Boolean39。定義全局變量fromContract 作為判斷frmPayYaJin 窗體是從frmSignContract窗體中單擊收取押金調(diào)用的39。還是直接菜單調(diào)用的Public fromContract As Boolean39。定義全局變量ZuJinfromContract 作為判斷frmPayZuJin 窗體是從frmSignContract窗體中單擊收取租金調(diào)用的39。還是直接菜單調(diào)用的Public ZuJinfromContract As Boolean39。定義全局變量queryZuJin 作為判斷frmAdminZuJin 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryZuJin As Boolean39。定義全局變量sqlqzj 作為查詢合同信息時(shí)的sql語句Public sqlqzj As String39。定義全局變量sqlqdj 作為查詢定金信息時(shí)的sql語句Public sqlqdj As String39。定義全局變量sqlqyj 作為查詢押金信息時(shí)的sql語句Public sqlqyj As String 各主要功能模塊的設(shè)計(jì)與實(shí)現(xiàn)4．3．1基本資料管理模塊設(shè)計(jì)房屋基本資料管理的運(yùn)行效果圖如下:其表單界面的屬性設(shè)計(jì)比較直觀,在此重點(diǎn)分析新增,修改,刪除,保存四個(gè)命令按鈕的源代碼設(shè)計(jì)：新增按鈕源碼:Private Sub cmdAdd_Click() 39。設(shè)置除保存和取消按鈕外的其他按鈕不可用 = False = False = False = True = True = False = False = False = False = False 39。需要清空所有text框，并且設(shè)置它們可寫 For i = 0 To 7 Text1(i).Text = Text1(i).Enabled = True Next i = True 39。add變量用于保存時(shí)判斷是從添加還是修改后保存 add = 1 Text1(0).SetFocus End SubPrivate Sub cmdCancel_Click() 39。取消按鈕用于用戶添加或修改過程中放棄添加或修改操作 = False = False = True = True 39。如果是從添加后取消 If add = 1 Then 39。如果當(dāng)前House表中有數(shù)據(jù)則顯示第一條