object frmShaRKList: TfrmShaRKList Left = 45 Top = 46 Width = 1163 Height = 649 Caption = #32433#32447#20837#24211#21015#34920 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 120 TextHeight = 15 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1145 Height = 33 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_YarnTexturing.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object TBRafresh: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #21047#26032 ImageIndex = 0 OnClick = TBRafreshClick end object TBFind: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #36807#28388 ImageIndex = 20 OnClick = TBFindClick end object TBAdd: TToolButton Left = 126 Top = 0 AutoSize = True Caption = #20837#24211 ImageIndex = 1 OnClick = TBAddClick end object TBEdit: TToolButton Left = 189 Top = 0 AutoSize = True Caption = #20462#25913 ImageIndex = 11 OnClick = TBEditClick end object TBDel: TToolButton Left = 252 Top = 0 AutoSize = True Caption = #21024#38500 ImageIndex = 3 OnClick = TBDelClick end object TBExport: TToolButton Left = 315 Top = 0 AutoSize = True Caption = #23548#20986 ImageIndex = 68 OnClick = TBExportClick end object TBClose: TToolButton Left = 378 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object Panel1: TPanel Left = 0 Top = 33 Width = 1145 Height = 75 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label1: TLabel Left = 35 Top = 14 Width = 60 Height = 15 Caption = #26597#35810#26102#38388 end object Label2: TLabel Left = 80 Top = 44 Width = 15 Height = 15 Caption = #33267 end object Label3: TLabel Left = 439 Top = 14 Width = 30 Height = 15 Caption = #21697#21517 end object Label4: TLabel Left = 625 Top = 14 Width = 30 Height = 15 Caption = #24037#21378 end object Label5: TLabel Left = 224 Top = 14 Width = 60 Height = 15 Caption = #20837#24211#21333#21495 end object Label8: TLabel Left = 439 Top = 44 Width = 30 Height = 15 Caption = #35268#26684 end object Label12: TLabel Left = 224 Top = 44 Width = 60 Height = 15 Caption = #20837#24211#31867#22411 end object Label13: TLabel Left = 625 Top = 44 Width = 30 Height = 15 Caption = #25209#21495 end object BegDate: TDateTimePicker Left = 98 Top = 9 Width = 108 Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 TabOrder = 0 end object EndDate: TDateTimePicker Left = 98 Top = 39 Width = 108 Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 TabOrder = 1 end object Y_CodeName: TEdit Tag = 2 Left = 473 Top = 9 Width = 125 Height = 20 TabOrder = 2 OnChange = TBFindClick end object FactoryName: TEdit Tag = 2 Left = 659 Top = 9 Width = 97 Height = 20 TabOrder = 3 OnChange = FactoryNameChange end object Y_ID: TEdit Tag = 2 Left = 286 Top = 9 Width = 137 Height = 20 TabOrder = 4 OnChange = Y_IDChange OnKeyPress = Y_IDKeyPress end object Y_Spec: TEdit Tag = 2 Left = 473 Top = 39 Width = 125 Height = 20 TabOrder = 5 OnChange = Y_SpecChange end object CRType: TComboBox Tag = 2 Left = 286 Top = 39 Width = 137 Height = 23 Style = csDropDownList DropDownCount = 20 ItemHeight = 15 TabOrder = 6 OnChange = TBFindClick Items.Strings = ( #37319#36141#20837#24211 #36710#38388#36864#22238 #26399#21021#20837#24211 '') end object BatchNo: TEdit Tag = 1 Left = 659 Top = 39 Width = 99 Height = 20 TabOrder = 7 OnChange = FactoryNameChange OnKeyPress = BatchNoKeyPress end end object cxGrid2: TcxGrid Left = 0 Top = 108 Width = 1145 Height = 496 Align = alClient TabOrder = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource1 DataController.Summary.DefaultGroupSummaryItems = < item Kind = skSum Position = spFooter end> DataController.Summary.FooterSummaryItems = < item Kind = skCount end item Kind = skSum end item Kind = skSum Column = v2Column6 end item Kind = skSum end item Kind = skSum Column = v1Column9 end item Kind = skSum end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Inactive = DataLink_YarnTexturing.SHuangSe Styles.IncSearch = DataLink_YarnTexturing.SHuangSe Styles.Selection = DataLink_YarnTexturing.SHuangSe Styles.Header = DataLink_YarnTexturing.Default object v1Column6: TcxGridDBColumn Caption = #20837#24211#21333#21495 DataBinding.FieldName = 'Y_ID' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 83 end object v1Column2: TcxGridDBColumn Tag = 2 Caption = #20837#24211#26102#38388 DataBinding.FieldName = 'CRTime' PropertiesClassName = 'TcxDateEditProperties' Properties.SaveTime = False Properties.ShowTime = False HeaderAlignmentHorz = taCenter Options.Editing = False Width = 93 end object v1Column4: TcxGridDBColumn Tag = 2 Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'CRType' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( #27491#24120#20837#24211 #29983#20135#36864#22238 #26399#21021#20837#24211) HeaderAlignmentHorz = taCenter Options.Editing = False Width = 81 end object v2Column1: TcxGridDBColumn Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'Y_CodeName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> HeaderAlignmentHorz = taCenter Options.Editing = False Width = 99 end object v1Column8: TcxGridDBColumn Tag = 2 Caption = #35268#26684 DataBinding.FieldName = 'Y_Spec' HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False Width = 68 end object v1Column10: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 89 end object v1Column14: TcxGridDBColumn Tag = 2 Caption = #24037#21378 DataBinding.FieldName = 'FactoryName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Alignment.Horz = taLeftJustify Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True HeaderAlignmentHorz = taCenter Options.Editing = False Width = 90 end object v1filler: TcxGridDBColumn Caption = #25805#20316#20154 DataBinding.FieldName = 'filler' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 end object v1Column9: TcxGridDBColumn Tag = 2 Caption = #31665'/'#20214#25968 DataBinding.FieldName = 'PiQty' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 67 end object v1Price: TcxGridDBColumn Caption = #21333#20215 DataBinding.FieldName = 'Price' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 70 end object v2Column6: TcxGridDBColumn Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 85 end object v1Column3: TcxGridDBColumn Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( 'Kg' 'M' 'Y') HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 end object v1Note: TcxGridDBColumn Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 79 end end object cxGrid2Level1: TcxGridLevel GridView = Tv1 end end object ADOQueryCmd: TADOQuery Connection = DataLink_YarnTexturing.ADOLink Parameters = <> Left = 986 Top = 181 end object ADOQueryMain: TADOQuery Connection = DataLink_YarnTexturing.ADOLink LockType = ltReadOnly Parameters = <> Left = 956 Top = 182 end object ADOQueryTemp: TADOQuery Connection = DataLink_YarnTexturing.ADOLink LockType = ltReadOnly Parameters = <> Left = 1015 Top = 181 end object DataSource1: TDataSource DataSet = CDS_Main Left = 924 Top = 181 end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> Left = 893 Top = 181 end object CDS_Main: TClientDataSet Aggregates = <> Params = <> Left = 863 Top = 181 end object RM1: TRMGridReport ThreadPrepareReport = True InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] DefaultCollate = False SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' PreviewOptions.RulerUnit = rmutScreenPixels PreviewOptions.RulerVisible = False PreviewOptions.DrawBorder = False PreviewOptions.BorderPen.Color = clGray PreviewOptions.BorderPen.Style = psDash Dataset = RMDBMain CompressLevel = rmzcFastest CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False Left = 360 Top = 232 ReportData = {} end object RMDBMain: TRMDBDataSet Visible = True DataSet = CDS_Main Left = 426 Top = 233 end object RMXLSExport1: TRMXLSExport ShowAfterExport = True ExportPrecision = 1 PagesOfSheet = 100 ExportImages = True ExportFrames = True ExportImageFormat = ifBMP JPEGQuality = 0 ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 CompressFile = False Left = 392 Top = 232 end object RMDBHZ: TRMDBDataSet Visible = True DataSet = CDS_HZ Left = 521 Top = 232 end object CDS_HZ: TClientDataSet Aggregates = <> Params = <> Left = 488 Top = 232 end object CDS_PRT: TClientDataSet Aggregates = <> Params = <> Left = 456 Top = 232 end object PopupMenu1: TPopupMenu Left = 328 Top = 232 object N1: TMenuItem Caption = #20840#36873 OnClick = N1Click end object N2: TMenuItem Caption = #20840#24323 OnClick = N2Click end end object RM2: TRMGridReport ThreadPrepareReport = True InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] ShowProgress = False 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 = RMDBHZ CompressLevel = rmzcFastest CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False Left = 550 Top = 233 ReportData = {} end end