object frmPieceSampleRk: TfrmPieceSampleRk Left = 267 Top = 144 Width = 1292 Height = 658 BorderIcons = [biSystemMenu] Caption = #33394#21345#25346#26495#20837#24211 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object Label6: TLabel Left = 756 Top = 332 Width = 36 Height = 12 Caption = 'Label6' end object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1276 Height = 29 ButtonHeight = 30 ButtonWidth = 59 Caption = 'ToolBar1' Color = clBtnFace EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_SKGBhouse.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object TBSave: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 15 OnClick = TBSaveClick end object TBClose: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object Panel1: TPanel Left = 0 Top = 29 Width = 1276 Height = 92 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Label1: TLabel Left = 73 Top = 20 Width = 48 Height = 12 Caption = #20837#24211#26085#26399 end object Label2: TLabel Left = 407 Top = 20 Width = 48 Height = 12 Caption = #20837#24211#31867#22411 end object Label8: TLabel Left = 249 Top = 20 Width = 48 Height = 12 Caption = #20837#24211#21333#21495 end object Label9: TLabel Left = 250 Top = 58 Width = 48 Height = 12 Caption = #23384#25918#20179#24211 end object Label3: TLabel Left = 97 Top = 58 Width = 24 Height = 12 Caption = #26469#28304 end object lbl1: TLabel Left = 430 Top = 60 Width = 24 Height = 12 Caption = #31867#22411 end object CRTime: TDateTimePicker Left = 125 Top = 16 Width = 100 Height = 20 Date = 41509.970132187500000000 Format = 'yyyy-MM-dd' Time = 41509.970132187500000000 TabOrder = 0 end object CRType: TComboBox Left = 460 Top = 16 Width = 100 Height = 20 Style = csDropDownList ItemHeight = 12 TabOrder = 2 Items.Strings = ( #37319#36141#20837#24211 #29983#20135#20837#24211 #26399#21021#20837#24211 #23458#25143#36864#26679 #35843#26679#20837#24211) end object InoutNo: TEdit Left = 297 Top = 16 Width = 100 Height = 20 TabOrder = 1 end object FactoryName: TBtnEditA Left = 299 Top = 54 Width = 100 Height = 20 ReadOnly = True TabOrder = 4 OnBtnClick = FactoryNameBtnClick end object fromFactoryName: TBtnEditA Left = 125 Top = 54 Width = 100 Height = 20 TabOrder = 3 OnBtnClick = fromFactoryNameBtnClick end object yptype: TComboBox Left = 460 Top = 54 Width = 100 Height = 20 Style = csDropDownList ItemHeight = 12 TabOrder = 5 Items.Strings = ( #33394#21345 #25346#26495) end end object cxGrid1: TcxGrid Left = 0 Top = 150 Width = 1276 Height = 469 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = < item Format = 'C_Code' end> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum Column = v1Qty end item Kind = skSum Column = v1Money end> DataController.Summary.SummaryGroups = <> OptionsBehavior.FocusCellOnTab = True OptionsBehavior.GoToNextCellOnEnter = True OptionsBehavior.FocusCellOnCycle = True OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False OptionsView.Indicator = True Styles.Header = DataLink_SKGBhouse.Default OnCustomDrawIndicatorCell = Tv1CustomDrawIndicatorCell object v1Column5: TcxGridDBColumn Caption = #29983#20135#36890#30693#21333#21495 DataBinding.FieldName = 'orderNo' HeaderAlignmentHorz = taCenter Width = 105 end object v1P_Code: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'P_Code' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1P_CodePropertiesButtonClick HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 93 end object v1Qty: TcxGridDBColumn Caption = #23454#25910#25968#37327 DataBinding.FieldName = 'qty' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Options.Sorting = False Styles.Header = DataLink_SKGBhouse.FontBlue Width = 91 end object v1QtyUnit: TcxGridDBColumn Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'qtyUnit' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( #20221) HeaderAlignmentHorz = taCenter Options.Sorting = False Styles.Header = DataLink_SKGBhouse.FontBlue Width = 86 end object v1Price: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v1QtyPropertiesEditValueChanged HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 70 end object v1Money: TcxGridDBColumn Caption = #37329#39069 DataBinding.FieldName = 'Money' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Width = 80 end object cv1Column8: TcxGridDBColumn Caption = #26469#26679#25968#37327 DataBinding.FieldName = 'lyqty' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = cv1Column8PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 90 end object v1Note: TcxGridDBColumn Caption = #22791#27880 DataBinding.FieldName = 'Note' HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 179 end object cv1Column9: TcxGridDBColumn DataBinding.FieldName = 'fromFactoryName' Visible = False end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object cxGrid4: TcxGrid Left = 392 Top = 146 Width = 457 Height = 261 TabOrder = 3 Visible = False object TV4: TcxGridDBTableView OnDblClick = TV4DblClick OnKeyPress = TV4KeyPress Navigator.Buttons.CustomButtons = <> DataController.DataSource = DS_YPXZ DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsData.Deleting = False OptionsData.Editing = False OptionsView.GroupByBox = False object V4Column3: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'CYNo' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 200 end end object cxGrid4Level1: TcxGridLevel GridView = TV4 end end object Panel4: TPanel Left = 0 Top = 121 Width = 1276 Height = 29 Align = alTop BevelOuter = bvNone TabOrder = 4 object Panel5: TPanel Left = 320 Top = 0 Width = 956 Height = 29 Align = alRight BevelOuter = bvNone TabOrder = 0 object Label15: TLabel Left = 16 Top = 9 Width = 48 Height = 12 Caption = #25195#25551#20837#21475 end object CYNO: TEdit Left = 70 Top = 3 Width = 152 Height = 24 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnKeyPress = CYNOKeyPress end end object ToolBar2: TToolBar Left = 0 Top = 0 Width = 321 Height = 29 Align = alLeft ButtonHeight = 30 ButtonWidth = 107 Caption = 'ToolBar1' Color = clBtnFace EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_SKGBhouse.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 1 object ToolButton1: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #22686#34892 ImageIndex = 57 OnClick = ToolButton1Click end object ToolButton2: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #21024#34892 ImageIndex = 113 OnClick = ToolButton2Click end object ToolButton3: TToolButton Left = 126 Top = 0 AutoSize = True Caption = #19968#38190#26367#25442 ImageIndex = 86 OnClick = ToolButton3Click end object btn1: TToolButton Left = 213 Top = 0 Caption = #24341#29992#38144#21806#20986#24211 ImageIndex = 87 Visible = False OnClick = btn1Click end end end object ADOQueryCmd: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 292 end object ADOQueryTmp: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 344 Top = 4 end object DataSource1: TDataSource DataSet = CDS_Main Left = 400 Top = 1 end object CDS_Main: TClientDataSet Aggregates = <> Params = <> Left = 464 Top = 1 end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 556 Top = 9 end object DS_YPXZ: TDataSource DataSet = CDS_YPXZ Left = 1036 Top = 356 end object CDS_YPXZ: TClientDataSet Aggregates = <> Params = <> Left = 904 Top = 319 end end