vendor_d.dfm

飞恒进销存(超市批发)管理系统V5.1（含源程序） 语言：Delphi 6/7 相关控件：FastReport 2.4以上, Ehlib 3.4以上 1.数据库为fhe2db_V51.da

inherited vend_DForm: Tvend_DForm
  Left = 131
  Top = 149
  Caption = #20379#24212#21830#36164#26009
  ClientHeight = 299
  ClientWidth = 522
  OldCreateOrder = True
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 12
  inherited code: TLabel
    Left = 12
    Width = 36
    Caption = #32534#30721#65306
  end
  object Label1: TLabel [1]
    Left = 187
    Top = 11
    Width = 36
    Height = 12
    Caption = #31616#31216#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel [2]
    Left = 14
    Top = 270
    Width = 72
    Height = 12
    Caption = #26399#21021#24212#20184#27454#65306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  inherited BtnPrior: TBitBtn
    Left = 409
    TabOrder = 4
    OnClick = BtnPriorClick
  end
  inherited BtnNext: TBitBtn
    Left = 409
    Top = 90
    TabOrder = 5
    OnClick = BtnNextClick
  end
  inherited BtnSave: TBitBtn
    Left = 409
    Top = 128
    TabOrder = 6
  end
  inherited Btnexit: TBitBtn
    Left = 409
    Top = 166
    TabOrder = 7
    OnClick = BtnexitClick
    Kind = bkAbort
  end
  inherited Btnadd: TBitBtn
    Left = 409
    Top = 207
    TabOrder = 8
    OnClick = BtnaddClick
  end
  inherited chkStopUsed: TCheckBox
    Top = 269
    TabOrder = 9
  end
  inherited DEno: TDBEdit
    Left = 45
    Height = 18
    DataField = 'VENDORNO'
    DataSource = DataE2.dsven
    TabOrder = 0
  end
  object DESHORTNAME: TDBEdit
    Left = 222
    Top = 7
    Width = 120
    Height = 20
    DataField = 'SHORTNAME'
    DataSource = DataE2.dsven
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object DEBALANCEAMT: TDBEdit
    Left = 81
    Top = 267
    Width = 118
    Height = 20
    DataField = 'BALANCEAMT'
    DataSource = DataE2.dsven
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object PageControl1: TPageControl
    Left = 9
    Top = 34
    Width = 392
    Height = 226
    ActivePage = TabSheet1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabIndex = 0
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = #32852#31995#20449#24687
      object Label2: TLabel
        Left = 8
        Top = 11
        Width = 36
        Height = 12
        Caption = #20840#31216#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 8
        Top = 39
        Width = 60
        Height = 12
        Caption = #25152#23646#22320#21306#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 198
        Top = 66
        Width = 60
        Height = 12
        Caption = #32852#31995#30005#35805#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 8
        Top = 66
        Width = 48
        Height = 12
        Caption = #32852#31995#20154#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 8
        Top = 94
        Width = 36
        Height = 12
        Caption = #25163#26426#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 198
        Top = 94
        Width = 36
        Height = 12
        Caption = #20256#30495#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 8
        Top = 122
        Width = 48
        Height = 12
        Caption = 'E-MAIL'#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 198
        Top = 122
        Width = 36
        Height = 12
        Caption = #37038#32534#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label11: TLabel
        Left = 8
        Top = 150
        Width = 36
        Height = 12
        Caption = #22320#22336#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 8
        Top = 177
        Width = 36
        Height = 12
        Caption = #32593#22336#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object DENAME: TDBEdit
        Left = 65
        Top = 7
        Width = 310
        Height = 20
        DataField = 'NAME'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object DEPHONE: TDBEdit
        Left = 256
        Top = 63
        Width = 120
        Height = 20
        DataField = 'PHONE'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object DECONTACTOR: TDBEdit
        Left = 65
        Top = 63
        Width = 120
        Height = 20
        DataField = 'CONTACTOR'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object DEMOBILEPHONE: TDBEdit
        Left = 65
        Top = 90
        Width = 120
        Height = 20
        DataField = 'MOBILEPHONE'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
      object DEFAX: TDBEdit
        Left = 256
        Top = 90
        Width = 120
        Height = 20
        DataField = 'FAX'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 5
      end
      object DEEMAIL: TDBEdit
        Left = 65
        Top = 118
        Width = 120
        Height = 20
        DataField = 'EMAIL'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 6
      end
      object DEZIP: TDBEdit
        Left = 256
        Top = 118
        Width = 120
        Height = 20
        DataField = 'ZIP'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 7
      end
      object DEADDRESS: TDBEdit
        Left = 65
        Top = 146
        Width = 310
        Height = 20
        DataField = 'ADDRESS'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 8
      end
      object DEURL: TDBEdit
        Left = 65
        Top = 174
        Width = 310
        Height = 20
        DataField = 'URL'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 9
      end
      object DLCAREAID: TDBLookupComboboxEh
        Left = 65
        Top = 35
        Width = 120
        Height = 20
        DataField = 'AREAID'
        DataSource = DataE2.dsven
        EditButtons = <>
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        KeyField = 'AREAID'
        ListField = 'name'
        ListSource = DataE2.dsSubarea
        ParentFont = False
        TabOrder = 1
        Visible = True
      end
    end
    object TabSheet2: TTabSheet
      Caption = #20854#23427#20449#24687
      ImageIndex = 1
      object Label14: TLabel
        Left = 8
        Top = 11
        Width = 60
        Height = 12
        Caption = #24320#25143#38134#34892#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label15: TLabel
        Left = 8
        Top = 39
        Width = 60
        Height = 12
        Caption = #38134#34892#24080#21495#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label16: TLabel
        Left = 8
        Top = 66
        Width = 60
        Height = 12
        Caption = #27861#20154#20195#34920#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label17: TLabel
        Left = 8
        Top = 94
        Width = 60
        Height = 12
        Caption = #32435' '#31246' '#21495#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object Label18: TLabel
        Left = 8
        Top = 122
        Width = 60
        Height = 12
        Caption = #22791'    '#27880#65306
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
      end
      object DEBANK: TDBEdit
        Left = 65
        Top = 7
        Width = 138
        Height = 20
        DataField = 'BANK'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
      object DEBANKID: TDBEdit
        Left = 65
        Top = 35
        Width = 138
        Height = 20
        DataField = 'BANKID'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
      object DELEGALREP: TDBEdit
        Left = 65
        Top = 63
        Width = 138
        Height = 20
        DataField = 'LEGALREP'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 2
      end
      object DETAXID: TDBEdit
        Left = 65
        Top = 90
        Width = 138
        Height = 20
        DataField = 'TAXID'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 3
      end
      object DEINFO: TDBEdit
        Left = 65
        Top = 118
        Width = 311
        Height = 20
        DataField = 'INFO'
        DataSource = DataE2.dsven
        Font.Charset = GB2312_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 4
      end
    end
  end
end