inherited frmTatCardInPut: TfrmTatCardInPut Left = 203 Top = 126 Caption = #24067#21305#23433#25490 ClientHeight = 460 ClientWidth = 898 Color = clWhite Position = poScreenCenter ExplicitWidth = 914 ExplicitHeight = 499 PixelsPerInch = 96 TextHeight = 13 object Panel4: TPanel [0] Left = 553 Top = 0 Width = 345 Height = 460 Align = alClient Caption = 'Panel4' TabOrder = 0 object Panel1: TPanel Left = 1 Top = 39 Width = 343 Height = 40 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clWhite ParentBackground = False TabOrder = 0 object Label3: TLabel Left = 32 Top = 13 Width = 39 Height = 12 Caption = #26426#21488#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object MCNO: TEdit Tag = 2 Left = 77 Top = 9 Width = 81 Height = 21 TabOrder = 0 OnChange = MCNOChange end end object cxGrid1: TcxGrid Left = 1 Top = 79 Width = 343 Height = 380 Align = alClient PopupMenu = PM_1 TabOrder = 1 object Tv1: TcxGridDBTableView OnDblClick = Tv1DblClick Navigator.Buttons.CustomButtons = <> OnCustomDrawCell = Tv1CustomDrawCell DataController.DataSource = DS_1 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skCount Column = Tv1Column1 end item Kind = skSum Column = Tv1Column3 end item Kind = skSum Column = Tv1Column4 end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.IncSearch = DataLink_TatPlan.SHuangSe Styles.Group = DataLink_TatPlan.FontBlue Styles.Header = DataLink_TatPlan.Default Styles.Inactive = DataLink_TatPlan.SHuangSe object Tv1Column1: TcxGridDBColumn Caption = #26426#21488#21495 DataBinding.FieldName = 'MCNO' GroupSummaryAlignment = taCenter HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False Width = 100 end object Tv1Column2: TcxGridDBColumn Caption = #26159#21542#23433#25490 DataBinding.FieldName = 'isap' Visible = False HeaderAlignmentHorz = taCenter Width = 100 end object Tv1Column3: TcxGridDBColumn Caption = #24635#26410#26816#39564#21305#25968 DataBinding.FieldName = 'ZWJYPS' GroupSummaryAlignment = taCenter HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False Width = 100 end object Tv1Column4: TcxGridDBColumn Caption = #26412#21333#26410#26816#39564#25968 DataBinding.FieldName = 'BWJYPS' GroupSummaryAlignment = taCenter HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Editing = False Width = 100 end end object cxGrid1Level1: TcxGridLevel GridView = Tv1 end end object ToolBar1: TToolBar Tag = 1 Left = 1 Top = 1 Width = 343 Height = 38 AutoSize = True ButtonHeight = 38 ButtonWidth = 91 Caption = 'ToolBar1' Color = clSkyBlue DisabledImages = DataLink_TatPlan.ImageList_new32 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_TatPlan.ImageList_new32 List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 2 object ToolButton1: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #35745#21010#21333 ImageIndex = 12 OnClick = ToolButton1Click end object ToolButton12: TToolButton Left = 83 Top = 0 AutoSize = True Caption = #20445#23384#26684#24335 ImageIndex = 16 OnClick = ToolButton12Click end object TBClose: TToolButton Left = 178 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 7 OnClick = TBCloseClick end end end object Panel5: TPanel [1] Left = 0 Top = 0 Width = 553 Height = 460 Align = alLeft Caption = 'Panel5' TabOrder = 1 object Panel2: TPanel Left = 1 Top = 73 Width = 551 Height = 112 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Label10: TLabel Left = 40 Top = 84 Width = 26 Height = 12 Caption = #26426#20462 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label11: TLabel Left = 245 Top = 55 Width = 52 Height = 12 Caption = #24067#31080#20221#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 40 Top = 58 Width = 26 Height = 12 Caption = #25209#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 40 Top = 22 Width = 26 Height = 12 Caption = #26426#21488 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 245 Top = 82 Width = 52 Height = 12 Caption = #26159#21542#20986#32440 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Button3: TButton Left = 393 Top = 53 Width = 82 Height = 44 Caption = #20445#23384 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnClick = Button3Click end object edtMachNo: TEdit Tag = 2 Left = 72 Top = 10 Width = 402 Height = 37 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #23435#20307 Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 1 end object edtCardQty: TEdit Tag = 2 Left = 301 Top = 50 Width = 86 Height = 21 TabOrder = 2 end object Repairer: TBtnEditC Tag = 1 Left = 73 Top = 79 Width = 144 Height = 21 TabOrder = 3 OnBtnUpClick = RepairerBtnUpClick OnBtnDnClick = RepairerBtnDnClick end object BatchNo: TEdit Tag = 2 Left = 73 Top = 53 Width = 144 Height = 21 TabOrder = 4 end object isDY: TComboBox Left = 301 Top = 77 Width = 86 Height = 22 Style = csOwnerDrawFixed ItemIndex = 0 TabOrder = 5 Text = #21542 Items.Strings = ( #21542 #26159) end object Button1: TButton Left = 480 Top = 13 Width = 58 Height = 28 Caption = #28165#38500 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 6 OnClick = Button1Click end end object cxGrid2: TcxGrid Left = 1 Top = 185 Width = 551 Height = 274 Align = alClient TabOrder = 1 object TV2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> DataController.DataSource = DS_2 DataController.Filter.AutoDataSetFilter = True DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoGroupsAlwaysExpanded, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = <> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.IncSearch = DataLink_TatPlan.SHuangSe Styles.Header = DataLink_TatPlan.Default Styles.Inactive = DataLink_TatPlan.SHuangSe Styles.Selection = DataLink_TatPlan.SHuangSe object TV2Column1: TcxGridDBColumn Caption = #26426#21488#21495 DataBinding.FieldName = 'Loom' Visible = False GroupIndex = 0 HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 end object TV2Column2: TcxGridDBColumn Caption = #26426#20462 DataBinding.FieldName = 'Repairer' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 69 end object TV2Column3: TcxGridDBColumn Caption = #23433#25490#21305#25968 DataBinding.FieldName = 'APPS' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 77 end object TV2Column4: TcxGridDBColumn Caption = #25171#21360#21305#25968 DataBinding.FieldName = 'DYPS' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 73 end object TV2Column5: TcxGridDBColumn Caption = #23436#25104#21305#25968 DataBinding.FieldName = 'JYPS' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 75 end object TV2Column6: TcxGridDBColumn Caption = #23433#25490#26102#38388 DataBinding.FieldName = 'APDate' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 66 end object TV2Column7: TcxGridDBColumn Caption = #25209#21495 DataBinding.FieldName = 'BatchNo' HeaderAlignmentHorz = taCenter Options.Editing = False Width = 85 end end object cxGridLevel1: TcxGridLevel GridView = TV2 end end object Panel3: TPanel Left = 1 Top = 1 Width = 551 Height = 72 Align = alTop TabOrder = 2 object Label1: TLabel Left = 186 Top = 8 Width = 54 Height = 12 Caption = #32534' '#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label12: TLabel Left = 341 Top = 7 Width = 61 Height = 12 Caption = #21697' '#21517 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label13: TLabel Left = 26 Top = 8 Width = 52 Height = 12 Caption = #29983#20135#21333#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label21: TLabel Left = 178 Top = 44 Width = 65 Height = 12 Caption = #26410#23433#25490#21305#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 17 Top = 45 Width = 65 Height = 12 Caption = #24050#23433#25490#21305#25968 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object edtName: TEdit Tag = 2 Left = 408 Top = 2 Width = 90 Height = 21 ReadOnly = True TabOrder = 0 OnChange = MCNOChange end object edtCode: TEdit Tag = 2 Left = 245 Top = 3 Width = 90 Height = 21 ReadOnly = True TabOrder = 1 OnChange = MCNOChange end object edtConNo: TEdit Tag = 2 Left = 84 Top = 3 Width = 90 Height = 21 ReadOnly = True TabOrder = 2 OnChange = MCNOChange end object edtWAPPS: TEdit Tag = 2 Left = 245 Top = 41 Width = 90 Height = 21 ReadOnly = True TabOrder = 3 OnChange = MCNOChange end object edtYAPPS: TEdit Tag = 2 Left = 82 Top = 40 Width = 90 Height = 21 ReadOnly = True TabOrder = 4 OnChange = MCNOChange end end end inherited ADOQueryBaseCmd: TADOQuery Connection = DataLink_TatPlan.ADOLink Left = 193 Top = 264 end inherited ADOQueryBaseTemp: TADOQuery Connection = DataLink_TatPlan.ADOLink Left = 257 Top = 265 end inherited ImageList_new32: TImageList Left = 272 Top = 416 end object GPM_1: TcxGridPopupMenu Grid = cxGrid2 PopupMenus = <> Left = 224 Top = 344 end object ADOQueryCmd: TADOQuery Connection = DataLink_TatPlan.ADOLink Parameters = <> Left = 136 Top = 336 end object ADOQueryMain: TADOQuery Connection = DataLink_TatPlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 192 Top = 400 end object ADOQueryTemp: TADOQuery Connection = DataLink_TatPlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 48 Top = 336 end object DS_1: TDataSource DataSet = CDS_1 Left = 464 Top = 328 end object CDS_1: TClientDataSet Aggregates = <> Params = <> Left = 400 Top = 328 end object DS_2: TDataSource DataSet = CDS_2 Left = 464 Top = 384 end object CDS_2: TClientDataSet Aggregates = <> Params = <> Left = 416 Top = 384 end object GPM_2: TcxGridPopupMenu Grid = cxGrid1 PopupMenus = <> Left = 368 Top = 384 end object PM_1: TPopupMenu Left = 528 Top = 328 end object PM_2: TPopupMenu Left = 536 Top = 400 object N2: TMenuItem Caption = #21024#38500 end end object cxStyleRepository1: TcxStyleRepository Left = 80 Top = 456 PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svFont, svTextColor] Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [] TextColor = clHotLight end end end