D10myYicheng/样品(YPGL.dll)/U_CPAdd.dfm

669 lines
16 KiB
Plaintext
Raw Permalink Normal View History

2025-05-27 14:08:09 +08:00
object frmCPAdd: TfrmCPAdd
Left = 459
Top = 231
Anchors = []
Caption = #25104#21697#24405#20837
ClientHeight = 507
ClientWidth = 716
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = True
Position = poScreenCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 12
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 716
Height = 38
AutoSize = True
ButtonHeight = 38
ButtonWidth = 115
Caption = 'ToolBar1'
Color = clWhite
DisabledImages = DataLink_YPGL.ImageList_new32
Images = DataLink_YPGL.ImageList_new32
List = True
ParentColor = False
ShowCaptions = True
TabOrder = 0
object ToolButton1: TToolButton
Tag = 1
Left = 0
Top = 0
AutoSize = True
Caption = #20445#23384
ImageIndex = 16
OnClick = ToolButton1Click
end
object TBClose: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #20851#38381
ImageIndex = 7
OnClick = TBCloseClick
end
object ToolButton2: TToolButton
Left = 142
Top = 0
AutoSize = True
Caption = #20999#25442#38376#24133#21333#20301
ImageIndex = 1
Visible = False
OnClick = ToolButton2Click
end
end
object ScrollBox1: TScrollBox
Left = 0
Top = 38
Width = 716
Height = 196
Align = alClient
BevelInner = bvNone
BevelOuter = bvNone
Color = clWhite
Ctl3D = False
ParentColor = False
ParentCtl3D = False
TabOrder = 1
object Label1: TLabel
Left = 31
Top = 33
Width = 65
Height = 12
Caption = #20135#21697#32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label5: TLabel
Left = 362
Top = 33
Width = 65
Height = 12
Caption = #20135#21697#21517#31216#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label15: TLabel
Left = 31
Top = 107
Width = 67
Height = 12
Caption = #38376' '#24133#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 362
Top = 107
Width = 67
Height = 12
Caption = #20811' '#37325#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 73
Top = 440
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
Visible = False
end
object Label4: TLabel
Left = 373
Top = 440
Width = 51
Height = 16
Caption = #33457#22411#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object Label3: TLabel
Left = 33
Top = 486
Width = 51
Height = 16
Caption = #26465#30721#65306
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Visible = False
end
object lbl1: TLabel
Left = 362
Top = 132
Width = 67
Height = 12
Caption = #21333' '#20301#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 31
Top = 56
Width = 65
Height = 12
Caption = #38271#24230#31995#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label16: TLabel
Left = 31
Top = 132
Width = 67
Height = 12
Caption = #32553' '#29575#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 362
Top = 56
Width = 65
Height = 12
Caption = #20307#31215#31995#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 31
Top = 157
Width = 67
Height = 12
Caption = #36135' '#25551#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label7: TLabel
Left = 362
Top = 80
Width = 67
Height = 12
Caption = #25104' '#20998#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label8: TLabel
Left = 31
Top = 80
Width = 65
Height = 12
Caption = #21152#24037#24037#33402#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 299
Top = 56
Width = 28
Height = 12
Caption = 'M/KG'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object Label10: TLabel
Left = 362
Top = 157
Width = 67
Height = 12
Caption = #26469' '#28304#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
end
object CYNo: TEdit
Tag = 2
Left = 93
Top = 30
Width = 234
Height = 18
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnKeyPress = CYColorKeyPress
end
object CYName: TEdit
Tag = 2
Left = 426
Top = 30
Width = 234
Height = 18
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnKeyPress = CYColorKeyPress
end
object CYColor: TEdit
Tag = 2
Left = 116
Top = 437
Width = 218
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 12
Visible = False
end
object CYHX: TEdit
Tag = 2
Left = 416
Top = 437
Width = 218
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 13
Visible = False
end
object CYID: TEdit
Left = 76
Top = 483
Width = 218
Height = 22
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
Visible = False
end
object CYPUnit: TEdit
Tag = 2
Left = 426
Top = 130
Width = 234
Height = 18
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
OnKeyPress = CYColorKeyPress
end
object PBLengthXS: TEdit
Tag = 2
Left = 93
Top = 54
Width = 200
Height = 18
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnKeyPress = CYColorKeyPress
end
object SuoLv: TEdit
Tag = 2
Left = 93
Top = 130
Width = 234
Height = 18
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
OnExit = CYMFExit
OnKeyPress = CYColorKeyPress
end
object CYTiJi: TEdit
Tag = 2
Left = 426
Top = 54
Width = 234
Height = 18
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnKeyPress = CYColorKeyPress
end
object HuoMiao: TEdit
Tag = 2
Left = 93
Top = 154
Width = 234
Height = 18
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnExit = CYMFExit
OnKeyPress = CYColorKeyPress
end
object CYJGGY: TBtnEditC
Tag = 2
Left = 93
Top = 78
Width = 234
Height = 20
Hint = 'CYJGGY/'#21152#24037#24037#33402
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnKeyPress = CYColorKeyPress
OnBtnUpClick = CYJGGYBtnUpClick
OnBtnDnClick = CYJGGYBtnDnClick
end
object CYMF: TBtnEditC
Tag = 2
Left = 93
Top = 106
Width = 234
Height = 20
Hint = 'CYMF/'#38376#24133
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
OnBtnUpClick = CYMFBtnUpClick
OnBtnDnClick = CYMFBtnDnClick
end
object CYKZ: TBtnEditC
Tag = 2
Left = 426
Top = 104
Width = 234
Height = 20
Hint = 'CYKZ/'#20811#37325
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
OnBtnUpClick = CYMFBtnUpClick
OnBtnDnClick = CYMFBtnDnClick
end
object CYCF: TBtnEditC
Tag = 2
Left = 426
Top = 78
Width = 234
Height = 20
Hint = 'CYCF/'#25104#20998
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
OnBtnUpClick = CYMFBtnUpClick
OnBtnDnClick = CYMFBtnDnClick
end
object LaiYuan: TBtnEditC
Tag = 2
Left = 426
Top = 154
Width = 234
Height = 20
Hint = 'LaiYuan/'#26469#28304
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
TabOrder = 14
OnBtnUpClick = CYMFBtnUpClick
OnBtnDnClick = CYMFBtnDnClick
end
end
object ToolBar2: TToolBar
Left = 0
Top = 234
Width = 716
Height = 38
Align = alBottom
AutoSize = True
ButtonHeight = 38
ButtonWidth = 75
Caption = 'ToolBar2'
Color = clBtnFace
EdgeInner = esNone
EdgeOuter = esNone
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Images = DataLink_YPGL.ImageList_new32
List = True
ParentColor = False
ParentFont = False
ShowCaptions = True
TabOrder = 2
object ToolButton3: TToolButton
Left = 0
Top = 0
AutoSize = True
Caption = #22686#34892
ImageIndex = 2
OnClick = ToolButton3Click
end
object ToolButton4: TToolButton
Left = 71
Top = 0
AutoSize = True
Caption = #21024#34892
ImageIndex = 6
OnClick = ToolButton4Click
end
end
object cxGrid1: TcxGrid
Left = 0
Top = 272
Width = 716
Height = 235
Align = alBottom
TabOrder = 3
object Tv1: TcxGridDBTableView
Navigator.Buttons.CustomButtons = <>
Navigator.Buttons.Delete.Enabled = False
Navigator.Buttons.Delete.Visible = False
DataController.DataSource = DataSource2
DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost]
DataController.Summary.DefaultGroupSummaryItems = <>
DataController.Summary.FooterSummaryItems = <>
DataController.Summary.SummaryGroups = <>
OptionsCustomize.ColumnFiltering = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsView.GroupByBox = False
Styles.IncSearch = DataLink_YPGL.SHuangSe
Styles.Header = DataLink_YPGL.Default
Styles.Inactive = DataLink_YPGL.SHuangSe
Styles.Selection = DataLink_YPGL.SHuangSe
object v1CYNo: TcxGridDBColumn
Caption = #22383#24067#32534#21495
DataBinding.FieldName = 'CYNo'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_YPGL.Default
Width = 92
end
object v1Column9: TcxGridDBColumn
Caption = #22383#24067#21517#31216
DataBinding.FieldName = 'CYName'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 150
end
object cv1Column10: TcxGridDBColumn
Caption = #38376#24133
DataBinding.FieldName = 'CYMF'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Width = 92
end
object v1Column2: TcxGridDBColumn
Caption = #20811#37325
DataBinding.FieldName = 'CYKZ'
HeaderAlignmentHorz = taCenter
Options.Editing = False
Styles.Header = DataLink_YPGL.Default
Width = 119
end
end
object cxGrid1Level1: TcxGridLevel
GridView = Tv1
end
end
object CDS_Sub: TClientDataSet
Aggregates = <>
Params = <>
Left = 736
Top = 296
end
object ADOQueryMain: TADOQuery
Connection = DataLink_YPGL.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 477
Top = 1
end
object DataSource2: TDataSource
DataSet = CDS_Sub
Left = 731
Top = 235
end
object ADOQueryCmd: TADOQuery
Connection = DataLink_YPGL.ADOLink
Parameters = <>
Left = 353
Top = 1
end
object ADOQueryTemp: TADOQuery
Connection = DataLink_YPGL.ADOLink
LockType = ltReadOnly
Parameters = <>
Left = 581
Top = 1
end
object DataSource1: TDataSource
DataSet = ClientDataSet1
Left = 371
Top = 567
end
object ClientDataSet1: TClientDataSet
Aggregates = <>
Params = <>
Left = 308
Top = 560
end
end