planbrowerunit.dfm

用友系统二次开发 存货管理 客户管理 订货审核 退货审核 铺货计划 调货计划

        FrameVisible = True
      end
    end
    object cxGroupBox3: TcxGroupBox
      Left = 2
      Top = 2
      Align = alLeft
      TabOrder = 1
      Height = 112
      Width = 128
      object CB00: TcxCheckBox
        Left = 10
        Top = -4
        Caption = #20998#31867
        Properties.OnChange = CB00PropertiesChange
        TabOrder = 0
        Width = 49
      end
      object CB01: TcxCheckBox
        Left = 26
        Top = 20
        Hint = 'cInvCCode = '#39'A'#31867#25991#33016#39
        Caption = 'A'#31867#25991#33016
        TabOrder = 1
        Width = 71
      end
      object CB02: TcxCheckBox
        Left = 26
        Top = 44
        Hint = 'cInvCCode = '#39'B'#31867#25991#33016#39
        Caption = 'B'#31867#25991#33016
        TabOrder = 2
        Width = 73
      end
      object CB03: TcxCheckBox
        Left = 26
        Top = 76
        Hint = 'cInvCCode = '#39#38750#25991#33016#39
        Caption = #38750#25991#33016
        TabOrder = 3
        Width = 73
      end
    end
    object cxGroupBox1: TcxGroupBox
      Left = 130
      Top = 2
      Align = alLeft
      TabOrder = 2
      Height = 112
      Width = 279
      object CB12: TcxCheckBox
        Left = 88
        Top = 20
        Hint = 'cTypeCode = '#39#26032#27454#39318#38138#39
        Caption = #26032#27454#39318#36135
        TabOrder = 0
        Width = 73
      end
      object CB14: TcxCheckBox
        Left = 88
        Top = 44
        Hint = 'cTypeCode = '#39#28382#38144#37325#38138#39
        Caption = #28382#38144#37325#38138
        TabOrder = 1
        Width = 73
      end
      object CB13: TcxCheckBox
        Left = 168
        Top = 20
        Hint = 'cTypeCode = '#39#26032#27454#21152#38138#39
        Caption = #26032#27454#21152#38138
        TabOrder = 2
        Width = 73
      end
      object CB10: TcxCheckBox
        Left = 10
        Top = -4
        Caption = ' '#31579#36873' '
        Properties.OnChange = CB10PropertiesChange
        TabOrder = 3
        Width = 53
      end
      object CB11: TcxCheckBox
        Left = 29
        Top = 20
        Caption = #38138#36135
        Properties.OnChange = CB11PropertiesChange
        TabOrder = 4
        Width = 55
      end
      object CB15: TcxCheckBox
        Left = 29
        Top = 76
        Hint = 'cTypeCode = '#39#21830#21697#35843#22238#39
        Caption = #35843#36135
        TabOrder = 5
        Width = 55
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 513
    Width = 782
    Height = 14
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    object DBText1: TDBText
      Left = 240
      Top = 0
      Width = 542
      Height = 14
      Align = alClient
      DataField = #22791#27880
      DataSource = DataSource1
    end
    object DBText2: TDBText
      Left = 0
      Top = 0
      Width = 80
      Height = 14
      Align = alLeft
      DataField = 'cPlanCode'
      DataSource = DataSource1
    end
    object DBText3: TDBText
      Left = 80
      Top = 0
      Width = 80
      Height = 14
      Align = alLeft
      DataField = 'cTypeCode'
      DataSource = DataSource1
    end
    object DBText4: TDBText
      Left = 160
      Top = 0
      Width = 80
      Height = 14
      Align = alLeft
      DataField = 'cInvCode'
      DataSource = DataSource1
    end
  end
  object Panel2: TPanel
    Left = 584
    Top = 145
    Width = 198
    Height = 368
    Align = alRight
    Alignment = taRightJustify
    BevelOuter = bvLowered
    TabOrder = 4
    object CusLB: TcxListBox
      Left = 1
      Top = 1
      Width = 196
      Height = 366
      Cursor = crHandPoint
      Align = alClient
      ItemHeight = 13
      PopupMenu = PopupMenu1
      Style.Color = clBtnFace
      TabOrder = 0
    end
  end
  object Plans: TADODataSet
    Active = True
    Connection = DM.Conn_UF
    CursorType = ctStatic
    AfterClose = PlansAfterClose
    CommandText = 
      'SELECT '#13#10'dbo.a__Plan.PBName AS cPlanCode, '#13#10'dbo.a__Plan.PBNO AS ' +
      'ID, '#13#10'dbo.a__PlanType.PTName AS cTypeCode, '#13#10'dbo.a__Plan.PBProd ' +
      'AS cInvCode, '#13#10'dbo.Inventory.cInvName AS cInvName, '#13#10'dbo.a__Plan' +
      '.PBCust AS iCusCount, '#13#10'CONVERT(Varchar(10),dbo.a__Plan.PSDate,1' +
      '21) AS dStartDate,'#13#10'CONVERT(Varchar(10),dbo.a__Plan.PEDate,121) ' +
      'AS dEndDate, '#13#10'CASE WHEN dbo.Inventory.cInvCCode = '#39'1080'#39' AND db' +
      'o.Inventory.iInvSCost> 4 THEN '#39'A'#31867#25991#33016#39' ELSE ('#13#10'CASE WHEN dbo.Inven' +
      'tory.cInvCCode = '#39'1080'#39' AND dbo.Inventory.iInvSCost<=4 THEN '#39'B'#31867#25991 +
      #33016#39' ELSE  '#13#10#39#38750#25991#33016#39' END)END AS cInvCCode,'#13#10'SUM(CASE WHEN dbo.Person' +
      '.cPersonCode = '#39'A025'#39' THEN 1 ELSE 0 END) AS '#19968#21306#35745#21010', '#13#10'SUM(CASE WHE' +
      'N dbo.Person.cPersonCode = '#39'B192'#39' THEN 1 ELSE 0 END) AS '#20108#21306#35745#21010', '#13#10 +
      'SUM(CASE WHEN dbo.a__Plans.PLType  = 1 OR  dbo.a__Plans.PLType =' +
      ' 0 THEN 1 ELSE 0 END)   AS '#24050#35745#21010','#13#10'SUM(CASE WHEN dbo.a__Plans.PLTy' +
      'pe  = 0  THEN 1 ELSE 0 END)   AS '#24050#22788#29702','#13#10'SUM(CASE WHEN dbo.a__Plan' +
      's.PLState = 1  THEN 1 ELSE 0 END)   AS '#24050#23436#25104','#13#10'dbo.a__Plan.PBMemo ' +
      'AS '#22791#27880#13#10'FROM dbo.a__Plan INNER JOIN'#13#10'      dbo.Inventory ON dbo.a' +
      '__Plan.PBProd = dbo.Inventory.cInvCode INNER JOIN'#13#10'      dbo.a__' +
      'PlanType ON '#13#10'      dbo.a__Plan.PTCode = dbo.a__PlanType.PTCode ' +
      'LEFT OUTER JOIN'#13#10'      dbo.Person INNER JOIN'#13#10'      dbo.Customer' +
      ' ON '#13#10'      dbo.Person.cPersonCode = dbo.Customer.cCusPPerson IN' +
      'NER JOIN'#13#10'      dbo.a__Plans ON dbo.Customer.cCusCode = dbo.a__P' +
      'lans.PLCustID ON '#13#10'      dbo.a__Plan.PBNO = dbo.a__Plans.PBNO'#13#10'G' +
      'ROUP BY dbo.a__Plan.PBName, dbo.a__Plan.PBNO, dbo.a__PlanType.PT' +
      'Name, '#13#10'      dbo.a__Plan.PBProd, dbo.Inventory.cInvName, dbo.a_' +
      '_Plan.PBCust, '#13#10'      dbo.a__Plan.PSDate, dbo.a__Plan.PEDate,dbo' +
      '.Inventory.iInvSCost,dbo.a__Plan.PBMemo,dbo.Inventory.cInvCCode'#13 +
      #10'ORDER BY dbo.a__Plan.PEDate desc'#13#10
    Parameters = <>
    Left = 464
    object PlanscPlanCode: TStringField
      DisplayLabel = #35745#21010#21333#21495
      FieldName = 'cPlanCode'
      Size = 10
    end
    object PlansID: TIntegerField
      FieldName = 'ID'
      ReadOnly = True
      Visible = False
    end
    object PlanscTypeCode: TStringField
      FieldName = 'cTypeCode'
      FixedChar = True
      Size = 8
    end
    object PlanscInvCode: TStringField
      FieldName = 'cInvCode'
      Size = 16
    end
    object PlanscInvName: TWideStringField
      FieldName = 'cInvName'
      Size = 60
    end
    object PlansiCusCount: TIntegerField
      FieldName = 'iCusCount'
    end
    object PlansdStartDate: TStringField
      FieldName = 'dStartDate'
      ReadOnly = True
      Size = 10
    end
    object PlansdEndDate: TStringField
      FieldName = 'dEndDate'
      ReadOnly = True
      Size = 10
    end
    object PlanscInvCCode: TStringField
      FieldName = 'cInvCCode'
      ReadOnly = True
      Size = 7
    end
    object PlansDSDesigner: TIntegerField
      FieldName = #19968#21306#35745#21010
      ReadOnly = True
    end
    object PlansDSDesigner2: TIntegerField
      FieldName = #20108#21306#35745#21010
      ReadOnly = True
    end
    object PlansDSDesigner3: TIntegerField
      FieldName = #24050#35745#21010
      ReadOnly = True
    end
    object PlansDSDesigner4: TIntegerField
      FieldName = #24050#22788#29702
      ReadOnly = True
    end
    object PlansDSDesigner5: TIntegerField
      FieldName = #24050#23436#25104
      ReadOnly = True
    end
    object PlansDSDesigner6: TStringField
      FieldName = #22791#27880
      Size = 960
    end
  end
  object DataSource1: TDataSource
    DataSet = Plans
    Left = 432
  end
  object PopupMenu1: TPopupMenu
    Images = frmMain.ImageList1
    Left = 664
    Top = 313
    object N1: TMenuItem
      Caption = #21024#38500#23458#25143
      ImageIndex = 14
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object N3: TMenuItem
      Caption = #21024#38500#24403#21069#35745#21010
      OnClick = N3Click
    end
  end
end