📄 frm_hfgl.frm
字号:
Text = "Text8"
Top = 240
Width = 1695
End
Begin VB.TextBox Text7
Height = 300
Left = 1320
TabIndex = 16
Text = "Text7"
Top = 240
Width = 1695
End
Begin VB.Label Label12
Caption = "房产总价"
Height = 255
Index = 0
Left = 3360
TabIndex = 25
Top = 1080
Width = 1095
End
Begin VB.Label Label11
Caption = "单价"
Height = 300
Index = 0
Left = 240
TabIndex = 23
Top = 1080
Width = 1095
End
Begin VB.Label Label10
Caption = "房号"
Height = 375
Index = 0
Left = 3360
TabIndex = 21
Top = 720
Width = 855
End
Begin VB.Label Label9
Caption = "楼房名称"
Height = 375
Index = 0
Left = 3360
TabIndex = 19
Top = 360
Width = 1215
End
Begin VB.Label Label8
Caption = "楼层"
Height = 255
Index = 0
Left = 240
TabIndex = 17
Top = 720
Width = 1095
End
Begin VB.Label Label7
Caption = "楼盘名称"
Height = 255
Index = 0
Left = 240
TabIndex = 15
Top = 360
Width = 1215
End
End
Begin VB.Frame Frame1
Caption = "客户信息"
Height = 1455
Left = 120
TabIndex = 0
Top = 120
Width = 6255
Begin VB.TextBox Text6
Height = 300
Left = 4440
TabIndex = 14
Text = "Text6"
Top = 960
Width = 1695
End
Begin VB.TextBox Text5
Height = 300
Left = 1320
TabIndex = 12
Text = "Text5"
Top = 960
Width = 1695
End
Begin VB.TextBox Text4
Height = 300
Left = 4440
TabIndex = 10
Text = "Text4"
Top = 600
Width = 1695
End
Begin VB.TextBox Text3
Height = 300
Left = 1320
TabIndex = 8
Text = "Text3"
Top = 600
Width = 1695
End
Begin VB.TextBox Text2
Height = 300
Left = 4440
TabIndex = 6
Text = "Text2"
Top = 240
Width = 1695
End
Begin VB.TextBox Text1
Height = 300
Left = 1320
TabIndex = 4
Text = "Text1"
Top = 240
Width = 1695
End
Begin VB.Label Label6
Caption = "合同编号"
Height = 255
Left = 3360
TabIndex = 13
Top = 1080
Width = 975
End
Begin VB.Label Label5
Caption = "身份证"
Height = 300
Left = 240
TabIndex = 11
Top = 1080
Width = 975
End
Begin VB.Label Label4
Caption = "联系地址"
Height = 255
Left = 3360
TabIndex = 9
Top = 720
Width = 735
End
Begin VB.Label Label3
Caption = "联系电话"
Height = 255
Left = 240
TabIndex = 7
Top = 720
Width = 975
End
Begin VB.Label Label2
Caption = "客户名称"
Height = 255
Left = 3360
TabIndex = 5
Top = 360
Width = 855
End
Begin VB.Label Label1
Caption = "客户编号"
Height = 255
Left = 240
TabIndex = 3
Top = 360
Width = 855
End
End
End
Attribute VB_Name = "frm_HFGL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim i
Private Sub Command1_Click()
Dim cc, i
cc = Val(Text18.Text) - Val(Text12.Text)
If Val(cc) < 0 Then
i = MsgBox("请您接受房地产公司的退款", 32, "房地产销售管理系统")
frm_HFGL.Hide
ElseIf Val(cc) = 0 Then
MsgBox "房屋交换成功,现房总价等于原房总价!!", 48, "房屋销售管理系统"
frm_HFGL.Hide
ElseIf Val(cc) > 0 Then
MsgBox "房屋交换成功,请您到付款安排中付款!!", 48, "房屋销售管理系统"
frm_dyhfd.Text1.Text = Text1.Text
frm_dyhfd.Text2.Text = Text2.Text
frm_dyhfd.Text3.Text = Text3.Text
frm_dyhfd.Text4.Text = Text4.Text
frm_dyhfd.Text5.Text = Text5.Text
frm_dyhfd.Text6.Text = Text6.Text
frm_dyhfd.Text7.Text = Text7.Text
frm_dyhfd.Text8.Text = Text8.Text
frm_dyhfd.Text9.Text = Text9.Text
frm_dyhfd.Text10.Text = Text10.Text
frm_dyhfd.Text11.Text = Text11.Text
frm_dyhfd.Text12.Text = Text12.Text
frm_dyhfd.Text13.Text = Text13.Text
frm_dyhfd.Text14.Text = Text14.Text
frm_dyhfd.Text15.Text = Text15.Text
frm_dyhfd.Text16.Text = Text16.Text
frm_dyhfd.Text17.Text = Text17.Text
frm_dyhfd.Text18.Text = Text18.Text
i = MsgBox("打印换房单吗?", 49, "房地产销售管理系统")
If i = vbOK Then
frm_dyhfd.PrintForm
Else
End If
frm_KHZLGL.Show
frm_HFGL.Hide
'frm_tep.Text33.Text = Adodc3.Recordset.Fields("购房数量")
frm_KHZLGL.Text53.Text = Text1.Text
frm_KHZLGL.Text54.Text = Text2.Text
frm_KHZLGL.Text55.Text = Text4.Text
frm_KHZLGL.Text55.Text = Text4.Text
frm_KHZLGL.Text56.Text = Text13.Text
frm_KHZLGL.Text57.Text = Text16.Text
frm_KHZLGL.Text58.Text = Text19.Text
frm_KHZLGL.Text59.Text = Text14.Text
frm_KHZLGL.Text60.Text = Text17.Text
frm_KHZLGL.Text64.Text = Val(Text18.Text)
frm_KHZLGL.Toolbar1.Buttons(1).Enabled = False
frm_KHZLGL.Toolbar1.Buttons(2).Enabled = False
frm_KHZLGL.Toolbar1.Buttons(3).Enabled = False
frm_KHZLGL.Toolbar1.Buttons(4).Enabled = True
frm_KHZLGL.Toolbar1.Buttons(5).Enabled = True
frm_KHZLGL.Toolbar1.Buttons(6).Enabled = False
frm_KHZLGL.Toolbar1.Buttons(7).Enabled = True
frm_KHZLGL.Toolbar1.Buttons(8).Enabled = True
frm_KHZLGL.Text63.Locked = False
frm_KHZLGL.Text65.Locked = False
frm_KHZLGL.Text67.Locked = False
frm_KHZLGL.SSTab1.Tab = 2
frm_KHZLGL.Height = 7530
frm_KHZLGL.Width = 11900
frm_KHZLGL.Left = 10
frm_KHZLGL.Top = 50
frm_KHZLGL.Text61.Locked = False
frm_KHZLGL.Toolbar1.Buttons(1).Visible = False
frm_KHZLGL.Text61.SetFocus
Else
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
DTPicker1.Value = Date
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -