addmore.dfm

关于DEPHI7.0的朋友信息管理系统源代码

object FormAddMore: TFormAddMore
  Left = 273
  Top = 151
  BorderStyle = bsDialog
  Caption = #8220#26379#21451#8221#20449#24687#31649#29702#31995#32479
  ClientHeight = 376
  ClientWidth = 562
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFF99999FFFFFFFFFFFFFFFFFFFFFFFFFF99999999FFFFFFFFFFFFFFFFFF
    FFFFF99999999999FFFFFFFFFFFFFFFFFFF9999FFFF9999999FFFFFFFFFFFFFF
    FF999FFFFFFFFF9999FFFFFFFFFFFFFFF999FFFFFFFFFFF9999FFFFFFFFFFFFF
    999FFFFFFFFFFFFF999FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF999FFFFFFFFFFFF
    FFFFFFFFFFFFFFFFF9999FFFFFFFFFFFFFDFFFFFFFFFFFFFFF9999FFFFFFFFFF
    FFDFDFFFFFDDDDDFFFFF999FFFFFFFFFFFDFFDFFFFDFFFDFFFFFF99FFFFFFFFF
    FFDFFFDFFFDFFFDFFFFFFF9FFFFFFFFFFFDFFFDFFFDFFFDFFFFFFF99FFFFFFFF
    FFDFFFFDFFDFFFFFFFFFFF99FFFFFFFFFFDFFFFDFFDFFFFFFFFFFFF99FFFFFFF
    FFDFFFFDFFDFFFFFFFFFFFFF99FFFFFFDFDFFFFFDFDFFFFFFFFFFFFF999FFFFF
    FDDFFFFFDFDFFFFFFFFFFFFFF99FFFFFFDDDDDDDDDDDDFFFFFFFFFFFF99FFFFF
    FFDFFFFFDFFFFDFFFFFFFFFFF99FFFFFFFDFFFFFDFFFDFFFFFFFFFFFF999FFFF
    FFFDFFFFDFFDDFFFFFFFFFFFFF9FFFFFFFFDDFFFDFDFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 40
    Height = 13
    Caption = #22995'  '#21517
  end
  object Label2: TLabel
    Left = 8
    Top = 40
    Width = 52
    Height = 13
    Caption = #20844#21496#21333#20301
  end
  object Label3: TLabel
    Left = 8
    Top = 72
    Width = 40
    Height = 13
    Caption = #32844'  '#20301
  end
  object Label4: TLabel
    Left = 8
    Top = 104
    Width = 52
    Height = 13
    Caption = #21150#20844#30005#35805
  end
  object Label5: TLabel
    Left = 8
    Top = 136
    Width = 52
    Height = 13
    Caption = #31227#21160#30005#35805
  end
  object Label6: TLabel
    Left = 8
    Top = 168
    Width = 52
    Height = 13
    Caption = #30005#23376#37038#20214
  end
  object Label7: TLabel
    Left = 8
    Top = 200
    Width = 52
    Height = 13
    Caption = #32593#39029#22320#22336
  end
  object Label8: TLabel
    Left = 160
    Top = 8
    Width = 33
    Height = 13
    Caption = #24615' '#21035
  end
  object Label9: TLabel
    Left = 8
    Top = 232
    Width = 52
    Height = 13
    Caption = #23478#24237#30005#35805
  end
  object Label10: TLabel
    Left = 8
    Top = 264
    Width = 40
    Height = 13
    Caption = 'QQ'#21495#30721
  end
  object Label11: TLabel
    Left = 8
    Top = 296
    Width = 47
    Height = 13
    Caption = 'ICQ'#21495#30721
  end
  object Bevel1: TBevel
    Left = 280
    Top = 8
    Width = 3
    Height = 321
  end
  object Label12: TLabel
    Left = 320
    Top = 16
    Width = 65
    Height = 13
    Caption = #22269#23478#25110#22320#21306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label13: TLabel
    Left = 336
    Top = 40
    Width = 52
    Height = 13
    Caption = #22478#24066#22320#21306
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label14: TLabel
    Left = 336
    Top = 72
    Width = 52
    Height = 13
    Caption = #27605#19994#38498#26657
  end
  object Label15: TLabel
    Left = 336
    Top = 104
    Width = 52
    Height = 13
    Caption = #23398#21382#23398#20301
  end
  object Label16: TLabel
    Left = 320
    Top = 136
    Width = 70
    Height = 13
    Caption = 'First Name'
  end
  object Label17: TLabel
    Left = 312
    Top = 168
    Width = 77
    Height = 13
    Caption = 'Second Name'
  end
  object Label18: TLabel
    Left = 336
    Top = 200
    Width = 52
    Height = 13
    Caption = #22791#27880#20449#24687
  end
  object Bevel2: TBevel
    Left = 8
    Top = 328
    Width = 545
    Height = 3
  end
  object DBEdit1: TDBEdit
    Left = 64
    Top = 8
    Width = 73
    Height = 21
    DataField = 'ChineseName'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentFont = False
    TabOrder = 0
    OnChange = DBEdit1Change
  end
  object DBEdit2: TDBEdit
    Left = 64
    Top = 40
    Width = 193
    Height = 21
    DataField = 'Corp'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentFont = False
    TabOrder = 1
    OnChange = DBEdit2Change
  end
  object DBEdit3: TDBEdit
    Left = 64
    Top = 72
    Width = 105
    Height = 21
    DataField = 'Position'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentFont = False
    TabOrder = 2
    OnChange = DBEdit3Change
  end
  object DBEdit4: TDBEdit
    Left = 64
    Top = 104
    Width = 153
    Height = 21
    DataField = 'OfficePhone'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentFont = False
    TabOrder = 3
    OnChange = DBEdit4Change
  end
  object DBEdit5: TDBEdit
    Left = 64
    Top = 136
    Width = 105
    Height = 21
    DataField = 'MobilePhone'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentFont = False
    TabOrder = 4
    OnChange = DBEdit5Change
  end
  object DBEdit6: TDBEdit
    Left = 64
    Top = 168
    Width = 193
    Height = 21
    DataField = 'EMail'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentFont = False
    TabOrder = 5
    OnChange = DBEdit6Change
  end
  object DBEdit7: TDBEdit
    Left = 64
    Top = 200
    Width = 193
    Height = 21
    DataField = 'Webpage'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentFont = False
    TabOrder = 6
    OnChange = DBEdit7Change