un_applicant.~dfm

Delphi 开发的很好用的客户管理源代码

object fm_applicant: Tfm_applicant
  Left = 273
  Top = 134
  BorderIcons = []
  BorderStyle = bsToolWindow
  Caption = #23458#25143#22522#26412#36164#26009
  ClientHeight = 423
  ClientWidth = 610
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 208
    Top = 16
    Width = 180
    Height = 29
    Caption = #23458#25143#22522#26412#36164#26009
    Color = clBtnFace
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -29
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object BitBtn1: TBitBtn
    Left = 58
    Top = 361
    Width = 95
    Height = 33
    Caption = #30830#23450
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = BitBtn1Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333388F3333333333000033334224333333333333
      338338F3333333330000333422224333333333333833338F3333333300003342
      222224333333333383333338F3333333000034222A22224333333338F338F333
      8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
      33333338F83338F338F33333000033A33333A222433333338333338F338F3333
      0000333333333A222433333333333338F338F33300003333333333A222433333
      333333338F338F33000033333333333A222433333333333338F338F300003333
      33333333A222433333333333338F338F00003333333333333A22433333333333
      3338F38F000033333333333333A223333333333333338F830000333333333333
      333A333333333333333338330000333333333333333333333333333333333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn3: TBitBtn
    Left = 450
    Top = 361
    Width = 95
    Height = 33
    Caption = #36820#22238
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    Kind = bkClose
  end
  object BitBtn2: TBitBtn
    Left = 319
    Top = 361
    Width = 95
    Height = 33
    Caption = #27983#35272
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn2Click
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333336633
      3333333333333FF3333333330000333333364463333333333333388F33333333
      00003333333E66433333333333338F38F3333333000033333333E66333333333
      33338FF8F3333333000033333333333333333333333338833333333300003333
      3333446333333333333333FF3333333300003333333666433333333333333888
      F333333300003333333E66433333333333338F38F333333300003333333E6664
      3333333333338F38F3333333000033333333E6664333333333338F338F333333
      0000333333333E6664333333333338F338F3333300003333344333E666433333
      333F338F338F3333000033336664333E664333333388F338F338F33300003333
      E66644466643333338F38FFF8338F333000033333E6666666663333338F33888
      3338F3330000333333EE666666333333338FF33333383333000033333333EEEE
      E333333333388FFFFF8333330000333333333333333333333333388888333333
      0000}
    NumGlyphs = 2
  end
  object BitBtn4: TBitBtn
    Left = 188
    Top = 361
    Width = 95
    Height = 33
    Caption = #20445#23384#20462#25913
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn4Click
    Glyph.Data = {
      F2010000424DF201000000000000760000002800000024000000130000000100
      0400000000007C01000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333334433333
      3333333333388F3333333333000033334224333333333333338338F333333333
      0000333422224333333333333833338F33333333000033422222243333333333
      83333338F3333333000034222A22224333333338F33F33338F33333300003222
      A2A2224333333338F383F3338F33333300003A2A222A222433333338F8333F33
      38F33333000034A22222A22243333338833333F3338F333300004222A2222A22
      2433338F338F333F3338F3330000222A3A2224A22243338F3838F338F3338F33
      0000A2A333A2224A2224338F83338F338F3338F300003A33333A2224A2224338
      333338F338F3338F000033333333A2224A2243333333338F338F338F00003333
      33333A2224A2233333333338F338F83300003333333333A2224A333333333333
      8F338F33000033333333333A222433333333333338F338F30000333333333333
      A224333333333333338F38F300003333333333333A223333333333333338F8F3
      000033333333333333A3333333333333333383330000}
    NumGlyphs = 2
  end
  object Panel1: TPanel
    Left = 24
    Top = 64
    Width = 553
    Height = 281
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label24: TLabel
      Left = 24
      Top = 19
      Width = 64
      Height = 16
      Caption = #21333#20301#21517#31216
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 24
      Top = 218
      Width = 64
      Height = 16
      Caption = #21333#20301#36134#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 24
      Top = 85
      Width = 64
      Height = 16
      Caption = #37038'    '#32534
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 24
      Top = 119
      Width = 64
      Height = 16
      Caption = #32852#31995#30005#35805
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 24
      Top = 52
      Width = 64
      Height = 16
      Caption = #21333#20301#22320#22336
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 296
      Top = 85
      Width = 64
      Height = 16
      Caption = #20256'    '#30495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label9: TLabel
      Left = 24
      Top = 185
      Width = 64
      Height = 16
      Caption = #24320#25143#38134#34892
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 24
      Top = 252
      Width = 64
      Height = 16
      Caption = #31246'    '#21495
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 296
      Top = 119
      Width = 64
      Height = 16
      Caption = #32852' '#31995' '#20154
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label10: TLabel
      Left = 24
      Top = 152
      Width = 56
      Height = 16
      Caption = ' e-mail'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object ed_name: TEdit
      Left = 104
      Top = 16
      Width = 417
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
    end
    object ed_account: TEdit
      Left = 104
      Top = 215
      Width = 225
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 8
      OnKeyPress = ed_accountKeyPress
    end
    object ed_code: TEdit
      Left = 104
      Top = 82
      Width = 169
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 6
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 2
      OnKeyPress = ed_codeKeyPress
    end
    object ed_tel: TEdit
      Left = 104
      Top = 116
      Width = 169
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 4
      OnKeyPress = ed_telKeyPress
    end
    object ed_addr: TEdit
      Left = 104
      Top = 49
      Width = 417
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 1
    end
    object ed_rep: TEdit
      Left = 368
      Top = 82
      Width = 153
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      OnKeyPress = ed_repKeyPress
    end
    object ed_account_bank: TEdit
      Left = 104
      Top = 182
      Width = 225
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 7
    end
    object ed_tax_no: TEdit
      Left = 104
      Top = 249
      Width = 225
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 50
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 9
      OnKeyPress = ed_tax_noKeyPress
    end
    object ed_relation: TEdit
      Left = 368
      Top = 116
      Width = 153
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 100
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 5
    end
    object ed_mail: TEdit
      Left = 104
      Top = 149
      Width = 225
      Height = 22
      Color = clInfoBk
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = #23435#20307
      Font.Style = []
      ImeMode = imChinese
      MaxLength = 100
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 6
    end
  end
  object Database1: TDatabase
    AliasName = 'client'
    DatabaseName = 'clientdatabase'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=admin')
    SessionName = 'Default'
    Left = 416
    Top = 24
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 496
    Top = 24
  end
  object select_company: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 464
    Top = 48
  end
  object insert_client: TADOQuery
    Connection = ADOConnection1
    Parameters = <>
    Left = 536
    Top = 48
  end
end