【正文】 盤(pán)查詢(xún) 客戶資料登記 客戶資料查詢(xún) 收費(fèi)登記 收費(fèi)查詢(xún) 售樓人員登記 售樓合同管理 收款管理 銷(xiāo)售人員查詢(xún) 售樓合同查詢(xún) 收款情況查詢(xún) 退出系統(tǒng) 19 戶型表 : 客戶資料表 : 樓盤(pán)表 : 收費(fèi)表 : 20 收費(fèi)登記表 售樓人員表 : 系統(tǒng)管理表 : 預(yù)計(jì)付款表 21 其系統(tǒng)主界面設(shè)計(jì)運(yùn)行效果圖如下 : 登錄窗體的設(shè)計(jì) 其運(yùn)行效果圖如下 : 22 其具體的設(shè)計(jì)如下 : 新建一個(gè)窗體 .在窗體上放上二個(gè) label 控件 ,二個(gè) TextBox 控件 ,二個(gè)CommandButton 控件 .其屬性的設(shè)置比較簡(jiǎn)單 ,請(qǐng)參照上面的窗體中的文字顯視 .我們具體分析一下確定按鈕的源碼 ,如下 : Private Sub cmdok_Click() Dim sql As String Dim rs_login As New If Trim() = Then 39。判斷輸入的用戶名是否為空 MsgBox 沒(méi)有這個(gè)用戶 , vbOKOnly + vbExclamation, Else sql = select * from 系統(tǒng)管理 where czyh=39。 amp。 amp。 39。 sql, conn, adOpenKeyset, adLockPessimistic If = True Then MsgBox 沒(méi)有這個(gè)用戶 , vbOKOnly + vbExclamation, Else 39。檢驗(yàn)密碼是否正確 If Trim((1)) = Trim() Then userID = username = (2) Unload Me Else MsgBox 密碼不正確 , vbOKOnly + vbExclamation, End If End If End If t = t + 1 If t = 3 Then Unload Me End If 23 End Sub Private Sub Form_Load() Dim connectionstring As String connectionstring = provider=。 amp。 _ data source= amp。 amp。 \ connectionstring t = 0 End Sub 房屋管理模塊的設(shè)計(jì) (因?yàn)樵撓到y(tǒng)所設(shè)計(jì)的窗體比較多 ,故我們 將每一人模塊 選取有代表性 的一個(gè) 窗體進(jìn)行重點(diǎn)描述 .: 1. 戶型登記 分析按鈕源碼如下 : 增加按鈕的源碼為 Private Sub cmdadd_Click() On Error GoTo adderror If = 保存 Then = 增加 24 If Trim() = Then MsgBox 戶型編號(hào)不能為空！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ Exit Sub End If If Trim() = Then MsgBox 請(qǐng)選擇戶型編號(hào)！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ Exit Sub End If If Trim() = Then MsgBox 建筑面積不能為空！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ Exit Sub End If If Trim() = Then MsgBox 套內(nèi)面積不能為空！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ Exit Sub End If If Not IsNumeric() Then MsgBox 建筑面積請(qǐng)輸入數(shù)字！ , vbOKOnly + vbExclamation, Exit Sub End If If Not IsNumeric() Then MsgBox 套內(nèi)面積請(qǐng)輸入數(shù)字！ , vbOKOnly + vbExclamation, Exit Sub End If Dim i As Integer For i = 0 To 1 If (0) = Then MsgBox 戶型編號(hào)重復(fù)！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ Exit Sub End If Next i (0) = (1) = CSng() (2) = CSng() 25 (3) = (4) = (5) = MsgBox 添加成功！ , vbOKOnly + vbExclamation, OK With gridhuxing .Rows = + 1 .Row = 1 .Col = 0 .Text = .Col = 1 .Text = .Col = 2 .Text = .Col = 3 .Text = .Col = 4 .Text = .Col = 5 .Text = End With = 增加 Else = 保存 = = = = = False = False End If Exit Sub adderror: MsgBox End Sub 修改按鈕的源碼為 : Private Sub cmdmodify_Click() On Error GoTo modifyerror = False If Trim() = Then MsgBox 房型不能為空！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ Exit Sub End If 26 Dim i As Integer For i = 0 To 1 If (0) = Then (1) = CSng() (2) = CSng() (3) = (4) = (5) = MsgBox 修改成功！ , vbOKOnly + vbExclamation, OK With gridhuxing .Row = getrow .Col = 0 .Text = .Col = 1 .Text = .Col = 2 .Text = .Col = 3 .Text = .Col = 4 .Text = .Col = 5 .Text = End With Exit Sub End If Next i modifyerror: MsgBox End Sub 刪除按鈕的源碼為 : Private Sub cmddel_Click() Dim answer As String Dim delete_row As String On Error GoTo delerror answer = MsgBox(確定要?jiǎng)h除嗎？ , vbYesNo, ) If answer = vbYes Then Dim i As Integer For i = 0 To 1 If (0) = Then 27 MsgBox 刪除成功！ , vbOKOnly + vbExclamation, OK With gridhuxing .RemoveItem getrow End With Exit Sub End If Next i Else Exit Sub End If Exit Sub delerror: MsgBox End Sub 客戶管理模塊的設(shè)計(jì) 其客戶資料查詢(xún)窗體的運(yùn)行界面如下 : 其中查詢(xún) ,打印按鈕的源碼分別如下 : Private Sub Command1_Click() Dim sql As String 28 On Error GoTo loaderror If = True Then sql = select * from 客戶資料 where Hon_ID = 39。 amp。 amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If 39。按照姓名查詢(xún) If = True Then sql = select * from 客戶資料 where Hon_name = 39。 amp。 amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If 39。按照手機(jī)號(hào)查詢(xún) If = True Then sql = select * from 客戶資料 where Hon_handset = 39。 amp。 amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub End If 39。按照車(chē)牌號(hào)查詢(xún) If = True Then sql = select * from 客戶資料 where Hon_carcode = 39。 amp。 amp。 39。 = adUseClient sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid Exit Sub 29 End If Exit Sub loaderror: MsgBox End Sub 打印按按的源碼如下 : Private Sub Command2_Click() = Centimeter = gridkehu End Sub 收費(fèi)管理模塊的設(shè)計(jì) 其中收費(fèi)登記窗體的運(yùn)行界面如下 : 其保存按鈕的源碼如下 : Private Sub cmdsave_Click() Dim i As Integer If Trim(txtmoney(0).Text) = Then MsgBox 樓盤(pán)編號(hào)不能為空！ , vbOKOnly + vbExclamation, 出錯(cuò)啦！ txtmoney(0).SetFocus Exit Sub End If Dim fee As Currency fee = 0 For i = 1 To 6 fee = fee + CCur(txtmoney(i).Text)