📄 frmkhgl.frm
字号:
VERSION 5.00
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#2.0#0"; "resize32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{0B81E4A9-BE4E-4AEF-9272-33AB5B51C6FC}#1.0#0"; "XPControls.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form FrmKHGL
BackColor = &H80000018&
Caption = "客户管理"
ClientHeight = 7635
ClientLeft = 60
ClientTop = 345
ClientWidth = 11220
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "FrmKHGL.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 7635
ScaleWidth = 11220
WindowState = 2 'Maximized
Begin VB.Frame Frame1
BackColor = &H80000018&
Caption = "客户列表"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 7455
Left = 60
TabIndex = 77
Top = 90
Width = 4215
Begin MSComctlLib.ListView lvwDW
Height = 7110
Left = 90
TabIndex = 78
Top = 240
Width = 4020
_ExtentX = 7091
_ExtentY = 12541
View = 3
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = 12648384
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 3
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "DWID"
Object.Width = 0
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "客户名称"
Object.Width = 7056
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "联系人"
Object.Width = 1940
EndProperty
End
End
Begin VB.Frame Frame2
BackColor = &H80000018&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 810
Left = 4380
TabIndex = 0
Top = 6750
Width = 6720
Begin XPControls.XPCommandButton cmdCancel
Cancel = -1 'True
Height = 375
Left = 5580
TabIndex = 1
Top = 255
Width = 1005
_ExtentX = 1773
_ExtentY = 661
Caption = "退出"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdDelete
Height = 375
Left = 4230
TabIndex = 2
Top = 255
Width = 1005
_ExtentX = 1773
_ExtentY = 661
Caption = "删除"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdSave
Height = 375
Left = 2895
TabIndex = 3
Top = 255
Width = 1005
_ExtentX = 1773
_ExtentY = 661
Caption = "保存"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdAdd
Height = 375
Left = 210
TabIndex = 4
Top = 255
Width = 1005
_ExtentX = 1773
_ExtentY = 661
Caption = "添加"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdModify
Height = 375
Left = 1545
TabIndex = 5
Top = 255
Width = 1005
_ExtentX = 1773
_ExtentY = 661
Caption = "修改"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin ResizeLibCtl.ReSize ReSize1
Left = 4200
Top = 6270
_Version = 131072
_ExtentX = 741
_ExtentY = 741
_StockProps = 0
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
FormDesignHeight= 7635
FormDesignWidth = 11220
End
Begin TabDlg.SSTab SSTab1
Height = 6585
Left = 4380
TabIndex = 6
Top = 90
Width = 6735
_ExtentX = 11880
_ExtentY = 11615
_Version = 393216
Tabs = 4
TabsPerRow = 4
TabHeight = 520
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "基本信息"
TabPicture(0) = "FrmKHGL.frx":1982
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Frame3"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "联系方式"
TabPicture(1) = "FrmKHGL.frx":199E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame4"
Tab(1).ControlCount= 1
TabCaption(2) = "竟争对手"
TabPicture(2) = "FrmKHGL.frx":19BA
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame5"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).ControlCount= 1
TabCaption(3) = "合作情况"
TabPicture(3) = "FrmKHGL.frx":19D6
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Frame6"
Tab(3).ControlCount= 1
Begin VB.Frame Frame3
BackColor = &H80000018&
Height = 6075
Left = 120
TabIndex = 53
Top = 360
Width = 6465
Begin VB.TextBox txtTDWMC
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1600
TabIndex = 64
Top = 810
Width = 4600
End
Begin VB.TextBox txtTLXDZ
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1600
TabIndex = 63
Top = 1290
Width = 4600
End
Begin VB.TextBox txtTYWYH
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1600
TabIndex = 62
Top = 4620
Width = 4600
End
Begin VB.TextBox txtTYHZH
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 1600
TabIndex = 61
Top = 5100
Width = 4600
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -