📄 frm_tkkh.frm

📁 房地产管理系统对房地产的销售做日常的管理维护等
💻 FRM
📖 第 1 页 / 共 2 页
字号:
上一页 12
         Caption         =   "需求楼层"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column14 
         DataField       =   "需求房型"
         Caption         =   "需求房型"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column15 
         DataField       =   "价格反映"
         Caption         =   "价格反映"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column16 
         DataField       =   "支付方式"
         Caption         =   "支付方式"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column17 
         DataField       =   "购买意向"
         Caption         =   "购买意向"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column18 
         DataField       =   "考虑因素"
         Caption         =   "考虑因素"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column19 
         DataField       =   "信息来源"
         Caption         =   "信息来源"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column20 
         DataField       =   "购房数量"
         Caption         =   "购房数量"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column21 
         DataField       =   "购房金额"
         Caption         =   "购房金额"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column22 
         DataField       =   "已付金额"
         Caption         =   "已付金额"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column23 
         DataField       =   "未付金额"
         Caption         =   "未付金额"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      BeginProperty Column24 
         DataField       =   "备注"
         Caption         =   "备注"
         BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
            Type            =   0
            Format          =   ""
            HaveTrueFalseNull=   0
            FirstDayOfWeek  =   0
            FirstWeekOfYear =   0
            LCID            =   2052
            SubFormatType   =   0
         EndProperty
      EndProperty
      SplitCount      =   1
      BeginProperty Split0 
         BeginProperty Column00 
            Object.Visible         =   0   'False
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column01 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column02 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column03 
            ColumnWidth     =   1365.165
         EndProperty
         BeginProperty Column04 
            ColumnWidth     =   1365.165
         EndProperty
         BeginProperty Column05 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column06 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column07 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column08 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column09 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column10 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column11 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column12 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column13 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column14 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column15 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column16 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column17 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column18 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column19 
            ColumnWidth     =   2085.166
         EndProperty
         BeginProperty Column20 
            ColumnWidth     =   1365.165
         EndProperty
         BeginProperty Column21 
            ColumnWidth     =   1365.165
         EndProperty
         BeginProperty Column22 
            ColumnWidth     =   1365.165
         EndProperty
         BeginProperty Column23 
            ColumnWidth     =   1365.165
         EndProperty
         BeginProperty Column24 
            ColumnWidth     =   2085.166
         EndProperty
      EndProperty
   End
End
Attribute VB_Name = "frm_tkkh"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
If Text1.Text <> "" Then
frm_KHTKDGL.Text2.Text = Adodc1.Recordset.Fields("客户名称")
frm_KHTKDGL.Text3.Text = Adodc1.Recordset.Fields("客户编号")
frm_KHTKDGL.Combo1.Text = Adodc1.Recordset.Fields("性别")
frm_KHTKDGL.Text4.Text = Adodc1.Recordset.Fields("年龄")
frm_KHTKDGL.Text6.Text = Adodc1.Recordset.Fields("工作单位")
frm_KHTKDGL.Text7.Text = Adodc1.Recordset.Fields("联系地址")
frm_KHTKDGL.Text8.Text = Adodc1.Recordset.Fields("身份证")
frm_KHTKDGL.Text9.Text = Adodc1.Recordset.Fields("联系电话")
Unload Me
frm_KHTKDGL.Text10.SetFocus
Else
MsgBox "没有要选择的用户,请您添加用户后在选择", 32, "房地产销售管理系统"
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Command3_Click()
Adodc1.Recordset.MoveFirst
Text1.Text = Text2.Text
Adodc1.Recordset.MoveNext
Do While Adodc1.Recordset.EOF = False
'Adodc1.RecordSource = "select * from Table_KHZL1 where 客户编号='" + Text2.Text + "'"
'Adodc1.Refresh
If Text1.Text = Text2.Text Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
Else
Text2.Text = Text1.Text
Adodc1.Recordset.MoveNext
End If
Loop

End Sub

Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Text1.Text <> "" Then
frm_KHTKDGL.Text2.Text = Adodc1.Recordset.Fields("客户名称")
frm_KHTKDGL.Text3.Text = Adodc1.Recordset.Fields("客户编号")
frm_KHTKDGL.Combo1.Text = Adodc1.Recordset.Fields("性别")
frm_KHTKDGL.Text4.Text = Adodc1.Recordset.Fields("年龄")
frm_KHTKDGL.Text6.Text = Adodc1.Recordset.Fields("工作单位")
frm_KHTKDGL.Text7.Text = Adodc1.Recordset.Fields("联系地址")
frm_KHTKDGL.Text8.Text = Adodc1.Recordset.Fields("身份证")
frm_KHTKDGL.Text9.Text = Adodc1.Recordset.Fields("联系电话")
Unload Me
frm_KHTKDGL.Text10.SetFocus
Else
MsgBox "没有要选择的用户,请您添加用户后在选择", 32, "房地产销售管理系统"
End If
Else
End If
End Sub

Private Sub Form_Load()
Adodc1.RecordSource = "select * from Table_KHZL where 购房数量> 0"
Adodc1.Refresh
End Sub
上一页 12
💿 文件大小 2078 K
👤 上传用户 wugu0
📂 所属分类企业管理
🏷️ 相关标签

#房地产 #管理系统 #销售
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -