房地產(chǎn)營(yíng)銷(xiāo)管理系統(tǒng)—畢業(yè)設(shè)計(jì)論文-資料下載頁(yè)
2025-11-14 16:59本頁(yè)面
【導(dǎo)讀】windows98為操作系統(tǒng)平臺(tái)，VisualBasic為開(kāi)發(fā)工具。系統(tǒng)開(kāi)發(fā)過(guò)程以軟件工程原理為指導(dǎo)，分階段實(shí)現(xiàn)整個(gè)系統(tǒng)。系統(tǒng)數(shù)據(jù)集中存放在數(shù)據(jù)庫(kù)服務(wù)器上，各終端通過(guò)。局域網(wǎng)進(jìn)行房屋銷(xiāo)售、銷(xiāo)售統(tǒng)計(jì)、信息查詢等工作。該系統(tǒng)最大限度地集成了房地產(chǎn)企業(yè)與客戶的眾。戶資源，以最大程度地實(shí)現(xiàn)客戶滿意和企業(yè)利益最大化的經(jīng)營(yíng)目標(biāo)。加以相應(yīng)的設(shè)置和限制。在線幫助為客戶的相關(guān)問(wèn)題提供實(shí)時(shí)幫助；向客戶，篩選客戶類(lèi)型，采取相應(yīng)行動(dòng)，跟蹤機(jī)會(huì)進(jìn)展；房屋管理記錄樓盤(pán)信息，控制樓盤(pán)所有房間的銷(xiāo)售狀態(tài)；為客戶進(jìn)行模擬購(gòu)買(mǎi)，制定有關(guān)虛擬流程和付款計(jì)劃；銷(xiāo)售指引引導(dǎo)客戶辦理樓盤(pán)房間、車(chē)位的購(gòu)買(mǎi)的有關(guān)事務(wù)，以及對(duì)相關(guān)裝修方案的選擇等事宜；蹤合同的執(zhí)行情況和變更；銷(xiāo)售分析建立和管理各類(lèi)銷(xiāo)售分析報(bào)告；加密后的數(shù)據(jù)庫(kù)只有本系統(tǒng)才能對(duì)其進(jìn)行維護(hù)，任何直接對(duì)數(shù)。維護(hù)，從而避免了來(lái)自內(nèi)部的破壞。問(wèn)題,提高了錄入速度，節(jié)省了工作時(shí)間。
【正文】 rivate Sub cmdAdd_Click() On Error GoTo AddErr 39。繼承輸入 If 0 Then If Not Then Dim s1, s(2 To 8) As String Dim i As Integer s1 = txtFields(0) s1 = Int(s1) + 1 If Len(s1) 5 Then For i = 1 To 5 Len(s1) s1 = 0 amp。 s1 Next End If For i = 2 To 8 s(i) = txtFields(i) Next If = 1 Then txtFields(0) = s1 txtDate = DateValue(Now) For i = 2 To 8 txtFields(i) = s(i) Next Else txtFields(0) = s1 txtDate = DateValue(Now) End If Else txtFields(0) = 00001 txtDate = DateValue(Now) End If Exit Sub AddErr: MsgBox End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr If = 0 Then Exit Sub With Dim i As Integer i = MsgBox(確定要?jiǎng)h除嗎？ , vbExclamation + vbYesNo, 客戶信息 ) If i = vbYes Then .Delete 39。.MoveNext If .EOF Then .MoveLast End If End With Exit Sub DeleteErr: MsgBox End Sub Private Sub cmdUpdate_Click() On Error GoTo UpdateErr If change Then change = False Dim i As Integer i = MsgBox(數(shù)據(jù)已修改，保存嗎？ , vbInformation + vbYesNo, 客戶信息 ) If i = vbYes Then adAffectAll 39。? ElseIf i = vbNo Then adAffectAll End If End If Exit Sub UpdateErr: MsgBox End Sub Private Sub cmdClose_Click() Call cmdUpdate_Click 39。提示保存 Unload Me End Sub 車(chē)庫(kù)信息 Option Explicit Dim change As Boolean 39。修改標(biāo)志 ? Public YrecordSource As String 39。啟動(dòng)此窗體時(shí)的記錄源 Public Sub SearchGarage() = False If Trim(dbGarageNo) Then 39。Or Not IsNull(dbGarageNo) YrecordSource = 39。?load 時(shí) If ( Like *9*) Then MsgBox = select * from garage where garageno like 39。 amp。 dbGarageNo amp。 39。 End If Dim i As Integer For i = 1 To 5 txtFields(i).Enabled = True Next End Sub Private Sub cmdReturn_Click() = YrecordSource End Sub Private Sub cmdMonth_Click() = True End Sub Private Sub cmdSearch_Click() = True Dim i As Integer For i = 1 To 5 txtFields(i).Enabled = False Next End Sub Private Sub bSale_Change() If = 已售 Or = 預(yù)留 Then txtFields(5).Enabled = True = True txtFields(5) = DateValue(Now) Else txtFields(5).Enabled = False = False End If End Sub Private Sub bSale_Click() If = 已售 Or = 預(yù)留 Then txtFields(5).Enabled = True = True txtFields(5) = DateValue(Now) Else txtFields(5).Enabled = False = False End If End Sub Private Sub bSale_LostFocus() If = 已售 Or = 預(yù)留 Then txtFields(5).Enabled = True = True txtFields(5) = DateValue(Now) Else txtFields(5).Enabled = False = False End If End Sub Private Sub dbGarageNo_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call SearchGarage End If End Sub Private Sub dbGarageNo_LostFocus() Call SearchGarage End Sub Private Sub Form_Load() 39。 Set = (ChildCMD).UnderlyingValue ( ) / 2, ( ) / 2 1200 End Sub Private Sub Form_Unload(Cancel As Integer) Call cmdUpdate_Click 39。提示保存 = vbDefault End Sub Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean) 39。錯(cuò)誤處理程序代碼置于此處 39。想要忽略錯(cuò)誤，注釋掉下一行 39。想要捕獲它們，在此添加代碼以處理它們 MsgBox Data error event hit err: amp。 Description End Sub Private Sub datPrimaryRS_WillChangeRecord(ByVal adReason As , ByVal cRecords As Long, adStatus As , ByVal pRecordset As ) 39。驗(yàn)證代碼置于此處 39。下列動(dòng)作發(fā)生時(shí)該事件被調(diào)用 Dim bCancel As Boolean Dim i As Integer Static del, add As Boolean Select Case adReason Case adRsnAddNew: add = True Case adRsnClose Case adRsnDelete: del = True Case adRsnFirstChange: change = True Case adRsnMove Case adRsnRequery Case adRsnResynch Case adRsnUndoAddNew Case adRsnUndoDelete Case adRsnUndoUpdate Case adRsnUpdate If del Or add Then del = False: add = False Exit Sub End If If change Then i = MsgBox(數(shù)據(jù)被修改 ,保存嗎？ , vbInformation + vbYesNo, 車(chē)庫(kù)信息 ) If i = vbNo Then adAffectCurrent change = False End If End Select If bCancel Then adStatus = adStatusCancel End Sub Private Sub cmdAdd_Click() On Error GoTo AddErr 39。繼承輸入 If 0 Then 39。If Not Then Dim s(2 To 5), sCkh, sType As String Dim i As Integer sCkh = txtFields(1) 39。?處理 sType = bType For i = 2 To 4 s(i) = txtFields(i) Next change = True If = 1 Then txtFields(1) = sCkh amp。 1 bType = sType For i = 2 To 4 txtFields(i) = s(i) Next Else txtFields(1) = sCkh amp。 1 End If Else change = True 39。 txtFields(1) = 001 End If Exit Sub AddErr: MsgBox End Sub Private Sub cmdDelete_Click() On Error GoTo DeleteErr If = 0 Then Exit Sub With Dim i As Integer i = MsgBox(確定要?jiǎng)h除嗎？ , vbE
公司管理相關(guān)推薦
鄂ICP備17016276號(hào)-1