📄 frm_cx.frm
字号:
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
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 Column07
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 Column08
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 Column09
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 Column10
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 Column11
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 Column12
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 Column13
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 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
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
Object.Visible = 0 'False
ColumnWidth = 1094.74
EndProperty
BeginProperty Column01
ColumnWidth = 2085.166
EndProperty
BeginProperty Column02
ColumnWidth = 2085.166
EndProperty
BeginProperty Column03
ColumnWidth = 1365.165
EndProperty
BeginProperty Column04
ColumnWidth = 2085.166
EndProperty
BeginProperty Column05
ColumnWidth = 1365.165
EndProperty
BeginProperty Column06
ColumnWidth = 2085.166
EndProperty
BeginProperty Column07
ColumnWidth = 2085.166
EndProperty
BeginProperty Column08
ColumnWidth = 1365.165
EndProperty
BeginProperty Column09
ColumnWidth = 2085.166
EndProperty
BeginProperty Column10
ColumnWidth = 2085.166
EndProperty
BeginProperty Column11
ColumnWidth = 2085.166
EndProperty
BeginProperty Column12
Object.Visible = 0 'False
ColumnWidth = 1365.165
EndProperty
BeginProperty Column13
Object.Visible = 0 'False
ColumnWidth = 1365.165
EndProperty
BeginProperty Column14
Object.Visible = 0 'False
ColumnWidth = 1365.165
EndProperty
BeginProperty Column15
Object.Visible = 0 'False
ColumnWidth = 1365.165
EndProperty
BeginProperty Column16
Object.Visible = 0 'False
ColumnWidth = 1365.165
EndProperty
BeginProperty Column17
ColumnWidth = 2085.166
EndProperty
BeginProperty Column18
ColumnWidth = 2085.166
EndProperty
EndProperty
End
End
Attribute VB_Name = "frm_CX"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i, tep1, tep2
Private Sub Combo1_Click()
If Combo2.Enabled = True Then
Combo2.SetFocus
Else
Command1.SetFocus
End If
End Sub
Private Sub Combo2_Click()
If Combo3.Enabled = True Then
Combo3.SetFocus
Else
Command1.SetFocus
End If
End Sub
Private Sub Combo3_Click()
If Combo4.Enabled = True Then
Combo4.SetFocus
Else
Command1.SetFocus
End If
End Sub
Private Sub Combo4_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
If Combo1.Text = "" Or Combo2.Text = "" Or Combo3.Text = "" Or Combo4.Text = "" Then
MsgBox "输入或选择的查询内容不能为空!", 48, "房地产销售管理系统"
Else
Adodc1.RecordSource = "select * from Table_FWXX where 楼盘名称='" + Combo1.Text + "'and 楼房名称='" + Combo2.Text + "'and 楼层='" + Combo3.Text + "'and 房号='" + Combo4.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Refresh
Else
MsgBox "没有符合条件的房屋,请您确认后重新输入", 32, "房地产销售管理系统"
End If
End If
Else
End If
End Sub
Private Sub Command1_Click()
If Combo1.Enabled = True And Combo2.Enabled = True And Combo3.Enabled = True And Combo4.Enabled = True Then
If Combo1.Text = "" Or Combo2.Text = "" Or Combo3.Text = "" Or Combo4.Text = "" Then
MsgBox "输入或选择的查询内容不能为空!", 48, "房地产销售管理系统"
Else
Adodc1.RecordSource = "select * from Table_FWXX where 楼盘名称='" + Combo1.Text + "'and 楼房名称='" + Combo2.Text + "'and 楼层='" + Combo3.Text + "'and 房号='" + Combo4.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Adodc1.Refresh
Else
MsgBox "没有符合条件的房屋,请您确认后重新输入", 32, "房地产销售管理系统"
End If
End If
ElseIf Combo1.Enabled = True And Combo2.Enabled = True And Combo3.Enabled = False And Combo4.Enabled = False Then
If Combo1.Text = "" Or Combo2.Text = "" Then
MsgBox "输入或选择的查询内容不能为空!", 48, "房地产销售管理系统"
Else
Adodc3.RecordSource = "select * from Table_LFXX where 楼盘名称='" + Combo1.Text + "'and 楼房名称='" + Combo2.Text + "'"
Adodc3.Refresh
If Adodc3.Recordset.RecordCount > 0 Then
Adodc3.Refresh
Else
MsgBox "没有符合条件的房屋,请您确认后重新输入", 32, "房地产销售管理系统"
End If
End If
ElseIf Combo1.Enabled = True And Combo2.Enabled = False And Combo3.Enabled = False And Combo4.Enabled = False Then
If Combo1.Text = "" Then
MsgBox "输入或选择的查询内容不能为空!", 48, "房地产销售管理系统"
Else
Adodc2.RecordSource = "select * from Table_LPXX where 楼盘名称='" + Combo1.Text + "'"
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
Adodc2.Refresh
Else
MsgBox "没有符合条件的房屋,请您确认后重新输入", 32, "房地产销售管理系统"
End If
End If
Else
End If
End Sub
Private Sub Command2_Click()
Combo1.SetFocus
End Sub
Private Sub Command3_Click()
Unload Me
frm_FXXX.Show
End Sub
Private Sub Command4_Click()
Adodc1.RecordSource = "select * from Table_FWXX"
Adodc1.Refresh
Adodc2.RecordSource = "select * from Table_LPXX"
Adodc2.Refresh
Adodc3.RecordSource = "select * from Table_LFXX"
Adodc3.Refresh
End Sub
Private Sub Form_Activate()
Combo2.Clear
Adodc1.RecordSource = "select * from Table_LFXX order by 楼房名称 "
Adodc1.Refresh
Do While Adodc1.Recordset.EOF = False
tep1 = Adodc1.Recordset.Fields("楼房名称").Value
If tep1 <> tep2 Then
Combo2.AddItem (tep1)
tep2 = tep1
Adodc1.Recordset.MoveNext
ElseIf tep1 = tep2 Then
Adodc1.Recordset.MoveNext
End If
Loop
Combo3.Clear
Adodc1.RecordSource = "select * from Table_FWXX order by 楼层 "
Adodc1.Refresh
Do While Adodc1.Recordset.EOF = False
tep1 = Adodc1.Recordset.Fields("楼层").Value
If tep1 <> tep2 Then
Combo3.AddItem (tep1)
tep2 = tep1
Adodc1.Recordset.MoveNext
ElseIf tep1 = tep2 Then
Adodc1.Recordset.MoveNext
End If
Loop
Combo4.Clear
Adodc1.RecordSource = "select * from Table_FWXX order by 房号 "
Adodc1.Refresh
Do While Adodc1.Recordset.EOF = False
tep1 = Adodc1.Recordset.Fields("房号").Value
If tep1 <> tep2 Then
Combo4.AddItem (tep1)
tep2 = tep1
Adodc1.Recordset.MoveNext
ElseIf tep1 = tep2 Then
Adodc1.Recordset.MoveNext
End If
Loop
End Sub
Private Sub Form_Load()
Adodc1.RecordSource = "select * from Table_LPXX"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
Do While Adodc1.Recordset.EOF = False
Combo1.AddItem (Adodc1.Recordset.Fields("楼盘名称"))
Adodc1.Recordset.MoveNext
Loop
Else
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -