D7DJkefu/复合检验管理/U_CPDBAO.dfm
DESKTOP-E401PHE\Administrator cbf8488898 ~
2025-04-30 19:48:41 +08:00

1665 lines
43 KiB
Plaintext

object frmCPDBao: TfrmCPDBao
Left = 324
Top = 149
Width = 1551
Height = 742
Caption = #25171#21253#31383#21475
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1535
Height = 33
ButtonHeight = 30
ButtonWidth = 59
Caption = 'ToolBar1'
Color = clSkyBlue
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_TradeManage.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
Visible = False
object TBClose: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 55
OnClick = TBCloseClick
end
end
object Panel1: TPanel
Left = 0
Top = 33
Width = 1535
Height = 76
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label16: TLabel
Left = 420
Top = 88
Width = 48
Height = 12
Caption = #36135#36816#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Visible = False
end
object Label15: TLabel
Left = 40
Top = 84
Width = 48
Height = 12
Caption = #37197#36135#20154#21592
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Visible = False
end
object Label14: TLabel
Left = 234
Top = 80
Width = 24
Height = 12
Caption = #21253#21495
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Visible = False
end
object Label1: TLabel
Left = 32
Top = 14
Width = 100
Height = 24
Caption = #26465#30721#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 1168
Top = 85
Width = 50
Height = 24
Caption = #24211#20301
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label3: TLabel
Left = 327
Top = 14
Width = 50
Height = 24
Caption = #21253#21495
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 473
Top = 14
Width = 75
Height = 24
Caption = #21253#26465#30721
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object PHYG: TBtnEditA
Left = 92
Top = 84
Width = 100
Height = 20
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 1
Visible = False
end
object defstr2: TComboBox
Left = 472
Top = 84
Width = 101
Height = 20
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Pitch = fpFixed
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ItemHeight = 12
ItemIndex = 0
ParentFont = False
TabOrder = 2
Visible = False
Items.Strings = (
''
#24555#20214
#24930#20214)
end
object packNo: TcxCurrencyEdit
Left = 262
Top = 76
Properties.DecimalPlaces = 0
Properties.DisplayFormat = '0'
TabOrder = 3
Visible = False
Width = 100
end
object SmNO: TEdit
Left = 136
Top = 10
Width = 165
Height = 32
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 0
OnKeyPress = SmNOKeyPress
end
object kcKw: TBtnEditA
Left = 1228
Top = 81
Width = 89
Height = 33
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 4
Visible = False
OnBtnClick = kcKwBtnClick
end
object baoNo: TEdit
Left = 383
Top = 10
Width = 66
Height = 32
Hint = 'baoNo'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 5
OnClick = baoNoClick
OnExit = baoNoExit
OnKeyPress = baoNoKeyPress
end
object BaoID: TEdit
Left = 550
Top = 10
Width = 170
Height = 32
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 6
OnClick = baoNoClick
end
object FileName: TcxButton
Left = 984
Top = 8
Width = 77
Height = 33
Hint = 'Filesother'
Caption = #25171#21360#21253#26631#31614
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = FileNameClick
LookAndFeel.Kind = lfOffice11
end
object cxButton1: TcxButton
Left = 1068
Top = 8
Width = 77
Height = 33
Hint = 'Filesother'
Caption = #20851#38381
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
OnClick = cxButton1Click
LookAndFeel.Kind = lfOffice11
end
object ComboBox1: TComboBox
Left = 920
Top = 12
Width = 49
Height = 23
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = []
ItemHeight = 15
ItemIndex = 0
ParentFont = False
TabOrder = 9
Text = '1'
Items.Strings = (
'1'
'2'
'3'
'4')
end
object cxButton3: TcxButton
Left = 728
Top = 8
Width = 77
Height = 33
Hint = 'Filesother'
Caption = #21024#38500
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnClick = cxButton3Click
LookAndFeel.Kind = lfOffice11
end
object cxButton2: TcxButton
Left = 704
Top = 80
Width = 77
Height = 33
Hint = 'Filesother'
Caption = #20445#23384
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
OnClick = cxButton2Click
LookAndFeel.Kind = lfOffice11
end
object cxButton4: TcxButton
Left = 728
Top = 40
Width = 77
Height = 33
Hint = 'Filesother'
Caption = #25764#38144#25171#21253
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 12
OnClick = cxButton4Click
LookAndFeel.Kind = lfOffice11
end
object check_Fbz: TCheckBox
Left = 864
Top = 80
Width = 105
Height = 17
Caption = #21253#21103#26631#31614
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
end
object Fbq: TBtnEditA
Left = 960
Top = 80
Width = 121
Height = 20
TabOrder = 14
OnBtnClick = FbqBtnClick
end
object ComboBox2: TComboBox
Left = 1077
Top = 80
Width = 49
Height = 20
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 12
ItemIndex = 0
ParentFont = False
TabOrder = 15
Text = '1'
Items.Strings = (
'1'
'2'
'3'
'4')
end
object check_bz: TCheckBox
Left = 828
Top = 16
Width = 89
Height = 17
Caption = #21253#26631#31614
Checked = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 16
end
object BaoBq: TBtnEditA
Left = 1144
Top = 72
Width = 141
Height = 20
TabOrder = 17
Visible = False
OnBtnClick = BaoBqBtnClick
end
object CheckBox1: TCheckBox
Left = 828
Top = 48
Width = 133
Height = 17
Caption = #33258#21160#25171#21253
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 18
end
object ComboBox3: TComboBox
Left = 920
Top = 44
Width = 49
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 19
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25')
end
end
object Panel2: TPanel
Left = 400
Top = 141
Width = 1133
Height = 560
Caption = 'Panel2'
TabOrder = 2
object cxGrid2: TcxGrid
Left = 1
Top = 1
Width = 1131
Height = 266
Align = alTop
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCustomDrawCell = TV2CustomDrawCell
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = cxGridDBColumn5
end
item
Kind = skSum
Column = cxGridDBColumn6
end
item
Kind = skSum
end
item
Kind = skSum
Column = V2Column2
end
item
Kind = skSum
Column = V2Column3
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsData.Editing = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Header = DataLink_TradeManage.Default
object cxGridDBColumn1: TcxGridDBColumn
Caption = #25195#25551#20449#24687
DataBinding.FieldName = 'SDefNote'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeManage.FoneRed
Styles.Footer = DataLink_TradeManage.FoneRed
Styles.Header = DataLink_TradeManage.FoneRed
Width = 154
end
object cxGridDBColumn2: TcxGridDBColumn
Caption = #26465#30721#21495
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 113
end
object cxGridDBColumn4: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'MPRTCodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 116
end
object cxGridDBColumn3: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
HeaderAlignmentHorz = taCenter
Width = 94
end
object V2Column5: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'PRTHX'
HeaderAlignmentHorz = taCenter
Width = 60
end
object V2Column4: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'MJStr4'
HeaderAlignmentHorz = taCenter
Width = 60
end
object V2Column1: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'BCGangNO'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 120
end
object cxGridDBColumn7: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'MJType'
HeaderAlignmentHorz = taCenter
Width = 46
end
object V2BaoID: TcxGridDBColumn
Caption = #21253#26465#30721
DataBinding.FieldName = 'BaoID'
HeaderAlignmentHorz = taCenter
Width = 94
end
object V2BaoNO: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'BaoNO'
HeaderAlignmentHorz = taCenter
Width = 51
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'SOrdQty1'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeManage.FontBlue
Styles.Footer = DataLink_TradeManage.FontBlue
Styles.Header = DataLink_TradeManage.FontBlue
Width = 60
end
object cxGridDBColumn6: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'MJLen'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeManage.FontBlue
Styles.Footer = DataLink_TradeManage.FontBlue
Styles.Header = DataLink_TradeManage.FontBlue
Width = 60
end
object V2Column2: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'MJMaoZ'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeManage.FontBlue
Styles.Footer = DataLink_TradeManage.FontBlue
Styles.Header = DataLink_TradeManage.FontBlue
Width = 60
end
object V2Column3: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'MJQty4'
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeManage.FontBlue
Styles.Footer = DataLink_TradeManage.FontBlue
Styles.Header = DataLink_TradeManage.FontBlue
Width = 60
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
object cxGrid1: TcxGrid
Left = 1
Top = 267
Width = 1131
Height = 292
Align = alClient
PopupMenu = PopupMenu1
TabOrder = 1
object TV4: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DSSEL
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = cxGridDBColumn16
end
item
Kind = skSum
Column = cxGridDBColumn17
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxGridDBColumn18
end
item
Kind = skSum
Column = cxGridDBColumn19
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsBehavior.FocusCellOnTab = True
OptionsBehavior.GoToNextCellOnEnter = True
OptionsBehavior.FocusCellOnCycle = True
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Header = DataLink_TradeManage.Default
object cxGridDBColumn8: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Styles.Content = DataLink_TradeManage.FoneRed
Styles.Footer = DataLink_TradeManage.FoneRed
Styles.Header = DataLink_TradeManage.FoneRed
Width = 53
end
object cxGridDBColumn9: TcxGridDBColumn
Caption = #26465#30721#21495
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 113
end
object cxGridDBColumn10: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'MPRTCodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 116
end
object cxGridDBColumn11: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object cxGridDBColumn12: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'BCGangNO'
Visible = False
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 120
end
object V4Column1: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'PRTHX'
HeaderAlignmentHorz = taCenter
Width = 70
end
object V4Column2: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'MJstr4'
HeaderAlignmentHorz = taCenter
Width = 70
end
object cxGridDBColumn13: TcxGridDBColumn
Caption = #31561#32423
DataBinding.FieldName = 'MJType'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
object cxGridDBColumn14: TcxGridDBColumn
Caption = #21253#26465#30721
DataBinding.FieldName = 'BaoID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 94
end
object cxGridDBColumn15: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'BaoNO'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 51
end
object cxGridDBColumn16: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'SOrdQty1'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeManage.FontBlue
Styles.Footer = DataLink_TradeManage.FontBlue
Styles.Header = DataLink_TradeManage.FontBlue
Width = 60
end
object cxGridDBColumn17: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'MJLen'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeManage.FontBlue
Styles.Footer = DataLink_TradeManage.FontBlue
Styles.Header = DataLink_TradeManage.FontBlue
Width = 60
end
object cxGridDBColumn18: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'MJMaoZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeManage.FontBlue
Styles.Footer = DataLink_TradeManage.FontBlue
Styles.Header = DataLink_TradeManage.FontBlue
Width = 60
end
object cxGridDBColumn19: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'MJQty4'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeManage.FontBlue
Styles.Footer = DataLink_TradeManage.FontBlue
Styles.Header = DataLink_TradeManage.FontBlue
Width = 60
end
end
object cxGridLevel3: TcxGridLevel
GridView = TV4
end
end
end
object Panel3: TPanel
Left = 999
Top = 227
Width = 290
Height = 286
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 4
Visible = False
object SpeedButton1: TSpeedButton
Left = 4
Top = 211
Width = 140
Height = 70
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 4
Top = 143
Width = 70
Height = 70
Caption = '1'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton3: TSpeedButton
Left = 74
Top = 143
Width = 70
Height = 70
Caption = '2'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton4: TSpeedButton
Left = 144
Top = 143
Width = 70
Height = 70
Caption = '3'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton5: TSpeedButton
Left = 4
Top = 73
Width = 70
Height = 70
Caption = '4'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton6: TSpeedButton
Left = 74
Top = 73
Width = 70
Height = 70
Caption = '5'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton7: TSpeedButton
Left = 144
Top = 73
Width = 70
Height = 70
Caption = '6'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton8: TSpeedButton
Left = 4
Top = 3
Width = 70
Height = 70
Caption = '7'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton9: TSpeedButton
Left = 74
Top = 2
Width = 70
Height = 70
Caption = '8'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton10: TSpeedButton
Left = 144
Top = 2
Width = 70
Height = 70
Caption = '9'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton11: TSpeedButton
Tag = 9
Left = 144
Top = 213
Width = 70
Height = 68
Caption = '.'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #40657#20307
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton12: TSpeedButton
Left = 214
Top = 2
Width = 70
Height = 70
Caption = #8592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton12Click
end
object SpeedButton49: TSpeedButton
Tag = 9
Left = 214
Top = 73
Width = 70
Height = 208
Caption = #30830#23450
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -29
Font.Name = #26999#20307'_GB2312'
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton49Click
end
end
object Panel4: TPanel
Left = 0
Top = 109
Width = 553
Height = 594
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel4'
TabOrder = 5
object cxGrid3: TcxGrid
Left = 2
Top = 89
Width = 549
Height = 503
Align = alClient
TabOrder = 0
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DSTm
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skSum
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.GroupByBox = False
OptionsView.Indicator = True
Styles.Header = DataLink_TradeManage.Default
object v3Column5: TcxGridDBColumn
Caption = #36873#25321
DataBinding.FieldName = 'Ssel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 42
end
object Tv3Column1: TcxGridDBColumn
Caption = #26465#30721
DataBinding.FieldName = 'MJID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Content = DataLink_TradeManage.FontBlue
Styles.Footer = DataLink_TradeManage.FontBlue
Width = 88
end
object v3Column1: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'MPRTCodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 72
end
object v3Column2: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'PRTColor'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 44
end
object v3Column4: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'PRTHX'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 43
end
object v3Column3: TcxGridDBColumn
Caption = #25968#37327
DataBinding.FieldName = 'MJlen'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 47
end
object v3Column8: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'SOrddefstr1'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 60
end
object v3Column6: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'MJXH'
HeaderAlignmentHorz = taCenter
Width = 50
end
object v3Column7: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'MJStr4'
HeaderAlignmentHorz = taCenter
Width = 50
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv3
end
end
object Panel5: TPanel
Left = 2
Top = 2
Width = 549
Height = 87
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Label6: TLabel
Left = 8
Top = 13
Width = 45
Height = 14
Caption = #35746#21333#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 8
Top = 56
Width = 24
Height = 12
Caption = #39068#33394
end
object Label8: TLabel
Left = 96
Top = 56
Width = 24
Height = 12
Caption = #33394#21495
end
object Label9: TLabel
Left = 180
Top = 56
Width = 24
Height = 12
Caption = #33457#22411
end
object Label10: TLabel
Left = 268
Top = 56
Width = 24
Height = 12
Caption = #32568#21495
end
object Label11: TLabel
Left = 356
Top = 56
Width = 24
Height = 12
Caption = #21367#21495
end
object Label12: TLabel
Left = 272
Top = 13
Width = 60
Height = 14
Caption = #25171#21253#26041#24335
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object BtnEditA1: TBtnEditA
Left = 56
Top = 9
Width = 153
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnBtnClick = BtnEditA1BtnClick
end
object cxButton5: TcxButton
Left = 212
Top = 8
Width = 49
Height = 25
Hint = 'Filesother'
Caption = #21047#26032
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = cxButton5Click
LookAndFeel.Kind = lfOffice11
end
object cxButton6: TcxButton
Left = 468
Top = 8
Width = 61
Height = 25
Hint = 'Filesother'
Caption = #30830#23450#36873#25321
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = cxButton6Click
LookAndFeel.Kind = lfOffice11
end
object cxButton7: TcxButton
Left = 468
Top = 48
Width = 57
Height = 25
Hint = 'Filesother'
Caption = #36807#28388
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = cxButton7Click
LookAndFeel.Kind = lfOffice11
end
object PRTColor: TEdit
Tag = 2
Left = 32
Top = 52
Width = 60
Height = 20
TabOrder = 4
end
object SOrddefstr1: TEdit
Tag = 1
Left = 120
Top = 52
Width = 60
Height = 20
TabOrder = 5
end
object PRTHX: TEdit
Tag = 2
Left = 204
Top = 52
Width = 60
Height = 20
TabOrder = 6
end
object mjstr4: TEdit
Tag = 1
Left = 292
Top = 52
Width = 60
Height = 20
TabOrder = 7
end
object MJXH: TEdit
Tag = 1
Left = 380
Top = 52
Width = 60
Height = 20
TabOrder = 8
end
object ComboBox4: TComboBox
Left = 336
Top = 8
Width = 81
Height = 24
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 16
ItemIndex = 0
ParentFont = False
TabOrder = 9
Text = #25353#35746#21333
Items.Strings = (
#25353#35746#21333
#25353#39068#33394)
end
end
end
object MovePanel1: TMovePanel
Left = 198
Top = 208
Width = 715
Height = 327
BevelInner = bvLowered
Color = clSkyBlue
TabOrder = 3
Visible = False
object Label2: TLabel
Left = 184
Top = 160
Width = 198
Height = 64
Caption = 'Label2'
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -64
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Edit2: TEdit
Left = 177
Top = 43
Width = 412
Height = 72
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -64
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
ReadOnly = True
TabOrder = 0
Text = '91209120001'
end
object Button4: TButton
Left = 300
Top = 272
Width = 75
Height = 41
Caption = #20851#38381
TabOrder = 1
OnClick = Button4Click
end
end
object ADOQueryMain: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 552
Top = 136
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 500
Top = 232
end
object CDSMJID: TClientDataSet
Aggregates = <>
Params = <>
Left = 732
Top = 212
end
object DataSource2: TDataSource
DataSet = CDSMJID
Left = 836
Top = 248
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 388
Top = 324
end
object cxStyleRepository1: TcxStyleRepository
Left = 317
Top = 306
PixelsPerInch = 96
object cxStyle1: TcxStyle
AssignedValues = [svColor, svFont]
Color = clInactiveCaption
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle2: TcxStyle
AssignedValues = [svColor, svFont, svTextColor]
Color = 4707838
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBtnText
end
object cxStyle_gridRow: TcxStyle
AssignedValues = [svColor, svFont]
Color = 16311512
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridFoot: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridHead: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_gridGroupBox: TcxStyle
AssignedValues = [svColor, svFont]
Color = clMoneyGreen
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_yellow: TcxStyle
AssignedValues = [svColor, svFont]
Color = 8454143
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_Red: TcxStyle
AssignedValues = [svColor, svFont]
Color = clRed
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_fontBlack: TcxStyle
AssignedValues = [svFont]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
end
object cxStyle_fontclFuchsia: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clFuchsia
end
object cxStyle_fontclPurple: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clPurple
end
object cxStyle_fontclGreen: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clGreen
end
object cxStyle_fontclBlue: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clBlue
end
object cxStyle_fontclTeal: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clTeal
end
object cxStyle_fontclOlive: TcxStyle
AssignedValues = [svFont, svTextColor]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = #23435#20307
Font.Style = [fsBold]
TextColor = clOlive
end
end
object ADOQuery1: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 252
Top = 428
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 312
Top = 464
end
object ADOQueryTm: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 144
Top = 240
end
object DSTm: TDataSource
DataSet = CDSTM
Left = 88
Top = 216
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = ADOQueryPrint
Left = 576
Top = 256
end
object RM2: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator]
DefaultCollate = False
ShowPrintDialog = False
SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\'
PreviewOptions.RulerUnit = rmutScreenPixels
PreviewOptions.RulerVisible = False
PreviewOptions.DrawBorder = False
PreviewOptions.BorderPen.Color = clGray
PreviewOptions.BorderPen.Style = psDash
Dataset = RMDB_Main
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 424
Top = 256
ReportData = {}
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_TradeManage.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 652
Top = 232
end
object CDSTM: TClientDataSet
Aggregates = <>
Params = <>
Left = 212
Top = 221
end
object CDSSEL: TClientDataSet
Aggregates = <>
Params = <>
Left = 957
Top = 497
end
object DSSEL: TDataSource
DataSet = CDSSEL
Left = 849
Top = 501
end
object ADOQuery2: TADOQuery
Connection = DataLink_TradeManage.ADOLink
Parameters = <>
Left = 332
Top = 420
end
object PopupMenu1: TPopupMenu
Left = 948
Top = 568
object N1: TMenuItem
Caption = #20840#36873
OnClick = N1Click
end
object N2: TMenuItem
Caption = #20840#24323
OnClick = N2Click
end
end
end