adddata.dfm

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

object FormAdd: TFormAdd
  Left = 416
  Top = 159
  BorderStyle = bsDialog
  Caption = #22686#21152#26032#8220#26379#21451#8221#20449#24687
  ClientHeight = 207
  ClientWidth = 241
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 10
  object Label1: TLabel
    Left = 18
    Top = 6
    Width = 30
    Height = 10
    Caption = #22995'  '#21517
  end
  object Label2: TLabel
    Left = 18
    Top = 31
    Width = 40
    Height = 10
    Caption = #20844#21496#21333#20301
  end
  object Label3: TLabel
    Left = 18
    Top = 55
    Width = 30
    Height = 10
    Caption = #32844'  '#20301
  end
  object Label4: TLabel
    Left = 18
    Top = 80
    Width = 40
    Height = 10
    Caption = #21150#20844#30005#35805
  end
  object Label5: TLabel
    Left = 18
    Top = 105
    Width = 40
    Height = 10
    Caption = #31227#21160#30005#35805
  end
  object Label6: TLabel
    Left = 18
    Top = 129
    Width = 40
    Height = 10
    Caption = #30005#23376#37038#20214
  end
  object Label7: TLabel
    Left = 18
    Top = 154
    Width = 40
    Height = 10
    Caption = #32593#39029#22320#22336
  end
  object Label8: TLabel
    Left = 142
    Top = 6
    Width = 25
    Height = 10
    Caption = #24615' '#21035
  end
  object Bevel1: TBevel
    Left = 25
    Top = 178
    Width = 191
    Height = 3
  end
  object DBEdit1: TDBEdit
    Left = 68
    Top = 6
    Width = 56
    Height = 21
    DataField = 'ChineseName'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    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 = 68
    Top = 31
    Width = 148
    Height = 21
    DataField = 'Corp'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    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 = 68
    Top = 55
    Width = 80
    Height = 21
    DataField = 'Position'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    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 = 68
    Top = 80
    Width = 117
    Height = 21
    DataField = 'OfficePhone'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    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 = 68
    Top = 105
    Width = 80
    Height = 21
    DataField = 'MobilePhone'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    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 = 68
    Top = 129
    Width = 148
    Height = 21
    DataField = 'EMail'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    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 = 68
    Top = 154
    Width = 148
    Height = 21
    DataField = 'Webpage'
    DataSource = DataModule1.DataSource1
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentFont = False
    TabOrder = 6
    OnChange = DBEdit7Change
  end
  object BTNMore: TButton
    Left = 31
    Top = 185
    Width = 57
    Height = 19
    Caption = #26356#22810#20449#24687'(&M)'
    Enabled = False
    TabOrder = 7
    OnClick = BTNMoreClick
  end
  object BTNOK: TButton
    Left = 92
    Top = 185
    Width = 58
    Height = 19
    Caption = #30830#23450'(&O)'
    Enabled = False
    TabOrder = 8
    OnClick = BTNOKClick
  end
  object BTNClose: TButton
    Left = 154
    Top = 185
    Width = 58
    Height = 19
    Caption = #20851#38381'(&X)'
    Default = True
    TabOrder = 9
    OnClick = BTNCloseClick
  end
  object DBComboBox1: TDBComboBox
    Left = 172
    Top = 6
    Width = 44
    Height = 18
    DataField = 'Sex'
    DataSource = DataModule1.DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ItemHeight = 10
    Items.Strings = (
      #30007
      #22899)
    TabOrder = 10
    OnChange = DBComboBox1Change
  end
end