D7myYunxiang//生产计划单(DyeingFinishingPlan.dll)我/U_CPDBAO.dfm

881 lines
23 KiB
Plaintext
Raw Normal View History

2025-01-20 13:04:03 +08:00
object frmCPDBao: TfrmCPDBao
Left = -28
Top = 41
Width = 1266
Height = 690
Caption = #25171#21253#31383#21475
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
WindowState = wsMaximized
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 15
object Panel1: TPanel
Left = 0
Top = 0
Width = 1248
Height = 54
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label16: TLabel
Left = 525
Top = 110
Width = 60
Height = 15
Caption = #36135#36816#31867#22411
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Visible = False
end
object Label15: TLabel
Left = 50
Top = 105
Width = 60
Height = 15
Caption = #37197#36135#20154#21592
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Visible = False
end
object Label14: TLabel
Left = 293
Top = 100
Width = 30
Height = 15
Caption = #21253#21495
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Visible = False
end
object Label1: TLabel
Left = 40
Top = 13
Width = 124
Height = 30
Caption = #26465#30721#32534#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -30
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 1460
Top = 106
Width = 62
Height = 30
Caption = #24211#20301
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -30
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label4: TLabel
Left = 539
Top = 121
Width = 93
Height = 30
Caption = #21253#26465#30721
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -30
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label2: TLabel
Left = 420
Top = 11
Width = 62
Height = 30
Caption = #20221#25968
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -30
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object PHYG: TBtnEditA
Left = 115
Top = 105
Width = 125
Height = 23
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
TabOrder = 1
Visible = False
end
object defstr2: TComboBox
Left = 590
Top = 105
Width = 126
Height = 23
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Pitch = fpFixed
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ItemHeight = 15
ItemIndex = 0
ParentFont = False
TabOrder = 2
Visible = False
Items.Strings = (
''
#24555#20214
#24930#20214)
end
object SmNO: TEdit
Left = 164
Top = 8
Width = 231
Height = 32
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -30
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnKeyPress = SmNOKeyPress
end
object kcKw: TBtnEditA
Left = 1535
Top = 101
Width = 111
Height = 34
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -30
Font.Name = #23435#20307
Font.Style = [fsBold]
ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
ParentFont = False
TabOrder = 3
Text = '//'
Visible = False
OnBtnClick = kcKwBtnClick
end
object BaoID: TEdit
Left = 636
Top = 119
Width = 212
Height = 32
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -30
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
end
object FileName: TcxButton
Left = 730
Top = 8
Width = 96
Height = 40
Hint = 'Filesother'
Caption = #25171#21360#21253#26631#31614
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnClick = FileNameClick
LookAndFeel.Kind = lfOffice11
end
object cxButton1: TcxButton
Left = 976
Top = 8
Width = 97
Height = 40
Hint = 'Filesother'
Caption = #20851#38381
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = cxButton1Click
LookAndFeel.Kind = lfOffice11
end
object cxButton2: TcxButton
Left = 880
Top = 100
Width = 96
Height = 41
Hint = 'Filesother'
Caption = #20445#23384
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
LookAndFeel.Kind = lfOffice11
end
object check_Fbz: TCheckBox
Left = 1080
Top = 100
Width = 131
Height = 21
Caption = #21253#21103#26631#31614
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -25
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
end
object Fbq: TBtnEditA
Left = 1200
Top = 100
Width = 151
Height = 23
TabOrder = 9
end
object ComboBox2: TComboBox
Left = 1346
Top = 100
Width = 62
Height = 23
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ItemHeight = 15
ItemIndex = 0
ParentFont = False
TabOrder = 10
Text = '1'
Items.Strings = (
'1'
'2'
'3'
'4')
end
object BaoBq: TBtnEditA
Left = 1424
Top = 101
Width = 176
Height = 23
TabOrder = 11
Visible = False
OnBtnClick = BaoBqBtnClick
end
object DBCS: TEdit
Left = 959
Top = 101
Width = 212
Height = 32
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -30
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 12
Visible = False
end
object edtFenShu: TEdit
Left = 484
Top = 5
Width = 47
Height = 32
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -30
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
Text = '1'
end
object cxButton3: TcxButton
Left = 840
Top = 6
Width = 96
Height = 40
Hint = 'Filesother'
Caption = #37325#25171#21253#26631#31614
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
OnClick = cxButton3Click
LookAndFeel.Kind = lfOffice11
end
end
object Panel2: TPanel
Left = 0
Top = 54
Width = 1248
Height = 589
Align = alClient
Caption = 'Panel2'
TabOrder = 1
object cxGrid2: TcxGrid
Left = 733
Top = 1
Width = 514
Height = 587
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object TV2: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = TV2CellDblClick
DataController.DataSource = DSSEL
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
Column = cxGridDBColumn5
end
item
Kind = skSum
Column = cxGridDBJYLen
end
item
Kind = skSum
end
item
Kind = skSum
Column = V2CJYKG
end
item
Kind = skSum
Column = V2ColJYJZ
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
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_DyeingFinishingPlan.Default
object cxGridDBMLCodeName: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'MLCodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object cxGridDBJYColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'JYColor'
HeaderAlignmentHorz = taCenter
Width = 79
end
object VJYColHX: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'JYColHX'
HeaderAlignmentHorz = taCenter
Width = 60
end
object V2SOMLColorNo: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'MLColorNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 70
end
object V2CGangNo: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'GangNo'
HeaderAlignmentHorz = taCenter
Width = 46
end
object V2BaoNo: TcxGridDBColumn
Caption = #21253#21495
DataBinding.FieldName = 'BaoNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 46
end
object cxGridDBColumn5: TcxGridDBColumn
Caption = #21305#25968
DataBinding.FieldName = 'PS'
HeaderAlignmentHorz = taCenter
Width = 46
end
object cxGridDBJYLen: TcxGridDBColumn
Caption = #21367#38271#24230
DataBinding.FieldName = 'JYLen'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 66
end
object V2CJYKG: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'JYKG'
HeaderAlignmentHorz = taCenter
Width = 46
end
object V2ColJYJZ: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'JYJZ'
HeaderAlignmentHorz = taCenter
Width = 46
end
end
object cxGridLevel1: TcxGridLevel
GridView = TV2
end
end
object cxGrid1: TcxGrid
Left = 1
Top = 1
Width = 732
Height = 587
Align = alLeft
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object TV1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellDblClick = TV1CellDblClick
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <
item
Format = 'C_Code'
end
item
Kind = skCount
Position = spFooter
end
item
Kind = skCount
end
item
Kind = skSum
Position = spFooter
Column = cxJYLen
end
item
Kind = skSum
Column = cxJYLen
end
item
Kind = skSum
Position = spFooter
end
item
Kind = skSum
end>
DataController.Summary.FooterSummaryItems = <
item
Kind = skSum
end
item
Kind = skSum
Column = cxJYLen
end
item
Kind = skSum
end
item
Kind = skSum
Column = cxJYKG
end
item
Kind = skSum
Column = cJYJZ
end
item
Kind = skSum
end
item
Kind = skSum
end
item
Kind = skCount
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_DyeingFinishingPlan.Default
object cxJYID: TcxGridDBColumn
Caption = #21367#26465#30721
DataBinding.FieldName = 'JYID'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 88
end
object cxJYNo: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'JYNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 46
end
object cxMLCodeName: TcxGridDBColumn
Caption = #21697#21517
DataBinding.FieldName = 'MLCodeName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 87
end
object cJYColor: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'JYColor'
HeaderAlignmentHorz = taCenter
Width = 80
end
object cxJYColHX: TcxGridDBColumn
Caption = #33457#22411
DataBinding.FieldName = 'JYColHX'
HeaderAlignmentHorz = taCenter
Width = 60
end
object cxGridDBMLColorNo: TcxGridDBColumn
Caption = #33394#21495
DataBinding.FieldName = 'MLColorNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 46
end
object cxGangNo: TcxGridDBColumn
Caption = #32568#21495
DataBinding.FieldName = 'GangNo'
HeaderAlignmentHorz = taCenter
Width = 46
end
object cxJYLen: TcxGridDBColumn
Caption = #21367#38271#24230
DataBinding.FieldName = 'JYLen'
HeaderAlignmentHorz = taCenter
Width = 66
end
object cxJYKG: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'JYKG'
HeaderAlignmentHorz = taCenter
Width = 46
end
object cJYJZ: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'JYJZ'
HeaderAlignmentHorz = taCenter
Width = 46
end
end
object cxGridLevel2: TcxGridLevel
GridView = TV1
end
end
end
object ADOQueryMain: TADOQuery
Connection = DataLink_DyeingFinishingPlan.ADOLink
Parameters = <>
Left = 618
Top = 230
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DyeingFinishingPlan.ADOLink
Parameters = <>
Left = 585
Top = 229
end
object CDSMJID: TClientDataSet
Aggregates = <>
Params = <>
Left = 687
Top = 232
end
object DataSource2: TDataSource
DataSet = CDSMJID
Left = 671
Top = 262
end
object ADOQueryTmp: TADOQuery
Connection = DataLink_DyeingFinishingPlan.ADOLink
Parameters = <>
Left = 626
Top = 261
end
object cxStyleRepository1: TcxStyleRepository
Left = 297
Top = 326
PixelsPerInch = 120
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_DyeingFinishingPlan.ADOLink
Parameters = <>
Left = 254
Top = 356
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 298
Top = 358
end
object ADOQueryTm: TADOQuery
Connection = DataLink_DyeingFinishingPlan.ADOLink
Parameters = <>
Left = 307
Top = 250
end
object DSTm: TDataSource
DataSet = CDSTM
Left = 213
Top = 356
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = ADOQueryPrint
Left = 584
Top = 260
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 = 304
Top = 285
ReportData = {}
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_DyeingFinishingPlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 652
Top = 232
end
object CDSTM: TClientDataSet
Aggregates = <>
Params = <>
Left = 252
Top = 316
end
object CDSSEL: TClientDataSet
Aggregates = <>
Params = <>
Left = 957
Top = 497
end
object DSSEL: TDataSource
DataSet = CDSSEL
Left = 849
Top = 501
end
end