【正文】 ).SetFocus Exit Sub End If If Text1(8).Text = Or IsNumeric(Text1(8).Text) = False Then MsgBox 押金應為數字！, vbOKOnly + vbInformation, 注意 Text1(8).SetFocus Exit Sub End If If Text1(9).Text = Then MsgBox 業(yè)務員不可為空！, vbOKOnly + vbInformation, 注意 Text1(9).SetFocus Exit Sub End If If Text1(10).Text = Or IsDate(Text1(10).Text) = False ThenMsgBox 簽訂日期應為這樣的格式：2022715！, vbOKOnly + vbInformation, 注意 Text1(10).SetFocus Exit Sub End If 39。使用 datediff 函數計算日期之差 Text1(5).Text = Int(DateDiff(d, DateValue(Text1(3).Text), 32DateValue(Text1(4).Text)) / 31) + 1 39。 Text1(1).Text amp。 amp。如果該房屋狀態(tài)為預定，則需要看預定人是否為該客戶，如果不是，需要彈出對話框提示用戶 ElseIf (8) = 預定 Then 39。 39。出租，加入合同表 sqlcon = select * from Contract sqlcon, conn, adOpenStatic, adLockOptimistic For i = 0 To 11 (i) = Text1(i).Text Next i 39。 Text1(1).Text amp。設置簽訂按鈕不可用 = False = True = True34 39。修改房屋狀態(tài) rs_hcheck(8) = 已租 39。 Text1(1).Text amp。設置簽訂按鈕不可用 = False = True = True 39。修改房屋狀態(tài) rs_hcheck(8) = 已租 39。 39。關閉所有打開的記錄集 Exit Sub End If4．3．3 .2 預定租房的設計 37其收取定金的設計如下：Private Sub cmdDingJin_Click() fromYuding = True = False End Sub4．3．4 財務管理模塊的設。顯示簽訂合同成功 MsgBox 簽訂合同成功！, vbOKOnly + vbInformation, 注意 39。 amp。如果該房屋狀態(tài)為未租，則可以順利出租 ElseIf (8) = 未租 Then 39。 sqlqzc, conn, adOpenStatic, adLockOptimistic If = False Then End If 39。檢查求租客戶表中是否有該客戶，如果有，則刪除之35sqlqzc = select * from QZClient where 求租客戶姓名 = 39。該客戶即為預定客戶，可以出租 ElseIf (1) = Text1(1).Text Then 39。 sqlqzc, conn, adOpenStatic, adLockOptimistic If = False Then End If 39。檢查求租客戶表中是否有該客戶，如果有，則刪除之sqlqzc = select * from QZClient where 求租客戶姓名 = 39。如果該客戶不是預定客戶，檢查預定有效期 If Not (1) = Text1(1).Text Then 39。 amp。 39。 sqlc, conn, adOpenStatic, adLockOptimistic If = True Then MsgBox 該客戶資料還未存入租戶資料表中，請先錄入該客戶資料！, vbOKOnly + vbInformation, 注意 Exit Sub End If 39。檢查完數據完整性后，還需要檢查該客戶是否已存入租戶表中，以及該房屋是否為未出租或預定狀態(tài) sqlc = select * from Client where 租戶姓名 = 39。租期等于起租日期和止租日期之差，結尾不足一月，按一月計。修改數據后的保存 Else End If MsgBox 保存數據成功！, vbOKOnly + vbInformation, 祝賀 39。 39。添加數據后保存 If add = 1 Then28 39。 amp。 39。 39。如果不是，則個數據表的記錄位置移到第一條記錄，并且顯示之 Else For i = 0 To 7 Text1(i).Text = (i) Next i If (8) = 已租 Then = 0 ElseIf (8) = 未租 Then = 1 ElseIf (8) = 意向 Then = 2 End If End IfEnd SubPREV檢索按鈕的源代碼：4．3．2 客戶資料管理模塊的設計4．3．2．1 租戶基本資料的設計運行效果圖如下所示:25在租戶基本資料中，我們重點分析查找家庭租戶功能的源碼，如下:Private Sub cmdQuery_Click() If = Then MsgBox 查詢條件不可為空！, vbOKOnly + vbInformation, 注意 Exit Sub End If 39。需要設置除主鍵之外的 text 框可寫 For i = 1 To 7 Text1(i).Enabled = True Next i = True add = 0End SubPrivate Sub cmdFirst_Click() 39。如果沒有到記錄首則顯示該記錄 If Not Then For i = 0 To 7 Text1(i).Text = (i) Next i If (8) = 已租 Then = 0 ElseIf (8) = 未租 Then = 1 ElseIf (8) = 意向 Then = 2 End If 39。更新刪除 MsgBox 成功刪除！, vbOKOnly + vbExclamation, Else Exit Sub End If 39。先設置 ComboBox 的默認值及不可改 = FalseEnd SubPrivate Sub cmdClose_Click() Unload MeEnd Sub刪除按鈕的源代碼：Private Sub cmdDel_Click() 39。如果當前 House 表中有數據則顯示第一條數據 If Not And Not Then For i = 0 To 7 Text1(i).Text = (i) Next i If (8) = 已租 Then = 0 ElseIf (8) = 未租 Then = 1 ElseIf (8) = 意向 Then = 2 End If = True = True20 = True = True = True = True 39。需要清空所有 text 框，并且設置它們可寫 For i = 0 To 719 Text1(i).Text = Text1(i).Enabled = True Next i = True 39。定義全局變量 sqlqzj 作為查詢合同信息時的 sql 語句Public sqlqzj As String39。還是直接菜單調用的Public fromContract As Boolean39。還是直接菜單調用的17Public fromqzc As Boolean39。定義全局變量 querycon 作為判斷 frmAdminContract 窗體顯示查詢的數據還是全體數據Public querycon As Boolean39。定義全局變量 queryemp 作為判斷 frmEmp 窗體顯示查詢的數據還是全體數據Public queryemp As Boolean39。定義全局變量 querycf 作為判斷 frmClient 窗體家庭租戶選項卡顯示查詢的數據還是全體數據Public querycf As Boolean39。系統(tǒng)分析的主要成果是系統(tǒng)的邏輯模型。數據庫管理系統(tǒng)功能的強弱基本上決定了整個數據庫系統(tǒng)功能。 數據庫運行管理 所有數據庫的操作都要在數據庫管理系統(tǒng)的餓控制程序的統(tǒng)一管理下進行，以保證正確運行，保證數據庫正確有效。數據庫管理系統(tǒng)還承擔著數據庫的維護工作，保證數應用程序 3應用程序 2應用程序 1數據庫管理系統(tǒng)數據庫12據庫的安全性和完整性。當要建立新的數據管理系統(tǒng)時，只要生成一個新的應用程序即可，它可以立即使用現(xiàn)成的數據庫，而不必建立新的數據文件。在數據庫管理系統(tǒng)的支持下，數據完全獨立于應用程序，并且能被多個用戶或程序共享，其關系如圖所示。此外，通過動態(tài)鏈接庫，還可以調用 Windows 應用程序接口(API)函數，實現(xiàn) SDK 所具有的功能第四章 房屋租賃管理系統(tǒng)的詳細設計 數據庫概要 數據庫的含義所謂數據庫，就是為了滿足某些系統(tǒng)、某些用戶的需要，在計算機系統(tǒng)中按照一定的數據模型、數據結構等方式進行組織、存儲和使用的互相關聯(lián)的數據集合，是數據按科學的結構形式組織的“倉庫” 。OLE 技術是 Microsoft 公司對象技術的戰(zhàn)略，它把多個應用程序合為一體，將每個應用程序看作是一個對象進行鏈接和嵌入，是一種應用程序一體化的技術。10動態(tài)數據交換(DDE)利用動態(tài)數據交換(Dynamic Data Exchange)技術，可以把一種應用程序中的數據動態(tài)地鏈接到另一種應用程序中，使兩種完全不同的應用程序建立起一條動態(tài)數據鏈路。訪問數據庫Visual Basic 具有強大的數據庫管理功能，利用數據控件和數據庫管理窗口，可以直接建立或處理 Microsoft Access 格式的數據庫，并提供了強大的數據存儲和檢索功能。一個對象可能會產生多個事件，每個事件都可以通過一段程序來響應。Visual Basic 語句簡單易懂，其編輯器支持彩色代碼，可自動進行語法錯誤檢查，同時具有功能強大且使用靈活的調試器和編譯器。在一般的面向對象程序設計語言中，對象由程序代碼和數據組成，是抽象的概念；而 Visual Basic 則是應用面向對象的程序設計方法(OOP)，把程序和數據封裝起來作為一個對象，并為每個對象賦予應有的屬性，使對象成為實在的東西。Visual Basic 提供了可視化設計工具，把 Windows 界面設計的復雜性“封裝”起來，開發(fā)人員不必為界面設計而編寫大量程序代碼。在Visual Basic 環(huán)境下，利用事件驅動的編程機制、新穎易用的可視化設計工具，使用Windows 內