main.dfm

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

object Form1: TForm1
  Left = 35
  Top = 80
  BorderStyle = bsDialog
  Caption = #22810#26465#20214#26597#35810#23454#20363
  ClientHeight = 402
  ClientWidth = 747
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 320
    Top = 16
    Width = 417
    Height = 121
    Caption = #26597#35810#26465#20214
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 24
      Width = 36
      Height = 13
      Caption = #23383#27573#19968
    end
    object Label2: TLabel
      Left = 144
      Top = 24
      Width = 24
      Height = 13
      Caption = #20851#31995
    end
    object Label3: TLabel
      Left = 208
      Top = 24
      Width = 24
      Height = 13
      Caption = #25968#20540
    end
    object Label4: TLabel
      Left = 320
      Top = 24
      Width = 48
      Height = 13
      Caption = #36923#36753#20851#31995
    end
    object Label5: TLabel
      Left = 24
      Top = 72
      Width = 36
      Height = 13
      Caption = #23383#27573#20108
    end
    object Label6: TLabel
      Left = 144
      Top = 72
      Width = 24
      Height = 13
      Caption = #20851#31995
    end
    object Label7: TLabel
      Left = 208
      Top = 72
      Width = 24
      Height = 13
      Caption = #25968#20540
    end
    object cbbField1: TComboBox
      Left = 24
      Top = 40
      Width = 113
      Height = 21
      ItemHeight = 13
      TabOrder = 0
    end
    object cbbRel1: TComboBox
      Left = 144
      Top = 40
      Width = 57
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = '='
      Items.Strings = (
        '='
        '>'
        '>='
        '<'
        '<='
        'Like'
        '<>')
    end
    object edtValue1: TEdit
      Left = 208
      Top = 40
      Width = 97
      Height = 21
      TabOrder = 2
    end
    object cbbRelation: TComboBox
      Left = 320
      Top = 40
      Width = 49
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Items.Strings = (
        'And'
        'Or')
    end
    object cbbField2: TComboBox
      Left = 24
      Top = 88
      Width = 113
      Height = 21
      ItemHeight = 13
      TabOrder = 4
    end
    object cbbRel2: TComboBox
      Left = 144
      Top = 88
      Width = 57
      Height = 21
      ItemHeight = 13
      TabOrder = 5
      Text = '='
      Items.Strings = (
        '='
        '>'
        '>='
        '<'
        '<='
        'Like'
        '<>')
    end
    object edtValue2: TEdit
      Left = 208
      Top = 88
      Width = 97
      Height = 21
      TabOrder = 6
    end
    object btnQuery: TButton
      Left = 320
      Top = 88
      Width = 75
      Height = 25
      Caption = #25191#34892#26597#35810
      TabOrder = 7
      OnClick = btnQueryClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 16
    Width = 305
    Height = 369
    Caption = #34987#26597#35810#34920
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 8
      Top = 24
      Width = 289
      Height = 337
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object GroupBox3: TGroupBox
    Left = 320
    Top = 144
    Width = 417
    Height = 241
    Caption = #26597#35810#32467#26524
    TabOrder = 2
    object DBGrid2: TDBGrid
      Left = 8
      Top = 24
      Width = 401
      Height = 193
      DataSource = DataSource2
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 144
  end
  object Query1: TQuery
    DatabaseName = 'DBDEMOS'
    Left = 360
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 392
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'customer.db'
    Left = 176
  end
end