object frmSJLBnspection: TfrmSJLBnspection Left = 355 Top = 135 Width = 1275 Height = 759 Caption = #19978#26426#33853#24067 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False OnClick = FormClick OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object cxGrid3: TcxGrid Left = 280 Top = 153 Width = 979 Height = 567 Align = alClient TabOrder = 2 object Tv3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> OnCellClick = Tv3CellClick DataController.DataSource = DataSource3 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum end item Kind = skSum Column = v3Column2 end item Kind = skSum end item Kind = skSum end item Format = #21367#25968':0' Kind = skCount Column = cxGridDBColumn1 end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False object cxGridDBColumn1: TcxGridDBColumn Caption = #24207#21495 DataBinding.FieldName = 'xh' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Width = 86 end object v3Column1: TcxGridDBColumn Caption = #38754#24067#26465#30721 DataBinding.FieldName = 'MBMXID' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Width = 78 end object v3Column2: TcxGridDBColumn Caption = #35760#24405#38271#24230 DataBinding.FieldName = 'qty' HeaderAlignmentHorz = taCenter Options.Editing = False Options.Sorting = False Width = 72 end object Tv3Column1: TcxGridDBColumn Caption = #38754#24067#38271#24230 DataBinding.FieldName = 'SJQTY' HeaderAlignmentHorz = taCenter Width = 69 end end object cxGridLevel2: TcxGridLevel GridView = Tv3 end end object Panel2: TPanel Left = 0 Top = 153 Width = 280 Height = 567 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Label9: TLabel Left = 220 Top = 155 Width = 23 Height = 33 Caption = 'M' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -29 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 234 Top = 447 Width = 42 Height = 33 Caption = 'KG' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -29 Font.Name = 'Arial' Font.Style = [] ParentFont = False Visible = False end object Label5: TLabel Left = 9 Top = 155 Width = 60 Height = 33 Caption = #38271#24230 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -29 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label11: TLabel Left = 25 Top = 447 Width = 60 Height = 33 Caption = #27611#37325 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -29 Font.Name = 'Arial' Font.Style = [] ParentFont = False Visible = False end object Label36: TLabel Left = 117 Top = 294 Width = 40 Height = 23 Caption = #24207#21495 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentFont = False Visible = False end object lblOrderNo: TLabel Left = 20 Top = 12 Width = 105 Height = 20 Caption = #27969#31243#21345#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label3: TLabel Left = 20 Top = 46 Width = 105 Height = 20 Caption = #24213#24067#21345#21495#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label6: TLabel Left = 20 Top = 80 Width = 105 Height = 20 Caption = #38754#24067#26631#31614#65306 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label7: TLabel Left = 125 Top = 11 Width = 11 Height = 20 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 125 Top = 45 Width = 11 Height = 20 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label10: TLabel Left = 125 Top = 79 Width = 11 Height = 20 Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object MJLen: TEdit Left = 73 Top = 143 Width = 134 Height = 56 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -48 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 OnKeyPress = MJstr3KeyPress end object MJMaoZ: TEdit Left = 89 Top = 435 Width = 130 Height = 56 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -48 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 Visible = False OnClick = Edit1Click OnKeyPress = MJstr3KeyPress end object BTPrint: TButton Left = 216 Top = 274 Width = 102 Height = 60 Caption = #25552#20132 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 2 Visible = False OnClick = BTPrintClick end object mjxh: TEdit Left = 113 Top = 373 Width = 101 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 3 Text = '1' Visible = False OnClick = Edit1Click end object Button1: TButton Left = 73 Top = 211 Width = 137 Height = 60 Caption = #25442#38754#24067 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = Button1Click end object Button2: TButton Left = 16 Top = 290 Width = 249 Height = 60 Caption = #24213#24067#38271#24230#25552#20132 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnClick = Button2Click end end object Panel3: TPanel Left = 287 Top = 437 Width = 378 Height = 231 BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 3 Visible = False object SpeedButton1: TSpeedButton Left = 4 Top = 6 Width = 70 Height = 70 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 = 78 Top = 6 Width = 70 Height = 70 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 = 152 Top = 6 Width = 70 Height = 70 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 = 226 Top = 6 Width = 70 Height = 70 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 = 4 Top = 78 Width = 70 Height = 70 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 = 78 Top = 78 Width = 70 Height = 70 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 = 152 Top = 78 Width = 70 Height = 70 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 = 226 Top = 78 Width = 70 Height = 70 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 = 4 Top = 153 Width = 70 Height = 70 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 = 78 Top = 153 Width = 70 Height = 70 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 = 152 Top = 153 Width = 70 Height = 70 Caption = '.' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #40657#20307 Font.Style = [fsBold] ParentFont = False OnClick = SpeedButton1Click end object SpeedButton12: TSpeedButton Left = 226 Top = 153 Width = 70 Height = 70 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 = 303 Top = 84 Width = 65 Height = 57 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 end object Panel5: TPanel Left = 0 Top = 0 Width = 1259 Height = 153 Align = alTop TabOrder = 0 object Panel6: TPanel Left = 1 Top = 31 Width = 1257 Height = 121 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 1 object Label1: TLabel Left = 9 Top = 20 Width = 80 Height = 19 Caption = #25195#25551#20837#21475 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label35: TLabel Left = 845 Top = 31 Width = 80 Height = 19 Caption = #33258#21160#21462#20540 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label39: TLabel Left = 1211 Top = 37 Width = 40 Height = 19 Caption = #37325#25171 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label2: TLabel Left = 54 Top = 75 Width = 600 Height = 20 Caption = '1.'#25195#25551#27969#31243#21345' 2.'#25195#25551#24213#24067#21345' 3.'#25195#25551#38754#24067#26631#31614' ' Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False end object Label12: TLabel Left = 306 Top = 26 Width = 42 Height = 24 Caption = #24037#24207 Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -20 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object APID: TEdit Left = 88 Top = 9 Width = 185 Height = 35 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -27 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 1 OnKeyPress = APIDKeyPress end object Edit7: TEdit Left = 812 Top = 28 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 Visible = False OnClick = Edit7Click end object Edit8: TEdit Left = 1182 Top = 34 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 = 0 Visible = False end object gx: TComboBox Left = 358 Top = 9 Width = 102 Height = 40 Style = csDropDownList Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = 'Times New Roman' Font.Style = [fsBold] ItemHeight = 32 ParentFont = False TabOrder = 3 Items.Strings = ( #36864#21367 #22797#21512) end object Button3: TButton Left = 527 Top = 7 Width = 137 Height = 60 Caption = #25293#29031 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnClick = Button3Click end end object ToolBar1: TToolBar Left = 1 Top = 1 Width = 1257 Height = 30 ButtonHeight = 30 ButtonWidth = 83 Caption = 'ToolBar1' Color = clSkyBlue EdgeInner = esNone EdgeOuter = esNone Flat = True Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] Images = DataLink_DyeingFinishingPlan.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 0 object ToolButton1: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #21047#26032 ImageIndex = 0 end object TBCD: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #30133#28857#31649#29702 ImageIndex = 97 Visible = False end object TBClose: TToolButton Left = 150 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end end object cxStyleRepository1: TcxStyleRepository Left = 608 Top = 8 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 = 400 end object DataSource1: TDataSource DataSet = Order_MJ Left = 672 end object Order_MJ: TClientDataSet Aggregates = <> Params = <> Left = 680 Top = 217 end object ADOQueryMain: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 744 Top = 144 end object ADOCmd: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink Parameters = <> Left = 920 Top = 76 end object RMDB_Main: TRMDBDataSet Visible = True DataSet = ADOQueryPrint Left = 648 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 = 464 ReportData = {} end object DataSource2: TDataSource DataSet = CDS_MJCD Left = 696 end object CDS_MJCD: TClientDataSet Aggregates = <> Params = <> Left = 744 end object DataSource3: TDataSource DataSet = CDS_MJID Left = 1000 Top = 296 end object CDS_MJID: TClientDataSet Aggregates = <> Params = <> Left = 1016 Top = 312 end object Timer1: TTimer Interval = 100 Left = 944 Top = 320 end object ADOQueryPrint: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink LockType = ltReadOnly Parameters = <> Left = 720 end object cxGridPopupMenu2: TcxGridPopupMenu PopupMenus = <> Left = 944 Top = 539 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 = 516 Top = 4 ReportData = {} end object ADOTmp: TADOQuery Connection = DataLink_DyeingFinishingPlan.ADOLink Parameters = <> Left = 631 Top = 143 end end