object frmShaRKInPut: TfrmShaRKInPut Left = 89 Top = 121 Width = 1288 Height = 635 Align = alClient Caption = #32433#32447#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 OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object cxGrid2: TcxGrid Left = 0 Top = 85 Width = 1272 Height = 511 Align = alClient TabOrder = 0 object Tv1: TcxGridDBTableView OnMouseDown = Tv1MouseDown Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource3 DataController.Summary.DefaultGroupSummaryItems = <> 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> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Inactive = DataLink_Yarn.SHuangSe Styles.IncSearch = DataLink_Yarn.SHuangSe Styles.Selection = DataLink_Yarn.SHuangSe Styles.Header = DataLink_Yarn.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 Width = 100 end object FactoryName: TcxGridDBColumn Tag = 2 Caption = #32433#32447#20379#24212#21830#65288#20135#22320#65289 DataBinding.FieldName = 'FactoryName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = FactoryNameLPropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 118 end object v1Column5: TcxGridDBColumn Tag = 2 Caption = #20379#24212#21830#31867#22411 DataBinding.FieldName = 'FactType' HeaderAlignmentHorz = taCenter Width = 88 end object v1Column4: TcxGridDBColumn Tag = 2 Caption = #20837#24211#31867#22411 DataBinding.FieldName = 'CRType' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.DropDownRows = 20 Properties.Items.Strings = ( #26399#21021#20837#24211 #37319#36141#20837#24211 #21152#24037#23436#25104 #21152#24037#26410#20570#22238#20179 #32455#36896#26410#20570#22238#20179) HeaderAlignmentHorz = taCenter Width = 88 end object v1ComTaiTou: TcxGridDBColumn Tag = 2 Caption = #25260#22836 DataBinding.FieldName = 'Syrname' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1ComTaiTouPropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 86 end object v2Column1: TcxGridDBColumn Tag = 2 Caption = #21697#21517 DataBinding.FieldName = 'Y_CodeName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v2Column1PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 100 end object v1Column8: TcxGridDBColumn Tag = 2 Caption = #21407#26009#35268#26684 DataBinding.FieldName = 'Y_Spec' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1Column8PropertiesButtonClick HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 65 end object v1Column7: TcxGridDBColumn Tag = 2 Caption = #25104#20998 DataBinding.FieldName = 'Y_CF' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1Column7PropertiesButtonClick HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Width = 73 end object v1Column1: TcxGridDBColumn Tag = 2 Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.OnButtonClick = v1Column1PropertiesButtonClick HeaderAlignmentHorz = taCenter end object v1Column11: TcxGridDBColumn Tag = 2 Caption = #23384#25918#24037#21378 DataBinding.FieldName = 'ToFactoryName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True Properties.OnButtonClick = v1Column11PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 90 end object v1Column9: TcxGridDBColumn Tag = 2 Caption = #31665'/'#20214#25968 DataBinding.FieldName = 'PiQty' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Width = 64 end object v2Column6: TcxGridDBColumn Tag = 2 Caption = #25968#37327 DataBinding.FieldName = 'Qty' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 81 end object v1Column3: TcxGridDBColumn Tag = 2 Caption = #21333#20301 DataBinding.FieldName = 'QtyUnit' PropertiesClassName = 'TcxComboBoxProperties' Properties.DropDownListStyle = lsFixedList Properties.Items.Strings = ( 'Kg') HeaderAlignmentHorz = taCenter Width = 64 end object v1Price: TcxGridDBColumn Tag = 2 Caption = #21333#20215 DataBinding.FieldName = 'Price' PropertiesClassName = 'TcxTextEditProperties' Properties.OnEditValueChanged = v2Column6PropertiesEditValueChanged HeaderAlignmentHorz = taCenter Width = 70 end object Tv1Column2: TcxGridDBColumn Tag = 2 Caption = #37329#39069 DataBinding.FieldName = 'MONEY' HeaderAlignmentHorz = taCenter Width = 68 end object v1Column16: TcxGridDBColumn Tag = 2 Caption = #26469#33258#24037#21378 DataBinding.FieldName = 'FromFactoryName' PropertiesClassName = 'TcxButtonEditProperties' Properties.Buttons = < item Default = True Kind = bkEllipsis end> Properties.ReadOnly = True Properties.OnButtonClick = v1Column16PropertiesButtonClick HeaderAlignmentHorz = taCenter Width = 78 end object v1Note: TcxGridDBColumn Tag = 2 Caption = #22791#27880 DataBinding.FieldName = 'Note' HeaderAlignmentHorz = taCenter Width = 79 end object v1Column10: TcxGridDBColumn Tag = 2 Caption = #20379#24212#21830#65288#32534#21495#65289 DataBinding.FieldName = 'FactoryNo' Options.Editing = False Width = 95 end object Tv1Column1: TcxGridDBColumn Tag = 2 Caption = #21333#21253 DataBinding.FieldName = 'danbao' HeaderAlignmentHorz = taCenter Width = 100 end end object cxGrid2Level1: TcxGridLevel GridView = Tv1 end end object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1272 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_Yarn.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 1 object TBSave: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20445#23384 ImageIndex = 5 OnClick = TBSaveClick end object ToolButton1: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #26032#22686 ImageIndex = 57 OnClick = ToolButton1Click end object TBDel: TToolButton Left = 126 Top = 0 AutoSize = True Caption = #21024#38500 ImageIndex = 3 OnClick = TBDelClick end object TBClose: TToolButton Left = 189 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object Panel3: TPanel Left = 0 Top = 33 Width = 1272 Height = 52 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 2 object Label2: TLabel Left = 52 Top = 16 Width = 60 Height = 12 Caption = #37319#36141#21512#21516#21495 end object Label4: TLabel Left = 420 Top = 16 Width = 6 Height = 12 end object Label1: TLabel Left = 675 Top = 16 Width = 6 Height = 12 end object ConNo: TBtnEditC Left = 116 Top = 12 Width = 121 Height = 20 TabOrder = 0 OnBtnUpClick = ConNoBtnUpClick OnBtnDnClick = ConNoBtnDnClick end end object DataSource3: TDataSource DataSet = CDS_Sub Left = 792 Top = 424 end object CDS_Sub: TClientDataSet Aggregates = <> Params = <> Left = 760 Top = 424 end object ADOQueryCmd: TADOQuery Connection = DataLink_Yarn.ADOLink Parameters = <> Left = 616 Top = 424 end object ADOQueryMain: TADOQuery Connection = DataLink_Yarn.ADOLink LockType = ltReadOnly Parameters = <> Left = 640 Top = 424 end object ADOQueryTemp: TADOQuery Connection = DataLink_Yarn.ADOLink LockType = ltReadOnly Parameters = <> Left = 680 Top = 424 end object cxGridPopupMenu2: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> Left = 712 Top = 424 end object RM1: TRMGridReport ThreadPrepareReport = True InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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 = 664 Top = 262 ReportData = {} end object RMDBHZ: TRMDBDataSet Visible = True DataSet = CDS_HZ Left = 631 Top = 260 end object CDS_HZ: TClientDataSet Aggregates = <> Params = <> Left = 599 Top = 260 end end