object frmPieceSampleKcListSEL: TfrmPieceSampleKcListSEL Left = 180 Top = 97 Width = 1290 Height = 643 Caption = #24211#23384#20449#24687#34920 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False Position = poScreenCenter WindowState = wsMaximized OnClose = FormClose OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object Label7: TLabel Left = 268 Top = 16 Width = 52 Height = 12 Caption = #35268#26684#22411#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1274 AutoSize = True ButtonHeight = 30 ButtonWidth = 59 Caption = 'ToolBar1' Color = clSkyBlue 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 TOk: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #30830#23450 ImageIndex = 31 OnClick = TOkClick end object TBRafresh: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #21047#26032 ImageIndex = 0 OnClick = TBRafreshClick end object ToolButton2: TToolButton Left = 126 Top = 0 AutoSize = True Caption = #36807#28388 ImageIndex = 20 OnClick = ToolButton2Click end object TBExport: TToolButton Left = 189 Top = 0 AutoSize = True Caption = #23548#20986 ImageIndex = 68 OnClick = TBExportClick end object TBClose: TToolButton Left = 252 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object Panel1: TPanel Left = 0 Top = 32 Width = 1274 Height = 66 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label18: TLabel Left = 33 Top = 16 Width = 52 Height = 12 Caption = #20135#21697#32534#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label31: TLabel Left = 31 Top = 40 Width = 52 Height = 12 Caption = #23384#25918#24037#21378 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object lbl1: TLabel Left = 176 Top = 17 Width = 54 Height = 12 Caption = #31867' '#22411 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object P_Code: TEdit Tag = 2 Left = 89 Top = 12 Width = 80 Height = 20 TabOrder = 0 OnChange = yptypeChange end object FactoryName: TEdit Tag = 2 Left = 90 Top = 36 Width = 80 Height = 20 TabOrder = 1 OnChange = yptypeChange end object yptype: TEdit Tag = 2 Left = 231 Top = 12 Width = 80 Height = 20 TabOrder = 2 OnChange = yptypeChange end end object cxGrid1: TcxGrid Left = 0 Top = 98 Width = 1274 Height = 506 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clBtnShadow Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False PopupMenu = PopupMenu1 TabOrder = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> OnCellClick = Tv1CellClick 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 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 object v1Ssel: TcxGridDBColumn Caption = #36873#25321 DataBinding.FieldName = 'Ssel' PropertiesClassName = 'TcxCheckBoxProperties' Properties.ImmediatePost = True Properties.NullStyle = nssUnchecked HeaderAlignmentHorz = taCenter Options.Sorting = False Width = 48 end object v1Column8: TcxGridDBColumn Caption = #20135#21697#32534#21495 DataBinding.FieldName = 'P_Code' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 95 end object cv1Column13: TcxGridDBColumn Caption = #31867#22411 DataBinding.FieldName = 'yptype' HeaderAlignmentHorz = taCenter Width = 73 end object v1Qty: TcxGridDBColumn Caption = #24211#23384#25968#37327 DataBinding.FieldName = 'kcQty' HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Content = DataLink_SKGBhouse.FontBlue Styles.Footer = DataLink_SKGBhouse.FontBlue Styles.Header = DataLink_SKGBhouse.FontBlue Width = 102 end object v1QtyUnit: TcxGridDBColumn Caption = #25968#37327#21333#20301 DataBinding.FieldName = 'QtyUnit' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( 'M' 'Kg') HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Content = DataLink_SKGBhouse.FontBlue Styles.Footer = DataLink_SKGBhouse.FontBlue Styles.Header = DataLink_SKGBhouse.FontBlue Width = 90 end object v1Column5: TcxGridDBColumn DataBinding.FieldName = 'isph' Visible = False HeaderAlignmentHorz = taCenter Options.Editing = False VisibleForCustomization = False end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object ADOQueryCmd: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 391 Top = 230 end object ADOQueryTmp: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 352 Top = 225 end object DataSource1: TDataSource DataSet = CDS_Main Left = 431 Top = 421 end object CDS_Main: TClientDataSet Aggregates = <> Params = <> Left = 473 Top = 427 end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 517 Top = 427 end object ADOQueryPrint: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 427 Top = 391 end object RMDB_Main: TRMDBDataSet Visible = True DataSet = ADOQueryPrint Left = 474 Top = 391 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 = 517 Top = 392 ReportData = {} end object ADOQueryMain: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 303 Top = 223 end object PopupMenu1: TPopupMenu Left = 381 Top = 300 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click end object N2: TMenuItem Caption = #20840#24323 OnClick = N2Click end end object adoqueryPicture: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 312 Top = 313 end end