RTFormwork/项目代码/RTBasicsV1/F02染色计划单/U_DyeInspSet.dfm
“ddf” 61630656e9 1
2024-07-07 09:35:27 +08:00

749 lines
20 KiB
Plaintext

inherited frmDyeInspSet: TfrmDyeInspSet
Left = 261
Top = 149
Caption = #25171#21367#21253#35013#35774#32622
ClientHeight = 532
ClientWidth = 1220
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Height = -12
Font.Name = #23435#20307
OldCreateOrder = True
Position = poScreenCenter
OnClose = FormClose
ExplicitWidth = 1236
ExplicitHeight = 571
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar [0]
Tag = 1
Left = 0
Top = 0
Width = 1220
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_DyePlan.ImageList_new32
Images = DataLink_DyePlan.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton3: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = ToolButton3Click
end
object TBClose: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
end
object ScrollBox1: TScrollBox [1]
Left = 0
Top = 38
Width = 1220
Height = 83
Align = alTop
BevelInner = bvNone
BevelOuter = bvNone
BorderStyle = bsNone
Color = clWhite
Ctl3D = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentColor = False
ParentCtl3D = False
ParentFont = False
TabOrder = 1
object Label14: TLabel
Left = 32
Top = 17
Width = 39
Height = 15
Caption = #21367#26631#31614
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 32
Top = 47
Width = 39
Height = 15
Caption = #21253#26631#31614
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 275
Top = 17
Width = 52
Height = 15
Caption = #31995#25968#31867#22411
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 303
Top = 47
Width = 26
Height = 15
Caption = #31995#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 469
Top = 47
Width = 26
Height = 15
Caption = #21152#37325
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 643
Top = 17
Width = 72
Height = 15
Caption = #30382#37325'('#19978' '#31216')'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 443
Top = 17
Width = 52
Height = 15
Caption = #38271#24230#21333#20301
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 643
Top = 47
Width = 73
Height = 15
Caption = #30382#37325'('#19981#19978#31216')'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ParentFont = False
end
object RuleConversion: TComboBox
Tag = 2
Left = 335
Top = 13
Width = 97
Height = 22
Style = csDropDownList
ItemIndex = 0
TabOrder = 0
Text = #26080#38656#36716#25442
Items.Strings = (
#26080#38656#36716#25442
#31859#36716#20844#26020
#20844#26020#36716#31859)
end
object Coefficient: TEdit
Tag = 2
Left = 335
Top = 44
Width = 97
Height = 20
TabOrder = 1
end
object LabVolume: TEdit
Tag = 2
Left = 77
Top = 14
Width = 172
Height = 20
ReadOnly = True
TabOrder = 2
end
object LabPackage: TEdit
Tag = 2
Left = 77
Top = 45
Width = 172
Height = 20
ReadOnly = True
TabOrder = 3
end
object AddWet: TEdit
Tag = 2
Left = 501
Top = 44
Width = 98
Height = 20
TabOrder = 4
end
object RuleBeforeTare: TEdit
Tag = 2
Left = 718
Top = 15
Width = 90
Height = 20
TabOrder = 5
end
object RuleLenUnit: TComboBox
Tag = 2
Left = 501
Top = 13
Width = 98
Height = 22
Style = csDropDownList
TabOrder = 6
Items.Strings = (
'M'
'Y')
end
object RuleLaterTare: TEdit
Tag = 2
Left = 718
Top = 44
Width = 90
Height = 20
TabOrder = 7
end
end
object cxPageControl1: TcxPageControl [2]
Left = 0
Top = 121
Width = 1220
Height = 411
Align = alClient
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = []
ParentBackground = False
ParentColor = False
ParentFont = False
TabOrder = 2
Properties.ActivePage = cxTabSheet1
Properties.CustomButtons.Buttons = <>
Properties.Style = 6
OnChange = cxPageControl1Change
ClientRectBottom = 411
ClientRectRight = 1220
ClientRectTop = 32
object cxTabSheet1: TcxTabSheet
Caption = #26631#31614#35774#32622
ImageIndex = 2
object Panel1: TPanel
Left = 0
Top = 0
Width = 1220
Height = 379
Align = alClient
Caption = 'Panel1'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object Panel2: TPanel
Left = 1
Top = 39
Width = 376
Height = 339
Align = alLeft
Caption = 'Panel1'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object cxGridLabel: TcxGrid
Left = 1
Top = 35
Width = 374
Height = 303
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object TVLabel: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
OnCellClick = TVLabelCellClick
DataController.DataSource = DS_Label
DataController.Filter.AutoDataSetFilter = True
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.GroupByBox = False
object TVLabellabelId: TcxGridDBColumn
Caption = #26631#31614'ID'
DataBinding.FieldName = 'labelId'
Visible = False
Width = 53
end
object TVLabellabeltype: TcxGridDBColumn
Caption = #26631#31614#31867#22411
DataBinding.FieldName = 'labeltype'
HeaderAlignmentHorz = taCenter
Width = 107
end
object TVLabellabelCaption: TcxGridDBColumn
Caption = #26631#31614#21517#31216
DataBinding.FieldName = 'labelCaption'
HeaderAlignmentHorz = taCenter
Width = 261
end
object TVLabellabelFile: TcxGridDBColumn
Caption = #25991#20214#21517
DataBinding.FieldName = 'labelFile'
Visible = False
HeaderAlignmentHorz = taCenter
Width = 167
end
object TVLabelColumn2: TcxGridDBColumn
Caption = #25805#20316#26102#38388
DataBinding.FieldName = 'EditTime'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 99
end
object TVLabelColumn1: TcxGridDBColumn
Caption = #25805#20316#20154
DataBinding.FieldName = 'Editer'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 80
end
end
object cxGridLabelLevel1: TcxGridLevel
GridView = TVLabel
end
end
object Panel4: TPanel
Left = 1
Top = 1
Width = 374
Height = 34
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object Label9: TLabel
Left = 17
Top = 9
Width = 48
Height = 12
Caption = #26631#31614#31867#22411
end
object Label10: TLabel
Left = 184
Top = 10
Width = 48
Height = 12
Caption = #26631#31614#21517#31216
end
object LabelCaption: TEdit
Left = 236
Top = 6
Width = 100
Height = 20
TabOrder = 0
OnChange = LabelTypeChange
end
object LabelType: TRTComboBox
Tag = 99
Left = 69
Top = 6
Width = 100
Height = 20
Style = csDropDownList
ItemIndex = 0
TabOrder = 1
OnChange = LabelTypeChange
Items.Strings = (
''
#20013#25991#26631#31614
#33521#25991#26631#31614
#20013#33521#25991#26631#31614)
end
end
end
object RMPreview3: TRMPreview
Left = 377
Top = 39
Width = 842
Height = 339
Align = alClient
BevelOuter = bvLowered
Caption = 'Insert After'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 1
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
end
object ToolBar2: TToolBar
Tag = 1
Left = 1
Top = 1
Width = 1218
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 103
Caption = 'ToolBar2'
Color = clBtnFace
Images = DataLink_DyePlan.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 2
Transparent = False
object Tadd: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #26032#22686
ImageIndex = 2
OnClick = TaddClick
end
object Tupd: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20462#25913
ImageIndex = 3
OnClick = TupdClick
end
object ToolButton4: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #35774#35745#26631#31614
ImageIndex = 3
OnClick = ToolButton4Click
end
object Tdel: TToolButton
Left = 237
Top = 0
AutoSize = True
Caption = #21024#38500
ImageIndex = 5
OnClick = TdelClick
end
object ToolButton2: TToolButton
Left = 308
Top = 0
AutoSize = True
Caption = #35774#20026#21253#26631#31614
ImageIndex = 22
OnClick = ToolButton2Click
end
object ToolButton1: TToolButton
Left = 415
Top = 0
AutoSize = True
Caption = #35774#20026#21367#26631#31614
ImageIndex = 22
OnClick = ToolButton1Click
end
end
end
end
object cxTabSheet4: TcxTabSheet
Caption = ' '#21367#26631#31614' '
ImageIndex = 3
object RMPreview1: TRMPreview
Left = 0
Top = 0
Width = 1220
Height = 379
Align = alClient
BevelOuter = bvLowered
Caption = 'Insert After'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 0
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
end
end
object cxTabSheet3: TcxTabSheet
Caption = ' '#21253#26631#31614' '
ImageIndex = 3
object RMPreview2: TRMPreview
Left = 0
Top = 0
Width = 1220
Height = 379
Align = alClient
BevelOuter = bvLowered
Caption = 'Insert After'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ParentShowHint = False
ShowHint = False
TabOrder = 0
Options.RulerUnit = rmutScreenPixels
Options.RulerVisible = False
Options.DrawBorder = False
Options.BorderPen.Color = clGray
Options.BorderPen.Style = psDash
end
end
end
inherited ADOQueryBaseCmd: TADOQuery
Connection = DataLink_DyePlan.ADOLink
Left = 977
Top = 104
end
inherited ADOQueryBaseTemp: TADOQuery
Connection = DataLink_DyePlan.ADOLink
Left = 1057
Top = 105
end
inherited ImageList_new32: TImageList
Left = 88
Top = 432
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_DyePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 171
Top = 280
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_DyePlan.ADOLink
Parameters = <>
Left = 78
Top = 280
end
object ADOQueryMain: TADOQuery
Connection = DataLink_DyePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 181
Top = 489
end
object ADOQueryLabel: TADOQuery
Connection = DataLink_DyePlan.ADOLink
Parameters = <>
Left = 228
Top = 365
end
object RM1: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
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_1
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 472
Top = 240
ReportData = {}
end
object RMDB_1: TRMDBDataSet
Visible = True
DataSet = ADO_1
Left = 428
Top = 244
end
object ADO_1: TADOQuery
Connection = DataLink_DyePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 283
Top = 288
end
object RM2: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
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_1
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 472
Top = 296
ReportData = {}
end
object RMDB_2: TRMDBDataSet
Visible = True
DataSet = ADO_1
Left = 428
Top = 300
end
object DS_Label: TDataSource
DataSet = CDS_Label
Left = 234
Top = 568
end
object CDS_Label: TClientDataSet
Aggregates = <>
Params = <>
Left = 164
Top = 563
end
object RMDB_Label: TRMDBDataSet
Visible = True
DataSet = ADO_1
Left = 164
Top = 620
end
object RMLabel: TRMGridReport
ThreadPrepareReport = True
InitialZoom = pzDefault
PreviewButtons = [rmpbZoom, rmpbLoad, rmpbSave, rmpbPrint, rmpbFind, rmpbPageSetup, rmpbExit, rmpbSaveToXLS, rmpbExport, rmpbNavigator]
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_Label
CompressLevel = rmzcFastest
CompressThread = False
LaterBuildEvents = True
OnlyOwnerDataSet = False
Left = 232
Top = 624
ReportData = {}
end
object RMBarCodeObject1: TRMBarCodeObject
Left = 504
Top = 412
end
object RMXLSExport1: TRMXLSExport
ShowAfterExport = True
ExportPrecision = 1
PagesOfSheet = 10
ExportImages = True
ExportFrames = True
ExportImageFormat = ifBMP
JPEGQuality = 0
ScaleX = 1.000000000000000000
ScaleY = 1.000000000000000000
CompressFile = False
Left = 432
Top = 472
end
object RMDataDictionary1: TRMDataDictionary
FieldFieldNames.TableName = 'TableName'
FieldFieldNames.FieldName = 'FieldName'
FieldFieldNames.FieldAlias = 'FieldAlias'
Left = 434
Top = 400
end
object ADO_Down: TADOQuery
Connection = DataLink_DyePlan.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 59
Top = 352
end
end