object frmPieceSampleKcList: TfrmPieceSampleKcList Left = 182 Top = 173 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 = 107 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 Visible = False 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 ToolButton1: TToolButton Left = 189 Top = 0 AutoSize = True Caption = #24211#20301#35843#25972 ImageIndex = 102 Visible = False OnClick = ToolButton1Click end object ToolButton4: TToolButton Left = 276 Top = 0 AutoSize = True Caption = #26679#21697#26631#31614#25171#21360 ImageIndex = 4 OnClick = ToolButton4Click end object TBExport: TToolButton Left = 387 Top = 0 AutoSize = True Caption = #23548#20986 ImageIndex = 68 OnClick = TBExportClick end object TBClose: TToolButton Left = 450 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 lbl1: TLabel Left = 31 Top = 41 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 = P_CodeNameChange end object yptype: TEdit Tag = 2 Left = 89 Top = 36 Width = 80 Height = 20 TabOrder = 1 OnChange = P_CodeNameChange end end object cxGrid1: TcxGrid Left = 0 Top = 129 Width = 1274 Height = 475 Align = alClient Font.Charset = GB2312_CHARSET Font.Color = clBtnShadow Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False PopupMenu = PopupMenu1 TabOrder = 3 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 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.Content = DataLink_SKGBhouse.Default 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 = 87 end object cv1Column12: TcxGridDBColumn Caption = #31867#22411 DataBinding.FieldName = 'yptype' HeaderAlignmentHorz = taCenter Width = 81 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 = 79 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 = 84 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 Panel2: TPanel Left = 0 Top = 98 Width = 1274 Height = 31 Align = alTop TabOrder = 2 Visible = False object Label1: TLabel Left = 16 Top = 10 Width = 26 Height = 12 Caption = #24211#20301 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object lbl2: TLabel Left = 280 Top = 9 Width = 54 Height = 12 Caption = #25968' '#37327 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Button1: TButton Left = 303 Top = 3 Width = 75 Height = 21 Caption = #30830#23450 TabOrder = 0 OnClick = Button1Click end object edtKuWei: TBtnEditA Left = 49 Top = 6 Width = 200 Height = 20 TabOrder = 1 OnBtnClick = edtKuWeiBtnClick end object Edit1: TEdit Tag = 2 Left = 345 Top = 5 Width = 80 Height = 20 TabOrder = 2 Visible = False end object btn2: TButton Left = 443 Top = 2 Width = 75 Height = 21 Caption = #30830#23450 TabOrder = 3 Visible = False OnClick = btn2Click 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 = 619 Top = 233 end object CDS_Main: TClientDataSet Aggregates = <> Params = <> Left = 569 Top = 231 end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 617 Top = 307 end object ADOQueryPrint: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 427 Top = 391 end object RMDB_Main: TRMDBDataSet Visible = True DataSet = ADOPrint 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 object RMXLSExport1: TRMXLSExport ShowAfterExport = True ExportPrecision = 1 PagesOfSheet = 1 ExportImages = True ExportFrames = True ExportImageFormat = ifBMP JPEGQuality = 0 ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 CompressFile = False Left = 886 Top = 231 end object ADOPrint: TADOQuery Connection = DataLink_SKGBhouse.ADOLink Parameters = <> Left = 783 Top = 231 end end