sal_enter_saleplanofdept.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Enter_SalePlanOfDept: TFrm_Sal_Enter_SalePlanOfDept
  Left = 236
  Top = 115
  Caption = '部门销售计划'
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  inherited Pnl_Title: TPanel
    Caption = '部门销售计划'
  end
  inherited Pnl_Head: TPanel
    inherited Lbl_Condition: TLabel
      Width = 24
      Caption = '全部'
    end
    inherited Lbl_Order: TLabel
      Width = 78
      Caption = '年份/部门代码'
    end
  end
  inherited Pnl_Body: TPanel
    inherited DBGridEh: TDBGridEh
      FrozenCols = 3
      VTitleMArgin = 5
      UseMultiTitle = True
      Columns = <
        Item
          FieldName = 'PlanYear'
          PickList.Strings = ()
          Width = 51
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptCode'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'DeptName'
          PickList.Strings = ()
          Width = 73
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_Year'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_Year'
          PickList.Strings = ()
          Width = 65
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_1'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_1'
          PickList.Strings = ()
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_2'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_2'
          PickList.Strings = ()
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_3'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_3'
          PickList.Strings = ()
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_4'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_4'
          PickList.Strings = ()
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_5'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_5'
          PickList.Strings = ()
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_6'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_6'
          PickList.Strings = ()
          Width = 84
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_7'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_7'
          PickList.Strings = ()
          Width = 81
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_8'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_8'
          PickList.Strings = ()
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_9'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_9'
          PickList.Strings = ()
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_10'
          PickList.Strings = ()
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_10'
          PickList.Strings = ()
          Width = 79
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_11'
          PickList.Strings = ()
          Width = 76
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_11'
          PickList.Strings = ()
          Width = 89
          KeyList.Strings = ()
        end
        Item
          FieldName = 'Plansum_12'
          PickList.Strings = ()
          Width = 80
          KeyList.Strings = ()
        end
        Item
          FieldName = 'rationsum_12'
          PickList.Strings = ()
          Width = 92
          KeyList.Strings = ()
        end
        Item
          FieldName = 'user_Create'
          PickList.Strings = ()
          Width = 78
          KeyList.Strings = ()
        end
        Item
          FieldName = 'user_CreateName'
          PickList.Strings = ()
          Width = 77
          KeyList.Strings = ()
        end
        Item
          FieldName = 'datetime_Create'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end
        Item
          FieldName = 'user_edit'
          PickList.Strings = ()
          Width = 74
          KeyList.Strings = ()
        end
        Item
          FieldName = 'user_editName'
          PickList.Strings = ()
          Width = 75
          KeyList.Strings = ()
        end
        Item
          FieldName = 'datetime_Edit'
          PickList.Strings = ()
          Width = 70
          KeyList.Strings = ()
        end>
    end
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 349
    Top = 27
  end
  inherited ActionList: TActionList
    Left = 184
    Top = 160
  end
  inherited AdoQry_Main: TAdoQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=mdrcmrm;Persist Security Info=True;' +
      'User ID=mdrcmrm;Initial Catalog=Mrpii_Standard;Data Source=192.1' +
      '68.0.151;Use procedure for Prepare=1;Auto Translate=True;Packet ' +
      'Size=4096;Workstation ID=XYB'
    SQL.Strings = (
      'select id,'
      '       PlanYear,'
      '       Sal_SalePlan_Dept.DeptCode,'
      '       DeptName,'
      '--       Sal_SalePlan_Dept.DeptCode+'#39' '#39'+DeptName as Deptflag,'
      '       Plansum_Year,'
      '       rationsum_Year,'
      '       Plansum_1,'
      '       rationsum_1,'
      '       Plansum_2,'
      '       rationsum_2,'
      '       Plansum_3,'
      '       rationsum_3,'
      '       Plansum_4,'
      '       rationsum_4,'
      '       Plansum_5,'
      '       rationsum_5,'
      '       Plansum_6,'
      '       rationsum_6,'
      '       Plansum_7,'
      '       rationsum_7,'
      '       Plansum_8,'
      '       rationsum_8,'
      '       Plansum_9,'
      '       rationsum_9,'
      '       Plansum_10,'
      '       rationsum_10,'
      '       Plansum_11,'
      '       rationsum_11,'
      '       Plansum_12,'
      '       rationsum_12,'
      '       user_Create,'
      '       e1.EmployeeName as user_CreateName,'
      '--       user_Create+'#39' '#39'+e1.EmployeeName as user_Createflag,'
      '       datetime_Create,'
      '       user_edit,'
      '       e2.EmployeeName as user_editName,'
      '--       user_edit+'#39' '#39'+e2.EmployeeName as user_editflag,'
      '       datetime_Edit'
      'from Sal_SalePlan_Dept'
      'left join Dept on Sal_SalePlan_Dept.DeptCode=Dept.DeptCode'
      
        'left join Employee e1 on Sal_SalePlan_Dept.user_Create=e1.employ' +
        'eeCode'
      
        'left join Employee e2 on Sal_SalePlan_Dept.user_edit=e2.Employee' +
        'Code')
    Left = 280
    Top = 297
    object AdoQry_Mainid: TAutoIncField
      FieldName = 'id'
      ReadOnly = True
    end
    object AdoQry_MaInPlanYear: TIntegerField
      DisplayLabel = '年份'
      FieldName = 'PlanYear'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_MainDeptCode: TStringField
      DisplayLabel = '部门代码'
      FieldName = 'DeptCode'
      Origin = 'Sal_SalePlan_Dept'
      Size = 8
    end
    object AdoQry_MainDeptName: TStringField
      DisplayLabel = '部门名称'
      FieldName = 'DeptName'
      Origin = 'Dept'
      Size = 40
    end
    object AdoQry_MaInPlansum_Year: TFloatField
      DisplayLabel = '年计划额'
      FieldName = 'Plansum_Year'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainrationsum_Year: TFloatField
      DisplayLabel = '年销售定额'
      FieldName = 'rationsum_Year'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_MaInPlansum_1: TFloatField
      DisplayLabel = '一月计划额'
      FieldName = 'Plansum_1'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainrationsum_1: TFloatField
      DisplayLabel = '一月销售定额'
      FieldName = 'rationsum_1'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_MaInPlansum_2: TFloatField
      DisplayLabel = '二月计划额'
      FieldName = 'Plansum_2'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainrationsum_2: TFloatField
      DisplayLabel = '二月销售定额'
      FieldName = 'rationsum_2'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_MaInPlansum_3: TFloatField
      DisplayLabel = '三月计划额'
      FieldName = 'Plansum_3'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainrationsum_3: TFloatField
      DisplayLabel = '三月销售定额'
      FieldName = 'rationsum_3'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_MaInPlansum_4: TFloatField
      DisplayLabel = '四月计划额'
      FieldName = 'Plansum_4'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainrationsum_4: TFloatField
      DisplayLabel = '四月销售定额'
      FieldName = 'rationsum_4'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_MaInPlansum_5: TFloatField
      DisplayLabel = '五月计划额'
      FieldName = 'Plansum_5'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainrationsum_5: TFloatField
      DisplayLabel = '五月销售定额'
      FieldName = 'rationsum_5'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_MaInPlansum_6: TFloatField
      DisplayLabel = '六月计划额'
      FieldName = 'Plansum_6'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainrationsum_6: TFloatField
      DisplayLabel = '六月销售定额'
      FieldName = 'rationsum_6'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_MaInPlansum_7: TFloatField
      DisplayLabel = '七月计划额'
      FieldName = 'Plansum_7'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainrationsum_7: TFloatField
      DisplayLabel = '七月销售定额'
      FieldName = 'rationsum_7'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_MaInPlansum_8: TFloatField
      DisplayLabel = '八月计划额'
      FieldName = 'Plansum_8'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainrationsum_8: TFloatField
      DisplayLabel = '八月销售定额'
      FieldName = 'rationsum_8'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_MaInPlansum_9: TFloatField
      DisplayLabel = '九月计划额'
      FieldName = 'Plansum_9'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainrationsum_9: TFloatField
      DisplayLabel = '九月销售定额'
      FieldName = 'rationsum_9'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_MaInPlansum_10: TFloatField
      DisplayLabel = '十月计划额'
      FieldName = 'Plansum_10'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainrationsum_10: TFloatField
      DisplayLabel = '十月销售定额'
      FieldName = 'rationsum_10'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_MaInPlansum_11: TFloatField
      DisplayLabel = '十一月计划额'
      FieldName = 'Plansum_11'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainrationsum_11: TFloatField
      DisplayLabel = '十一月销售定额'
      FieldName = 'rationsum_11'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_MaInPlansum_12: TFloatField
      DisplayLabel = '十二月计划额'
      FieldName = 'Plansum_12'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainrationsum_12: TFloatField
      DisplayLabel = '十二月销售定额'
      FieldName = 'rationsum_12'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainuser_Create: TStringField
      DisplayLabel = '建档用户代码'
      FieldName = 'user_Create'
      Origin = 'Sal_SalePlan_Dept'
      Size = 30
    end
    object AdoQry_Mainuser_CreateName: TStringField
      DisplayLabel = '建档用户名称'
      FieldName = 'user_CreateName'
      Size = 60
    end
    object AdoQry_Maindatetime_Create: TDateTimeField
      DisplayLabel = '建档时间'
      FieldName = 'datetime_Create'
      Origin = 'Sal_SalePlan_Dept'
    end
    object AdoQry_Mainuser_edit: TStringField
      DisplayLabel = '改档用户代码'
      FieldName = 'user_edit'
      Origin = 'Sal_SalePlan_Dept'
      Size = 30
    end
    object AdoQry_Mainuser_editName: TStringField
      DisplayLabel = '改档用户名称'
      FieldName = 'user_editName'
      Size = 60
    end
    object AdoQry_Maindatetime_Edit: TDateTimeField
      DisplayLabel = '改档时间'
      FieldName = 'datetime_Edit'
      Origin = 'Sal_SalePlan_Dept'
    end
  end
  inherited DataSource: TDataSource
    Left = 320
    Top = 169
  end
end