object frmMCGKCListNew: TfrmMCGKCListNew Left = 226 Top = 22 Width = 1215 Height = 734 Caption = #26825#24211#23384#27719#24635'('#26032')' Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object ToolBar1: TToolBar Left = 0 Top = 0 Width = 1199 AutoSize = True ButtonHeight = 30 ButtonWidth = 65 Caption = 'ToolBar1' Color = clSkyBlue Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_DyeingFinishingPlan.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 = 69 Top = 0 AutoSize = True Caption = #36807#28388 ImageIndex = 20 Visible = False OnClick = TBFindClick end object TBExport: TToolButton Left = 138 Top = 0 AutoSize = True Caption = #23548#20986 ImageIndex = 97 Visible = False OnClick = TBExportClick end object TBClose: TToolButton Left = 207 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end object cxGrid1: TcxGrid Left = 0 Top = 105 Width = 612 Height = 590 Align = alClient PopupMenu = PopupMenu1 TabOrder = 2 object Tv1: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> OnFocusedRecordChanged = Tv1FocusedRecordChanged DataController.DataSource = DataSource1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end item Format = #20010#25968':##' Kind = skCount end item Kind = skSum end item Kind = skSum Column = Tv1Column4 end item Kind = skCount end> DataController.Summary.SummaryGroups = <> OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = DataLink_DyeingFinishingPlan.Default10 Styles.Footer = DataLink_DyeingFinishingPlan.Default10 Styles.Header = DataLink_DyeingFinishingPlan.Default10 object v1MYMF: TcxGridDBColumn Caption = #20811#37325 DataBinding.FieldName = 'MYKZ' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 120 end object Tv1Column1: TcxGridDBColumn Caption = #32534#21495 DataBinding.FieldName = 'MYCode' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 100 end object Tv1Column4: TcxGridDBColumn Caption = #24211#23384#31859#25968 DataBinding.FieldName = 'Qty' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 120 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object Panel1: TPanel Left = 0 Top = 32 Width = 1199 Height = 73 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label3: TLabel Left = 372 Top = 176 Width = 96 Height = 15 Caption = #36827#20179#21333#20301#31616#31216 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label1: TLabel Left = 44 Top = 99 Width = 32 Height = 15 Caption = #22791#27880 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label5: TLabel Left = 250 Top = 101 Width = 48 Height = 15 Caption = #37319#36141#20154 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 151 Top = 32 Width = 40 Height = 19 Caption = #20811#37325 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 38 Top = 31 Width = 40 Height = 19 Caption = #21697#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object BegDate: TDateTimePicker Left = 753 Top = 105 Width = 113 Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ParentFont = False TabOrder = 1 end object EndDate: TDateTimePicker Left = 753 Top = 132 Width = 113 Height = 23 Date = 40768.458268587970000000 Time = 40768.458268587970000000 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ParentFont = False TabOrder = 7 end object CheckBox1: TCheckBox Left = 667 Top = 108 Width = 82 Height = 16 Caption = #26597#35810#26085#26399 Checked = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False State = cbChecked TabOrder = 2 OnClick = CheckBox1Click end object JCDanWeiJC: TEdit Tag = 2 Left = 471 Top = 172 Width = 119 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ParentFont = False TabOrder = 4 OnChange = CustomerNoNameChange end object Button1: TButton Left = 590 Top = 171 Width = 27 Height = 24 Caption = '...' TabOrder = 3 end object Note: TEdit Tag = 2 Left = 79 Top = 95 Width = 140 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ParentFont = False TabOrder = 8 Visible = False OnChange = CustomerNoNameChange end object KHNo: TEdit Tag = 2 Left = 618 Top = 145 Width = 82 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ParentFont = False TabOrder = 0 OnChange = CustomerNoNameChange end object JCKHNo: TEdit Tag = 2 Left = 618 Top = 172 Width = 82 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ImeName = #20013#25991' - QQ'#25340#38899#36755#20837#27861 ParentFont = False TabOrder = 5 OnChange = CustomerNoNameChange end object CGName: TEdit Tag = 2 Left = 303 Top = 97 Width = 74 Height = 23 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 6 OnChange = CustomerNoNameChange end object MYKZ: TEdit Tag = 2 Left = 210 Top = 27 Width = 140 Height = 28 Color = clScrollBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 9 OnChange = MYKZChange end end object Panel2: TPanel Left = 612 Top = 105 Width = 587 Height = 590 Align = alRight Caption = 'Panel2' TabOrder = 3 object cxGrid2: TcxGrid Left = 1 Top = 1 Width = 585 Height = 588 Align = alClient TabOrder = 0 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> OnCellDblClick = Tv2CellDblClick DataController.DataSource = DataSource2 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum end item Kind = skSum end item Kind = skSum end item Format = #20010#25968':##' Kind = skCount end item Kind = skSum end item Kind = skSum Column = Tv2Column2 end item Kind = skCount Column = cxGridDBColumn2 end> DataController.Summary.SummaryGroups = <> OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Content = DataLink_DyeingFinishingPlan.Default10 Styles.Footer = DataLink_DyeingFinishingPlan.Default10 Styles.Header = DataLink_DyeingFinishingPlan.Default10 object cxGridDBColumn2: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'KHNameJC' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 150 end object Tv2Column2: TcxGridDBColumn Caption = #24211#23384#31859#25968 DataBinding.FieldName = 'Qty' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 100 end object Tv2Column3: TcxGridDBColumn Caption = #24037#21378#21517#31216#19982#36135#21495 DataBinding.FieldName = 'PMHH' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 140 end end object cxGridLevel1: TcxGridLevel GridView = Tv2 end end object Panel3: TPanel Left = 48 Top = 116 Width = 433 Height = 197 Color = clSkyBlue TabOrder = 1 Visible = False object Label23: TLabel Left = 63 Top = 35 Width = 168 Height = 20 Caption = #24403#21069#24211#23384#31859#25968#20026#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 42 Top = 83 Width = 189 Height = 20 Caption = #23558#24211#23384#31859#25968#20462#25913#20026#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlack Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object NowQty: TEdit Tag = 2 Left = 242 Top = 31 Width = 140 Height = 28 Color = clScrollBar Enabled = False Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object AfterQty: TEdit Tag = 2 Left = 242 Top = 79 Width = 140 Height = 28 Color = clScrollBar Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object Button2: TButton Left = 93 Top = 137 Width = 100 Height = 35 Caption = #30830#23450 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnClick = Button2Click end object Button3: TButton Left = 221 Top = 137 Width = 100 Height = 35 Caption = #21462#28040 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = Button3Click end end end object cxGridPopupMenu1: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 165 Top = 148 end object ADOQueryCmd: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink Parameters = <> Left = 205 Top = 209 end object ADOQueryMain: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 205 Top = 178 end object ADOQueryTemp: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 206 Top = 148 end object DataSource1: TDataSource DataSet = Order_Main Left = 679 Top = 644 end object Order_Main: TClientDataSet Aggregates = <> Params = <> Left = 711 Top = 644 end object RM1: TRMGridReport ThreadPrepareReport = True InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbSaveToXLS, 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 = 1048 Top = 8 ReportData = {} end object RMDBMain: TRMDBDataSet Visible = True DataSet = CDS_PRT Left = 1020 Top = 36 end object RMXLSExport2: TRMXLSExport ShowAfterExport = False ExportPrecision = 1 PagesOfSheet = 1 ExportImages = True ExportFrames = True ExportImageFormat = ifBMP JPEGQuality = 0 ScaleX = 1.000000000000000000 ScaleY = 1.000000000000000000 CompressFile = False Left = 1108 Top = 8 end object CDS_PRT: TClientDataSet Aggregates = <> Params = <> Left = 1080 Top = 8 end object PopupMenu1: TPopupMenu Left = 1101 Top = 510 object N1: TMenuItem Caption = #30424#28857 OnClick = N1Click end end object ODPat: TOpenDialog Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofEnableSizing] Left = 1073 Top = 615 end object IdFTP1: TIdFTP MaxLineAction = maException ReadTimeout = 0 ProxySettings.ProxyType = fpcmNone ProxySettings.Port = 0 Left = 1044 Top = 616 end object PopupMenu2: TPopupMenu Left = 1018 Top = 616 object MenuItem1: TMenuItem Caption = #19978#20256 end object N3: TMenuItem Caption = #21024#38500 end object MenuItem2: TMenuItem Caption = #37325#21629#21517 end object N4: TMenuItem Caption = #21478#23384#20026 end end object ImageList1: TImageList Height = 32 ShareImages = True Width = 32 Left = 151 Top = 743 end object ADOQuery1: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 339 Top = 206 end object ADOQuery2: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 377 Top = 202 end object DataSource2: TDataSource DataSet = CDS_Sub Left = 1431 Top = 657 end object CDS_Sub: TClientDataSet Aggregates = <> Params = <> Left = 1463 Top = 657 end object DataSource3: TDataSource DataSet = CDS_3 Left = 1381 Top = 296 end object CDS_3: TClientDataSet Aggregates = <> Params = <> Left = 1413 Top = 296 end end