【導(dǎo)讀】總的說(shuō)來(lái)，房地產(chǎn)銷售系統(tǒng)就是通過(guò)集中房地產(chǎn)銷售信息，對(duì)房產(chǎn)公司的管理進(jìn)行調(diào)。實(shí)現(xiàn)房地產(chǎn)銷售系統(tǒng)現(xiàn)代化的根本途徑是信息化、系統(tǒng)化。開(kāi)發(fā)工具,有各種各種面向?qū)ο蟮目丶Ｎ覀儗⒃赩B中使用ADO控件連接ACCESS數(shù)。據(jù)庫(kù)，將存在數(shù)據(jù)庫(kù)的信息通過(guò)界面顯示出來(lái)，并進(jìn)行修改，查詢等操作。

　　

【正文】 ,2020 ,《數(shù)據(jù)庫(kù)開(kāi)發(fā)技術(shù)與工程實(shí)踐》 ,人民郵電出版社 ,2020 , 王虹 等 《 Visual basic 中文版高級(jí)應(yīng)用與開(kāi)發(fā)指南》 , 人民郵電出版社 , 2020 主編 等 《 VB 課程設(shè)計(jì)與系統(tǒng)開(kāi)發(fā)案例》清華大學(xué)出版社 , 2020 ，《 Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)及工程實(shí)例》，人民郵電出版社 ， 《 Visual Basic 數(shù)據(jù)庫(kù)開(kāi)發(fā)技術(shù)與工程實(shí)踐》，人民郵電出版社， 2020 ，汪遠(yuǎn)征，《 Visual Basic 程序設(shè)計(jì)教程》，機(jī)械工業(yè)出版社， 2020 ，周學(xué)明，郭安源，《 Visual Basic 企業(yè)辦公系統(tǒng)開(kāi)發(fā)實(shí)例導(dǎo)航》，人民郵電出版社，2020 ，王珊，《數(shù)據(jù)庫(kù)系統(tǒng)導(dǎo)論》，機(jī)械工業(yè)出版社， 2020 附錄：源代碼 Dim nModeSys As Integer Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdRegAdd_Click() 39。39。39。添加 nModeSys = 2 39。39。添加操作 Dim IDmax As String Dim i As Integer For i = 1 To Val(Txt(0).Text) Txt(i).Text = Next i = True End Sub Private Sub cmdRegDel_Click() 39。39。39。刪除 On Error GoTo Err Dim ss As Integer ss = MsgBox(真的刪除該記錄嗎？ , vbCritical + vbOKCancel, 系統(tǒng)提示 ) If ss = 1 Then If And Then For i = 1 To Val(Txt(0).Text) Txt(i).Text = Next i Else = adFilterNone If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i Else For i = 1 To Val(Txt(0).Text) Txt(i) = Next i End If End If End If Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub Private Sub cmdRegFirst_Click() 39。39。39。 Dim i As Integer On Error GoTo Err If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Exit Sub Err: End Sub Private Sub cmdRegLast_Click() 39。39。39。 Dim i As Integer On Error GoTo Err If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Exit Sub Err: End Sub Private Sub cmdRegLook_Click() 39。39。 strLook = Trim() If strLook Then 1 End If End Sub Private Sub cmdRegNext_Click() 39。39。39。 Dim i As Integer On Error GoTo Err If Then If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Else If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If End If Exit Sub Err: End Sub Private Sub cmdRegPrevious_Click() 39。39。39。 Dim i As Integer On Error GoTo Err If Then If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If Else If Not Then For i = 1 To Val(Txt(0).Text) If Not IsNull((i 1)) Then Txt(i) = (i 1) Else Txt(i) = End If Next i End If End If Exit Sub Err: End Sub Private Sub cmdRegSave_Click() 39。39。39。保存 On Error GoTo Err Dim i As Integer If nModeSys = 1 Then If Then For i = 0 To Val(Txt(0).Text) 1 If Trim(Txt(i + 1).Text) = Then Else (i).Value = Trim(Txt(i + 1).Text) End If Next i ElseIf nModeSys = 2 Then For i = 0 To Val(Txt(0).Text) 1 If Trim(Txt(i + 1).Text) = Then Else (i).Value = Trim(Txt(i + 1).Text) End If Next i End If nModeSys = 0 = False MsgBox 操作已成功 !, vbInformation + vbOKOnly, 系統(tǒng)提示 Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub Private Sub Combo1_Click() 39。39。選擇數(shù)據(jù)表 On Error GoTo Err Dim strSql As String strSql = select * from amp。 Trim() If Then strSql, CN, adOpenStatic, adLockOptimistic Dim i As Integer Dim k As Integer k = For i = 1 To 20 If k = 1 Then Load Txt(i) Load Lbl(i) End If Txt(i).Visible = False Lbl(i).Visible = False Next i For i = 1 To Txt(i).Visible = True Lbl(i).Visible = True Lbl(i).Caption = Trim((i 1).Name) Txt(i).Text = If i Mod 2 = 1 Then Lbl(i).Left = 50 Txt(i).Left = 1250 Else Lbl(i).Left = 4420 Txt(i).Left = 5620 End If Lbl(i).Top = 120 + Int((i 1) / 2) * 500 + 120 Txt(i).Top = Lbl(i).Top 120 Next i Txt(0).Text = 39。39。用于記錄字段數(shù) (列 ) If Not Then For i = 0 To Val(Txt(0).Text) 1 If Not IsNull((i)) Then Txt(i + 1) = Trim((i)) Else Txt(i + 1) = End If Next i End If Exit Sub Err: MsgBox , vbInformation + vbOKOnly, 系統(tǒng)提示 End Sub Private Sub Combo2_Click() 39。39。39。 Txt(CurrentIndex).Text = Trim() = False If strTableName = 房屋信息表 Then If Lbl(CurrentIndex).Caption = 房型名稱 Then Dim rsZD As New If Then select * from 房 型 信 息 表 where 房型名稱 =39。 amp。 Trim(Txt(CurrentIndex).Text) amp。 39。, CN, adOpenStatic, adLockOptimistic If Not Then For i = 1 To 5 If Not IsNull((i)) Then Txt(CurrentIndex + i).Text = (i) End If Next i End If End If End If On Error GoTo Err Exit Sub Err: MsgBox , vbInforma