📄 客户信息.frm
字号:
VERSION 5.00
Object = "{E95A2510-F3D1-416D-823B-4F840FE98091}#3.0#0"; "Command.ocx"
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.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 客户信息
BackColor = &H00C0C0FF&
BorderStyle = 3 'Fixed Dialog
Caption = "客户信息"
ClientHeight = 6285
ClientLeft = 3375
ClientTop = 2685
ClientWidth = 9135
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6285
ScaleWidth = 9135
ShowInTaskbar = 0 'False
Begin VB.TextBox Txtroom3
DataField = "房号"
DataSource = "Adodc3"
ForeColor = &H00FF0000&
Height = 270
Left = 4560
TabIndex = 113
Top = 120
Width = 975
End
Begin VB.TextBox Txtroom
DataField = "房号"
DataSource = "Adodc1"
Enabled = 0 'False
ForeColor = &H00FF0000&
Height = 270
Left = 4560
TabIndex = 81
Top = 120
Width = 975
End
Begin VB.TextBox Txtroom2
DataField = "房号"
DataSource = "Adodc2"
ForeColor = &H00FF0000&
Height = 270
Left = 4560
TabIndex = 26
Top = 120
Width = 975
End
Begin TabDlg.SSTab SSTab1
Height = 5655
Left = 3120
TabIndex = 8
Top = 600
Width = 6015
_ExtentX = 10610
_ExtentY = 9975
_Version = 393216
Style = 1
Tabs = 4
Tab = 3
TabsPerRow = 4
TabHeight = 520
BackColor = 12632319
ForeColor = 16711680
TabCaption(0) = " 业主信息 "
TabPicture(0) = "客户信息.frx":0000
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Label6"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label7"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Label8"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Label9"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Label10"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Label11"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Label12"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Label13"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "Label14"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "Label15"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "Label16"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "Label17"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "Label18"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "Label19"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "Cmdadd"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "Cmdsave"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "Cmdback"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "Cmdexit"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "Txtnumber"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "Txtname"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "Cmbsex"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "Cmbtype"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "DTP1"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "Cmbprivd"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "Cmbcity"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "Cmbfile"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).Control(26)= "Txtfilenumber"
Tab(0).Control(26).Enabled= 0 'False
Tab(0).Control(27)= "Txtman"
Tab(0).Control(27).Enabled= 0 'False
Tab(0).Control(28)= "Txtpho"
Tab(0).Control(28).Enabled= 0 'False
Tab(0).Control(29)= "Txtnotic"
Tab(0).Control(29).Enabled= 0 'False
Tab(0).Control(30)= "DataGrid6"
Tab(0).Control(30).Enabled= 0 'False
Tab(0).ControlCount= 31
TabCaption(1) = " 租户信息 "
TabPicture(1) = "客户信息.frx":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label20"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Label21"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Label22"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Label23"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Label24"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Label25"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Label26"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Label27"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).Control(8)= "Label28"
Tab(1).Control(8).Enabled= 0 'False
Tab(1).Control(9)= "Label29"
Tab(1).Control(9).Enabled= 0 'False
Tab(1).Control(10)= "Label30"
Tab(1).Control(10).Enabled= 0 'False
Tab(1).Control(11)= "Label31"
Tab(1).Control(11).Enabled= 0 'False
Tab(1).Control(12)= "Label32"
Tab(1).Control(12).Enabled= 0 'False
Tab(1).Control(13)= "Label33"
Tab(1).Control(13).Enabled= 0 'False
Tab(1).Control(14)= "DataGrid7"
Tab(1).Control(14).Enabled= 0 'False
Tab(1).Control(15)= "DTP2"
Tab(1).Control(15).Enabled= 0 'False
Tab(1).Control(16)= "Cmdexit2"
Tab(1).Control(16).Enabled= 0 'False
Tab(1).Control(17)= "Cmdback2"
Tab(1).Control(17).Enabled= 0 'False
Tab(1).Control(18)= "Cmdsave2"
Tab(1).Control(18).Enabled= 0 'False
Tab(1).Control(19)= "Cmdadd2"
Tab(1).Control(19).Enabled= 0 'False
Tab(1).Control(20)= "Txtnumber2"
Tab(1).Control(20).Enabled= 0 'False
Tab(1).Control(21)= "Txtname2"
Tab(1).Control(21).Enabled= 0 'False
Tab(1).Control(22)= "Cmbsex2"
Tab(1).Control(22).Enabled= 0 'False
Tab(1).Control(23)= "Cmbtype2"
Tab(1).Control(23).Enabled= 0 'False
Tab(1).Control(24)= "Cmbprivd2"
Tab(1).Control(24).Enabled= 0 'False
Tab(1).Control(25)= "Cmbcity2"
Tab(1).Control(25).Enabled= 0 'False
Tab(1).Control(26)= "Cmbfile2"
Tab(1).Control(26).Enabled= 0 'False
Tab(1).Control(27)= "Txtfilenumber2"
Tab(1).Control(27).Enabled= 0 'False
Tab(1).Control(28)= "Txtman2"
Tab(1).Control(28).Enabled= 0 'False
Tab(1).Control(29)= "Txtpho2"
Tab(1).Control(29).Enabled= 0 'False
Tab(1).Control(30)= "Txtnotic2"
Tab(1).Control(30).Enabled= 0 'False
Tab(1).ControlCount= 31
TabCaption(2) = " 浏览全部资料 "
TabPicture(2) = "客户信息.frx":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Text1"
Tab(2).Control(1)= "Adodc5"
Tab(2).Control(2)= "DataGrid5"
Tab(2).Control(3)= "Frame2"
Tab(2).Control(4)= "Cmdexit4"
Tab(2).Control(5)= "Cmddelete4"
Tab(2).Control(6)= "DataCombo1"
Tab(2).ControlCount= 7
TabCaption(3) = " 铺位信息 "
TabPicture(3) = "客户信息.frx":0054
Tab(3).ControlEnabled= -1 'True
Tab(3).Control(0)= "Label5"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).Control(1)= "Label34"
Tab(3).Control(1).Enabled= 0 'False
Tab(3).Control(2)= "Label35"
Tab(3).Control(2).Enabled= 0 'False
Tab(3).Control(3)= "Label36"
Tab(3).Control(3).Enabled= 0 'False
Tab(3).Control(4)= "Label37"
Tab(3).Control(4).Enabled= 0 'False
Tab(3).Control(5)= "Label38"
Tab(3).Control(5).Enabled= 0 'False
Tab(3).Control(6)= "Label39"
Tab(3).Control(6).Enabled= 0 'False
Tab(3).Control(7)= "Label40"
Tab(3).Control(7).Enabled= 0 'False
Tab(3).Control(8)= "Label41"
Tab(3).Control(8).Enabled= 0 'False
Tab(3).Control(9)= "Label42"
Tab(3).Control(9).Enabled= 0 'False
Tab(3).Control(10)= "Label43"
Tab(3).Control(10).Enabled= 0 'False
Tab(3).Control(11)= "Label44"
Tab(3).Control(11).Enabled= 0 'False
Tab(3).Control(12)= "Label45"
Tab(3).Control(12).Enabled= 0 'False
Tab(3).Control(13)= "DTP3"
Tab(3).Control(13).Enabled= 0 'False
Tab(3).Control(14)= "Cmdexit3"
Tab(3).Control(14).Enabled= 0 'False
Tab(3).Control(15)= "Cmdback3"
Tab(3).Control(15).Enabled= 0 'False
Tab(3).Control(16)= "Cmdsave3"
Tab(3).Control(16).Enabled= 0 'False
Tab(3).Control(17)= "Cmdadd3"
Tab(3).Control(17).Enabled= 0 'False
Tab(3).Control(18)= "Txtnotic3"
Tab(3).Control(18).Enabled= 0 'False
Tab(3).Control(19)= "Txtpho3"
Tab(3).Control(19).Enabled= 0 'False
Tab(3).Control(20)= "Txtman3"
Tab(3).Control(20).Enabled= 0 'False
Tab(3).Control(21)= "Txtfilenumber3"
Tab(3).Control(21).Enabled= 0 'False
Tab(3).Control(22)= "Cmbfile3"
Tab(3).Control(22).Enabled= 0 'False
Tab(3).Control(23)= "Cmbcity3"
Tab(3).Control(23).Enabled= 0 'False
Tab(3).Control(24)= "Cmbprivd3"
Tab(3).Control(24).Enabled= 0 'False
Tab(3).Control(25)= "Cmbtype3"
Tab(3).Control(25).Enabled= 0 'False
Tab(3).Control(26)= "Cmbsex3"
Tab(3).Control(26).Enabled= 0 'False
Tab(3).Control(27)= "Txtname3"
Tab(3).Control(27).Enabled= 0 'False
Tab(3).Control(28)= "Txtnumber3"
Tab(3).Control(28).Enabled= 0 'False
Tab(3).ControlCount= 29
Begin VB.TextBox Text1
DataField = "房号"
DataSource = "Adodc5"
Height = 375
Left = -74040
TabIndex = 114
Top = 4320
Width = 1095
End
Begin VB.TextBox Txtnumber3
Height = 270
Left = 960
TabIndex = 94
Top = 840
Width = 1095
End
Begin VB.TextBox Txtname3
DataField = "住户名称"
DataSource = "Adodc3"
Height = 270
Left = 3120
TabIndex = 93
Top = 840
Width = 1095
End
Begin VB.ComboBox Cmbsex3
Height = 300
ItemData = "客户信息.frx":0070
Left = 4920
List = "客户信息.frx":007A
TabIndex = 92
Top = 840
Width = 855
End
Begin VB.ComboBox Cmbtype3
Height = 300
ItemData = "客户信息.frx":0086
Left = 960
List = "客户信息.frx":008D
TabIndex = 91
Top = 1320
Width = 1095
End
Begin VB.ComboBox Cmbprivd3
Height = 300
ItemData = "客户信息.frx":0097
Left = 960
List = "客户信息.frx":009E
TabIndex = 90
Top = 1800
Width = 1695
End
Begin VB.ComboBox Cmbcity3
Height = 300
ItemData = "客户信息.frx":00A8
Left = 3120
List = "客户信息.frx":00AF
TabIndex = 89
Top = 1800
Width = 1695
End
Begin VB.ComboBox Cmbfile3
Height = 300
ItemData = "客户信息.frx":00B9
Left = 960
List = "客户信息.frx":00C9
TabIndex = 88
Top = 2280
Width = 1095
End
Begin VB.TextBox Txtfilenumber3
Height = 270
Left = 3120
TabIndex = 87
Top = 2280
Width = 2655
End
Begin VB.TextBox Txtman3
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -