main.dfm

Delphi7数据库开发教程,包含该书21套实例

object Form1: TForm1
  Left = 82
  Top = 12
  Width = 628
  Height = 444
  Caption = 'Form1'
  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 = 8
    Top = 288
    Width = 105
    Height = 13
    Caption = #35831#36755#20837#21592#24037#32534#21495#65306
  end
  object lblResult: TLabel
    Left = 264
    Top = 288
    Width = 233
    Height = 13
    AutoSize = False
    Caption = #26597#25214#32467#26524#65306
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 8
    Width = 601
    Height = 265
    DataSource = DataSource1
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object edtKey: TEdit
    Left = 125
    Top = 283
    Width = 121
    Height = 21
    TabOrder = 1
  end
  object btnClose: TButton
    Left = 536
    Top = 280
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 2
    OnClick = btnCloseClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 312
    Width = 105
    Height = 89
    Caption = 'Goto'#22411#26597#35810
    TabOrder = 3
    object btnGotoNearest: TButton
      Left = 14
      Top = 56
      Width = 75
      Height = 25
      Caption = 'GotoNearest'
      TabOrder = 0
      OnClick = btnGotoNearestClick
    end
    object btnGotoKey: TButton
      Left = 14
      Top = 24
      Width = 75
      Height = 25
      Caption = 'GotoKey'
      TabOrder = 1
      OnClick = btnGotoKeyClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 120
    Top = 312
    Width = 105
    Height = 89
    Caption = 'Find'#22411#26597#35810
    TabOrder = 4
    object btnFindKey: TButton
      Left = 14
      Top = 24
      Width = 75
      Height = 25
      Caption = 'FindKey'
      TabOrder = 0
      OnClick = btnFindKeyClick
    end
    object btnFindNearest: TButton
      Left = 14
      Top = 56
      Width = 75
      Height = 25
      Caption = 'FindNearest'
      TabOrder = 1
      OnClick = btnFindNearestClick
    end
  end
  object GroupBox3: TGroupBox
    Left = 232
    Top = 312
    Width = 377
    Height = 89
    Caption = 'Locate'#22411#26597#35810
    TabOrder = 5
    object Label2: TLabel
      Left = 8
      Top = 56
      Width = 96
      Height = 13
      Caption = #35831#36755#20837'LastName'#65306
    end
    object Label3: TLabel
      Left = 8
      Top = 24
      Width = 95
      Height = 13
      Caption = #35831#36755#20837'FirstName'#65306
    end
    object btnLocate: TButton
      Left = 288
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Locate'
      TabOrder = 0
      OnClick = btnLocateClick
    end
    object cbxCaseInsensitive: TCheckBox
      Left = 208
      Top = 56
      Width = 121
      Height = 17
      Caption = 'CaseInsensitive'
      TabOrder = 1
    end
    object cbxPartialKey: TCheckBox
      Left = 208
      Top = 24
      Width = 73
      Height = 17
      Caption = 'PartialKey'
      TabOrder = 2
    end
    object edtFirstName: TEdit
      Left = 125
      Top = 19
      Width = 76
      Height = 21
      TabOrder = 3
    end
    object edtLastName: TEdit
      Left = 125
      Top = 51
      Width = 76
      Height = 21
      TabOrder = 4
    end
  end
  object DataSource1: TDataSource
    DataSet = tblEmployee
    Left = 400
    Top = 264
  end
  object tblEmployee: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    IndexFieldNames = 'EmpNo'
    TableName = 'employee.db'
    Left = 368
    Top = 264
  end
end