object frmcaredit: Tfrmcaredit Left = 232 Top = 15 Width = 1287 Height = 763 Caption = #32763#24067#26816#39564 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False OnClose = FormClose OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object Panel2: TPanel Left = 0 Top = 72 Width = 1271 Height = 652 Align = alClient TabOrder = 0 object Label2: TLabel Left = 48 Top = 20 Width = 84 Height = 20 Caption = #27969#31243#21345#21495 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 48 Top = 62 Width = 86 Height = 20 Caption = #21697' '#21517 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label4: TLabel Left = 516 Top = 20 Width = 86 Height = 20 Caption = #23458' '#25143 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 516 Top = 62 Width = 85 Height = 20 Caption = #19994' '#21153' '#21592 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 48 Top = 106 Width = 86 Height = 20 Caption = #32568' '#21495 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 516 Top = 106 Width = 86 Height = 20 Caption = #39068' '#33394 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 48 Top = 149 Width = 84 Height = 20 Caption = #20135#20986#25968#37327 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label9: TLabel Left = 516 Top = 149 Width = 84 Height = 20 Caption = #20135#20986#21305#25968 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label12: TLabel Left = 48 Top = 235 Width = 84 Height = 20 Caption = #24403#21069#24037#24207 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label14: TLabel Left = 47 Top = 191 Width = 85 Height = 20 Caption = #26426' '#21488' '#21495 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label15: TLabel Left = 515 Top = 191 Width = 86 Height = 20 Caption = #36710' '#21495 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label17: TLabel Left = 530 Top = 390 Width = 86 Height = 20 Caption = #29677' '#32452 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label16: TLabel Left = 946 Top = 275 Width = 84 Height = 20 Caption = #21592#24037#32534#21495 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label10: TLabel Left = 948 Top = 354 Width = 74 Height = 20 Caption = #24050#23436#24037'%' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label11: TLabel Left = 980 Top = 524 Width = 64 Height = 20 Caption = #21097' '#20313'%' Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label13: TLabel Left = 46 Top = 283 Width = 84 Height = 20 Caption = #24320#21345#21305#25968 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label18: TLabel Left = 516 Top = 283 Width = 84 Height = 20 Caption = #24320#21345#25968#37327 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label19: TLabel Left = 644 Top = 238 Width = 171 Height = 19 Caption = #21047#33457'/'#21387#33457#30452#25509#20837#24211 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object carNo: TcxTextEdit Tag = 2 Left = 138 Top = 11 Enabled = False ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 0 Width = 300 end object customerNoName: TcxTextEdit Tag = 2 Left = 608 Top = 11 Enabled = False ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 1 Width = 300 end object MprtCodeName: TcxTextEdit Tag = 2 Left = 138 Top = 54 Enabled = False ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 2 Width = 300 end object ywy: TcxTextEdit Tag = 2 Left = 608 Top = 54 Enabled = False ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 3 Width = 300 end object MPRTSPEC: TcxTextEdit Tag = 2 Left = 138 Top = 97 Enabled = False ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 4 Width = 300 end object PRTColor: TcxTextEdit Tag = 2 Left = 608 Top = 97 Enabled = False ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 5 Width = 300 end object Qty: TcxTextEdit Tag = 2 Left = 138 Top = 140 ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 6 Width = 300 end object RollNum: TcxTextEdit Tag = 2 Left = 608 Top = 141 Enabled = False ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 7 Width = 300 end object machIneNo: TcxTextEdit Left = 138 Top = 183 ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 8 Width = 298 end object chehao: TcxTextEdit Left = 608 Top = 184 ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 9 Width = 300 end object GLIDENAME: TComboBox Left = 138 Top = 227 Width = 300 Height = 37 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #23435#20307 Font.Style = [fsBold] ItemHeight = 29 ParentFont = False TabOrder = 10 OnChange = GLIDENAMEChange end object BZNAME: TComboBox Left = 622 Top = 381 Width = 300 Height = 37 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #23435#20307 Font.Style = [fsBold] ItemHeight = 29 ParentFont = False TabOrder = 11 Visible = False end object Panel_JP: TPanel Left = 137 Top = 324 Width = 678 Height = 263 BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 12 object SpeedButton1: TSpeedButton Left = 4 Top = 3 Width = 80 Height = 80 Caption = '0' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton2: TSpeedButton Left = 86 Top = 3 Width = 80 Height = 80 Caption = '1' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton3: TSpeedButton Left = 168 Top = 3 Width = 80 Height = 80 Caption = '2' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton4: TSpeedButton Left = 250 Top = 3 Width = 80 Height = 80 Caption = '3' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton5: TSpeedButton Left = 332 Top = 3 Width = 80 Height = 80 Caption = '4' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton6: TSpeedButton Left = 4 Top = 87 Width = 80 Height = 80 Caption = '5' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton7: TSpeedButton Left = 86 Top = 87 Width = 80 Height = 80 Caption = '6' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton8: TSpeedButton Left = 168 Top = 87 Width = 80 Height = 80 Caption = '7' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton9: TSpeedButton Left = 250 Top = 87 Width = 80 Height = 80 Caption = '8' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton10: TSpeedButton Left = 332 Top = 87 Width = 80 Height = 80 Caption = '9' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton11: TSpeedButton Tag = 9 Left = 890 Top = 242 Width = 60 Height = 60 Caption = '.' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #40657#20307 Font.Style = [fsBold] ParentFont = False end object SpeedButton12: TSpeedButton Left = 11 Top = 176 Width = 130 Height = 80 Caption = #8592 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton12Click end object SpeedButton49: TSpeedButton Tag = 9 Left = 168 Top = 173 Width = 130 Height = 80 Caption = #38544#34255 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #26999#20307'_GB2312' Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton49Click end object SpeedButton13: TSpeedButton Left = 805 Top = 171 Width = 145 Height = 162 Caption = #30830#23450 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False Visible = False end object SpeedButton14: TSpeedButton Left = 377 Top = 177 Width = 145 Height = 79 Caption = #25552#20132 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton14Click end object SpeedButton15: TSpeedButton Left = 416 Top = 3 Width = 80 Height = 80 Caption = 'A' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton16: TSpeedButton Left = 500 Top = 3 Width = 80 Height = 80 Caption = 'B' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton17: TSpeedButton Left = 416 Top = 87 Width = 80 Height = 80 Caption = 'C' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton18: TSpeedButton Left = 500 Top = 87 Width = 80 Height = 80 Caption = '+' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton19: TSpeedButton Left = 586 Top = 3 Width = 80 Height = 80 Caption = 'J' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton20: TSpeedButton Left = 586 Top = 89 Width = 80 Height = 80 Caption = '%' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -37 Font.Name = #40657#20307 Font.Style = [] ParentFont = False OnClick = SpeedButton1Click end end object YGNO: TcxTextEdit Left = 961 Top = 267 ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = ANSI_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 13 Visible = False Width = 298 end object YGName: TComboBox Left = 959 Top = 138 Width = 300 Height = 37 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #23435#20307 Font.Style = [fsBold] ItemHeight = 29 ParentFont = False TabOrder = 14 Visible = False end object GlideRate: TcxTextEdit Tag = 2 Left = 959 Top = 347 Enabled = False ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 15 Visible = False Width = 300 end object N_GlideRate: TcxTextEdit Tag = 2 Left = 959 Top = 520 Enabled = False ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 16 Visible = False Width = 300 end object Panel3: TPanel Left = 925 Top = 1 Width = 345 Height = 650 Align = alRight TabOrder = 17 object cxGrid2: TcxGrid Left = 1 Top = 1 Width = 343 Height = 648 Align = alClient TabOrder = 0 object Tv2: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> DataController.DataSource = DataSource3 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = v2Column1 end item Kind = skSum Column = v2Column3 end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsSelection.CellSelect = False OptionsView.Footer = True OptionsView.GroupByBox = False object tv2CDType: TcxGridDBColumn Caption = #27969#31243#21345#21495 DataBinding.FieldName = 'carno' HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False Styles.Content = cxStyle1 Styles.Header = cxStyle1 Width = 75 end object tv2CDWZ: TcxGridDBColumn Caption = #23458#25143 DataBinding.FieldName = 'customerNoName' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Options.Sorting = False Styles.Content = cxStyle1 Styles.Header = cxStyle1 Width = 52 end object v2Column2: TcxGridDBColumn Caption = #39068#33394 DataBinding.FieldName = 'jycolor' HeaderAlignmentHorz = taCenter HeaderGlyphAlignmentHorz = taCenter Styles.Content = cxStyle1 Styles.Header = cxStyle1 Width = 51 end object Tv2Column1: TcxGridDBColumn Caption = #24037#24207 DataBinding.FieldName = 'GlideName' HeaderAlignmentHorz = taCenter Styles.Content = cxStyle1 Styles.Header = cxStyle1 Width = 50 end object Tv2CDQty: TcxGridDBColumn Caption = #32568#21495 DataBinding.FieldName = 'jyxh' PropertiesClassName = 'TcxTextEditProperties' HeaderAlignmentHorz = taCenter Options.Sorting = False Styles.Content = cxStyle1 Styles.Header = cxStyle1 Width = 55 end object Tv2CDReason: TcxGridDBColumn Caption = #21407#22240 DataBinding.FieldName = 'CDReason' Visible = False HeaderAlignmentHorz = taCenter Options.Sorting = False Styles.Content = cxStyle2 Styles.Header = cxStyle1 Width = 60 end object v2Column1: TcxGridDBColumn DataBinding.FieldName = 'CDQty' Visible = False Width = 60 end object v2Column3: TcxGridDBColumn Caption = #38271#24230 DataBinding.FieldName = 'Qty' HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Content = cxStyle1 Styles.Header = cxStyle1 Width = 53 end end object cxGridLevel1: TcxGridLevel GridView = Tv2 end end end object KKPS: TcxTextEdit Tag = 2 Left = 138 Top = 274 Enabled = False ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 18 Width = 300 end object kkqty: TcxTextEdit Tag = 2 Left = 608 Top = 274 Enabled = False ParentFont = False Style.BorderStyle = ebsSingle Style.Font.Charset = GB2312_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -29 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True TabOrder = 19 Width = 300 end object Edit1: TEdit Left = 610 Top = 232 Width = 28 Height = 27 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 20 Text = #8730 OnClick = Edit1Click end end object Panel1: TPanel Left = 0 Top = 0 Width = 1271 Height = 72 Align = alTop TabOrder = 1 object Label1: TLabel Left = 16 Top = 24 Width = 88 Height = 21 Caption = #27969#31243#21345#21495 Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -21 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label25: TLabel Left = 856 Top = 27 Width = 40 Height = 19 Caption = #30721#34920 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object edit_smNo: TcxTextEdit Left = 121 Top = 11 ParentFont = False Style.BorderStyle = ebsOffice11 Style.Edges = [bLeft, bTop, bRight, bBottom] Style.Font.Charset = ANSI_CHARSET Style.Font.Color = clWindowText Style.Font.Height = -35 Style.Font.Name = #23435#20307 Style.Font.Style = [fsBold] Style.IsFontAssigned = True StyleHot.TextStyle = [fsBold] TabOrder = 0 OnClick = edit_smNoClick OnKeyPress = edit_smNoKeyPress Width = 489 end object cxButton1: TcxButton Left = 624 Top = 20 Width = 100 Height = 33 Caption = #26597#35810 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 Visible = False LookAndFeel.Kind = lfOffice11 end object Edit10: TEdit Left = 822 Top = 21 Width = 28 Height = 27 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 2 Text = #8730 OnClick = Edit10Click end end object cxStyleRepository1: TcxStyleRepository Left = 720 Top = 128 PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svColor, svFont] Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -14 Font.Name = #23435#20307 Font.Style = [fsBold] end object cxStyle2: TcxStyle AssignedValues = [svFont, svTextColor] Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Pitch = fpFixed Font.Style = [fsBold] TextColor = clDefault end end object cxGridPopupMenu1: TcxGridPopupMenu PopupMenus = <> Left = 504 Top = 96 end object DataSource1: TDataSource DataSet = Order_MJ Left = 768 Top = 112 end object Order_MJ: TClientDataSet Aggregates = <> Params = <> Left = 680 Top = 216 end object ADOQueryMain: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 744 Top = 143 end object ADOCmd: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink Parameters = <> Left = 884 Top = 358 end object RMDB_Main: TRMDBDataSet Visible = True DataSet = ADOQueryPrint Left = 680 Top = 104 end object RM2: 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 = 592 Top = 96 ReportData = {} end object DataSource2: TDataSource DataSet = CDS_MJCD Left = 816 Top = 144 end object CDS_MJCD: TClientDataSet Aggregates = <> Params = <> Left = 856 Top = 112 end object DataSource3: TDataSource DataSet = CDS_MJID Left = 1001 Top = 296 end object CDS_MJID: TClientDataSet Aggregates = <> Params = <> Left = 1106 Top = 439 end object Timer1: TTimer Interval = 100 Left = 1000 Top = 328 end object ADOQueryPrint: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 824 Top = 144 end object cxGridPopupMenu2: TcxGridPopupMenu PopupMenus = <> Left = 1032 Top = 331 end object ADOQueryMainDSC: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink LockType = ltReadOnly Parameters = <> SQL.Strings = ( 'select A.*,C.OrderNo,B.SWFBColor,B.SWFBHW,B.SWFBCodeName,' ' B.SWFBCode,B.SWFBKZ,B.WKMS,B.KZBig,B.KZSmal,' ' SCMQty=(select isnull(Sum(MJLen),0) from WFB_MJJY WM wher' + 'e WM.APId=A.APId and len(WM.MJID)>8),' ' Case when A.OrderQtyM-(select isnull(Sum(MJLen),0) from W' + 'FB_MJJY WM where WM.APId=A.APId )>0 ' ' then A.OrderQtyM-(select isnull(Sum(MJLen),0) fr' + 'om WFB_MJJY WM where WM.APId=A.APId ) else 0 end as WSCMQty' 'from WFBOrder_Sub_AnPai A ' 'inner join WFBOrder_Sub B on A.SubId=B.SubId' 'inner join WFBOrder_Main C on A.MainId=C.MainId' 'where C.ChkStatus='#39#23457#26680#36890#36807#39' and RTrim(isnull(A.SCStatus,'#39#39'))<>'#39#24050#23436#25104#39 + ' ' 'and isnull(B.AnPaiChkStatus,'#39#39')='#39#23457#26680#36890#36807#39' and A.SCXDFlag=1' '') Left = 784 Top = 144 end object RM3: 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 = 548 Top = 100 ReportData = {} end object ADOTmp: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink Parameters = <> Left = 631 Top = 143 end object ADO_Tmp: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink Parameters = <> Left = 1040 Top = 180 end object ADO_Car: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink Parameters = <> Left = 976 Top = 442 end object ADO_Cmd: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink Parameters = <> Left = 964 Top = 118 end object ADOQuery2: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink Parameters = <> Left = 1127 Top = 140 end end