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