sal_enter_saleplanofsaler_d.dfm

一个MRPII系统源代码版本

inherited Frm_Sal_Enter_SalePlanOfSaler_D: TFrm_Sal_Enter_SalePlanOfSaler_D
  Left = 179
  Top = 87
  Caption = '营销业务员销售计划'
  ClientHeight = 468
  ClientWidth = 502
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel [0]
    Left = 73
    Top = 48
    Width = 36
    Height = 12
    Caption = '年份：'
    TransParent = True
  end
  object Label7: TLabel [1]
    Left = 49
    Top = 70
    Width = 60
    Height = 12
    Caption = '年计划额：'
    TransParent = True
  end
  object Label12: TLabel [2]
    Left = 154
    Top = 45
    Width = 72
    Height = 12
    Caption = '营销业务员：'
    TransParent = True
  end
  object Label14: TLabel [3]
    Left = 49
    Top = 358
    Width = 60
    Height = 12
    Caption = '建档人员：'
    TransParent = True
  end
  object Label15: TLabel [4]
    Left = 274
    Top = 358
    Width = 60
    Height = 12
    Caption = '建档日期：'
    TransParent = True
  end
  object Label2: TLabel [5]
    Left = 262
    Top = 70
    Width = 72
    Height = 12
    Caption = '年销售定额：'
    TransParent = True
  end
  object Label5: TLabel [6]
    Left = 37
    Top = 92
    Width = 72
    Height = 12
    Caption = '一月计划额：'
    TransParent = True
  end
  object Label6: TLabel [7]
    Left = 250
    Top = 92
    Width = 84
    Height = 12
    Caption = '一月销售定额：'
    TransParent = True
  end
  object Label3: TLabel [8]
    Left = 37
    Top = 114
    Width = 72
    Height = 12
    Caption = '二月计划额：'
    TransParent = True
  end
  object Label8: TLabel [9]
    Left = 250
    Top = 114
    Width = 84
    Height = 12
    Caption = '二月销售定额：'
    TransParent = True
  end
  object Label9: TLabel [10]
    Left = 37
    Top = 137
    Width = 72
    Height = 12
    Caption = '三月计划额：'
    TransParent = True
  end
  object Label10: TLabel [11]
    Left = 250
    Top = 136
    Width = 84
    Height = 12
    Caption = '三月销售定额：'
    TransParent = True
  end
  object Label11: TLabel [12]
    Left = 37
    Top = 159
    Width = 72
    Height = 12
    Caption = '四月计划额：'
    TransParent = True
  end
  object Label17: TLabel [13]
    Left = 250
    Top = 159
    Width = 84
    Height = 12
    Caption = '四月销售定额：'
    TransParent = True
  end
  object Label18: TLabel [14]
    Left = 37
    Top = 181
    Width = 72
    Height = 12
    Caption = '五月计划额：'
    TransParent = True
  end
  object Label19: TLabel [15]
    Left = 250
    Top = 181
    Width = 84
    Height = 12
    Caption = '五月销售定额：'
    TransParent = True
  end
  object Label20: TLabel [16]
    Left = 37
    Top = 203
    Width = 72
    Height = 12
    Caption = '六月计划额：'
    TransParent = True
  end
  object Label21: TLabel [17]
    Left = 250
    Top = 203
    Width = 84
    Height = 12
    Caption = '六月销售定额：'
    TransParent = True
  end
  object Label22: TLabel [18]
    Left = 37
    Top = 225
    Width = 72
    Height = 12
    Caption = '七月计划额：'
    TransParent = True
  end
  object Label23: TLabel [19]
    Left = 250
    Top = 225
    Width = 84
    Height = 12
    Caption = '七月销售定额：'
    TransParent = True
  end
  object Label24: TLabel [20]
    Left = 37
    Top = 247
    Width = 72
    Height = 12
    Caption = '八月计划额：'
    TransParent = True
  end
  object Label25: TLabel [21]
    Left = 250
    Top = 247
    Width = 84
    Height = 12
    Caption = '八月销售定额：'
    TransParent = True
  end
  object Label26: TLabel [22]
    Left = 37
    Top = 269
    Width = 72
    Height = 12
    Caption = '九月计划额：'
    TransParent = True
  end
  object Label27: TLabel [23]
    Left = 250
    Top = 269
    Width = 84
    Height = 12
    Caption = '九月销售定额：'
    TransParent = True
  end
  object Label28: TLabel [24]
    Left = 37
    Top = 291
    Width = 72
    Height = 12
    Caption = '十月计划额：'
    TransParent = True
  end
  object Label29: TLabel [25]
    Left = 250
    Top = 291
    Width = 84
    Height = 12
    Caption = '十月销售定额：'
    TransParent = True
  end
  object Label30: TLabel [26]
    Left = 25
    Top = 314
    Width = 84
    Height = 12
    Caption = '十一月计划额：'
    TransParent = True
  end
  object Label31: TLabel [27]
    Left = 238
    Top = 314
    Width = 96
    Height = 12
    Caption = '十一月销售定额：'
    TransParent = True
  end
  object Label32: TLabel [28]
    Left = 25
    Top = 336
    Width = 84
    Height = 12
    Caption = '十二月计划额：'
    TransParent = True
  end
  object Label33: TLabel [29]
    Left = 238
    Top = 336
    Width = 96
    Height = 12
    Caption = '十二月销售定额：'
    TransParent = True
  end
  object Label13: TLabel [30]
    Left = 49
    Top = 380
    Width = 60
    Height = 12
    Caption = '改档人员：'
    TransParent = True
  end
  object Label34: TLabel [31]
    Left = 274
    Top = 380
    Width = 60
    Height = 12
    Caption = '改档日期：'
    TransParent = True
  end
  inherited btn_ok: TButton
    Left = 163
    Top = 420
    TabOrder = 35
  end
  inherited btn_Cancel: TButton
    Left = 256
    Top = 420
    TabOrder = 36
  end
  inherited Pnl_Add: TPanel
    Left = 422
    Top = 7
    TabOrder = 37
  end
  object edt_Plansum_Year: TEdit [35]
    Left = 112
    Top = 62
    Width = 121
    Height = 20
    Enabled = False
    TabOrder = 3
    Text = '0'
    OnExit = edt_Plansum_YearExit
  end
  object medt_Createdate: TMaskEdit [36]
    Left = 336
    Top = 355
    Width = 121
    Height = 20
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 31
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object edt_DeptName: TEdit [37]
    Left = 284
    Top = 40
    Width = 69
    Height = 20
    Enabled = False
    TabOrder = 2
  end
  object edt_CreateEmployeeName: TEdit [38]
    Left = 164
    Top = 355
    Width = 68
    Height = 20
    Enabled = False
    TabOrder = 30
  end
  object edt_DeptCode: TLinkEdit [39]
    Left = 232
    Top = 40
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 1
    OnButtonClick = EmployeeHint1
    OnExit = edt_DeptCodeExit
    OnKeyDown = EmployeeHint
  end
  object edt_CreateEmployeeCode: TLinkEdit [40]
    Left = 112
    Top = 355
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 29
    OnButtonClick = EmployeeHint1
    OnExit = edt_CreateEmployeeCodeExit
    OnKeyDown = EmployeeHint
  end
  object medt_Year: TMaskEdit [41]
    Left = 112
    Top = 40
    Width = 37
    Height = 20
    EditMask = '0000;1;_'
    MaxLength = 4
    TabOrder = 0
    Text = '    '
    OnExit = IntegerCheck
  end
  object edt_rationsum_Year: TEdit [42]
    Left = 336
    Top = 62
    Width = 121
    Height = 20
    Enabled = False
    TabOrder = 4
    Text = '0'
    OnExit = edt_rationsum_YearExit
  end
  object edt_Plansum1: TEdit [43]
    Left = 112
    Top = 85
    Width = 121
    Height = 20
    TabOrder = 5
    Text = '0'
    OnExit = edt_Plansum1Exit
  end
  object edt_rationsum1: TEdit [44]
    Left = 336
    Top = 85
    Width = 121
    Height = 20
    TabOrder = 6
    Text = '0'
    OnExit = edt_rationsum1Exit
  end
  object edt_Plansum2: TEdit [45]
    Left = 112
    Top = 107
    Width = 121
    Height = 20
    TabOrder = 7
    Text = '0'
    OnExit = edt_Plansum1Exit
  end
  object edt_rationsum2: TEdit [46]
    Left = 336
    Top = 107
    Width = 121
    Height = 20
    TabOrder = 8
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_Plansum3: TEdit [47]
    Left = 112
    Top = 130
    Width = 121
    Height = 20
    TabOrder = 9
    Text = '0'
    OnExit = edt_Plansum1Exit
  end
  object edt_rationsum3: TEdit [48]
    Left = 336
    Top = 130
    Width = 121
    Height = 20
    TabOrder = 10
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_Plansum4: TEdit [49]
    Left = 112
    Top = 152
    Width = 121
    Height = 20
    TabOrder = 11
    Text = '0'
    OnExit = edt_Plansum1Exit
  end
  object edt_rationsum4: TEdit [50]
    Left = 336
    Top = 152
    Width = 121
    Height = 20
    TabOrder = 12
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_Plansum5: TEdit [51]
    Left = 112
    Top = 175
    Width = 121
    Height = 20
    TabOrder = 13
    Text = '0'
    OnExit = edt_Plansum1Exit
  end
  object edt_rationsum5: TEdit [52]
    Left = 336
    Top = 175
    Width = 121
    Height = 20
    TabOrder = 14
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_Plansum6: TEdit [53]
    Left = 112
    Top = 197
    Width = 121
    Height = 20
    TabOrder = 15
    Text = '0'
    OnExit = edt_Plansum1Exit
  end
  object edt_rationsum6: TEdit [54]
    Left = 336
    Top = 197
    Width = 121
    Height = 20
    TabOrder = 16
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_Plansum7: TEdit [55]
    Left = 112
    Top = 220
    Width = 121
    Height = 20
    TabOrder = 17
    Text = '0'
    OnExit = edt_Plansum1Exit
  end
  object edt_rationsum7: TEdit [56]
    Left = 336
    Top = 220
    Width = 121
    Height = 20
    TabOrder = 18
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_Plansum8: TEdit [57]
    Left = 112
    Top = 242
    Width = 121
    Height = 20
    TabOrder = 19
    Text = '0'
    OnExit = edt_Plansum1Exit
  end
  object edt_rationsum8: TEdit [58]
    Left = 336
    Top = 242
    Width = 121
    Height = 20
    TabOrder = 20
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_Plansum9: TEdit [59]
    Left = 112
    Top = 265
    Width = 121
    Height = 20
    TabOrder = 21
    Text = '0'
    OnExit = edt_Plansum1Exit
  end
  object edt_rationsum9: TEdit [60]
    Left = 336
    Top = 265
    Width = 121
    Height = 20
    TabOrder = 22
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_Plansum10: TEdit [61]
    Left = 112
    Top = 287
    Width = 121
    Height = 20
    TabOrder = 23
    Text = '0'
    OnExit = edt_Plansum1Exit
  end
  object edt_rationsum10: TEdit [62]
    Left = 336
    Top = 287
    Width = 121
    Height = 20
    TabOrder = 24
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_Plansum11: TEdit [63]
    Left = 112
    Top = 310
    Width = 121
    Height = 20
    TabOrder = 25
    Text = '0'
    OnExit = edt_Plansum1Exit
  end
  object edt_rationsum11: TEdit [64]
    Left = 336
    Top = 310
    Width = 121
    Height = 20
    TabOrder = 26
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_Plansum12: TEdit [65]
    Left = 112
    Top = 332
    Width = 121
    Height = 20
    TabOrder = 27
    Text = '0'
    OnExit = edt_Plansum1Exit
  end
  object edt_rationsum12: TEdit [66]
    Left = 336
    Top = 332
    Width = 121
    Height = 20
    TabOrder = 28
    Text = '0'
    OnExit = FloatCheck
  end
  object medt_edittime: TMaskEdit [67]
    Left = 336
    Top = 377
    Width = 121
    Height = 20
    Enabled = False
    EditMask = '9999.99.99;1;_'
    MaxLength = 10
    TabOrder = 34
    Text = '    .  .  '
    OnExit = DateCheck
  end
  object edt_usereditName: TEdit [68]
    Left = 164
    Top = 377
    Width = 68
    Height = 20
    Enabled = False
    TabOrder = 33
  end
  object edt_usereditCode: TLinkEdit [69]
    Left = 112
    Top = 377
    Width = 50
    Height = 20
    LinkStyle = lsEllipsis
    TabOrder = 32
    OnButtonClick = EmployeeHint1
    OnExit = edt_CreateEmployeeCodeExit
    OnKeyDown = EmployeeHint
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 16
    Top = 0
  end
end