dataunit.~dfm

晋业ERP扩展模块 独立的商品铺货计划及后确认进度

object DataForm: TDataForm
  OldCreateOrder = False
  Left = 383
  Top = 58
  Height = 466
  Width = 603
  object Conn: TADOConnection
    CommandTimeout = 18000
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=jy_ty_j_8;Data Source=SERVER'
    KeepConnection = False
    LoginPrompt = False
    Provider = 'SQLOLEDB.1'
    Left = 24
    Top = 16
  end
  object DS_PB: TDataSource
    DataSet = SQL_PB
    Left = 24
    Top = 72
  end
  object DS_T_PB: TDataSource
    DataSet = T_PB
    Left = 176
    Top = 72
  end
  object V_PROD: TADOTable
    Active = True
    Connection = Conn
    CursorType = ctStatic
    LockType = ltReadOnly
    TableName = 'Z_PROD'
    Left = 72
    Top = 144
    object V_PRODDSDesigner: TStringField
      FieldName = #21830#21697#20195#30721
      Size = 16
    end
    object V_PRODDSDesigner2: TStringField
      FieldName = #21830#21697#21517#31216
      Size = 60
    end
    object V_PRODDSDesigner3: TStringField
      FieldName = #20998#31867
      Size = 120
    end
    object V_PRODDSDesigner4: TStringField
      FieldName = #35268#26684
      Size = 30
    end
    object V_PRODDSDesigner5: TStringField
      FieldName = #19978#24066#26085#26399
      Size = 30
    end
    object V_PRODDSDesigner6: TStringField
      FieldName = #21333#20301
      Size = 6
    end
    object V_PRODDSDesigner7: TBCDField
      FieldName = #25209#21457#20215
      Precision = 18
      Size = 7
    end
    object V_PRODDSDesigner8: TBCDField
      FieldName = #37319#36141#20215
      Precision = 18
      Size = 7
    end
    object V_PRODDSDesigner9: TStringField
      FieldName = #20379#24212#21830
      Size = 30
    end
    object V_PRODDSDesigner10: TMemoField
      FieldName = #22791#27880
      BlobType = ftMemo
    end
  end
  object DS_PBALL: TDataSource
    DataSet = SQL_AREA
    Left = 464
    Top = 24
  end
  object T_PB: TADOTable
    Active = True
    Connection = Conn
    CursorType = ctStatic
    TableName = 'a_PlanBefordhan'
    Left = 184
    Top = 144
    object T_PBPBNO: TAutoIncField
      FieldName = 'PBNO'
      ReadOnly = True
    end
    object T_PBPlanType: TStringField
      FieldName = 'PlanType'
      Size = 8
    end
    object T_PBPSDate: TDateTimeField
      FieldName = 'PSDate'
    end
    object T_PBPEDate: TDateTimeField
      FieldName = 'PEDate'
    end
    object T_PBPBProd: TStringField
      FieldName = 'PBProd'
      Size = 16
    end
    object T_PBPBName: TStringField
      FieldName = 'PBName'
      Size = 60
    end
    object T_PBPBCust: TIntegerField
      FieldName = 'PBCust'
    end
    object T_PBPBPQty: TIntegerField
      FieldName = 'PBPQty'
    end
    object T_PBPBTQty: TIntegerField
      FieldName = 'PBTQty'
    end
    object T_PBPBCheck: TStringField
      FieldName = 'PBCheck'
      Size = 8
    end
    object T_PBPBMemo: TStringField
      FieldName = 'PBMemo'
      Size = 48
    end
  end
  object SQL: TADOQuery
    Connection = Conn
    Parameters = <>
    Left = 72
    Top = 360
  end
  object SQL_PB: TADOQuery
    Active = True
    Connection = Conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT'
      'a_PlanBefordhan.PBNO AS '#24207#21495','
      'PBProd AS '#21830#21697#20195#30721','
      'PBName AS '#21830#21697#21517#31216','
      'PlanType AS '#35745#21010#31867#21035','
      'PBCust AS '#23478#25968','
      'PSDate AS '#35745#21010#22987#26085','
      'PEDate AS '#35745#21010#27490#26085','
      'SUM(CASE WHEN (PLstate = '#39#24050#22788#29702#39') THEN 1 ELSE 0 END) AS '#24050#23436#25104#25968','
      'SUM(CASE WHEN (PLstate = '#39#26410#22788#29702#39') THEN 1 ELSE 0 END) AS '#26410#23436#25104#25968','
      
        'SUM(CASE WHEN (PLstate = '#39#24050#22788#29702#39') THEN 1 ELSE 0 END)+SUM(CASE WHEN' +
        ' (PLstate = '#39#26410#22788#29702#39') THEN 1 ELSE 0 END) AS '#24050#35745#21010#25968','
      'SUM(CASE WHEN (PLstate = '#39#26410#35745#21010#24050#39') THEN 1 ELSE 0 END) AS '#35745#21010#22806#23436#25104#25968','
      'PBCheck AS '#35745#21010#29366#24577','
      'PBMemo AS '#22791#27880
      
        'From a_PlanBefordhan LEFT JOIN  a_Planlist ON a_PlanBefordhan.PB' +
        'NO = a_Planlist.PBNO'
      'Where ( a_PlanBefordhan.PBCheck = '#39#26410#36716#21333#39')'
      'Group By'
      'a_PlanBefordhan.PBNO,'
      'PBProd,'
      'PBName,'
      'PlanType,'
      'PBCust,'
      'PSDate,'
      'PEDate,'
      'PBCheck,'
      'PBMemo'
      'ORDER BY PEDate')
    Left = 48
    Top = 288
    object SQL_PBDSDesigner: TIntegerField
      FieldName = #24207#21495
      ReadOnly = True
    end
    object SQL_PBDSDesigner2: TStringField
      FieldName = #21830#21697#20195#30721
      Size = 16
    end
    object SQL_PBDSDesigner3: TStringField
      FieldName = #21830#21697#21517#31216
      Size = 60
    end
    object SQL_PBDSDesigner4: TStringField
      FieldName = #35745#21010#31867#21035
      Size = 8
    end
    object SQL_PBDSDesigner5: TIntegerField
      FieldName = #23478#25968
    end
    object SQL_PBDSDesigner6: TDateTimeField
      FieldName = #35745#21010#22987#26085
    end
    object SQL_PBDSDesigner7: TDateTimeField
      FieldName = #35745#21010#27490#26085
    end
    object SQL_PBDSDesigner8: TIntegerField
      FieldName = #24050#23436#25104#25968
      ReadOnly = True
    end
    object SQL_PBDSDesigner9: TIntegerField
      FieldName = #26410#23436#25104#25968
      ReadOnly = True
    end
    object SQL_PBDSDesigner10: TIntegerField
      FieldName = #24050#35745#21010#25968
      ReadOnly = True
    end
    object SQL_PBDSDesigner11: TIntegerField
      FieldName = #35745#21010#22806#23436#25104#25968
      ReadOnly = True
    end
    object SQL_PBDSDesigner12: TStringField
      FieldName = #35745#21010#29366#24577
      Size = 8
    end
    object SQL_PBDSDesigner13: TStringField
      FieldName = #22791#27880
      Size = 48
    end
  end
  object DS_SP: TDataSource
    DataSet = V_PROD
    Left = 72
    Top = 72
  end
  object T_PL: TADOTable
    Active = True
    Connection = Conn
    CursorType = ctStatic
    TableName = 'a_PlanList'
    Left = 240
    Top = 144
  end
  object DS_PL: TDataSource
    DataSet = V_PL
    Left = 240
    Top = 72
  end
  object V_CUST: TADOTable
    Active = True
    Connection = Conn
    CursorType = ctStatic
    LockType = ltReadOnly
    TableName = 'Z_CUST'
    Left = 128
    Top = 144
    object V_CUSTDSDesigner: TStringField
      FieldName = #21306#22495
    end
    object V_CUSTDSDesigner2: TStringField
      FieldName = #23458#25143#20195#30721
      Size = 16
    end
    object V_CUSTDSDesigner3: TStringField
      FieldName = #23458#25143#21517#31216
      Size = 60
    end
    object V_CUSTDSDesigner4: TStringField
      FieldName = #22320#22495
      Size = 16
    end
    object V_CUSTDSDesigner5: TStringField
      FieldName = #32463#21150#20154
    end
  end
  object SQL_CUST: TADOQuery
    Active = True
    Connection = Conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT '#23458#25143#21517#31216
      'FROM Z_CUST'
      'WHERE ('#21306#22495' = '#39#31532#19968#21306#39')')
    Left = 440
    Top = 312
  end
  object V_PL: TADOTable
    Active = True
    Connection = Conn
    CursorType = ctStatic
    LockType = ltReadOnly
    TableName = 'Z_PL'
    Left = 288
    Top = 144
  end
  object V_PT: TADOTable
    Active = True
    Connection = Conn
    CursorType = ctStatic
    LockType = ltReadOnly
    TableName = 'Z_PTRAN'
    Left = 344
    Top = 144
  end
  object SQL_AREA: TADOQuery
    Active = True
    Connection = Conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT dbo.a_PlanList.PLArea AS '#21306#22495', COUNT(*) AS '#24050#35745#21010', '
      '      dbo.a_PlanBefordhan.PBCust AS '#39044#35745#21010
      'FROM dbo.a_PlanList INNER JOIN'
      '      dbo.a_PlanBefordhan ON '
      '      dbo.a_PlanList.PBNO = dbo.a_PlanBefordhan.PBNO'
      'GROUP BY dbo.a_PlanList.PLArea, dbo.a_PlanBefordhan.PBCust')
    Left = 424
    Top = 360
    object SQL_AREADSDesigner: TStringField
      FieldName = #21306#22495
      Size = 8
    end
    object SQL_AREADSDesigner2: TIntegerField
      FieldName = #24050#35745#21010
      ReadOnly = True
    end
    object SQL_AREADSDesigner3: TIntegerField
      FieldName = #39044#35745#21010
    end
  end
  object SQL_TEMP: TADOQuery
    Active = True
    Connection = Conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT dbo.a_PlanList.PLArea AS '#21306#22495', COUNT(*) AS '#24050#35745#21010', '
      '      dbo.a_PlanBefordhan.PBCust AS '#39044#35745#21010
      'FROM dbo.a_PlanList INNER JOIN'
      '      dbo.a_PlanBefordhan ON '
      '      dbo.a_PlanList.PBNO = dbo.a_PlanBefordhan.PBNO'
      'GROUP BY dbo.a_PlanList.PLArea, dbo.a_PlanBefordhan.PBCust')
    Left = 320
    Top = 288
  end
  object SQL_TEMPA: TADOQuery
    Active = True
    Connection = Conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT'
      'PLAREA AS '#21306#22495','
      'PBCust AS '#39044#35745#21010#23478#25968','
      
        'SUM(CASE WHEN ((PLstate = '#39#24050#22788#29702#39') OR (PLstate = '#39#26410#22788#29702#39')) THEN 1 EL' +
        'SE 0 END) AS '#23454#38469#35745#21010#25968','
      'SUM(CASE WHEN (PLstate = '#39#24050#22788#29702#39') THEN 1 ELSE 0 END) AS '#35745#21010#24050#23436#25104','
      'SUM(CASE WHEN (PLstate = '#39#26410#22788#29702#39') THEN 1 ELSE 0 END) AS '#35745#21010#26410#23436#25104','
      'SUM(CASE WHEN (PLstate = '#39#26410#35745#21010#24050#39') THEN 1 ELSE 0 END) AS '#35745#21010#22806#23436#25104
      
        'From a_PlanBefordhan LEFT JOIN  a_Planlist ON a_PlanBefordhan.PB' +
        'NO = a_Planlist.PBNO'
      'Group By'
      ' PLAREA,PBCust'
      'ORDER BY PLAREA'
      '')
    Left = 152
    Top = 344
  end
  object DS_TEMPA: TDataSource
    DataSet = SQL_TEMPA
    Left = 280
    Top = 8
  end
  object DS_SQL_PL: TDataSource
    DataSet = SQL_PL
    Left = 128
    Top = 16
  end
  object SQL_PL: TADOQuery
    Active = True
    Connection = Conn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM Z_PL')
    Left = 16
    Top = 368
    object SQL_PLDSDesigner: TIntegerField
      ConstraintErrorMessage = '36'
      DisplayWidth = 6
      FieldName = #24207#21495
    end
    object SQL_PLDSDesigner2: TStringField
      DisplayWidth = 6
      FieldName = #23458#25143#20195#30721
      Size = 16
    end
    object SQL_PLDSDesigner3: TStringField
      DisplayWidth = 6
      FieldName = #23458#25143#21517#31216
      Size = 60
    end
    object SQL_PLDSDesigner4: TStringField
      DisplayWidth = 6
      FieldName = #21306#22495
      Size = 8
    end
    object SQL_PLDSDesigner5: TStringField
      DisplayWidth = 6
      FieldName = #32463#21150#20154
    end
    object SQL_PLDSDesigner6: TStringField
      DisplayWidth = 6
      FieldName = #29366#24577
      Size = 8
    end
    object SQL_PLDSDesigner7: TStringField
      DisplayWidth = 6
      FieldName = #22791#27880
      FixedChar = True
      Size = 50
    end
  end
  object SQL_AC: TADOQuery
    Connection = Conn
    CursorType = ctStatic
    CommandTimeout = 3000
    Parameters = <>
    SQL.Strings = (
      'Select DISTINCT'
      'jxc_dj_2.kh_Kmmc_1 AS '#24050#38144#23458#25143
      'From'
      'jxc_dj_2,'
      'jxc_khbm'
      'WHERE'
      'jxc_dj_2.kh_Kmdm = Jxc_khbm.kmdm'
      '')
    Left = 224
    Top = 360
    object SQL_ACDSDesigner: TStringField
      FieldName = #24050#38144#23458#25143
      Size = 30
    end
  end
  object DS_AC: TDataSource
    DataSet = SQL_AC
    Left = 344
    Top = 16
  end
  object SQL_CM: TADOQuery
    Connection = Conn
    CursorType = ctStatic
    CommandTimeout = 3000
    Parameters = <>
    SQL.Strings = (
      'Select DISTINCT'
      'jxc_dj_2.kh_Kmmc_1 AS '#24050#38144#23458#25143
      'From'
      'jxc_dj_2,'
      'jxc_khbm'
      'WHERE'
      'jxc_dj_2.kh_Kmdm = Jxc_khbm.kmdm'
      '')
    Left = 272
    Top = 352
  end
  object DS_CM: TDataSource
    DataSet = SQL_CM
    Left = 400
    Top = 40
  end
  object SQL_CMM: TADOQuery
    Connection = Conn
    CursorType = ctStatic
    CommandTimeout = 3000
    Parameters = <>
    SQL.Strings = (
      'Select * From Z_PLB'
      '')
    Left = 352
    Top = 344
    object SQL_CMMDSDesigner: TAutoIncField
      DisplayWidth = 4
      FieldName = #24207#21495
      ReadOnly = True
    end
    object SQL_CMMDSDesigner6: TStringField
      DisplayWidth = 9
      FieldName = #21830#21697#20195#30721
      Size = 16
    end
    object SQL_CMMDSDesigner7: TStringField
      DisplayWidth = 15
      FieldName = #21830#21697#21517#31216
      Size = 60
    end
    object SQL_CMMDSDesigner8: TStringField
      DisplayWidth = 8
      FieldName = #35745#21010#29366#24577
      Size = 8
    end
    object SQL_CMMDSDesigner2: TStringField
      DisplayWidth = 7
      FieldName = #23458#25143#21517#31216
      Size = 60
    end
    object SQL_CMMDSDesigner3: TStringField
      DisplayWidth = 8
      FieldName = #35745#21010#31867#21035
      Size = 8
    end
    object SQL_CMMDSDesigner5: TDateTimeField
      DisplayWidth = 10
      FieldName = #35745#21010#27490#26085
    end
    object SQL_CMMDSDesigner4: TDateTimeField
      DisplayWidth = 10
      FieldName = #35745#21010#36215#26085
    end
    object SQL_CMMDSDesigner9: TStringField
      DisplayWidth = 7
      FieldName = #22791#27880
      Size = 48
    end
  end
  object DS_CMM: TDataSource
    DataSet = SQL_CMM
    Left = 192
    Top = 16
  end
end