房地产营销管理系统—毕业设计论文

房地产营销管理系统—毕业设计论文内容摘要：

及同学们的大力支持。 在本次毕业设计中，我从指导老师身上学到了很多东西。 金老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我收益匪浅。 他无论在理论上还是在实践中，都给与我很大的帮助，使我得到不少的提高这对于我以后的工作和学习都有一种巨大的帮助，感谢他耐心的辅导。 另外，还有同班的同学给与我不少帮助，这里一并表示感谢。 参 考 文 献 参考文献： 1. 计算机书目文献管理数据库 清华大学出版社 2. Visual Basic 开发与技巧 机械工业出版社 3. Visul Basic 数据库和 Inter编程 清华大学出版社 4. Visul Basic 实例精通 清华大学出版社 5. Visual Basic客户 /服务器 清华大学出版社 6. MS SQL Server 操作指南 清华大学出版社 附录 A 系统的主要代码 主界面 Private Sub Eexit_Click() 39。 退出系统 If MsgBox(退出房产信息系统。 , vbQuestion + vbYesNo, 房产信息 ) = vbYes Then 39。 MdiExit = True Unload Me 39。 关闭数据库 39。 Dim sdir As String 39。 压缩数据库，但预防中断，压缩时不用相同的名字 39。 sdir = Dir( amp。 \) 39。 If sdir Then Kill sdir 39。 amp。 \, amp。 \ 39。 Kill amp。 \ 39。 Name amp。 \ As amp。 \ End End If (2).Text = 房产信息系统 ......待命 End Sub Private Sub Mback_Click() Load frmBack End Sub Private Sub MDIForm_Load() 39。 (2).Text = 房产信息系统 ......待命 End Sub Private Sub mnuagent_Click() Load frmAgent End Sub Private Sub mnuBespek_Click() Load frmOrder End Sub Private Sub mnuClient_Click() 1 End Sub Private Sub mnucustomer_Click() Load frmCustomer End Sub Private Sub mnugarage_Click() Load frmGarage End Sub Private Sub mnuHabout_Click() Load frmAbout End Sub Private Sub mnuHasten_Click() Load frmEndcond End Sub Private Sub mnuhouse_Click() Load frmAhouse End Sub Private Sub mnuHouseno_Click() 1 End Sub Private Sub mnuPayment_Click() Load frmPayment End Sub Private Sub mnuRsale_Click() 1 End Sub Private Sub mnuSarea_Click() 39。 saleAtio = area Dim i, all As Integer = 房产出售面积比例关系图 = 房产出售面积比例关系图 = 3 = 1 = 未售 = 2 = 预售 = 3 = 已售 For i = 0 To 2 = i = i + 1 = (1).Value all = all + (1).Value Next = 共 amp。 all amp。 平方米 For i = 0 To 2 = i = i + 1 = amp。 : amp。 (0).Value amp。 M2( amp。 ((1).Value / all) * 100 Mod 100 amp。 %) Next = False End Sub Private Sub mnuSnum_Click() 39。 saleAtio = num Dim i, all As Integer = 房产出售套数比例关系图 = 房产出售套数比例关系图 = 3 = 1 = 未售 = 2 = 预售 = 3 = 已售 For i = 0 To 2 = i = i + 1 = (0).Value all = all + (0).Value Next = 共 amp。 all amp。 套 For i = 0 To 2 = i = i + 1 = amp。 : amp。 (0).Value amp。 套 ( amp。 ((0).Value / all) * 100 Mod 100 amp。 %) Next = False End Sub Private Sub mnuSprice_Click() 39。 saleAtio = price Dim i, all As Integer = 已售房产收款比例关系图 = 已售房产收款比例关系图 = 2 = 0 = 1 = 已收款 : amp。 (0).Value amp。 ￥ ( amp。 ((0).Value / (2).Value) * 100 Mod 100 amp。 %) = (0).Value = 2 = 未收款 : amp。 (1).Value amp。 ￥ ( amp。 ((1).Value / (2).Value) * 100 Mod 100 amp。 %) = (1).Value = 共应收款 amp。 (2).Value amp。 ￥ = False End Sub Private Sub mnustructre_Click() Load frmStructre End Sub Private Sub mnuTotal_Click() End Sub Private Sub Muse_Click() Load frmUse End Sub Private Sub Timer1_Timer() 1 = False End Sub Private Sub Wcascade_Click() 39。 层叠窗体：层叠所有非最小化的 MDI 子窗体 (2).Text = 窗体层叠排列 ...... vbCascade (2).Text = 房产信息系统 ......待命 End Sub Private Sub Wicon_Click() 39。 图标窗体：重排所有最小化的 MDI 子窗体的图标 (2).Text = 窗体图标排列 ...... vbArrangeIcons (2).Text = 房产信息系统 ......待命 End Sub Private Sub WHtitle_Click() 39。 水平平铺所有非最小化的 MDI 子窗体 (2).Text = 窗体平铺 ...... lvbTileHorizontal (2).Text = 房产信息系统 ......待命 End Sub Private Sub WVtitle_Click() 39。 垂直平铺所有非最小化的 MDI 子窗体 (2).Text = 窗体平铺 ...... vbTileVertical (2).Text = 房产信息系统 ......待命 End Sub 房屋信息 Option Explicit Dim change As Boolean 39。 修改标志 ? Public YrecordSource As String 39。 启动此窗体时的记录源 Public Sub SearchGarage() = False If Trim(dbHouseNo) Then 39。 Or Not IsNull(dbHouseNo) = select * from house where houseno like 39。 amp。 dbHouseNo amp。 39。 End If Dim i As Integer For i = 0 To 13 txtFields(i).Enabled = True If i = 2 And i = 5 Or i = 7 Then upArea(i).Enabled = True Next = True = True = True End Sub Private Sub cmdReturn_Click() = YrecordSource End Sub Private Sub cmdSearch_Click() = 0 39。 搜索时激活第一个选项卡 = True 39。 让户号获得焦点 Dim i As Integer For i = 0 To 13 txtFields(i).Enabled = False If i = 2 And i = 5 Or i = 7 Then upArea(i).Enabled = False Next = False = False = False End Sub Private Sub dbHouseNo_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call SearchGarage End If End Sub Private Sub dbHouseNo_LostFocus() Call SearchGarage End Sub Private Sub Form_Load() 39。 Set = (ChildCMD).UnderlyingValue ( ) / 2, ( ) / 2 1000 YrecordSource = 39。 ?load 时 End Sub Private Sub Form_Unload(Cancel As Integer) Call cmdUpdate_Click 39。 提示保存 = vbDefault End Sub。