object frmMJManageNewFDNewLable: TfrmMJManageNewFDNewLable Left = 76 Top = 32 Width = 1286 Height = 700 Caption = #25104#21697#26816#39564 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] OldCreateOrder = False OnClick = FormClick OnClose = FormClose OnDestroy = FormDestroy OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object cxGrid3: TcxGrid Left = 203 Top = 81 Width = 360 Height = 580 Align = alLeft TabOrder = 0 object Tv3: TcxGridDBTableView NavigatorButtons.ConfirmDelete = False 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 Column = v3Column4 end item Kind = skCount Column = v3Column1 end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsView.Footer = True OptionsView.GroupByBox = False Styles.Inactive = cxStyle4 Styles.IncSearch = cxStyle4 Styles.Selection = cxStyle4 object cxGridDBColumn1: TcxGridDBColumn Caption = #21367#26465#30721 DataBinding.FieldName = 'MJID' HeaderAlignmentHorz = taCenter Options.Focusing = False Options.Sorting = False Styles.Content = cxStyle5 Styles.Header = cxStyle5 Width = 92 end object v3Column2: TcxGridDBColumn Caption = #31859#25968#37327 DataBinding.FieldName = 'MJLen' HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Content = cxStyle3 Styles.Footer = cxStyle3 Styles.Header = cxStyle3 Width = 72 end object v3Column4: TcxGridDBColumn Caption = #27611#37325 DataBinding.FieldName = 'MJMaoZ' HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Content = cxStyle3 Styles.Footer = cxStyle3 Styles.Header = cxStyle3 Width = 61 end object v3Column3: TcxGridDBColumn Caption = #31867#22411 DataBinding.FieldName = 'MJType' Options.Editing = False Styles.Content = cxStyle5 Styles.Header = cxStyle5 Width = 53 end object v3Column1: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'MJXH' HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Content = cxStyle4 Styles.Footer = cxStyle4 Styles.Header = cxStyle4 Width = 57 end end object cxGridLevel2: TcxGridLevel GridView = Tv3 end end object Panel2: TPanel Left = 0 Top = 81 Width = 203 Height = 580 Align = alLeft BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Label9: TLabel Left = 160 Top = 159 Width = 15 Height = 22 Caption = 'M' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False OnClick = Label9Click end object Label3: TLabel Left = 160 Top = 246 Width = 26 Height = 22 Caption = 'cm' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label4: TLabel Left = 160 Top = 109 Width = 28 Height = 22 Caption = 'KG' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label5: TLabel Left = 19 Top = 155 Width = 40 Height = 23 Caption = #38271#24230 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 19 Top = 242 Width = 40 Height = 23 Caption = #24133#23485 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label11: TLabel Left = 19 Top = 109 Width = 40 Height = 23 Caption = #27611#37325 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label10: TLabel Left = 19 Top = 339 Width = 40 Height = 23 Caption = #27491#21697 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label12: TLabel Left = 104 Top = 339 Width = 40 Height = 22 Caption = #27425#21697 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label13: TLabel Left = 358 Top = 54 Width = 15 Height = 22 Caption = 'M' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label14: TLabel Left = 207 Top = 58 Width = 60 Height = 23 Caption = #21407#25968#37327 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentFont = False Visible = False end object Label15: TLabel Left = 81 Top = 282 Width = 5 Height = 22 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False Visible = False end object Label22: TLabel Left = 160 Top = 289 Width = 36 Height = 22 Caption = 'g/'#13217 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label23: TLabel Left = 19 Top = 288 Width = 40 Height = 23 Caption = #20811#37325 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label27: TLabel Left = 19 Top = 201 Width = 40 Height = 23 Caption = #36192#36865 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label28: TLabel Left = 19 Top = 390 Width = 40 Height = 22 Caption = #22810#25340 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label26: TLabel Left = 103 Top = 437 Width = 40 Height = 22 Caption = #20986#32440 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label29: TLabel Left = 204 Top = 14 Width = 58 Height = 23 Caption = #26588' '#21495 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentFont = False Visible = False end object Label30: TLabel Left = 19 Top = 18 Width = 40 Height = 23 Caption = #30382#37325 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label31: TLabel Left = 160 Top = 63 Width = 28 Height = 22 Caption = 'KG' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label32: TLabel Left = 19 Top = 63 Width = 40 Height = 23 Caption = #20928#37325 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label33: TLabel Left = 160 Top = 18 Width = 28 Height = 22 Caption = 'KG' Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label34: TLabel Left = 19 Top = 438 Width = 40 Height = 22 Caption = #20221#25968 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object MJFK: TEdit Left = 63 Top = 237 Width = 90 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 7 OnChange = MJFKChange OnClick = MJLenMaClick OnKeyPress = MJstr3KeyPress end object MJLen: TEdit Left = 63 Top = 146 Width = 90 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnChange = MJLenChange OnClick = MJLenMaClick OnExit = MJLenExit OnKeyPress = MJLenKeyPress end object MJMaoZ: TEdit Left = 63 Top = 100 Width = 90 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 5 OnChange = MJMaoZChange OnClick = MJLenMaClick OnExit = MJMaoZExit OnKeyPress = MJMaoZKeyPress end object BTPrint: TButton Left = 3 Top = 492 Width = 83 Height = 54 Caption = #25171#21360 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 9 OnClick = BTPrintClick OnKeyPress = BTPrintKeyPress end object Button5: TButton Left = 115 Top = 492 Width = 83 Height = 54 Caption = #37325#25171 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 14 OnClick = Button5Click end object Edit3: TEdit Left = 64 Top = 329 Width = 39 Height = 43 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 10 Text = #8730 OnClick = Edit3Click OnKeyPress = MJstr3KeyPress end object Edit4: TEdit Left = 142 Top = 329 Width = 40 Height = 43 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 11 OnClick = Edit4Click OnKeyPress = MJstr3KeyPress end object MJQty1: TEdit Left = 261 Top = 49 Width = 90 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 Visible = False OnClick = MJLenMaClick OnKeyPress = MJstr3KeyPress end object MJSJKZ: TEdit Left = 63 Top = 279 Width = 90 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 8 OnChange = MJFKChange OnClick = MJLenMaClick OnKeyPress = MJstr3KeyPress end object MJQty2: TEdit Left = 63 Top = 192 Width = 90 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 6 OnChange = MJQty2Change OnKeyPress = MJQty2KeyPress end object Edit5: TEdit Left = 64 Top = 380 Width = 39 Height = 43 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 12 OnClick = Edit5Click OnKeyPress = MJstr3KeyPress end object Edit6: TEdit Left = 142 Top = 427 Width = 40 Height = 43 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -35 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ReadOnly = True TabOrder = 13 Text = #8730 OnClick = Edit6Click OnKeyPress = MJstr3KeyPress end object MJstr3: TEdit Left = 261 Top = 9 Width = 90 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 Visible = False OnClick = MJLenMaClick OnKeyPress = MJstr3KeyPress end object MJQty3: TEdit Left = 63 Top = 9 Width = 90 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = MJLenMaClick OnExit = MJQty3Exit OnKeyPress = MJstr3KeyPress end object MJQty4: TEdit Left = 63 Top = 54 Width = 90 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 4 OnChange = MJQty4Change OnExit = MJQty4Exit OnKeyPress = MJQty4KeyPress end object ComboBox1: TComboBox Left = 64 Top = 430 Width = 39 Height = 40 Style = csDropDownList Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = 'Times New Roman' Font.Style = [fsBold] ItemHeight = 32 ItemIndex = 0 ParentFont = False TabOrder = 15 Text = '1' Items.Strings = ( '1' '2' '3' '4') end object MJLenMa: TEdit Left = 181 Top = 146 Width = 68 Height = 41 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -32 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 16 Visible = False OnClick = MJLenMaClick OnExit = MJLenExit OnKeyPress = MJLenKeyPress end object DuoPinNote: TEdit Left = 102 Top = 387 Width = 80 Height = 32 Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -20 Font.Name = 'Arial Narrow' Font.Style = [fsBold] ParentFont = False TabOrder = 17 OnClick = MJLenMaClick OnKeyPress = MJQty2KeyPress end object ZSUnit: TComboBox Left = 151 Top = 195 Width = 53 Height = 37 Style = csDropDownList Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #23435#20307 Font.Style = [] ItemHeight = 29 ItemIndex = 0 ParentFont = False TabOrder = 18 Text = 'KG' Items.Strings = ( 'KG' 'M' 'Y') end end object Panel4: TPanel Left = 0 Top = 0 Width = 1270 Height = 81 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 2 object Panel5: TPanel Left = 2 Top = 2 Width = 1266 Height = 77 Align = alClient TabOrder = 0 object Panel6: TPanel Left = 1 Top = 31 Width = 1264 Height = 48 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 0 object Label1: TLabel Left = 9 Top = 16 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 Label2: TLabel Left = 653 Top = 15 Width = 42 Height = 20 Caption = #32568#21495 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label16: TLabel Left = 1088 Top = 13 Width = 42 Height = 12 Caption = 'Label16' Visible = False end object Label24: TLabel Left = 357 Top = 15 Width = 63 Height = 20 Caption = #35746#21333#21495 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label25: TLabel Left = 509 Top = 15 Width = 42 Height = 20 Caption = #39068#33394 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label35: TLabel Left = 997 Top = 15 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 Label36: TLabel Left = 805 Top = 15 Width = 60 Height = 19 Caption = #25353#32568#21495 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object APID: TEdit Left = 88 Top = 12 Width = 185 Height = 27 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 0 OnClick = APIDClick OnKeyPress = APIDKeyPress end object BTAdd: TButton Left = 1211 Top = 8 Width = 46 Height = 25 Caption = #26032#22686 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 Visible = False OnClick = BTAddClick end object BTEdit: TButton Left = 1155 Top = 8 Width = 38 Height = 25 Caption = #20462#25913 TabOrder = 2 Visible = False OnClick = BTEditClick end object Button3: TButton Left = 272 Top = 13 Width = 63 Height = 25 Caption = #30830#23450 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 3 OnClick = Button3Click end object Edit7: TEdit Left = 968 Top = 12 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 = 4 Text = #8730 Visible = False OnClick = Edit7Click end object Edit8: TEdit Left = 776 Top = 12 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 = 5 Visible = False OnClick = Edit8Click end end object ToolBar1: TToolBar Left = 1 Top = 1 Width = 1264 Height = 30 ButtonHeight = 30 ButtonWidth = 95 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_CYZZ.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 1 object ToolButton1: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #21047#26032 ImageIndex = 0 OnClick = ToolButton1Click end object TBCD: TToolButton Left = 63 Top = 0 AutoSize = True Caption = #30133#28857#31649#29702 ImageIndex = 22 Visible = False OnClick = TBCDClick end object ToolButton2: TToolButton Left = 150 Top = 0 Caption = #25351#31034#21333#20449#24687 ImageIndex = 25 OnClick = ToolButton2Click end object TBClose: TToolButton Left = 245 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 21 OnClick = TBCloseClick end end end end object Panel7: TPanel Left = 563 Top = 81 Width = 707 Height = 580 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 3 object Panel1: TPanel Left = 2 Top = 2 Width = 703 Height = 576 Align = alClient BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object BZNote: TRichEdit Left = 2 Top = 2 Width = 699 Height = 259 Align = alTop Font.Charset = GB2312_CHARSET Font.Color = clBlue Font.Height = -14 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False ScrollBars = ssBoth TabOrder = 0 end object RMPreview1: TRMPreview Left = 2 Top = 261 Width = 699 Height = 313 Align = alClient BevelOuter = bvLowered Caption = 'Insert After' Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #23435#20307 Font.Style = [] ParentFont = False ParentShowHint = False ShowHint = False TabOrder = 1 Options.RulerUnit = rmutScreenPixels Options.RulerVisible = False Options.DrawBorder = False Options.BorderPen.Color = clGray Options.BorderPen.Style = psDash end end end object cxStyleRepository1: TcxStyleRepository Left = 608 Top = 8 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 = 560 Top = 8 end object ADOQueryMain: TADOQuery Connection = DataLink_CYZZ.ADOLink LockType = ltReadOnly Parameters = <> Left = 576 end object ADOCmd: TADOQuery Connection = DataLink_CYZZ.ADOLink Parameters = <> Left = 536 end object ADOTmp: TADOQuery Connection = DataLink_CYZZ.ADOLink LockType = ltReadOnly Parameters = <> Left = 576 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_CYZZ.ADOLink LockType = ltReadOnly Parameters = <> Left = 720 end object cxStyleRepository2: TcxStyleRepository Left = 312 object cxStyle3: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clBlue Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] TextColor = clBlue end end object cxStyleRepository3: TcxStyleRepository Left = 344 object cxStyle4: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] TextColor = clRed end end object cxStyleRepository4: TcxStyleRepository Left = 104 object cxStyle5: TcxStyle AssignedValues = [svColor, svFont, svTextColor] Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] TextColor = clOlive end end object cxStyleRepository5: TcxStyleRepository Left = 280 object cxStyle6: TcxStyle AssignedValues = [svFont] Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #23435#20307 Font.Style = [fsBold] end end object cxGridPopupMenu2: TcxGridPopupMenu PopupMenus = <> Left = 616 Top = 587 end object ADOQueryMainDSC: TADOQuery Connection = DataLink_CYZZ.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 = 840 Top = 144 end object ADOQueryLabel: TADOQuery Connection = DataLink_CYZZ.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 = 827 Top = 459 end object RMGridReport1: TRMGridReport ThreadPrepareReport = True InitialZoom = pzDefault PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbPageSetup, pbExit, pbExport, pbNavigator] ModalPreview = False ShowProgress = False DefaultCollate = False ShowPrintDialog = False SaveReportOptions.RegistryPath = 'Software\ReportMachine\ReportSettings\' Preview = RMPreview1 PreviewOptions.RulerUnit = rmutScreenPixels PreviewOptions.RulerVisible = False PreviewOptions.DrawBorder = False PreviewOptions.BorderPen.Color = clGray PreviewOptions.BorderPen.Style = psDash CompressLevel = rmzcFastest CompressThread = False LaterBuildEvents = True OnlyOwnerDataSet = False Left = 676 Top = 450 ReportData = {} end end