bas_vendor_d.dfm

一个MRPII系统源代码版本

inherited Frm_Bas_Vendor_D: TFrm_Bas_Vendor_D
  Left = 246
  Top = 143
  Caption = #20379#24212#21830#20027#25991#20214
  ClientHeight = 561
  ClientWidth = 680
  PixelsPerInch = 96
  TextHeight = 12
  object Label4: TLabel [0]
    Left = 66
    Top = 80
    Width = 72
    Height = 12
    Caption = #20379#24212#21830#21517#31216#65306
    FocusControl = Edt_VendorName
  end
  object Label5: TLabel [1]
    Left = 66
    Top = 56
    Width = 72
    Height = 12
    Caption = #20379#24212#21830#20195#30721#65306
    FocusControl = Edt_VendorCode
  end
  object Label8: TLabel [2]
    Left = 72
    Top = 154
    Width = 66
    Height = 12
    Caption = 'Email'#22320#22336#65306
    FocusControl = Edt_Vendoremail
  end
  object Label10: TLabel [3]
    Left = 78
    Top = 129
    Width = 60
    Height = 12
    Caption = #22320'    '#22336#65306
    FocusControl = Edt_VendorAddress
  end
  object Label12: TLabel [4]
    Left = 78
    Top = 178
    Width = 60
    Height = 12
    Caption = #30005'    '#35805#65306
    FocusControl = Edt_Vendortel
  end
  object Label13: TLabel [5]
    Left = 377
    Top = 228
    Width = 60
    Height = 12
    Caption = #38134#34892#24080#21495#65306
    FocusControl = Edt_Vendorbankaccno
  end
  object Label14: TLabel [6]
    Left = 365
    Top = 252
    Width = 72
    Height = 12
    Caption = #31246#21153#30331#35760#21495#65306
    FocusControl = Edt_Vendortaxno
  end
  object Label15: TLabel [7]
    Left = 78
    Top = 301
    Width = 60
    Height = 12
    Caption = #27861#20154#20195#34920#65306
    FocusControl = Edt_Vendorowner
  end
  object Label16: TLabel [8]
    Left = 78
    Top = 228
    Width = 60
    Height = 12
    Caption = #24320#25143#38134#34892#65306
    FocusControl = Edt_Vendorbank
  end
  object Label17: TLabel [9]
    Left = 78
    Top = 252
    Width = 60
    Height = 12
    Caption = #32570#30465#31246#29575#65306
    FocusControl = Edt_Vendortaxrate_Percent
  end
  object Label18: TLabel [10]
    Left = 377
    Top = 277
    Width = 60
    Height = 12
    Caption = #32852' '#31995' '#20154#65306
    FocusControl = Edt_Vendorcontact
  end
  object Label19: TLabel [11]
    Left = 78
    Top = 277
    Width = 60
    Height = 12
    Caption = #36127' '#36131' '#20154#65306
    FocusControl = Edt_Vendorceo
  end
  object Label21: TLabel [12]
    Left = 78
    Top = 400
    Width = 60
    Height = 12
    Caption = #22791'    '#27880#65306
    FocusControl = Edt_VendorremArk
  end
  object Label1: TLabel [13]
    Left = 365
    Top = 301
    Width = 72
    Height = 12
    Caption = #20379#24212#21830#31616#31216#65306
    FocusControl = Edt_VendorshortName
  end
  object Label2: TLabel [14]
    Left = 377
    Top = 178
    Width = 60
    Height = 12
    Caption = #20256'    '#30495#65306
    FocusControl = Edt_Vendorfax
  end
  object lbl_ParamName1: TLabel [15]
    Left = 54
    Top = 424
    Width = 84
    Height = 12
    Caption = 'lbl_ParamName1'
    Visible = False
  end
  object lbl_ParamName2: TLabel [16]
    Left = 353
    Top = 424
    Width = 84
    Height = 12
    Caption = 'lbl_ParamName2'
    Visible = False
  end
  object lbl_ParamName3: TLabel [17]
    Left = 54
    Top = 449
    Width = 84
    Height = 12
    Caption = 'lbl_ParamName3'
    Visible = False
  end
  object lbl_ParamName4: TLabel [18]
    Left = 353
    Top = 449
    Width = 84
    Height = 12
    Caption = 'lbl_ParamName4'
    Visible = False
  end
  object lbl_ParamName5: TLabel [19]
    Left = 54
    Top = 474
    Width = 84
    Height = 12
    Caption = 'lbl_ParamName5'
    Visible = False
  end
  object Label3: TLabel [20]
    Left = 235
    Top = 250
    Width = 7
    Height = 14
    Caption = '%'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel [21]
    Left = 377
    Top = 105
    Width = 60
    Height = 12
    Caption = #20027#25511#36135#24065#65306
  end
  object lbl_Currency: TLabel [22]
    Left = 438
    Top = 96
    Width = 6
    Height = 12
  end
  object Label7: TLabel [23]
    Left = 377
    Top = 154
    Width = 60
    Height = 12
    Caption = #20027'    '#39029#65306
  end
  object Label9: TLabel [24]
    Left = 66
    Top = 203
    Width = 72
    Height = 12
    Caption = #36136#37327#20445#35777#37329#65306
  end
  object Label11: TLabel [25]
    Left = 389
    Top = 203
    Width = 48
    Height = 12
    Caption = #20449#29992#39069#65306
  end
  object Label20: TLabel [26]
    Left = 78
    Top = 105
    Width = 60
    Height = 12
    Caption = #26159#21542#26377#25928#65306
  end
  object Label22: TLabel [27]
    Left = 30
    Top = 326
    Width = 108
    Height = 12
    Caption = #26080#31080#24212#20184#24080#27454#31185#30446#65306
  end
  object Label23: TLabel [28]
    Left = 30
    Top = 351
    Width = 108
    Height = 12
    Caption = #26377#31080#24212#20184#24080#27454#31185#30446#65306
  end
  object Label24: TLabel [29]
    Left = 251
    Top = 304
    Width = 6
    Height = 12
    Visible = False
  end
  object Label25: TLabel [30]
    Left = 250
    Top = 330
    Width = 6
    Height = 12
    Visible = False
  end
  object Label26: TLabel [31]
    Left = 377
    Top = 56
    Width = 60
    Height = 12
    Caption = #21306'    '#22495#65306
  end
  object Label27: TLabel [32]
    Left = 438
    Top = 49
    Width = 6
    Height = 12
  end
  object Label28: TLabel [33]
    Left = 54
    Top = 377
    Width = 84
    Height = 12
    Caption = #21457#31080#26680#28040#26041#27861#65306
  end
  inherited btn_ok: TButton
    Left = 438
    Top = 505
    Width = 88
    TabOrder = 31
  end
  inherited btn_Cancel: TButton
    Left = 538
    Top = 505
    Width = 88
    TabOrder = 32
  end
  inherited Pnl_Add: TPanel
    Left = 567
    Top = 48
    Width = 58
    Height = 20
    TabOrder = 33
    Visible = True
  end
  object Edt_Vendorbank: TEdit [37]
    Left = 141
    Top = 220
    Width = 188
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    MaxLength = 40
    TabOrder = 12
  end
  object Edt_Vendorowner: TEdit [38]
    Left = 141
    Top = 293
    Width = 88
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    MaxLength = 8
    TabOrder = 18
  end
  object Edt_VendorremArk: TEdit [39]
    Left = 141
    Top = 392
    Width = 485
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    MaxLength = 60
    TabOrder = 25
    OnExit = Edt_VendorremArkExit
  end
  object Edt_Vendorceo: TEdit [40]
    Left = 141
    Top = 269
    Width = 88
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    MaxLength = 8
    TabOrder = 16
  end
  object Edt_Vendortaxrate_Percent: TEdit [41]
    Left = 141
    Top = 244
    Width = 88
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 14
    OnExit = Edt_Vendortaxrate_PercentExit
  end
  object Edt_Vendorcontact: TEdit [42]
    Left = 438
    Top = 269
    Width = 88
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    MaxLength = 20
    TabOrder = 17
  end
  object Edt_Vendortaxno: TEdit [43]
    Left = 438
    Top = 244
    Width = 188
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    MaxLength = 30
    TabOrder = 15
  end
  object Edt_Vendorbankaccno: TEdit [44]
    Left = 438
    Top = 220
    Width = 188
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    MaxLength = 30
    TabOrder = 13
  end
  object Edt_Vendoremail: TEdit [45]
    Left = 141
    Top = 146
    Width = 188
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    MaxLength = 40
    TabOrder = 6
  end
  object Edt_VendorAddress: TEdit [46]
    Left = 141
    Top = 121
    Width = 484
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    MaxLength = 60
    TabOrder = 5
    OnExit = Edt_VendorAddressExit
  end
  object Edt_VendorName: TEdit [47]
    Left = 141
    Top = 72
    Width = 484
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    MaxLength = 60
    TabOrder = 2
    OnExit = Edt_VendorNameExit
  end
  object Edt_VendorCode: TEdit [48]
    Left = 141
    Top = 48
    Width = 88
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    MaxLength = 8
    TabOrder = 0
    OnExit = Edt_VendorCodeExit
  end
  object Edt_Vendortel: TEdit [49]
    Left = 141
    Top = 170
    Width = 188
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    MaxLength = 20
    TabOrder = 8
  end
  object Edt_VendorshortName: TEdit [50]
    Left = 438
    Top = 293
    Width = 188
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 19
  end
  object Edt_Vendorfax: TEdit [51]
    Left = 438
    Top = 170
    Width = 188
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 9
  end
  object Edt_VendorClass1: TEdit [52]
    Left = 141
    Top = 416
    Width = 188
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 26
    Visible = False
  end
  object Edt_VendorClass2: TEdit [53]
    Left = 438
    Top = 416
    Width = 188
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 27
    Visible = False
  end
  object Edt_VendorClass3: TEdit [54]
    Left = 141
    Top = 441
    Width = 188
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 28
    Visible = False
  end
  object Edt_VendorClass4: TEdit [55]
    Left = 438
    Top = 441
    Width = 188
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 29
    Visible = False
  end
  object Edt_VendorClass5: TEdit [56]
    Left = 141
    Top = 466
    Width = 188
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 30
    Visible = False
  end
  object Extedt_Currency: TExtEdit [57]
    Left = 438
    Top = 97
    Width = 88
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 4
    OnExit = CurrencyCodeCheck
    OnKeyDown = CurrencyHint
    DispLabel = lbl_Currency
  end
  object edt_VendorWebPage: TEdit [58]
    Left = 438
    Top = 146
    Width = 188
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 7
  end
  object edt_VendorQFund: TEdit [59]
    Left = 141
    Top = 195
    Width = 88
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 10
    Text = '0'
    OnExit = FloatCheck
  end
  object edt_VendorCredit: TEdit [60]
    Left = 438
    Top = 195
    Width = 88
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 11
    Text = '0'
    OnExit = FloatCheck
  end
  object cmbbx_VendorUsable: TComboBox [61]
    Left = 141
    Top = 97
    Width = 88
    Height = 20
    Style = csDropDownList
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    ItemHeight = 12
    TabOrder = 3
    Items.Strings = (
      #21542
      #26159)
  end
  object Extedt_NoInvoiceApKmCode: TExtEdit [62]
    Left = 141
    Top = 318
    Width = 88
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 20
    OnExit = Extedt_NoInvoiceApKmCodeExit
    OnKeyDown = AccountSubjectHint
    DispLabel = Label24
  end
  object Extedt_InvoiceApKmCode: TExtEdit [63]
    Left = 141
    Top = 343
    Width = 88
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 22
    OnExit = Extedt_InvoiceApKmCodeExit
    OnKeyDown = AccountSubjectHint
    DispLabel = Label25
  end
  object Extedt_Area: TExtEdit [64]
    Left = 438
    Top = 48
    Width = 88
    Height = 20
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 1
    OnExit = Extedt_AreaExit
    OnKeyDown = AreaHint
    DispLabel = Label23
  end
  object Cmbx_InvoiceCancelMode: TComboBox [65]
    Left = 141
    Top = 367
    Width = 88
    Height = 22
    Style = csOwnerDrawFixed
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    ItemHeight = 16
    TabOrder = 24
    Items.Strings = (
      '1 '#20313#39069#25215#21069#27861
      '2 '#36880#31080#26680#28040#27861)
  end
  object Edt_NoInvoiceApKmName: TExtEdit [66]
    Left = 235
    Top = 318
    Width = 126
    Height = 20
    Enabled = False
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 21
    DispLabel = Label24
  end
  object Edt_InvoiceApKmName: TExtEdit [67]
    Left = 235
    Top = 343
    Width = 126
    Height = 20
    Enabled = False
    ImeName = #32043#20809#25340#38899#36755#20837#27861
    TabOrder = 23
    DispLabel = Label25
  end
  inherited AdoQry_Tmp: TADOQuery
    Left = 339
    Top = 35
  end
  object AdoQuery1: TADOQuery
    ConnectionString = 'FILE Name=Mrpii.udl'
    Parameters = <>
    Left = 305
    Top = 35
  end
end