D7myYunxiang/样品新云翔(YPGLBOM.dll)/U_QCRKInPut.dfm

1275 lines
31 KiB
Plaintext
Raw Normal View History

2025-01-20 13:04:03 +08:00
object frmQCRKInPut: TfrmQCRKInPut
Left = 227
Top = 125
Width = 1355
Height = 653
Caption = #26399#21021#20837#24211#24405#20837
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -17
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnShow = FormShow
PixelsPerInch = 107
TextHeight = 17
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 1339
Height = 30
ButtonHeight = 30
ButtonWidth = 79
Caption = 'ToolBar1'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = #23435#20307
Font.Style = [fsBold]
Images = DataLink_YPGLBOM.ThreeImgList
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 0
object Label26: TLabel
Left = 0
Top = 0
Width = 36
Height = 30
Caption = ' '
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object TBSave: TToolButton
Left = 36
Top = 0
Caption = #20445#23384
ImageIndex = 5
OnClick = TBSaveClick
end
object Label19: TLabel
Left = 115
Top = 0
Width = 384
Height = 30
Caption = ' '
end
object labMYType: TLabel
Left = 499
Top = 0
Width = 120
Height = 30
Caption = #26579#33394#38754#26009
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -29
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label21: TLabel
Left = 619
Top = 0
Width = 432
Height = 30
Caption = ' '
end
object TBClose: TToolButton
Left = 1051
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 21
OnClick = TBCloseClick
end
end
object Panel3: TPanel
Left = 0
Top = 30
Width = 427
Height = 583
Align = alLeft
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object Label34: TLabel
Left = 31
Top = 83
Width = 51
Height = 16
Caption = #32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label13: TLabel
Left = 651
Top = 34
Width = 85
Height = 16
Caption = #20837#24211#26085#26399#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label1: TLabel
Left = 31
Top = 139
Width = 51
Height = 16
Caption = #21697#21517#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 31
Top = 311
Width = 51
Height = 16
Caption = #22791#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label11: TLabel
Left = 31
Top = 254
Width = 51
Height = 16
Caption = #39068#33394#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label12: TLabel
Left = 233
Top = 197
Width = 51
Height = 16
Caption = #20811#37325#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 31
Top = 197
Width = 51
Height = 16
Caption = #38376#24133#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 162
Top = 196
Width = 23
Height = 19
Caption = 'CM'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Cambria'
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 360
Top = 196
Width = 33
Height = 19
Caption = 'g/'#13217
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Cambria'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 233
Top = 254
Width = 51
Height = 16
Caption = #33394#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 347
Top = 248
Width = 15
Height = 28
Caption = '#'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'Cambria'
Font.Style = [fsBold]
ParentFont = False
end
object Label27: TLabel
Left = 31
Top = 26
Width = 51
Height = 16
Caption = #25195#25551#65306
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object MYCode: TEdit
Tag = 2
Left = 91
Top = 78
Width = 308
Height = 22
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object CRTime: TDateTimePicker
Tag = 2
Left = 741
Top = 31
Width = 143
Height = 23
Date = 42459.000000000000000000
Time = 42459.000000000000000000
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
end
object MYName: TEdit
Tag = 2
Left = 91
Top = 136
Width = 308
Height = 22
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 2
OnKeyPress = MYNameKeyPress
end
object Note: TEdit
Tag = 2
Left = 91
Top = 307
Width = 308
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object cxGroupBox1: TcxGroupBox
Left = 2
Top = 282
Align = alBottom
Caption = #32454#30721#21333#24405#20837#8594#36755#20837#27599#21367#25968#37327#25970#22238#36710
ParentColor = False
ParentFont = False
Style.Color = clBtnFace
Style.Font.Charset = GB2312_CHARSET
Style.Font.Color = clBlue
Style.Font.Height = -22
Style.Font.Name = #24494#36719#38597#40657
Style.Font.Style = [fsBold]
Style.IsFontAssigned = True
TabOrder = 4
Height = 299
Width = 423
object Label7: TLabel
Left = 43
Top = 164
Width = 86
Height = 30
Caption = #25968' '#37327
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -22
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 185
Top = 133
Width = 22
Height = 30
Caption = #31859
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -22
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 182
Top = 205
Width = 44
Height = 30
Caption = #20844#26020
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -22
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 43
Top = 68
Width = 88
Height = 30
Caption = #20837#24211#32568#21495
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -22
Font.Name = #24494#36719#38597#40657
Font.Style = []
ParentFont = False
end
object QtyLRM: TEdit
Left = 256
Top = 125
Width = 82
Height = 35
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -22
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
Visible = False
OnKeyPress = QtyLRMKeyPress
end
object UnitM: TEdit
Left = 142
Top = 118
Width = 40
Height = 54
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = UnitMClick
end
object UnitKg: TEdit
Left = 139
Top = 190
Width = 41
Height = 54
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -40
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = UnitKgClick
end
object RCGangNo: TEdit
Left = 142
Top = 63
Width = 197
Height = 35
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -22
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object QtyLRKg: TEdit
Left = 256
Top = 206
Width = 82
Height = 35
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -22
Font.Name = #24494#36719#38597#40657
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
Visible = False
OnKeyPress = QtyLRKgKeyPress
end
object BtnM: TButton
Left = 345
Top = 125
Width = 57
Height = 39
Caption = #30830#35748
TabOrder = 5
Visible = False
OnClick = BtnMClick
end
object BtnKg: TButton
Left = 345
Top = 206
Width = 57
Height = 40
Caption = #30830#35748
TabOrder = 6
Visible = False
OnClick = BtnKgClick
end
end
object MYColor: TEdit
Tag = 2
Left = 91
Top = 250
Width = 95
Height = 22
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 5
end
object MYKZ: TEdit
Tag = 2
Left = 289
Top = 194
Width = 68
Height = 22
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 6
end
object MYMF: TEdit
Tag = 2
Left = 91
Top = 194
Width = 68
Height = 22
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 7
end
object MYColorNo: TEdit
Tag = 2
Left = 289
Top = 250
Width = 60
Height = 22
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 8
end
object MYType: TBtnEditA
Tag = 2
Left = 698
Top = 203
Width = 113
Height = 23
Hint = 'MYTypeFlag'
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 9
end
object MLID: TEdit
Tag = 2
Left = 696
Top = 102
Width = 139
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 10
end
object BPID: TEdit
Tag = 2
Left = 696
Top = 138
Width = 139
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 11
end
object DYID: TEdit
Tag = 2
Left = 696
Top = 66
Width = 139
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 12
end
object PTID: TEdit
Tag = 2
Left = 696
Top = 175
Width = 139
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 13
end
object Edit1: TEdit
Tag = 99
Left = 91
Top = 23
Width = 308
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
OnKeyPress = Edit1KeyPress
end
end
object Panel1: TPanel
Left = 427
Top = 30
Width = 912
Height = 583
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Panel2: TPanel
Left = 2
Top = 2
Width = 908
Height = 47
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label4: TLabel
Left = 31
Top = 14
Width = 38
Height = 18
Caption = #32568#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 142
Top = 14
Width = 38
Height = 18
Caption = #21305#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label17: TLabel
Left = 249
Top = 14
Width = 57
Height = 18
Caption = #20844#26020#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 505
Top = 14
Width = 38
Height = 18
Caption = #31859#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label25: TLabel
Left = 383
Top = 14
Width = 38
Height = 18
Caption = #22343#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 621
Top = 14
Width = 38
Height = 18
Caption = #22343#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object GangQty: TEdit
Tag = 2
Left = 71
Top = 10
Width = 41
Height = 22
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object MXHZPS: TEdit
Tag = 2
Left = 181
Top = 10
Width = 41
Height = 22
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 1
end
object MXHZKGQty: TEdit
Tag = 2
Left = 308
Top = 10
Width = 73
Height = 22
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 2
end
object MXHZQty: TEdit
Tag = 2
Left = 546
Top = 10
Width = 73
Height = 22
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 3
end
object BtnDel: TButton
Left = 807
Top = 9
Width = 45
Height = 28
Caption = #21024#38500
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = BtnDelClick
end
object KgQtyAvg: TEdit
Tag = 99
Left = 422
Top = 10
Width = 55
Height = 22
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 5
end
object QtyAvg: TEdit
Tag = 99
Left = 660
Top = 10
Width = 55
Height = 22
Color = clMenuBar
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
ReadOnly = True
TabOrder = 6
end
object Button3: TButton
Left = 734
Top = 9
Width = 46
Height = 28
Caption = #25171#21360
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnClick = Button3Click
end
end
object cxGrid1: TcxGrid
Left = 2
Top = 49
Width = 908
Height = 460
Align = alClient
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
object Tv1: TcxGridDBTableView
NavigatorButtons.ConfirmDelete = False
OnCellDblClick = Tv1CellDblClick
DataController.DataSource = DataSource1
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <
item
Format = '0.0'
Kind = skSum
Column = v1Column17
end
item
Format = '0.0'
Kind = skSum
Column = v1Column3
end
item
Kind = skCount
Column = v1Column1
end>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsView.Footer = True
OptionsView.GroupByBox = False
object v1Column4: TcxGridDBColumn
Caption = #36873#20013
DataBinding.FieldName = 'SSel'
PropertiesClassName = 'TcxCheckBoxProperties'
Properties.ImmediatePost = True
Properties.NullStyle = nssUnchecked
HeaderAlignmentHorz = taCenter
Width = 46
end
object v1Column6: TcxGridDBColumn
Caption = #20837#24211#32568#21495
DataBinding.FieldName = 'RCGangNo'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 127
end
object v1Column2: TcxGridDBColumn
Caption = #31995#32479#32568#21495
DataBinding.FieldName = 'GangNo'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 101
end
object v1Column1: TcxGridDBColumn
Caption = #21367#21495
DataBinding.FieldName = 'JH'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 74
end
object v1Column17: TcxGridDBColumn
Caption = #20844#26020#25968
DataBinding.FieldName = 'KgQty'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Options.Focusing = False
Width = 113
end
object v1Column3: TcxGridDBColumn
Caption = #31859#25968
DataBinding.FieldName = 'MQty'
HeaderAlignmentHorz = taCenter
Options.Focusing = False
Width = 100
end
object v1Column7: TcxGridDBColumn
Caption = #25805#20316#26597#30475
DataBinding.FieldName = 'Laster'
PropertiesClassName = 'TcxButtonEditProperties'
Properties.Buttons = <
item
Default = True
Kind = bkEllipsis
end>
Properties.ReadOnly = True
Properties.OnButtonClick = v1Column7PropertiesButtonClick
HeaderAlignmentHorz = taCenter
Width = 79
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object Panel4: TPanel
Left = 2
Top = 509
Width = 908
Height = 72
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 2
Visible = False
object Label23: TLabel
Left = 405
Top = 25
Width = 57
Height = 18
Caption = #20844#26020#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label24: TLabel
Left = 561
Top = 25
Width = 38
Height = 18
Caption = #31859#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label20: TLabel
Left = 205
Top = 25
Width = 76
Height = 18
Caption = #20837#24211#32568#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -18
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object KgQty1: TEdit
Tag = 2
Left = 464
Top = 22
Width = 78
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object MQty1: TEdit
Tag = 2
Left = 601
Top = 22
Width = 79
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object Button6: TButton
Left = 712
Top = 16
Width = 69
Height = 37
Caption = #30830#23450
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = Button6Click
end
object RCGangNO1: TEdit
Tag = 2
Left = 282
Top = 22
Width = 97
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object Button1: TButton
Left = 62
Top = 16
Width = 119
Height = 37
Caption = #25209#37327#26356#25913#32568#21495
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = Button1Click
end
end
object Panel5: TPanel
Left = 598
Top = 73
Width = 327
Height = 267
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 3
Visible = False
object Label28: TLabel
Left = 74
Top = 52
Width = 56
Height = 27
Caption = #24352#25968
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label29: TLabel
Left = 74
Top = 125
Width = 56
Height = 27
Caption = #23610#23544
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label30: TLabel
Left = 125
Top = 12
Width = 68
Height = 16
Caption = #26631#31614#25171#21360
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object ComboBox2: TComboBox
Left = 133
Top = 48
Width = 105
Height = 35
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 27
ParentFont = False
TabOrder = 0
Items.Strings = (
'1'
'2'
'3')
end
object ComboBox1: TComboBox
Left = 133
Top = 120
Width = 105
Height = 35
Style = csDropDownList
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = #23435#20307
Font.Style = [fsBold]
ItemHeight = 27
ParentFont = False
TabOrder = 1
Items.Strings = (
'8*5'
'9*7')
end
object BtnPrt: TButton
Left = 214
Top = 190
Width = 91
Height = 57
Caption = #30830#23450
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = BtnPrtClick
end
object BtnQX: TButton
Left = 25
Top = 190
Width = 91
Height = 57
Caption = #21462#28040
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -37
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = BtnQXClick
end
end
end
object ADOTemp: TADOQuery
Connection = DataLink_YPGLBOM.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 736
Top = 317
end
object ADOCmd: TADOQuery
Connection = DataLink_YPGLBOM.ADOLink
Parameters = <>
Left = 672
Top = 317
end
object ADOQuery1: TADOQuery
Connection = DataLink_YPGLBOM.ADOLink
Parameters = <>
Left = 704
Top = 317
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 648
Top = 320
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
Left = 624
Top = 320
end
object cxGridPopupMenu1: TcxGridPopupMenu
PopupMenus = <>
Left = 592
Top = 320
end
object RM1: 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 = 770
Top = 326
ReportData = {}
end
object CDS_Print: TClientDataSet
Aggregates = <>
Params = <>
Left = 808
Top = 326
end
object RMDB_Main: TRMDBDataSet
Visible = True
DataSet = CDS_Print
Left = 842
Top = 327
end
end