editperson.dfm

车辆保险管理系统主要是针对车辆保险业务管理流程而开发的一套先进的计算机管理系统。车辆保险管理系统是专为车辆保险业务员开发的一套应用软件

object person: Tperson
  Left = 198
  Top = 106
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = '增加和修改名片记录'
  ClientHeight = 369
  ClientWidth = 513
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 32
    Top = 24
    Width = 56
    Height = 14
    Caption = '编  号：'
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 136
    Top = 24
    Width = 56
    Height = 14
    Caption = '姓  名：'
    FocusControl = DBEdit2
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 272
    Top = 24
    Width = 56
    Height = 14
    Caption = '公  司：'
    FocusControl = DBEdit3
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 32
    Top = 80
    Width = 56
    Height = 14
    Caption = '地  址：'
    FocusControl = DBEdit4
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 272
    Top = 80
    Width = 70
    Height = 14
    Caption = '公司电话：'
    FocusControl = DBEdit5
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label6: TLabel
    Left = 32
    Top = 147
    Width = 70
    Height = 14
    Caption = '家庭电话：'
    FocusControl = DBEdit6
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 272
    Top = 147
    Width = 56
    Height = 14
    Caption = '手  机：'
    FocusControl = DBEdit7
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 33
    Top = 185
    Width = 42
    Height = 14
    Caption = 'BP机：'
    FocusControl = DBEdit8
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label9: TLabel
    Left = 270
    Top = 185
    Width = 56
    Height = 14
    Caption = '传  真：'
    FocusControl = DBEdit9
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label10: TLabel
    Left = 32
    Top = 224
    Width = 49
    Height = 14
    Caption = 'E--mail'
    FocusControl = DBEdit10
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object Label11: TLabel
    Left = 272
    Top = 224
    Width = 56
    Height = 14
    Caption = '网  址：'
    FocusControl = DBEdit11
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object DBText1: TDBText
    Left = 72
    Top = 40
    Width = 65
    Height = 25
    DataField = 'No'
    DataSource = dm.ds_person
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
  end
  object DBEdit2: TDBEdit
    Left = 136
    Top = 40
    Width = 121
    Height = 22
    AutoSize = False
    DataField = 'Name'
    DataSource = dm.ds_person
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnKeyDown = DBEdit2KeyDown
  end
  object DBEdit3: TDBEdit
    Left = 272
    Top = 40
    Width = 217
    Height = 22
    AutoSize = False
    DataField = 'Company'
    DataSource = dm.ds_person
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnKeyDown = DBEdit3KeyDown
  end
  object DBEdit4: TDBEdit
    Left = 32
    Top = 96
    Width = 225
    Height = 22
    AutoSize = False
    DataField = 'Address'
    DataSource = dm.ds_person
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnKeyDown = DBEdit4KeyDown
  end
  object DBEdit5: TDBEdit
    Left = 272
    Top = 96
    Width = 217
    Height = 22
    AutoSize = False
    DataField = 'Companytel'
    DataSource = dm.ds_person
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnKeyDown = DBEdit5KeyDown
  end
  object DBEdit6: TDBEdit
    Left = 106
    Top = 147
    Width = 149
    Height = 22
    AutoSize = False
    DataField = 'Hometel'
    DataSource = dm.ds_person
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnKeyDown = DBEdit6KeyDown
  end
  object DBEdit7: TDBEdit
    Left = 327
    Top = 147
    Width = 160
    Height = 22
    AutoSize = False
    DataField = 'Handtel'
    DataSource = dm.ds_person
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnKeyDown = DBEdit7KeyDown
  end
  object DBEdit8: TDBEdit
    Left = 106
    Top = 183
    Width = 149
    Height = 22
    AutoSize = False
    DataField = 'Bptel'
    DataSource = dm.ds_person
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnKeyDown = DBEdit8KeyDown
  end
  object DBEdit9: TDBEdit
    Left = 329
    Top = 184
    Width = 156
    Height = 22
    AutoSize = False
    DataField = 'Papertel'
    DataSource = dm.ds_person
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    OnKeyDown = DBEdit9KeyDown
  end
  object DBEdit10: TDBEdit
    Left = 32
    Top = 240
    Width = 225
    Height = 22
    AutoSize = False
    DataField = 'Email'
    DataSource = dm.ds_person
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 8
    OnKeyDown = DBEdit10KeyDown
  end
  object DBEdit11: TDBEdit
    Left = 272
    Top = 240
    Width = 217
    Height = 22
    AutoSize = False
    DataField = 'Url'
    DataSource = dm.ds_person
    Font.Charset = GB2312_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 9
  end
  object DBNavigator1: TDBNavigator
    Left = 136
    Top = 288
    Width = 224
    Height = 25
    DataSource = dm.ds_person
    VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
    Flat = True
    TabOrder = 10
  end
  object BitBtn1: TBitBtn
    Left = 96
    Top = 320
    Width = 80
    Height = 25
    Caption = '保    存'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    OnClick = BitBtn1Click
  end
  object BitBtn2: TBitBtn
    Left = 216
    Top = 320
    Width = 88
    Height = 25
    Caption = '退   出'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    OnClick = BitBtn2Click
  end
  object BitBtn3: TBitBtn
    Left = 344
    Top = 320
    Width = 80
    Height = 25
    Caption = '取   消'
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -14
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 13
    OnClick = BitBtn3Click
  end
end