📄 frm_khzlgl.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frm_KHZLGL
Caption = "客户资料管理"
ClientHeight = 8595
ClientLeft = -4590
ClientTop = 450
ClientWidth = 11880
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 8595
ScaleWidth = 11880
Begin TabDlg.SSTab SSTab1
Height = 6300
Left = 0
TabIndex = 1
Top = 840
Width = 11790
_ExtentX = 20796
_ExtentY = 11113
_Version = 393216
Tabs = 5
TabsPerRow = 5
TabHeight = 476
WordWrap = 0 'False
TabCaption(0) = "客户资料管理"
TabPicture(0) = "frm_KHZLGL.frx":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Text94"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Adodc1"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "DataGrid1"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).ControlCount= 4
TabCaption(1) = "客户房屋购订资料管理"
TabPicture(1) = "frm_KHZLGL.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Adodc6"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Text100"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Text98"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Text96"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Text95"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Text99"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Adodc2"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Adodc4"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "Frame2"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "DataGrid2"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "Frame3"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).ControlCount= 11
TabCaption(2) = "客户房屋购订付款安排"
TabPicture(2) = "frm_KHZLGL.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Label98"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Adodc5"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Text101"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "DataGrid3"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "Frame4"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).Control(5)= "Frame5"
Tab(2).Control(5).Enabled= 0 'False
Tab(2).ControlCount= 6
TabCaption(3) = "客户房屋购订的付款记录"
TabPicture(3) = "frm_KHZLGL.frx":0054
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Frame6"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).Control(1)= "Frame7"
Tab(3).Control(1).Enabled= 0 'False
Tab(3).Control(2)= "DataGrid4"
Tab(3).Control(2).Enabled= 0 'False
Tab(3).ControlCount= 3
TabCaption(4) = "给客户退款的记录"
TabPicture(4) = "frm_KHZLGL.frx":0070
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Adodc3"
Tab(4).Control(0).Enabled= 0 'False
Tab(4).Control(1)= "Frame8"
Tab(4).Control(1).Enabled= 0 'False
Tab(4).Control(2)= "Frame9"
Tab(4).Control(2).Enabled= 0 'False
Tab(4).Control(3)= "DataGrid5"
Tab(4).Control(3).Enabled= 0 'False
Tab(4).ControlCount= 4
Begin VB.Frame Frame5
Height = 1150
Left = -74880
TabIndex = 117
Top = 1080
Width = 11535
Begin VB.TextBox Text97
Height = 300
Left = 1080
TabIndex = 223
Top = 750
Width = 1575
End
Begin MSComCtl2.DTPicker DTPicker3
Height = 300
Left = 3720
TabIndex = 219
Top = 430
Width = 1575
_ExtentX = 2778
_ExtentY = 529
_Version = 393216
Format = 48955393
CurrentDate = 38120
End
Begin VB.TextBox Text58
Height = 300
Left = 6360
Locked = -1 'True
TabIndex = 218
Top = 120
Width = 1335
End
Begin VB.TextBox Text57
Height = 300
Left = 3720
Locked = -1 'True
TabIndex = 217
Top = 120
Width = 1575
End
Begin VB.TextBox Text56
Height = 300
Left = 1080
Locked = -1 'True
TabIndex = 216
Top = 120
Width = 1575
End
Begin VB.TextBox Text67
Height = 300
Left = 8520
Locked = -1 'True
TabIndex = 144
Top = 720
Width = 2895
End
Begin VB.TextBox Text66
Height = 300
Left = 6360
Locked = -1 'True
TabIndex = 142
Top = 750
Width = 1335
End
Begin VB.TextBox Text65
Height = 300
Left = 3720
Locked = -1 'True
TabIndex = 140
Top = 750
Width = 1575
End
Begin VB.TextBox Text64
Height = 300
Left = 8520
Locked = -1 'True
TabIndex = 138
Top = 430
Width = 2895
End
Begin VB.TextBox Text63
Height = 300
Left = 6360
Locked = -1 'True
TabIndex = 136
Top = 430
Width = 1335
End
Begin VB.TextBox Text61
Height = 300
Left = 1080
TabIndex = 133
Top = 430
Width = 1575
End
Begin VB.TextBox Text60
Height = 300
Left = 10440
Locked = -1 'True
TabIndex = 131
Top = 120
Width = 975
End
Begin VB.TextBox Text59
Height = 300
Left = 8520
Locked = -1 'True
TabIndex = 129
Top = 120
Width = 1095
End
Begin VB.Label Label99
Caption = "本次付款"
Height = 255
Left = 120
TabIndex = 222
Top = 840
Width = 735
End
Begin VB.Label Label70
Caption = "备注"
Height = 255
Left = 7800
TabIndex = 143
Top = 840
Width = 735
End
Begin VB.Label Label69
Caption = "未付金额"
Height = 255
Left = 5400
TabIndex = 141
Top = 840
Width = 975
End
Begin VB.Label Label68
Caption = "已付金额"
Height = 255
Left = 2760
TabIndex = 139
Top = 840
Width = 1215
End
Begin VB.Label Label67
Caption = "应付金额"
Height = 255
Left = 7800
TabIndex = 137
Top = 540
Width = 735
End
Begin VB.Label Label66
Caption = "付款方式"
Height = 255
Left = 5400
TabIndex = 135
Top = 540
Width = 975
End
Begin VB.Label Label65
Caption = "付款日期"
Height = 255
Left = 2760
TabIndex = 134
Top = 540
Width = 975
End
Begin VB.Label Label64
Caption = "付款款项"
Height = 255
Left = 120
TabIndex = 132
Top = 540
Width = 855
End
Begin VB.Label Label63
Caption = "房号"
Height = 255
Left = 9720
TabIndex = 130
Top = 240
Width = 615
End
Begin VB.Label Label62
Caption = "楼层"
Height = 255
Left = 7800
TabIndex = 128
Top = 225
Width = 615
End
Begin VB.Label Label61
Caption = "楼房单元"
Height = 375
Left = 5400
TabIndex = 127
Top = 220
Width = 735
End
Begin VB.Label Label60
Caption = "楼房名称"
Height = 255
Left = 2760
TabIndex = 126
Top = 220
Width = 855
End
Begin VB.Label Label59
Caption = "楼盘名称"
Height = 255
Left = 120
TabIndex = 125
Top = 220
Width = 1095
End
End
Begin VB.Frame Frame3
Height = 2415
Left = -74880
TabIndex = 62
Top = 1080
Width = 11535
Begin VB.CommandButton Command12
Caption = "<<"
Height = 320
Left = 11040
TabIndex = 215
Top = 430
Width = 380
End
Begin VB.TextBox Text52
DataField = "销售代表"
DataSource = "Adodc6"
Height = 300
Left = 6720
TabIndex = 115
Text = "Text52"
Top = 2010
Width = 1575
End
Begin VB.TextBox Text51
DataField = "销售备注"
DataSource = "Adodc6"
Height = 300
Left = 1080
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -