unit5.dfm

来自「《C++Builder数据库程序设计》配书光盘 1.光盘内容 Read」· DFM 代码 · 共 220 行

object Form1: TForm1
  Left = 260
  Top = 203
  Width = 292
  Height = 258
  Caption = 'arrange.bpr'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 136
    Width = 24
    Height = 13
    Caption = '住址'
    FocusControl = DBEdit1
  end
  object Label2: TLabel
    Left = 16
    Top = 168
    Width = 24
    Height = 13
    Caption = 'email'
    FocusControl = DBEdit2
  end
  object Label3: TLabel
    Left = 72
    Top = 104
    Width = 24
    Height = 13
    Caption = '血型'
    FocusControl = DBEdit3
  end
  object Label4: TLabel
    Left = 8
    Top = 56
    Width = 24
    Height = 13
    Caption = '姓名'
    FocusControl = DBEdit4
  end
  object Label5: TLabel
    Left = 80
    Top = 56
    Width = 24
    Height = 13
    Caption = '性别'
    FocusControl = DBEdit5
  end
  object Label6: TLabel
    Left = 176
    Top = 168
    Width = 24
    Height = 13
    Caption = '电话'
    FocusControl = DBEdit6
  end
  object Label7: TLabel
    Left = 120
    Top = 8
    Width = 24
    Height = 13
    Caption = '相片'
    FocusControl = DBImage1
  end
  object DBCheckBox1: TDBCheckBox
    Left = 8
    Top = 104
    Width = 49
    Height = 17
    Caption = '已婚'
    DataField = '已婚'
    DataSource = DataSource1
    TabOrder = 0
    ValueChecked = 'True'
    ValueUnchecked = 'False'
  end
  object DBEdit1: TDBEdit
    Left = 48
    Top = 136
    Width = 217
    Height = 21
    DataField = '住址'
    DataSource = DataSource1
    TabOrder = 1
  end
  object DBEdit2: TDBEdit
    Left = 48
    Top = 168
    Width = 124
    Height = 21
    DataField = 'email'
    DataSource = DataSource1
    TabOrder = 2
  end
  object DBEdit3: TDBEdit
    Left = 104
    Top = 104
    Width = 34
    Height = 21
    DataField = '血型'
    DataSource = DataSource1
    TabOrder = 3
  end
  object DBEdit4: TDBEdit
    Left = 8
    Top = 72
    Width = 57
    Height = 21
    DataField = '姓名'
    DataSource = DataSource1
    TabOrder = 4
  end
  object DBEdit5: TDBEdit
    Left = 80
    Top = 72
    Width = 34
    Height = 21
    DataField = '性別'
    DataSource = DataSource1
    TabOrder = 5
  end
  object DBEdit6: TDBEdit
    Left = 208
    Top = 168
    Width = 52
    Height = 21
    DataField = '电话'
    DataSource = DataSource1
    TabOrder = 6
  end
  object DBImage1: TDBImage
    Left = 144
    Top = 16
    Width = 105
    Height = 105
    DataField = '相片'
    DataSource = DataSource1
    Stretch = True
    TabOrder = 7
  end
  object DBNavigator1: TDBNavigator
    Left = 16
    Top = 200
    Width = 240
    Height = 25
    DataSource = DataSource1
    TabOrder = 8
  end
  object ADOConnection1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
      'Source=look.mdb;Mode=Share Deny None;Extended Properties="";Jet ' +
      'OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Da' +
      'tabase Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Lo' +
      'cking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Globa' +
      'l Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLE' +
      'DB:Create System Database=False;Jet OLEDB:Encrypt Database=False' +
      ';Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OLEDB:Compact ' +
      'Without Replica Repair=False;Jet OLEDB:SFP=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 8
    Top = 8
  end
  object ADODataSet1: TADODataSet
    Active = True
    Connection = ADOConnection1
    CursorType = ctStatic
    CommandText = '有照片'
    CommandType = cmdTable
    Parameters = <>
    Left = 40
    Top = 8
    object ADODataSet1DSDesigner: TWideStringField
      FieldName = '姓名'
      Size = 50
    end
    object ADODataSet1DSDesigner2: TWideStringField
      FieldName = '血型'
      Size = 5
    end
    object ADODataSet1DSDesigner3: TWideStringField
      FieldName = '性別'
      Size = 5
    end
    object ADODataSet1DSDesigner4: TWideStringField
      FieldName = '电话'
      Size = 8
    end
    object ADODataSet1email: TWideStringField
      FieldName = 'email'
    end
    object ADODataSet1DSDesigner5: TWideStringField
      FieldName = '住址'
      Size = 50
    end
    object ADODataSet1DSDesigner6: TBooleanField
      FieldName = '已婚'
    end
    object ADODataSet1DSDesigner7: TBlobField
      FieldName = '相片'
      BlobType = ftBlob
    end
  end
  object DataSource1: TDataSource
    DataSet = ADODataSet1
    Left = 72
    Top = 8
  end
end