frmhetonglogin.frm
来自「一个优秀的售楼系统,可供毕业生毕业设计参考」· FRM 代码 · 共 944 行 · 第 1/3 页
FRM
944 行
VERSION 5.00
Begin VB.Form frmhetonglogin
BackColor = &H00C0FFFF&
Caption = "售楼合同登记"
ClientHeight = 8220
ClientLeft = 60
ClientTop = 450
ClientWidth = 9180
LinkTopic = "Form11"
MaxButton = 0 'False
ScaleHeight = 8220
ScaleWidth = 9180
StartUpPosition = 2 '屏幕中心
Begin VB.ComboBox combofind
Height = 300
Left = 2160
Style = 2 'Dropdown List
TabIndex = 49
Top = 120
Width = 1695
End
Begin VB.CommandButton cmdexit
Caption = "退出"
Height = 375
Left = 5880
TabIndex = 46
Top = 7440
Width = 1095
End
Begin VB.CommandButton cmddel
Caption = "合同作废"
Height = 375
Left = 4200
TabIndex = 45
Top = 7440
Width = 1095
End
Begin VB.CommandButton cmdmodify
Caption = "修改合同"
Height = 375
Left = 2520
TabIndex = 44
Top = 7440
Width = 1095
End
Begin VB.CommandButton cmdadd
Caption = "新合同"
Height = 375
Left = 840
TabIndex = 43
Top = 7440
Width = 1095
End
Begin VB.Frame Frame1
BackColor = &H00C0FFFF&
Caption = "售楼合同登记"
Height = 6615
Left = 120
TabIndex = 0
Top = 480
Width = 8895
Begin VB.ComboBox combosaleid
Height = 300
Left = 1560
TabIndex = 52
Top = 1920
Width = 1695
End
Begin VB.ComboBox combobuyerid
Height = 300
Left = 1560
TabIndex = 51
Top = 1560
Width = 1695
End
Begin VB.ComboBox combolounum
Height = 300
Left = 1560
TabIndex = 50
Top = 1200
Width = 1695
End
Begin VB.TextBox txtinput
Height = 375
Left = 4440
TabIndex = 47
Top = 4560
Visible = 0 'False
Width = 2055
End
Begin VB.PictureBox gridhetong
Height = 2775
Left = 120
ScaleHeight = 2715
ScaleWidth = 8475
TabIndex = 42
Top = 3600
Width = 8535
End
Begin VB.TextBox txtbank
Height = 270
Left = 7320
TabIndex = 40
Top = 3000
Width = 1335
End
Begin VB.TextBox txtbasep
Height = 270
Left = 7320
TabIndex = 39
Top = 2640
Width = 1335
End
Begin VB.TextBox txtbasenum
Height = 270
Left = 7320
TabIndex = 38
Top = 1920
Width = 1335
End
Begin VB.TextBox txtcheweip
Height = 270
Left = 4800
TabIndex = 37
Top = 2640
Width = 1335
End
Begin VB.TextBox txtcheweinum
Height = 270
Left = 7320
TabIndex = 36
Top = 1560
Width = 1335
End
Begin VB.ComboBox combofukuan
Height = 300
Left = 4800
TabIndex = 35
Top = 3000
Width = 1335
End
Begin VB.TextBox txtcashzhekou
Height = 270
Left = 7320
TabIndex = 34
Top = 2280
Width = 1335
End
Begin VB.TextBox txtzhekou
Height = 270
Left = 4800
TabIndex = 32
Top = 2280
Width = 975
End
Begin VB.PictureBox DTPicker2
Height = 255
Left = 4800
ScaleHeight = 195
ScaleWidth = 1395
TabIndex = 28
Top = 840
Width = 1455
End
Begin VB.TextBox txtprice
Enabled = 0 'False
Height = 270
Left = 1560
TabIndex = 24
Top = 2280
Width = 1695
End
Begin VB.PictureBox DTPicker1
Height = 255
Left = 1560
ScaleHeight = 195
ScaleWidth = 1635
TabIndex = 23
Top = 840
Width = 1695
End
Begin VB.Label Label30
AutoSize = -1 'True
BackColor = &H00C0FFFF&
Caption = "输入预计付款的时间和金额："
Height = 180
Left = 120
TabIndex = 41
Top = 3360
Width = 2340
End
Begin VB.Label Label29
AutoSize = -1 'True
BackColor = &H00C0FFFF&
Caption = "%"
Height = 180
Left = 5880
TabIndex = 33
Top = 2280
Width = 90
End
Begin VB.Label Label28
BackColor = &H00C0E0FF&
Height = 255
Left = 4800
TabIndex = 31
Top = 1920
Width = 1335
End
Begin VB.Label Label27
BackColor = &H00C0E0FF&
Height = 255
Left = 4800
TabIndex = 30
Top = 1560
Width = 1335
End
Begin VB.Label Label26
BackColor = &H00C0E0FF&
Height = 255
Left = 4800
TabIndex = 29
Top = 1200
Width = 3855
End
Begin VB.Label Label25
BackColor = &H00C0FFFF&
ForeColor = &H000000FF&
Height = 255
Left = 4800
TabIndex = 27
Top = 480
Width = 1095
End
Begin VB.Label Label24
BackColor = &H00C0E0FF&
Height = 255
Left = 1560
TabIndex = 26
Top = 3000
Width = 1695
End
Begin VB.Label Label23
BackColor = &H00C0E0FF&
Height = 255
Left = 1560
TabIndex = 25
Top = 2640
Width = 1695
End
Begin VB.Label Label22
BackColor = &H00C0E0FF&
Height = 255
Left = 1560
TabIndex = 22
Top = 480
Width = 975
End
Begin VB.Label Label21
AutoSize = -1 'True
BackColor = &H00C0FFFF&
Caption = "贷款银行："
Height = 180
Left = 6360
TabIndex = 21
Top = 3000
Width = 900
End
Begin VB.Label Label20
AutoSize = -1 'True
BackColor = &H00C0FFFF&
Caption = "地下室价款："
Height = 180
Left = 6240
TabIndex = 20
Top = 2640
Width = 1080
End
Begin VB.Label Label19
AutoSize = -1 'True
BackColor = &H00C0FFFF&
Caption = "现金折扣："
Height = 180
Left = 6360
TabIndex = 19
Top = 2280
Width = 900
End
Begin VB.Label Label18
AutoSize = -1 'True
BackColor = &H00C0FFFF&
Caption = "地下室编号："
Height = 180
Left = 6240
TabIndex = 18
Top = 1920
Width = 1080
End
Begin VB.Label Label17
AutoSize = -1 'True
BackColor = &H00C0FFFF&
Caption = "车位编号："
Height = 180
Left = 6360
TabIndex = 17
Top = 1560
Width = 900
End
Begin VB.Label Label16
AutoSize = -1 'True
BackColor = &H00C0FFFF&
Caption = "付款方式："
Height = 180
Left = 3720
TabIndex = 16
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?