object frmDJBJYInput: TfrmDJBJYInput Left = 277 Top = 213 Width = 1265 Height = 676 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 PixelsPerInch = 96 TextHeight = 12 object Panel2: TPanel Left = 0 Top = 81 Width = 1249 Height = 100 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 0 object Label9: TLabel Left = 312 Top = 14 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 Label5: TLabel Left = 171 Top = 14 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 Label36: TLabel Left = 19 Top = 14 Width = 40 Height = 23 Caption = #21367#21495 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label37: TLabel Left = 19 Top = 57 Width = 40 Height = 23 Caption = #32568#21495 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object Label3: TLabel Left = 339 Top = 14 Width = 40 Height = 22 Caption = #31867#22411 Font.Charset = ANSI_CHARSET Font.Color = clRed Font.Height = -19 Font.Name = 'Arial' Font.Style = [] ParentFont = False end object MJLen: TEdit Left = 215 Top = 6 Width = 90 Height = 37 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 2 OnKeyPress = MJLenKeyPress end object BTPrint: TButton Left = 874 Top = 16 Width = 171 Height = 57 Caption = #25552#20132 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 3 Visible = False OnClick = BTPrintClick end object MJStr4: TEdit Left = 63 Top = 48 Width = 90 Height = 37 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 1 OnExit = MJStr4Exit end object MJXH: TEdit Left = 63 Top = 6 Width = 90 Height = 37 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False TabOrder = 0 end object ComboBox2: TComboBox Left = 383 Top = 6 Width = 90 Height = 40 Style = csDropDownList Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -29 Font.Name = 'Times New Roman' Font.Style = [fsBold] ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861 ItemHeight = 32 ItemIndex = 0 ParentFont = False TabOrder = 4 Text = #27491#21697 Items.Strings = ( #27491#21697 #20108#31561 #27425#21697 #38646#27425 #33337#26679) end end object Panel4: TPanel Left = 0 Top = 0 Width = 1249 Height = 81 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered TabOrder = 1 object Panel5: TPanel Left = 2 Top = 2 Width = 1245 Height = 77 Align = alTop TabOrder = 0 object Panel6: TPanel Left = 1 Top = 1 Width = 1243 Height = 48 Align = alTop BevelInner = bvRaised BevelOuter = bvLowered Color = clSkyBlue TabOrder = 0 Visible = False 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 = 801 Top = 15 Width = 34 Height = 16 Caption = #32568#21495 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -16 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 = 353 Top = 15 Width = 51 Height = 16 Caption = #35746#21333#21495 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label25: TLabel Left = 697 Top = 15 Width = 34 Height = 16 Caption = #39068#33394 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object Label38: TLabel Left = 513 Top = 15 Width = 34 Height = 16 Caption = #39068#33394 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -16 Font.Name = #23435#20307 Font.Style = [fsBold] ParentFont = False Visible = False end object APID: TEdit Left = 92 Top = 13 Width = 185 Height = 27 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -19 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 0 OnKeyPress = APIDKeyPress end object BTEdit: TButton Left = 1160 Top = 8 Width = 33 Height = 25 Caption = #20462#25913 TabOrder = 1 Visible = False OnClick = BTEditClick end object Button3: TButton Left = 276 Top = 14 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 = 2 OnClick = Button3Click 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 = 3 Visible = False OnClick = BTAddClick end end object ToolBar1: TToolBar Left = 1 Top = 49 Width = 1243 Height = 27 Align = alClient ButtonHeight = 30 ButtonWidth = 59 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_PBMDDJ.ThreeImgList List = True ParentColor = False ParentFont = False ShowCaptions = True TabOrder = 1 object TBClose: TToolButton Left = 0 Top = 0 AutoSize = True Caption = #20851#38381 ImageIndex = 55 OnClick = TBCloseClick end object lbl1: TLabel Left = 63 Top = 0 Width = 80 Height = 30 Caption = #27491#21697#25968#37327 Font.Charset = GB2312_CHARSET Font.Color = clRed Font.Height = -20 Font.Name = #23435#20307 Font.Style = [] ParentFont = False Visible = False end end end end object GroupBox1: TGroupBox Left = 0 Top = 181 Width = 1249 Height = 456 Align = alClient Caption = #21452#20987#21024#38500#26816#39564#20449#24687 Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -17 Font.Name = #23435#20307 Font.Style = [] ParentFont = False TabOrder = 2 object cxGrid3: TcxGrid Left = 2 Top = 19 Width = 1245 Height = 435 Align = alClient TabOrder = 0 object Tv3: TcxGridDBTableView Navigator.Buttons.CustomButtons = <> OnCellDblClick = Tv3CellDblClick DataController.DataSource = DataSource3 DataController.Options = [dcoAssignGroupingValues, dcoAssignMasterDetailKeys, dcoSaveExpanding, dcoImmediatePost] DataController.Summary.DefaultGroupSummaryItems = <> DataController.Summary.FooterSummaryItems = < item Kind = skSum Column = v3Column2 end item Kind = skSum end item Kind = skSum end item Kind = skCount Column = v3Column1 end> DataController.Summary.SummaryGroups = <> OptionsCustomize.ColumnFiltering = False OptionsData.Editing = 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 = 160 end object v3Column1: TcxGridDBColumn Caption = #21367#21495 DataBinding.FieldName = 'MJXH' HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Content = cxStyle4 Styles.Header = cxStyle4 Width = 80 end object v3Column2: TcxGridDBColumn Caption = #25968#37327 DataBinding.FieldName = 'MJLen' HeaderAlignmentHorz = taCenter Options.Editing = False Styles.Content = cxStyle3 Styles.Header = cxStyle3 Width = 80 end object v3Column6: TcxGridDBColumn Caption = #21333#20301 DataBinding.FieldName = 'MJTypeOther' HeaderAlignmentHorz = taCenter Styles.Header = cxStyle3 Width = 80 end object v3Column3: TcxGridDBColumn Caption = #31867#22411 DataBinding.FieldName = 'MJType' Options.Editing = False Styles.Content = cxStyle5 Styles.Header = cxStyle5 Width = 80 end end object cxGridLevel2: TcxGridLevel GridView = Tv3 end end end object cxStyleRepository1: TcxStyleRepository Left = 612 Top = 128 PixelsPerInch = 96 object cxStyle1: TcxStyle AssignedValues = [svColor, svFont] Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = -16 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 = 584 Top = 44 end object DataSource1: TDataSource DataSet = Order_MJ Left = 632 Top = 4 end object Order_MJ: TClientDataSet Aggregates = <> Params = <> Left = 560 Top = 8 end object ADOQueryMain: TADOQuery Connection = DataLink_PBMDDJ.ADOLink LockType = ltReadOnly Parameters = <> Left = 576 end object ADOCmd: TADOQuery Connection = DataLink_PBMDDJ.ADOLink Parameters = <> Left = 536 end object ADOTmp: TADOQuery Connection = DataLink_PBMDDJ.ADOLink LockType = ltReadOnly EnableBCD = False Parameters = <> Left = 688 Top = 65532 end object RMDB_Main: TRMDBDataSet Visible = True DataSet = ADOQueryPrint Left = 924 Top = 4 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 = 548 Top = 44 ReportData = {} end object DataSource2: TDataSource DataSet = CDS_MJCD Left = 724 Top = 65520 end object CDS_MJCD: TClientDataSet Aggregates = <> Params = <> Left = 824 Top = 65532 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_PBMDDJ.ADOLink LockType = ltReadOnly Parameters = <> Left = 776 Top = 65520 end object cxStyleRepository2: TcxStyleRepository Left = 80 Top = 28 PixelsPerInch = 96 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 = 64 Top = 32 PixelsPerInch = 96 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 = 8 Top = 68 PixelsPerInch = 96 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 = 40 Top = 52 PixelsPerInch = 96 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_PBMDDJ.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 = 836 Top = 188 end object ADOTmp1: TADOQuery Connection = DataLink_PBMDDJ.ADOLink LockType = ltReadOnly EnableBCD = False Parameters = <> Left = 664 Top = 28 end end