D7gmYongjin/纱线加弹管理(YarnTexturing.dll)/U_JTSJY220725.dfm

1045 lines
27 KiB
Plaintext
Raw Normal View History

2026-03-04 09:51:44 +08:00
object frmJTSJY220725: TfrmJTSJY220725
Left = 79
Top = 46
Width = 1398
Height = 930
Caption = #21152#24377#19997#31216#37325
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = #23435#20307
Font.Style = [fsBold]
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 120
TextHeight = 24
object CPInfo: TRichEdit
Left = 0
Top = 0
Width = 306
Height = 883
Align = alLeft
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -30
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ScrollBars = ssVertical
TabOrder = 0
end
object Panel3: TPanel
Left = 306
Top = 0
Width = 1074
Height = 883
Align = alClient
Caption = 'Panel3'
Color = clSkyBlue
TabOrder = 1
object Panel4: TPanel
Left = 1
Top = 1
Width = 526
Height = 881
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label5: TLabel
Left = 11
Top = 839
Width = 72
Height = 70
Caption = #22791#27880#13#10#26426#21488
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Panel2: TPanel
Left = 2
Top = 704
Width = 522
Height = 120
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label4: TLabel
Left = 243
Top = 20
Width = 82
Height = 80
Caption = 'Kg'
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -80
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object SQty: TEdit
Left = 16
Top = 15
Width = 228
Height = 88
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -80
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = SQtyClick
end
object Button3: TButton
Left = 352
Top = 20
Width = 153
Height = 82
Caption = #25171#21360
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -30
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Button3Click
end
end
object Panel8: TPanel
Left = 2
Top = 74
Width = 522
Height = 270
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object Label1: TLabel
Left = 10
Top = 10
Width = 72
Height = 70
Caption = #32440#31649#13#10#39068#33394
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object ZGHLab: TLabel
Tag = 2
Left = 195
Top = 8
Width = 77
Height = 79
AutoSize = False
Caption = #20986#32440
Color = clRed
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -22
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
Visible = False
end
object ZGLLab: TLabel
Tag = 2
Left = 426
Top = 6
Width = 77
Height = 81
AutoSize = False
Color = 16752190
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -22
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
Visible = False
end
object ZGFHLab1: TLabel
Tag = 2
Left = 193
Top = 93
Width = 39
Height = 80
AutoSize = False
Caption = #20986#32440
Color = clFuchsia
Font.Charset = ANSI_CHARSET
Font.Color = clFuchsia
Font.Height = -22
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
Visible = False
end
object ZGFHLab2: TLabel
Tag = 2
Left = 232
Top = 93
Width = 40
Height = 80
AutoSize = False
Color = clBlack
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -22
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
Visible = False
end
object ZGLH2: TLabel
Tag = 2
Left = 464
Top = 93
Width = 39
Height = 80
AutoSize = False
Color = clSilver
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -22
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
Visible = False
end
object ZGLH1: TLabel
Tag = 2
Left = 424
Top = 93
Width = 40
Height = 80
AutoSize = False
Color = 4259584
Font.Charset = ANSI_CHARSET
Font.Color = clFuchsia
Font.Height = -22
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
Visible = False
end
object ZGHuangLab: TLabel
Tag = 2
Left = 193
Top = 181
Width = 79
Height = 80
AutoSize = False
Color = clYellow
Font.Charset = ANSI_CHARSET
Font.Color = clFuchsia
Font.Height = -22
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
Visible = False
end
object ZGHuangBLab2: TLabel
Tag = 2
Left = 464
Top = 181
Width = 39
Height = 80
AutoSize = False
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clGreen
Font.Height = -22
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
Visible = False
end
object ZGHuangBLab1: TLabel
Tag = 2
Left = 424
Top = 181
Width = 40
Height = 80
AutoSize = False
Color = 4227072
Font.Charset = ANSI_CHARSET
Font.Color = clFuchsia
Font.Height = -22
Font.Name = 'Arial'
Font.Style = []
ParentColor = False
ParentFont = False
Visible = False
end
object Label6: TLabel
Left = 19
Top = 99
Width = 72
Height = 70
Caption = #20219#24847#13#10' '#33394
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object ZGH: TEdit
Tag = 2
Left = 106
Top = 6
Width = 87
Height = 80
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -72
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
Visible = False
OnClick = ZGHClick
end
object ZGL: TEdit
Tag = 2
Left = 339
Top = 6
Width = 87
Height = 80
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -72
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 1
Visible = False
OnClick = ZGHClick
end
object ZGFH: TEdit
Tag = 2
Left = 105
Top = 93
Width = 87
Height = 80
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -72
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 2
Visible = False
OnClick = ZGHClick
end
object ZGLH: TEdit
Tag = 2
Left = 337
Top = 93
Width = 87
Height = 80
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -72
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 3
Visible = False
OnClick = ZGHClick
end
object ZGHuang: TEdit
Tag = 2
Left = 105
Top = 181
Width = 87
Height = 80
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -72
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 4
Visible = False
OnClick = ZGHClick
end
object ZGHuangB: TEdit
Tag = 2
Left = 337
Top = 181
Width = 87
Height = 80
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -72
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 5
Visible = False
OnClick = ZGHClick
end
object ZGRYS: TEdit
Tag = 2
Left = 9
Top = 181
Width = 87
Height = 80
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -72
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 6
Visible = False
OnClick = ZGHClick
end
end
object Panel9: TPanel
Left = 2
Top = 464
Width = 522
Height = 120
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
object Label3: TLabel
Left = 5
Top = 42
Width = 86
Height = 42
Caption = #31561#32423
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -42
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Y_Type: TComboBox
Left = 93
Top = 27
Width = 420
Height = 77
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -62
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ItemHeight = 69
ItemIndex = 0
ParentFont = False
TabOrder = 0
Text = #21452'A'#22909#19997
Items.Strings = (
#21452'A'#22909#19997
#21333'A'#21482#20570#40657#30333
'B'#31561#27611#19997)
end
end
object Panel6: TPanel
Left = 2
Top = 2
Width = 522
Height = 72
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 3
object btnSampleSel: TButton
Left = 23
Top = 6
Width = 130
Height = 61
Caption = #36873#25321#21697#31181
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -22
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = btnSampleSelClick
end
object Button1: TButton
Left = 383
Top = 6
Width = 130
Height = 61
Caption = #20851#38381
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -22
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
end
object Panel1: TPanel
Left = 2
Top = 584
Width = 522
Height = 120
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 4
object Label14: TLabel
Left = 11
Top = 20
Width = 72
Height = 70
Caption = #26631#31614#13#10#20221#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 174
Top = 20
Width = 72
Height = 70
Caption = #33258#21160#13#10#21462#20540
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object ComboBox1: TComboBox
Left = 93
Top = 16
Width = 75
Height = 77
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -62
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ItemHeight = 69
ItemIndex = 0
ParentFont = False
TabOrder = 0
Text = '1'
Items.Strings = (
'1'
'2'
'3'
'4')
end
object Edit13: TEdit
Left = 249
Top = 15
Width = 87
Height = 80
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -72
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 1
Text = #8730
OnClick = Edit13Click
end
object Button2: TButton
Left = 352
Top = 15
Width = 153
Height = 82
Caption = #37325#25171
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -30
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button2Click
end
end
object Panel5: TPanel
Left = 2
Top = 344
Width = 522
Height = 120
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 5
object Label2: TLabel
Left = 5
Top = 42
Width = 86
Height = 42
Caption = #26426#21488
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -42
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 227
Top = 29
Width = 72
Height = 70
Caption = #32440#31649#13#10#39063#25968
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -35
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 436
Top = 24
Width = 81
Height = 80
Caption = #39063
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -80
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object MachNO: TComboBox
Left = 93
Top = 27
Width = 129
Height = 77
Style = csDropDownList
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -62
Font.Name = 'Times New Roman'
Font.Style = [fsBold]
ItemHeight = 69
ItemIndex = 0
ParentFont = False
TabOrder = 0
Text = '1'#21495
Items.Strings = (
'1'#21495
'2'#21495
#20551#25467#19997)
end
object ZGQty: TEdit
Left = 309
Top = 20
Width = 122
Height = 88
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -80
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
Text = '20'
OnClick = ZGQtyClick
end
end
object JTNote: TEdit
Left = 82
Top = 829
Width = 227
Height = 88
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -80
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnClick = SQtyClick
end
end
object Panel10: TPanel
Left = 527
Top = 1
Width = 508
Height = 881
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel10'
Color = clSkyBlue
TabOrder = 1
object cxGrid3: TcxGrid
Left = 2
Top = 2
Width = 504
Height = 586
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object Tv3: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Kind = skCount
Column = cxGridDBColumn1
end
item
Kind = skSum
Column = v3Column2
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsSelection.CellSelect = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object cxGridDBColumn1: TcxGridDBColumn
Caption = #26465#30721#21495
DataBinding.FieldName = 'JYID'
OnCustomDrawCell = cxGridDBColumn1CustomDrawCell
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
SortIndex = 0
SortOrder = soDescending
Width = 106
end
object v3Column4: TcxGridDBColumn
Caption = #39068#33394
DataBinding.FieldName = 'ZGColor'
OnCustomDrawCell = cxGridDBColumn1CustomDrawCell
HeaderAlignmentHorz = taCenter
Width = 59
end
object v3Column1: TcxGridDBColumn
Caption = #39063#25968
DataBinding.FieldName = 'ZGKS'
OnCustomDrawCell = cxGridDBColumn1CustomDrawCell
HeaderAlignmentHorz = taCenter
Width = 42
end
object v3Column3: TcxGridDBColumn
Caption = #20928#37325
DataBinding.FieldName = 'JYNW'
OnCustomDrawCell = cxGridDBColumn1CustomDrawCell
HeaderAlignmentHorz = taCenter
Width = 74
end
object v3Column2: TcxGridDBColumn
Caption = #27611#37325
DataBinding.FieldName = 'JYGW'
OnCustomDrawCell = cxGridDBColumn1CustomDrawCell
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Sorting = False
Width = 66
end
object Tv3Column1: TcxGridDBColumn
Caption = #26426#21488
DataBinding.FieldName = 'MachNO'
OnCustomDrawCell = cxGridDBColumn1CustomDrawCell
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 63
end
end
object cxGridLevel2: TcxGridLevel
GridView = Tv3
end
end
object Panel7: TPanel
Left = 2
Top = 588
Width = 504
Height = 291
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object SpeedButton1: TSpeedButton
Left = 69
Top = 10
Width = 88
Height = 89
Caption = '0'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -47
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 163
Top = 10
Width = 88
Height = 89
Caption = '1'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -47
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton3: TSpeedButton
Left = 256
Top = 10
Width = 88
Height = 89
Caption = '2'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -47
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton4: TSpeedButton
Left = 349
Top = 10
Width = 89
Height = 89
Caption = '3'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -47
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton5: TSpeedButton
Left = 69
Top = 101
Width = 88
Height = 88
Caption = '4'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -47
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton6: TSpeedButton
Left = 163
Top = 101
Width = 88
Height = 88
Caption = '5'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -47
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton7: TSpeedButton
Left = 256
Top = 101
Width = 88
Height = 88
Caption = '6'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -47
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton8: TSpeedButton
Left = 349
Top = 101
Width = 89
Height = 88
Caption = '7'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -47
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton9: TSpeedButton
Left = 69
Top = 196
Width = 88
Height = 88
Caption = '8'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -47
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton10: TSpeedButton
Left = 163
Top = 196
Width = 88
Height = 88
Caption = '9'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -47
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton11: TSpeedButton
Tag = 9
Left = 256
Top = 196
Width = 88
Height = 88
Caption = '.'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = #40657#20307
Font.Style = [fsBold]
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton12: TSpeedButton
Left = 349
Top = 196
Width = 89
Height = 88
Caption = #8592
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -47
Font.Name = #40657#20307
Font.Style = []
ParentFont = False
OnClick = SpeedButton12Click
end
end
end
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_YarnTexturing.ADOLink
Parameters = <>
Left = 592
Top = 112
end
object ADOCmd: TADOQuery
Connection = DataLink_YarnTexturing.ADOLink
Parameters = <>
Left = 584
Top = 144
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
Left = 923
Top = 169
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 851
Top = 161
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 = 416
Top = 672
ReportData = {}
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = ADOQueryPrint
Left = 448
Top = 672
end
object ADOQueryPrint: TADOQuery
Connection = DataLink_YarnTexturing.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 384
Top = 676
end
end