📄 unit_compmana.dfm
字号:
object Frm_CompMana: TFrm_CompMana
Left = 215
Top = 144
Width = 681
Height = 469
Caption = '竞争对手档案管理'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
FormStyle = fsMDIChild
KeyPreview = True
OldCreateOrder = False
Position = poMainFormCenter
Visible = True
WindowState = wsMaximized
OnClose = FormClose
OnKeyDown = FormKeyDown
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 14
object Label16: TLabel
Left = 40
Top = 131
Width = 56
Height = 14
Caption = '开始时间'
end
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 673
Height = 401
ActivePage = TabSheet1
Align = alClient
Style = tsFlatButtons
TabOrder = 0
OnChange = PageControl1Change
OnChanging = PageControl1Changing
object TabSheet1: TTabSheet
Caption = '对手资料'
object Panel1: TPanel
Left = 0
Top = 0
Width = 665
Height = 369
Align = alClient
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 0
object LabelCompCode: TLabel
Left = 120
Top = 331
Width = 84
Height = 14
Caption = '竞争对手编号'
Visible = False
end
object Label1: TLabel
Left = 11
Top = 323
Width = 28
Height = 14
Caption = '地市'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 160
Top = 323
Width = 28
Height = 14
Caption = '局向'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 296
Top = 323
Width = 84
Height = 14
Caption = '竞争对手名称'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 11
Top = 349
Width = 28
Height = 14
Caption = '备注'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object DBGridCompetitor: TDBGrid
Left = 0
Top = 1
Width = 664
Height = 312
DataSource = DataSourceCompetitor
ImeName = '中文 (简体) - 郑码'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'CompCode'
Title.Caption = '编号'
Visible = False
end
item
Expanded = False
FieldName = '地市'
Width = 119
Visible = True
end
item
Expanded = False
FieldName = '局向'
Width = 165
Visible = True
end
item
Expanded = False
FieldName = '对手名称'
Width = 185
Visible = True
end
item
Expanded = False
FieldName = '备注'
Width = 155
Visible = True
end>
end
object FlatComboBoxCity: TFlatComboBox
Left = 41
Top = 318
Width = 82
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
TabOrder = 1
ItemIndex = -1
end
object FlatComboBoxCounty: TFlatComboBox
Left = 191
Top = 318
Width = 81
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
TabOrder = 2
ItemIndex = -1
end
object FlatEditCompName: TFlatEdit
Tag = 1
Left = 383
Top = 319
Width = 274
Height = 20
ColorFlat = clBtnFace
ParentColor = True
MaxLength = 60
TabOrder = 3
end
object FlatEditDesc: TFlatEdit
Tag = 1
Left = 42
Top = 345
Width = 615
Height = 20
ColorFlat = clBtnFace
ParentColor = True
MaxLength = 200
TabOrder = 4
end
end
end
object TabSheet2: TTabSheet
Caption = '对手营销策略'
ImageIndex = 1
object Panel3: TPanel
Left = 0
Top = 0
Width = 665
Height = 369
Align = alClient
BevelInner = bvLowered
BevelOuter = bvNone
TabOrder = 0
object Label7: TLabel
Left = 299
Top = 13
Width = 28
Height = 14
Caption = '地市'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 488
Top = 13
Width = 28
Height = 14
Caption = '局向'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 299
Top = 43
Width = 84
Height = 14
Caption = '竞争对手名称'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object LabelPolicyCode: TLabel
Left = 408
Top = 131
Width = 56
Height = 14
Caption = '策略编号'
Visible = False
end
object Label11: TLabel
Left = 300
Top = 75
Width = 84
Height = 14
Caption = '经营策略标题'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 302
Top = 131
Width = 84
Height = 14
Caption = '经营策略内容'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 300
Top = 106
Width = 56
Height = 14
Caption = '开始时间'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 488
Top = 106
Width = 56
Height = 14
Caption = '结束时间'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 8
Top = 11
Width = 84
Height = 14
Caption = '竞争对手名称'
end
object Label15: TLabel
Left = 8
Top = 46
Width = 84
Height = 14
Caption = '经营策略标题'
end
object Label17: TLabel
Left = 32
Top = 81
Width = 56
Height = 14
Caption = '开始时间'
end
object Label18: TLabel
Left = 72
Top = 36
Width = 56
Height = 14
Caption = '结束时间'
Visible = False
end
object Bevel1: TBevel
Left = 291
Top = 1
Width = 7
Height = 365
Shape = bsLeftLine
end
object DBGrid2: TDBGrid
Left = 4
Top = 151
Width = 277
Height = 215
DataSource = DataSourceCompPolicy
ImeName = '中文 (简体) - 郑码'
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = '宋体'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'POLICYCODE'
Visible = False
end
item
Expanded = False
FieldName = '对手名称'
Width = 84
Visible = True
end
item
Expanded = False
FieldName = '营销策略标题'
Width = 90
Visible = True
end
item
Expanded = False
FieldName = '开始时间'
Width = 112
Visible = True
end
item
Expanded = False
FieldName = '结束时间'
Width = 84
Visible = True
end
item
Expanded = False
FieldName = '经营策略内容'
Width = 167
Visible = True
end>
end
object FlatComboBoxCity2: TFlatComboBox
Left = 334
Top = 8
Width = 135
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
TabOrder = 1
ItemIndex = -1
end
object FlatComboBoxCounty2: TFlatComboBox
Left = 520
Top = 8
Width = 134
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
TabOrder = 2
ItemIndex = -1
end
object FlatEditCompName2: TFlatComboBox
Tag = 1
Left = 391
Top = 40
Width = 265
Height = 22
Style = csDropDownList
Color = clWindow
ItemHeight = 14
MaxLength = 60
TabOrder = 3
ItemIndex = -1
OnChange = FlatEditCompName2Change
end
object FlatEditPolicy: TFlatEdit
Tag = 1
Left = 392
Top = 72
Width = 265
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -