1190 lines
32 KiB
Plaintext
1190 lines
32 KiB
Plaintext
object frmZdyAttInputCP_CB: TfrmZdyAttInputCP_CB
|
|
Left = 300
|
|
Top = 110
|
|
Width = 1479
|
|
Height = 748
|
|
Caption = #20135#21697#36164#26009#24405#20837
|
|
Color = clBtnFace
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = #23435#20307
|
|
Font.Style = []
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
OnDestroy = FormDestroy
|
|
OnShow = FormShow
|
|
PixelsPerInch = 96
|
|
TextHeight = 12
|
|
object Label17: TLabel
|
|
Left = 32
|
|
Top = 96
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #20960' '#39068' '#33394
|
|
end
|
|
object Label9: TLabel
|
|
Left = 836
|
|
Top = 124
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #25104#20154#25104#26412
|
|
end
|
|
object ToolBar1: TToolBar
|
|
Left = 0
|
|
Top = 0
|
|
Width = 1463
|
|
Height = 30
|
|
ButtonHeight = 30
|
|
ButtonWidth = 59
|
|
Caption = 'ToolBar1'
|
|
Color = clSkyBlue
|
|
DisabledImages = DataLink_BaseInfo.ThreeImgList
|
|
Flat = True
|
|
Images = DataLink_BaseInfo.ThreeImgList
|
|
List = True
|
|
ParentColor = False
|
|
ShowCaptions = True
|
|
TabOrder = 0
|
|
object Tsave: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #20445#23384
|
|
ImageIndex = 14
|
|
OnClick = TsaveClick
|
|
end
|
|
object TBClose: TToolButton
|
|
Left = 63
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #20851#38381
|
|
ImageIndex = 55
|
|
OnClick = TBCloseClick
|
|
end
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Top = 30
|
|
Width = 1463
|
|
Height = 679
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 1
|
|
object GroupBox1: TGroupBox
|
|
Left = 0
|
|
Top = 0
|
|
Width = 1463
|
|
Height = 281
|
|
Align = alTop
|
|
Color = clSkyBlue
|
|
Enabled = False
|
|
ParentColor = False
|
|
TabOrder = 0
|
|
object Label1: TLabel
|
|
Left = 36
|
|
Top = 28
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #20135#21697#32534#21495
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clBlue
|
|
Font.Height = -12
|
|
Font.Name = #23435#20307
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 249
|
|
Top = 28
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #20135#21697#21517#31216
|
|
end
|
|
object Label3: TLabel
|
|
Left = 36
|
|
Top = 53
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #31867' '#22411
|
|
end
|
|
object Label6: TLabel
|
|
Left = 249
|
|
Top = 53
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #35268' '#26684
|
|
end
|
|
object Label13: TLabel
|
|
Left = 459
|
|
Top = 16
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #20135#21697#22270#29255
|
|
end
|
|
object Label12: TLabel
|
|
Left = 36
|
|
Top = 78
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #25104' '#20998
|
|
end
|
|
object Label39: TLabel
|
|
Left = 249
|
|
Top = 77
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #23494' '#24230
|
|
end
|
|
object Label4: TLabel
|
|
Left = 1077
|
|
Top = 161
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #20811' '#37325
|
|
Visible = False
|
|
end
|
|
object Label5: TLabel
|
|
Left = 864
|
|
Top = 162
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #38376' '#24133
|
|
Visible = False
|
|
end
|
|
object Label7: TLabel
|
|
Left = 36
|
|
Top = 174
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #22791' '#27880
|
|
end
|
|
object Label8: TLabel
|
|
Left = 816
|
|
Top = 60
|
|
Width = 68
|
|
Height = 16
|
|
Caption = #25104#20154#25104#26412
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label10: TLabel
|
|
Left = 816
|
|
Top = 92
|
|
Width = 68
|
|
Height = 16
|
|
Caption = #20799#31461#25104#26412
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
end
|
|
object Label11: TLabel
|
|
Left = 36
|
|
Top = 106
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #19968#32423#20215#26684
|
|
end
|
|
object Label14: TLabel
|
|
Left = 238
|
|
Top = 102
|
|
Width = 60
|
|
Height = 12
|
|
Caption = #20108#32423#25104#20154#20215
|
|
end
|
|
object Label15: TLabel
|
|
Left = 36
|
|
Top = 128
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #19977#32423#20215#26684
|
|
end
|
|
object Label16: TLabel
|
|
Left = 36
|
|
Top = 154
|
|
Width = 48
|
|
Height = 12
|
|
Caption = #23450#21046#20215#26684
|
|
end
|
|
object Label18: TLabel
|
|
Left = 241
|
|
Top = 130
|
|
Width = 60
|
|
Height = 12
|
|
Caption = #20108#32423#20799#31461#20215
|
|
end
|
|
object Label19: TLabel
|
|
Left = 243
|
|
Top = 154
|
|
Width = 54
|
|
Height = 12
|
|
Caption = #39068' '#33394
|
|
end
|
|
object zdyCode: TEdit
|
|
Tag = 2
|
|
Left = 88
|
|
Top = 24
|
|
Width = 140
|
|
Height = 20
|
|
ReadOnly = True
|
|
TabOrder = 0
|
|
Text = 'zdyCode'
|
|
end
|
|
object zdyName: TEdit
|
|
Tag = 2
|
|
Left = 301
|
|
Top = 24
|
|
Width = 140
|
|
Height = 20
|
|
TabOrder = 1
|
|
Text = 'zdyName'
|
|
end
|
|
object defstr1: TEdit
|
|
Tag = 2
|
|
Left = 301
|
|
Top = 49
|
|
Width = 140
|
|
Height = 20
|
|
TabOrder = 2
|
|
Text = 'Edit1'
|
|
end
|
|
object Picture4: TcxDBImage
|
|
Left = 457
|
|
Top = 29
|
|
Hint = 'FileName'
|
|
DataBinding.DataField = 'FilesOther'
|
|
DataBinding.DataSource = DataSource1
|
|
Properties.GraphicClassName = 'TJPEGImage'
|
|
Properties.ReadOnly = True
|
|
Properties.ShowFocusRect = False
|
|
Style.BorderStyle = ebsSingle
|
|
TabOrder = 3
|
|
OnDblClick = cxDBImage1DblClick
|
|
Height = 220
|
|
Width = 316
|
|
end
|
|
object FileName: TcxButton
|
|
Left = 457
|
|
Top = 248
|
|
Width = 75
|
|
Height = 25
|
|
Hint = 'Filesother'
|
|
Caption = #21152#36733#22270#29255
|
|
TabOrder = 4
|
|
Visible = False
|
|
OnClick = FileNameClick
|
|
LookAndFeel.Kind = lfOffice11
|
|
end
|
|
object defstr2: TEdit
|
|
Tag = 2
|
|
Left = 88
|
|
Top = 74
|
|
Width = 140
|
|
Height = 20
|
|
TabOrder = 5
|
|
Text = 'Edit1'
|
|
end
|
|
object defnote2: TEdit
|
|
Tag = 2
|
|
Left = 301
|
|
Top = 73
|
|
Width = 140
|
|
Height = 20
|
|
TabOrder = 6
|
|
Text = 'Edit1'
|
|
end
|
|
object defstr8: TEdit
|
|
Tag = 2
|
|
Left = 1129
|
|
Top = 157
|
|
Width = 140
|
|
Height = 20
|
|
TabOrder = 7
|
|
Text = 'defstr8'
|
|
Visible = False
|
|
end
|
|
object defstr7: TEdit
|
|
Tag = 2
|
|
Left = 916
|
|
Top = 158
|
|
Width = 140
|
|
Height = 20
|
|
TabOrder = 8
|
|
Text = 'Edit1'
|
|
Visible = False
|
|
end
|
|
object note: TMemo
|
|
Tag = 2
|
|
Left = 88
|
|
Top = 172
|
|
Width = 353
|
|
Height = 101
|
|
Lines.Strings = (
|
|
'note')
|
|
ScrollBars = ssVertical
|
|
TabOrder = 9
|
|
end
|
|
object defstr5: TComboBox
|
|
Tag = 2
|
|
Left = 88
|
|
Top = 48
|
|
Width = 140
|
|
Height = 20
|
|
Style = csDropDownList
|
|
ItemHeight = 12
|
|
TabOrder = 10
|
|
Items.Strings = (
|
|
#33258#24049
|
|
#23458#25143)
|
|
end
|
|
object DefFlt1: TEdit
|
|
Left = 888
|
|
Top = 56
|
|
Width = 121
|
|
Height = 24
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 11
|
|
end
|
|
object DefFlt2: TEdit
|
|
Left = 888
|
|
Top = 88
|
|
Width = 121
|
|
Height = 24
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -16
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 12
|
|
end
|
|
object fprice: TEdit
|
|
Tag = 2
|
|
Left = 90
|
|
Top = 100
|
|
Width = 140
|
|
Height = 20
|
|
TabOrder = 13
|
|
end
|
|
object sprice: TEdit
|
|
Tag = 2
|
|
Left = 300
|
|
Top = 97
|
|
Width = 141
|
|
Height = 20
|
|
TabOrder = 14
|
|
end
|
|
object tprice: TEdit
|
|
Tag = 2
|
|
Left = 90
|
|
Top = 125
|
|
Width = 140
|
|
Height = 20
|
|
TabOrder = 15
|
|
end
|
|
object DZprice: TEdit
|
|
Tag = 2
|
|
Left = 88
|
|
Top = 149
|
|
Width = 141
|
|
Height = 20
|
|
TabOrder = 16
|
|
end
|
|
object seprice: TEdit
|
|
Tag = 2
|
|
Left = 300
|
|
Top = 125
|
|
Width = 141
|
|
Height = 20
|
|
TabOrder = 17
|
|
end
|
|
object CYColor: TBtnEditA
|
|
Left = 300
|
|
Top = 149
|
|
Width = 142
|
|
Height = 20
|
|
TabOrder = 18
|
|
OnBtnClick = CYColorBtnClick
|
|
end
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 281
|
|
Width = 1463
|
|
Height = 398
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel2'
|
|
TabOrder = 1
|
|
object Panel3: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 510
|
|
Height = 398
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel3'
|
|
TabOrder = 0
|
|
object ToolBar2: TToolBar
|
|
Left = 0
|
|
Top = 0
|
|
Width = 510
|
|
Height = 31
|
|
ButtonHeight = 30
|
|
ButtonWidth = 59
|
|
Caption = 'ToolBar1'
|
|
Color = clSkyBlue
|
|
DisabledImages = DataLink_BaseInfo.ThreeImgList
|
|
Flat = True
|
|
Images = DataLink_BaseInfo.ThreeImgList
|
|
List = True
|
|
ParentColor = False
|
|
ShowCaptions = True
|
|
TabOrder = 0
|
|
object ToolButton1: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #22686#21152
|
|
ImageIndex = 22
|
|
OnClick = ToolButton1Click
|
|
end
|
|
object ToolButton2: TToolButton
|
|
Left = 63
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #21024#38500
|
|
ImageIndex = 100
|
|
OnClick = ToolButton2Click
|
|
end
|
|
object ToolButton9: TToolButton
|
|
Left = 126
|
|
Top = 0
|
|
Caption = #22797#21046
|
|
ImageIndex = 51
|
|
OnClick = ToolButton9Click
|
|
end
|
|
object Panel6: TPanel
|
|
Left = 185
|
|
Top = 0
|
|
Width = 185
|
|
Height = 30
|
|
BevelOuter = bvNone
|
|
Caption = #38754#36741#26009#20449#24687
|
|
Color = clSkyBlue
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -12
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object cxGrid1: TcxGrid
|
|
Left = 0
|
|
Top = 31
|
|
Width = 510
|
|
Height = 367
|
|
Align = alClient
|
|
TabOrder = 1
|
|
object TV1: TcxGridDBTableView
|
|
Navigator.Buttons.CustomButtons = <>
|
|
DataController.DataSource = DS1
|
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Kind = skSum
|
|
Column = V1Column3
|
|
end
|
|
item
|
|
Kind = skSum
|
|
Column = V1Column5
|
|
end>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsCustomize.ColumnFiltering = False
|
|
OptionsCustomize.ColumnSorting = False
|
|
OptionsView.Footer = True
|
|
OptionsView.GroupByBox = False
|
|
OptionsView.Indicator = True
|
|
Styles.Header = DataLink_BaseInfo.Default
|
|
object V1Column6: TcxGridDBColumn
|
|
Caption = #20379#24212#21830
|
|
DataBinding.FieldName = 'defstr4'
|
|
PropertiesClassName = 'TcxButtonEditProperties'
|
|
Properties.Buttons = <
|
|
item
|
|
Default = True
|
|
Kind = bkEllipsis
|
|
end>
|
|
Properties.OnButtonClick = V1Column6PropertiesButtonClick
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 96
|
|
end
|
|
object V1Column1: TcxGridDBColumn
|
|
Caption = #38754#36741#26009#21517#31216
|
|
DataBinding.FieldName = 'defstr1'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 100
|
|
end
|
|
object V1Column2: TcxGridDBColumn
|
|
Caption = #25104#20154#29992#26009
|
|
DataBinding.FieldName = 'defstr2'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.OnEditValueChanged = V1Column2PropertiesEditValueChanged
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 80
|
|
end
|
|
object V1Column3: TcxGridDBColumn
|
|
Caption = #25104#20154#36153#29992
|
|
DataBinding.FieldName = 'DefFlt4'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.OnEditValueChanged = V1Column3PropertiesEditValueChanged
|
|
HeaderAlignmentHorz = taCenter
|
|
Styles.Content = DataLink_BaseInfo.FontBlue
|
|
Styles.Footer = DataLink_BaseInfo.FontBlue
|
|
Styles.Header = DataLink_BaseInfo.FontBlue
|
|
Width = 61
|
|
end
|
|
object V1Column4: TcxGridDBColumn
|
|
Caption = #20799#31461#29992#26009
|
|
DataBinding.FieldName = 'defstr3'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.OnEditValueChanged = V1Column4PropertiesEditValueChanged
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 80
|
|
end
|
|
object V1Column5: TcxGridDBColumn
|
|
Caption = #20799#31461#36153#29992
|
|
DataBinding.FieldName = 'DefFlt5'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.OnEditValueChanged = V1Column3PropertiesEditValueChanged
|
|
HeaderAlignmentHorz = taCenter
|
|
Styles.Content = DataLink_BaseInfo.FontBlue
|
|
Styles.Footer = DataLink_BaseInfo.FontBlue
|
|
Styles.Header = DataLink_BaseInfo.FontBlue
|
|
Width = 62
|
|
end
|
|
object TV1Column1: TcxGridDBColumn
|
|
Caption = #21333#20215
|
|
DataBinding.FieldName = 'CBdj'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.OnEditValueChanged = TV1Column1PropertiesEditValueChanged
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 60
|
|
end
|
|
object TV1Column2: TcxGridDBColumn
|
|
Caption = #25439#32791'(%)'
|
|
DataBinding.FieldName = 'CBsh'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.OnEditValueChanged = TV1Column2PropertiesEditValueChanged
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 60
|
|
end
|
|
object TV1Column3: TcxGridDBColumn
|
|
Caption = #39068#33394
|
|
DataBinding.FieldName = 'CBColor'
|
|
PropertiesClassName = 'TcxButtonEditProperties'
|
|
Properties.Buttons = <
|
|
item
|
|
Default = True
|
|
Kind = bkEllipsis
|
|
end>
|
|
Properties.OnButtonClick = TV1Column3PropertiesButtonClick
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 66
|
|
end
|
|
end
|
|
object cxGrid1Level1: TcxGridLevel
|
|
GridView = TV1
|
|
end
|
|
end
|
|
end
|
|
object Panel4: TPanel
|
|
Left = 510
|
|
Top = 0
|
|
Width = 260
|
|
Height = 398
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel3'
|
|
TabOrder = 1
|
|
object ToolBar3: TToolBar
|
|
Left = 0
|
|
Top = 0
|
|
Width = 260
|
|
AutoSize = True
|
|
ButtonHeight = 30
|
|
ButtonWidth = 59
|
|
Caption = 'ToolBar1'
|
|
Color = clSkyBlue
|
|
DisabledImages = DataLink_BaseInfo.ThreeImgList
|
|
Flat = True
|
|
Images = DataLink_BaseInfo.ThreeImgList
|
|
List = True
|
|
ParentColor = False
|
|
ShowCaptions = True
|
|
TabOrder = 0
|
|
object ToolButton3: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #22686#21152
|
|
ImageIndex = 22
|
|
OnClick = ToolButton3Click
|
|
end
|
|
object ToolButton4: TToolButton
|
|
Left = 63
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #21024#38500
|
|
ImageIndex = 100
|
|
OnClick = ToolButton4Click
|
|
end
|
|
object ToolButton10: TToolButton
|
|
Left = 126
|
|
Top = 0
|
|
Caption = #22797#21046
|
|
ImageIndex = 51
|
|
OnClick = ToolButton10Click
|
|
end
|
|
object Panel7: TPanel
|
|
Left = 185
|
|
Top = 0
|
|
Width = 61
|
|
Height = 30
|
|
BevelOuter = bvNone
|
|
Caption = #24037#33402#20449#24687
|
|
Color = clSkyBlue
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -12
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object cxGrid2: TcxGrid
|
|
Left = 0
|
|
Top = 32
|
|
Width = 260
|
|
Height = 366
|
|
Align = alClient
|
|
TabOrder = 1
|
|
object TV2: TcxGridDBTableView
|
|
Navigator.Buttons.CustomButtons = <>
|
|
DataController.DataSource = DS2
|
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Kind = skSum
|
|
Column = cxGridDBColumn3
|
|
end>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsCustomize.ColumnFiltering = False
|
|
OptionsCustomize.ColumnSorting = False
|
|
OptionsView.Footer = True
|
|
OptionsView.GroupByBox = False
|
|
OptionsView.Indicator = True
|
|
Styles.Header = DataLink_BaseInfo.Default
|
|
object cxGridDBColumn1: TcxGridDBColumn
|
|
Caption = #24037#24207#21517#31216
|
|
DataBinding.FieldName = 'defstr1'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 150
|
|
end
|
|
object cxGridDBColumn3: TcxGridDBColumn
|
|
Caption = #36153#29992
|
|
DataBinding.FieldName = 'DefFlt4'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.OnEditValueChanged = cxGridDBColumn3PropertiesEditValueChanged
|
|
HeaderAlignmentHorz = taCenter
|
|
Styles.Header = DataLink_BaseInfo.FontBlue
|
|
Width = 80
|
|
end
|
|
end
|
|
object cxGridLevel1: TcxGridLevel
|
|
GridView = TV2
|
|
end
|
|
end
|
|
end
|
|
object Panel5: TPanel
|
|
Left = 770
|
|
Top = 0
|
|
Width = 260
|
|
Height = 398
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel3'
|
|
TabOrder = 2
|
|
object ToolBar4: TToolBar
|
|
Left = 0
|
|
Top = 0
|
|
Width = 260
|
|
AutoSize = True
|
|
ButtonHeight = 30
|
|
ButtonWidth = 59
|
|
Caption = 'ToolBar1'
|
|
Color = clSkyBlue
|
|
DisabledImages = DataLink_BaseInfo.ThreeImgList
|
|
Flat = True
|
|
Images = DataLink_BaseInfo.ThreeImgList
|
|
List = True
|
|
ParentColor = False
|
|
ShowCaptions = True
|
|
TabOrder = 0
|
|
object ToolButton5: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #22686#21152
|
|
ImageIndex = 22
|
|
OnClick = ToolButton5Click
|
|
end
|
|
object ToolButton6: TToolButton
|
|
Left = 63
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #21024#38500
|
|
ImageIndex = 100
|
|
OnClick = ToolButton6Click
|
|
end
|
|
object ToolButton11: TToolButton
|
|
Left = 126
|
|
Top = 0
|
|
Caption = #22797#21046
|
|
ImageIndex = 51
|
|
OnClick = ToolButton11Click
|
|
end
|
|
object Panel8: TPanel
|
|
Left = 185
|
|
Top = 0
|
|
Width = 62
|
|
Height = 30
|
|
BevelOuter = bvNone
|
|
Caption = #20854#23427#36153#29992
|
|
Color = clSkyBlue
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -12
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object cxGrid3: TcxGrid
|
|
Left = 0
|
|
Top = 32
|
|
Width = 310
|
|
Height = 366
|
|
Align = alLeft
|
|
TabOrder = 1
|
|
object Tv3: TcxGridDBTableView
|
|
Navigator.Buttons.CustomButtons = <>
|
|
DataController.DataSource = DS3
|
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Kind = skSum
|
|
Column = cxGridDBColumn8
|
|
end>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsCustomize.ColumnFiltering = False
|
|
OptionsCustomize.ColumnSorting = False
|
|
OptionsView.Footer = True
|
|
OptionsView.GroupByBox = False
|
|
OptionsView.Indicator = True
|
|
Styles.Header = DataLink_BaseInfo.Default
|
|
object cxGridDBColumn6: TcxGridDBColumn
|
|
Caption = #36153#29992#21517#31216
|
|
DataBinding.FieldName = 'defstr1'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 150
|
|
end
|
|
object cxGridDBColumn8: TcxGridDBColumn
|
|
Caption = #36153#29992
|
|
DataBinding.FieldName = 'DefFlt4'
|
|
PropertiesClassName = 'TcxTextEditProperties'
|
|
Properties.OnEditValueChanged = cxGridDBColumn8PropertiesEditValueChanged
|
|
HeaderAlignmentHorz = taCenter
|
|
Styles.Header = DataLink_BaseInfo.FontBlue
|
|
Width = 80
|
|
end
|
|
end
|
|
object cxGridLevel2: TcxGridLevel
|
|
GridView = Tv3
|
|
end
|
|
end
|
|
end
|
|
object Panel9: TPanel
|
|
Left = 1290
|
|
Top = 0
|
|
Width = 173
|
|
Height = 398
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel3'
|
|
TabOrder = 3
|
|
object ToolBar5: TToolBar
|
|
Left = 0
|
|
Top = 0
|
|
Width = 173
|
|
Height = 31
|
|
ButtonHeight = 30
|
|
ButtonWidth = 59
|
|
Caption = 'ToolBar1'
|
|
Color = clSkyBlue
|
|
DisabledImages = DataLink_BaseInfo.ThreeImgList
|
|
Flat = True
|
|
Images = DataLink_BaseInfo.ThreeImgList
|
|
List = True
|
|
ParentColor = False
|
|
ShowCaptions = True
|
|
TabOrder = 0
|
|
object ToolButton7: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #22686#21152
|
|
ImageIndex = 22
|
|
OnClick = ToolButton7Click
|
|
end
|
|
object ToolButton8: TToolButton
|
|
Left = 63
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #21024#38500
|
|
ImageIndex = 100
|
|
Wrap = True
|
|
OnClick = ToolButton8Click
|
|
end
|
|
object ToolButton12: TToolButton
|
|
Left = 0
|
|
Top = 30
|
|
Caption = #22797#21046
|
|
ImageIndex = 51
|
|
Wrap = True
|
|
OnClick = ToolButton12Click
|
|
end
|
|
object Panel10: TPanel
|
|
Left = 0
|
|
Top = 60
|
|
Width = 135
|
|
Height = 30
|
|
BevelOuter = bvNone
|
|
Caption = #20214#25968'/'#36153#29992
|
|
Color = clSkyBlue
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -12
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object cxGrid4: TcxGrid
|
|
Left = 0
|
|
Top = 31
|
|
Width = 173
|
|
Height = 367
|
|
Align = alClient
|
|
TabOrder = 1
|
|
object TV4: TcxGridDBTableView
|
|
Navigator.Buttons.CustomButtons = <>
|
|
DataController.DataSource = DS4
|
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Kind = skSum
|
|
end>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsCustomize.ColumnFiltering = False
|
|
OptionsCustomize.ColumnSorting = False
|
|
OptionsView.Footer = True
|
|
OptionsView.GroupByBox = False
|
|
OptionsView.Indicator = True
|
|
Styles.Header = DataLink_BaseInfo.Default
|
|
object TV4Column1: TcxGridDBColumn
|
|
Caption = #26368#23567#20214#25968
|
|
DataBinding.FieldName = 'CBzxjs'
|
|
Width = 60
|
|
end
|
|
object TV4Column2: TcxGridDBColumn
|
|
Caption = #26368#22823#20214#25968
|
|
DataBinding.FieldName = 'CBzdjs'
|
|
Width = 60
|
|
end
|
|
object TV4Column3: TcxGridDBColumn
|
|
Caption = #32541#32427#36153
|
|
DataBinding.FieldName = 'CBfrf'
|
|
Width = 60
|
|
end
|
|
object TV4Column4: TcxGridDBColumn
|
|
Caption = #35009#21098#36153
|
|
DataBinding.FieldName = 'CBcjf'
|
|
Width = 60
|
|
end
|
|
end
|
|
object cxGridLevel3: TcxGridLevel
|
|
GridView = TV4
|
|
end
|
|
end
|
|
end
|
|
object Panel11: TPanel
|
|
Left = 1030
|
|
Top = 0
|
|
Width = 260
|
|
Height = 398
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel3'
|
|
TabOrder = 4
|
|
object ToolBar6: TToolBar
|
|
Left = 0
|
|
Top = 0
|
|
Width = 260
|
|
AutoSize = True
|
|
ButtonHeight = 30
|
|
ButtonWidth = 59
|
|
Caption = 'ToolBar1'
|
|
Color = clSkyBlue
|
|
DisabledImages = DataLink_BaseInfo.ThreeImgList
|
|
Flat = True
|
|
Images = DataLink_BaseInfo.ThreeImgList
|
|
List = True
|
|
ParentColor = False
|
|
ShowCaptions = True
|
|
TabOrder = 0
|
|
object ToolButton13: TToolButton
|
|
Left = 0
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #22686#21152
|
|
ImageIndex = 22
|
|
OnClick = ToolButton13Click
|
|
end
|
|
object ToolButton14: TToolButton
|
|
Left = 63
|
|
Top = 0
|
|
AutoSize = True
|
|
Caption = #21024#38500
|
|
ImageIndex = 100
|
|
OnClick = ToolButton14Click
|
|
end
|
|
object ToolButton15: TToolButton
|
|
Left = 126
|
|
Top = 0
|
|
Caption = #22797#21046
|
|
ImageIndex = 51
|
|
Visible = False
|
|
OnClick = ToolButton10Click
|
|
end
|
|
object Panel12: TPanel
|
|
Left = 185
|
|
Top = 0
|
|
Width = 61
|
|
Height = 30
|
|
BevelOuter = bvNone
|
|
Caption = #23610#30721' '
|
|
Color = clSkyBlue
|
|
Font.Charset = GB2312_CHARSET
|
|
Font.Color = clRed
|
|
Font.Height = -12
|
|
Font.Name = #23435#20307
|
|
Font.Style = [fsBold]
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
end
|
|
end
|
|
object cxGrid5: TcxGrid
|
|
Left = 0
|
|
Top = 32
|
|
Width = 260
|
|
Height = 366
|
|
Align = alClient
|
|
TabOrder = 1
|
|
object TV5: TcxGridDBTableView
|
|
Navigator.Buttons.CustomButtons = <>
|
|
DataController.DataSource = DS5
|
|
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
|
|
DataController.Summary.DefaultGroupSummaryItems = <>
|
|
DataController.Summary.FooterSummaryItems = <
|
|
item
|
|
Kind = skSum
|
|
end>
|
|
DataController.Summary.SummaryGroups = <>
|
|
OptionsCustomize.ColumnFiltering = False
|
|
OptionsCustomize.ColumnSorting = False
|
|
OptionsView.Footer = True
|
|
OptionsView.GroupByBox = False
|
|
OptionsView.Indicator = True
|
|
Styles.Header = DataLink_BaseInfo.Default
|
|
object TV5Column2: TcxGridDBColumn
|
|
Caption = #23610#30721
|
|
DataBinding.FieldName = 'defstr1'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 80
|
|
end
|
|
object TV5Column1: TcxGridDBColumn
|
|
Caption = #26465#24418#30721
|
|
DataBinding.FieldName = 'defstr2'
|
|
HeaderAlignmentHorz = taCenter
|
|
Width = 80
|
|
end
|
|
end
|
|
object cxGridLevel4: TcxGridLevel
|
|
GridView = TV5
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object PopupMenu1: TPopupMenu
|
|
Left = 1140
|
|
Top = 103
|
|
object N1: TMenuItem
|
|
Caption = #21024#38500
|
|
end
|
|
object N3: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object N2: TMenuItem
|
|
Caption = #21478#23384#20026'...'
|
|
end
|
|
end
|
|
object ADOQueryCmd: TADOQuery
|
|
Connection = DataLink_BaseInfo.ADOLink
|
|
EnableBCD = False
|
|
Parameters = <>
|
|
Left = 720
|
|
Top = 71
|
|
end
|
|
object ADOQueryTmp: TADOQuery
|
|
Connection = DataLink_BaseInfo.ADOLink
|
|
EnableBCD = False
|
|
Parameters = <>
|
|
Left = 720
|
|
Top = 139
|
|
end
|
|
object ADOQueryImage: TADOQuery
|
|
Connection = DataLink_BaseInfo.ADOLink
|
|
EnableBCD = False
|
|
Parameters = <>
|
|
Left = 736
|
|
Top = 227
|
|
end
|
|
object ADOQuerymain: TADOQuery
|
|
Connection = DataLink_BaseInfo.ADOLink
|
|
EnableBCD = False
|
|
Parameters = <>
|
|
Left = 716
|
|
Top = 191
|
|
end
|
|
object IdFTP1: TIdFTP
|
|
MaxLineAction = maException
|
|
ReadTimeout = 0
|
|
ProxySettings.ProxyType = fpcmNone
|
|
ProxySettings.Port = 0
|
|
Left = 784
|
|
Top = 178
|
|
end
|
|
object DataSource1: TDataSource
|
|
DataSet = ADOQueryImage
|
|
Left = 804
|
|
Top = 231
|
|
end
|
|
object CDS1: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 144
|
|
Top = 351
|
|
end
|
|
object CDS2: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 212
|
|
Top = 347
|
|
end
|
|
object CDS3: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 276
|
|
Top = 335
|
|
end
|
|
object DS3: TDataSource
|
|
DataSet = CDS3
|
|
Left = 288
|
|
Top = 372
|
|
end
|
|
object DS2: TDataSource
|
|
DataSet = CDS2
|
|
Left = 228
|
|
Top = 384
|
|
end
|
|
object DS1: TDataSource
|
|
DataSet = CDS1
|
|
Left = 148
|
|
Top = 384
|
|
end
|
|
object DS4: TDataSource
|
|
DataSet = CDS4
|
|
Left = 328
|
|
Top = 380
|
|
end
|
|
object CDS4: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 332
|
|
Top = 343
|
|
end
|
|
object ADOQuery1: TADOQuery
|
|
Connection = DataLink_BaseInfo.ADOLink
|
|
EnableBCD = False
|
|
Parameters = <>
|
|
Left = 600
|
|
Top = 195
|
|
end
|
|
object DataSource2: TDataSource
|
|
DataSet = ClientDataSet1
|
|
Left = 60
|
|
Top = 400
|
|
end
|
|
object ClientDataSet1: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 68
|
|
Top = 343
|
|
end
|
|
object CDS5: TClientDataSet
|
|
Aggregates = <>
|
|
Params = <>
|
|
Left = 396
|
|
Top = 351
|
|
end
|
|
object DS5: TDataSource
|
|
DataSet = CDS5
|
|
Left = 392
|
|
Top = 388
|
|
end
|
|
end
|