bas_customer_d.dfm

一个MRPII系统源代码版本

  object Edt_Customertaxno: TEdit [52]
    Left = 423
    Top = 236
    Width = 186
    Height = 20
    MaxLength = 30
    TabOrder = 20
  end
  object Edt_Customerbankaccno: TEdit [53]
    Left = 423
    Top = 213
    Width = 186
    Height = 20
    MaxLength = 30
    TabOrder = 18
  end
  object Edt_Customeremail: TEdit [54]
    Left = 423
    Top = 167
    Width = 186
    Height = 20
    MaxLength = 40
    TabOrder = 14
  end
  object Edt_CustomerAddress: TEdit [55]
    Left = 122
    Top = 167
    Width = 186
    Height = 20
    MaxLength = 60
    TabOrder = 13
  end
  object Edt_CustomerName: TEdit [56]
    Left = 122
    Top = 29
    Width = 486
    Height = 20
    MaxLength = 60
    TabOrder = 2
    OnExit = Edt_CustomerNameExit
  end
  object Edt_CustomerCode: TEdit [57]
    Left = 122
    Top = 6
    Width = 104
    Height = 20
    MaxLength = 8
    TabOrder = 0
    OnExit = Edt_CustomerCodeExit
  end
  object Edt_Customertel: TEdit [58]
    Left = 122
    Top = 190
    Width = 186
    Height = 20
    MaxLength = 20
    TabOrder = 15
  end
  object Edt_CustomershortName: TEdit [59]
    Left = 423
    Top = 6
    Width = 185
    Height = 20
    TabOrder = 1
  end
  object Edt_Customerfax: TEdit [60]
    Left = 423
    Top = 190
    Width = 186
    Height = 20
    TabOrder = 16
  end
  object Edt_CustomerClass1: TEdit [61]
    Left = 122
    Top = 437
    Width = 186
    Height = 20
    TabOrder = 35
    Visible = False
  end
  object Edt_CustomerClass2: TEdit [62]
    Left = 424
    Top = 437
    Width = 184
    Height = 20
    TabOrder = 36
    Visible = False
  end
  object Edt_CustomerClass3: TEdit [63]
    Left = 122
    Top = 460
    Width = 186
    Height = 20
    TabOrder = 37
    Visible = False
  end
  object Edt_CustomerClass4: TEdit [64]
    Left = 424
    Top = 460
    Width = 184
    Height = 20
    TabOrder = 38
    Visible = False
  end
  object Edt_CustomerClass5: TEdit [65]
    Left = 122
    Top = 483
    Width = 186
    Height = 20
    TabOrder = 39
    Visible = False
  end
  object Cmbbx_CustomercreditCtrl: TComboBox [66]
    Left = 122
    Top = 144
    Width = 46
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 11
    OnExit = Cmbbx_CustomercreditCtrlExit
    Items.Strings = (
      '否'
      '是')
  end
  object Edt_Customercredit: TEdit [67]
    Left = 423
    Top = 144
    Width = 104
    Height = 20
    TabOrder = 12
    OnExit = Edt_CustomercreditExit
  end
  object cmbbx_DisableShip: TComboBox [68]
    Left = 423
    Top = 282
    Width = 50
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 24
    Items.Strings = (
      '否'
      '是')
  end
  object edt_AreaCode: TEdit [69]
    Left = 122
    Top = 52
    Width = 50
    Height = 20
    MaxLength = 8
    TabOrder = 3
    OnExit = edt_AreaCodeExit
    OnKeyDown = edt_AreaCodeKeyDown
  end
  object edt_AreaName: TEdit [70]
    Left = 175
    Top = 52
    Width = 130
    Height = 20
    Enabled = False
    MaxLength = 8
    TabOrder = 43
    OnExit = Edt_CustomerCodeExit
  end
  object cmb_Ctrl: TComboBox [71]
    Left = 423
    Top = 52
    Width = 186
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 4
    Items.Strings = (
      '0 可从销售合同引入或手工输入'
      '1 只可从销售合同引入')
  end
  object edt_ShipModeCode: TEdit [72]
    Left = 122
    Top = 75
    Width = 50
    Height = 20
    MaxLength = 8
    TabOrder = 5
    OnExit = edt_ShipModeCodeExit
    OnKeyDown = edt_ShipModeCodeKeyDown
  end
  object edt_ShipModeName: TEdit [73]
    Left = 175
    Top = 75
    Width = 130
    Height = 20
    Enabled = False
    MaxLength = 8
    TabOrder = 44
    OnExit = Edt_CustomerCodeExit
  end
  object edt_CurrencyCode: TEdit [74]
    Left = 423
    Top = 75
    Width = 50
    Height = 20
    MaxLength = 8
    TabOrder = 6
    OnExit = edt_CurrencyCodeExit
    OnKeyDown = CurrencyHint
  end
  object edt_CurrencyName: TEdit [75]
    Left = 475
    Top = 75
    Width = 134
    Height = 20
    Enabled = False
    MaxLength = 8
    TabOrder = 45
    OnExit = Edt_CustomerCodeExit
  end
  object edt_PayTermCode: TEdit [76]
    Left = 122
    Top = 98
    Width = 50
    Height = 20
    MaxLength = 8
    TabOrder = 7
    OnExit = edt_PayTermCodeExit
    OnKeyDown = edt_PayTermCodeKeyDown
  end
  object edt_PayTermName: TEdit [77]
    Left = 175
    Top = 98
    Width = 130
    Height = 20
    Enabled = False
    MaxLength = 8
    TabOrder = 46
    OnExit = Edt_CustomerCodeExit
  end
  object edt_SaleTypeCode: TEdit [78]
    Left = 423
    Top = 98
    Width = 50
    Height = 20
    MaxLength = 8
    TabOrder = 8
    OnExit = edt_SaleTypeCodeExit
    OnKeyDown = edt_SaleTypeCodeKeyDown
  end
  object edt_SaleTypeName: TEdit [79]
    Left = 475
    Top = 98
    Width = 134
    Height = 20
    Enabled = False
    MaxLength = 8
    TabOrder = 47
    OnExit = Edt_CustomerCodeExit
  end
  object edt_DeptCode: TEdit [80]
    Left = 122
    Top = 121
    Width = 50
    Height = 20
    MaxLength = 8
    TabOrder = 9
    OnExit = edt_DeptCodeExit
    OnKeyDown = DeptHint
  end
  object edt_DeptName: TEdit [81]
    Left = 175
    Top = 121
    Width = 130
    Height = 20
    Enabled = False
    MaxLength = 8
    TabOrder = 48
    OnExit = Edt_CustomerCodeExit
  end
  object edt_EmployeeCode: TEdit [82]
    Left = 423
    Top = 121
    Width = 50
    Height = 20
    MaxLength = 8
    TabOrder = 10
    OnExit = edt_EmployeeCodeExit
    OnKeyDown = EmployeeHint
  end
  object edt_EmployeeName: TEdit [83]
    Left = 475
    Top = 121
    Width = 134
    Height = 20
    Enabled = False
    MaxLength = 8
    TabOrder = 49
    OnExit = Edt_CustomerCodeExit
  end
  object cmb_Cancelmode: TComboBox [84]
    Left = 122
    Top = 305
    Width = 186
    Height = 20
    Style = csDropDownList
    ItemHeight = 12
    TabOrder = 25
    Items.Strings = (
      '1 余额承前法'
      '2 逐票核销法')
  end
  object Extedt_InvoiceArKmCodeName: TExtEdit [85]
    Left = 425
    Top = 305
    Width = 89
    Height = 20
    TabOrder = 26
    OnExit = Extedt_InvoiceArKmCodeNameExit
    OnKeyDown = AccountSubjectHint
    DispLabel = Label30
  end
  object ExtEdt_GenerallyInvoiceArKmCode: TExtEdit [86]
    Left = 122
    Top = 327
    Width = 121
    Height = 20
    TabOrder = 28
    OnExit = ExtEdt_GenerallyInvoiceArKmCodeExit
    OnKeyDown = AccountSubjectHint
    DispLabel = Lbl_KmName1
  end
  object ExtEdt_SepcialInvoiceArKmCode: TExtEdit [87]
    Left = 122
    Top = 349
    Width = 121
    Height = 20
    TabOrder = 30
    OnExit = ExtEdt_SepcialInvoiceArKmCodeExit
    OnKeyDown = AccountSubjectHint
    DispLabel = Lbl_KmName2
  end
  object Edt_InvoiceArKmName: TExtEdit [88]
    Left = 516
    Top = 305
    Width = 105
    Height = 20
    Enabled = False
    TabOrder = 27
    DispLabel = Label30
  end
  object Edt_GInvoiceArKmName: TExtEdit [89]
    Left = 245
    Top = 327
    Width = 181
    Height = 20
    Enabled = False
    TabOrder = 29
    DispLabel = Lbl_KmName1
  end
  object Edt_SInvoiceArKmName: TExtEdit [90]
    Left = 245
    Top = 349
    Width = 181
    Height = 20
    Enabled = False
    TabOrder = 33
    OnKeyDown = AccountSubjectHint
    DispLabel = Lbl_KmName2
  end
  object ExtEDT_SaleCoStkMCode: TExtEdit [91]
    Left = 122
    Top = 371
    Width = 121
    Height = 20
    TabOrder = 31
    OnExit = ExtEDT_SaleCoStkMCodeExit
    OnKeyDown = AccountSubjectHint
  end
  object ExtEdt_SaleCoStkMName: TExtEdit [92]
    Left = 245
    Top = 371
    Width = 181
    Height = 20
    Enabled = False
    TabOrder = 50
    OnKeyDown = AccountSubjectHint
  end
  object ExtEdt_OtherSaleCoStkmCode: TExtEdit [93]
    Left = 122
    Top = 393
    Width = 121
    Height = 20
    TabOrder = 32
    OnExit = ExtEdt_OtherSaleCoStkmCodeExit
    OnKeyDown = AccountSubjectHint
  end
  object ExtEdt_OtherSaleCoStkmName: TExtEdit [94]
    Left = 245
    Top = 393
    Width = 181
    Height = 20
    Enabled = False
    TabOrder = 51
    OnKeyDown = AccountSubjectHint
  end
  inherited AdoQry_Tmp: TAdoQuery
    Left = 644
  end
end