unit1.dfm

本程序是一个比较简单的通讯录 该程序可能比较有参考价值的地方 可能就是它用到了数据库的动太链接

object Form1: TForm1
  Left = 181
  Top = 109
  Width = 588
  Height = 471
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 580
    Height = 437
    Align = alClient
    TabOrder = 0
    object Splitter1: TSplitter
      Left = 289
      Top = 1
      Width = 3
      Height = 435
      Cursor = crHSplit
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 288
      Height = 435
      Align = alLeft
      TabOrder = 0
      object Label1: TLabel
        Left = 0
        Top = 48
        Width = 24
        Height = 13
        Caption = '电话'
        FocusControl = DBEdit1
      end
      object Label2: TLabel
        Left = 0
        Top = 8
        Width = 24
        Height = 13
        Caption = '姓名'
        FocusControl = DBEdit2
      end
      object Label3: TLabel
        Left = 152
        Top = 8
        Width = 28
        Height = 13
        Caption = 'QQ号'
        FocusControl = DBEdit3
      end
      object Label4: TLabel
        Left = 152
        Top = 40
        Width = 24
        Height = 13
        Caption = '手机'
        FocusControl = DBEdit4
      end
      object Label5: TLabel
        Left = 0
        Top = 88
        Width = 36
        Height = 13
        Caption = '住址一'
        FocusControl = DBEdit5
      end
      object Label6: TLabel
        Left = 0
        Top = 128
        Width = 36
        Height = 13
        Caption = '住址二'
        FocusControl = DBEdit6
      end
      object Label7: TLabel
        Left = 208
        Top = 336
        Width = 24
        Height = 13
        Caption = '留言'
        FocusControl = DBMemo1
      end
      object Label8: TLabel
        Left = 208
        Top = 448
        Width = 24
        Height = 13
        Caption = '相片'
      end
      object DBEdit1: TDBEdit
        Left = 40
        Top = 40
        Width = 100
        Height = 21
        DataField = '电话'
        DataSource = DataSource1
        TabOrder = 0
      end
      object DBEdit2: TDBEdit
        Left = 40
        Top = 8
        Width = 100
        Height = 21
        DataField = '姓名'
        DataSource = DataSource1
        TabOrder = 1
      end
      object DBEdit3: TDBEdit
        Left = 184
        Top = 7
        Width = 100
        Height = 21
        DataField = 'QQ号'
        DataSource = DataSource1
        TabOrder = 2
      end
      object DBEdit4: TDBEdit
        Left = 184
        Top = 39
        Width = 100
        Height = 21
        DataField = '手机号'
        DataSource = DataSource1
        TabOrder = 3
      end
      object DBEdit5: TDBEdit
        Left = 40
        Top = 80
        Width = 230
        Height = 21
        DataField = '住址一'
        DataSource = DataSource1
        TabOrder = 4
      end
      object DBEdit6: TDBEdit
        Left = 40
        Top = 120
        Width = 230
        Height = 21
        DataField = '住址二'
        DataSource = DataSource1
        TabOrder = 5
      end
      object DBMemo1: TDBMemo
        Left = 1
        Top = 220
        Width = 286
        Height = 214
        Align = alBottom
        DataField = '留言'
        DataSource = DataSource1
        TabOrder = 6
      end
      object ComboBox1: TComboBox
        Left = 16
        Top = 144
        Width = 73
        Height = 21
        ItemHeight = 13
        TabOrder = 7
        Text = '查找条件'
      end
      object Edit1: TEdit
        Left = 104
        Top = 160
        Width = 105
        Height = 21
        TabOrder = 8
        Text = '请输入'
      end
      object BitBtn1: TBitBtn
        Left = 208
        Top = 160
        Width = 65
        Height = 25
        Caption = '找朋友'
        TabOrder = 9
        OnClick = BitBtn1Click
      end
      object ComboBox2: TComboBox
        Left = 16
        Top = 168
        Width = 73
        Height = 21
        ItemHeight = 13
        TabOrder = 10
        Text = '条件符号'
        Items.Strings = (
          '>'
          '<'
          '>='
          '<='
          '==')
      end
    end
    object Panel3: TPanel
      Left = 292
      Top = 1
      Width = 287
      Height = 435
      Align = alClient
      TabOrder = 1
      object SpeedButton1: TSpeedButton
        Left = 8
        Top = 400
        Width = 30
        Height = 30
        Flat = True
        Glyph.Data = {
          06080000424D060800000000000036000000280000001A000000190000000100
          180000000000D0070000120B0000120B00000000000000000000EFF2F2EFF2F2
          EFF2F2EFF3F2EFF3F2EFF3F1EFF3F1EFF3F1EFF3F1D2EAD488D0883DBC3E10AF
          1101AE0101B1012EBF2F4CCA4D97DE98E2F1E3F0F3F1F0F3F2F0F3F2F0F3F2F1
          F3F1F1F3F1F0F3F20000EFF2F2EFF2F2EFF2F2EFF3F2EFF3F2EFF3F1EFF3F1D2