房产管理系统

  • Z9_954141
    了解作者
  • 839.6KB
    文件大小
  • rar
    文件格式
  • 0
    收藏次数
  • VIP专享
    资源类型
  • 0
    下载次数
  • 2022-06-12 03:39
    上传日期
access + vb
房产管理系统.rar
  • 房产管理系统
  • VB6A.tmp
    44.6KB
  • 楼盘登记.frm
    7.5KB
  • 楼盘.txt
    1.7KB
  • 001
    2.9MB
  • 欢迎.frx
    102.1KB
  • VB6E.tmp
    44.6KB
  • 查询.frm
    6.5KB
  • 查询.frx
    81B
  • 04计算机课设题目安排.xls
    40KB
  • 工程1.vbp
    1.4KB
  • 户型信息_Log.LDF
    1MB
  • VB72.tmp
    2.5KB
  • MSSCCPRJ.SCC
    190B
  • Form6.frm
    2.1KB
  • sdf.txt
    2.4KB
  • Form7.frx
    80B
  • Form7.frm
    6.5KB
  • VB52.tmp
    44.6KB
  • VB5F.tmp
    2.5KB
  • VB4E.tmp
    44.6KB
  • 用户注册.frm
    5.4KB
  • VB69.tmp
    44.6KB
  • VB73.tmp
    44.6KB
  • 户型信息_Data.MDF
    1MB
  • 专业方向综合课设(07版).doc
    478KB
  • 欢迎.frm
    4.5KB
  • 新建 文本文档.txt
    1.7KB
  • Form6.frx
    140KB
  • VB56.tmp
    2.5KB
  • VB21.tmp
    44.6KB
  • 工程1.vbw
    298B
  • VB2F.tmp
    44.6KB
  • 用户注册.log
    1.4KB
  • VB3B.tmp
    44.6KB
  • VB90.tmp
    2.5KB
  • VB27.tmp
    2.5KB
  • VB33.tmp
    2.5KB
  • 房产管理系统
    978.5KB
  • VB6D.tmp
    2.5KB
  • VB24.tmp
    44.6KB
  • 登录.frm
    4.2KB
内容介绍
Private Sub Command1_Click() Dim sqlstr As String If Combo1.List(0) = Combo1.Text Then sqlstr = "select * from 楼盘信息 where 楼盘编号='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = "select * from 楼盘信息 where 楼号='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(2) = Combo1.Text Then sqlstr = "select * from 楼盘信息 where 单元号='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Combo1.Text Then sqlstr = "select * from 楼盘信息 where 楼层='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(4) = Combo1.Text Then sqlstr = "select * from 楼盘信息 where 房号='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(5) = Combo1.Text Then sqlstr = "select * from 楼盘信息 where 户型='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(6) = Combo1.Text Then sqlstr = "select * from 楼盘信息 where 面积='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh End If End Sub Private Sub Form_Load() Combo1.AddItem "楼盘编号" Combo1.AddItem "楼号" Combo1.AddItem "单元号" Combo1.AddItem "楼层" Combo1.AddItem "房号" Combo1.AddItem "户型" Combo1.AddItem "面积" End Sub Dim sqlstr As String MsgBox combol.List(0) If Combo1.List(0) = Combo1.Text Then sqlstr = "select * from 楼盘信息表 where lpbh='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(1) = Combo1.Text Then sqlstr = "select * from 楼盘信息表 where lc='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(2) = Combo1.Text Then sqlstr = "select * from 楼盘信息表 where lh='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(3) = Combo1.Text Then sqlstr = "select * from 楼盘信息表 where dyh='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh ElseIf Combo1.List(5) = Combo1.Text Then sqlstr = "select * from 楼盘信息表 where fh='" & Trim(Text1.Text) & "'" Adodc1.RecordSource = sqlstr Adodc1.Refresh End If
评论
    相关推荐
    • ACCESS
      ACCESS,值得学习一下的办公软件,
    • ACCESS
      Access数据库教程
    • access教学
      完整access教学课件,ppt文件,非常实用
    • 考勤access
      考勤access系统,试试,谢谢使用
    • Access对象
      DoCmd对象与方法-常用代码示例,Access开发应用程序命名规则。
    • Access Password
      Access Password,破解密码用的
    • Access真题
      access题目,帮助你过2级access题目。
    • access
      access
    • access
      access-mysql
    • Access2003
      Access2003绿色无插件,亲测可用。Access2003绿色无插件,亲测可用。