main.dfm

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

object Form1: TForm1
  Left = 218
  Top = 142
  BorderStyle = bsDialog
  Caption = 'Form1'
  ClientHeight = 308
  ClientWidth = 520
  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 MediaPlayer1: TMediaPlayer
    Left = 8
    Top = 8
    Width = 197
    Height = 30
    VisibleButtons = [btPlay, btPause, btStop, btNext, btPrev, btStep, btBack]
    AutoRewind = False
    FileName = 
      'F:\project\'#22270#20070'\Delphi'#25968#25454#24211#25945#31243'\Demos\'#31532'15'#31456'  '#25968#25454#24211#31243#24207#23454#20363#24320#21457'\'#20108#36827#21046#25968#25454#30340#23384#21462#25216#26415#23454#20363'\RIG' +
      'HT.WAV'
    TabOrder = 0
    OnClick = MediaPlayer1Click
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 48
    Width = 505
    Height = 249
    DataSource = DataSource1
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object btnLoad: TButton
    Left = 312
    Top = 8
    Width = 75
    Height = 25
    Caption = #35013#36733#22768#38899
    TabOrder = 2
    OnClick = btnLoadClick
  end
  object btnSave: TButton
    Left = 400
    Top = 8
    Width = 75
    Height = 25
    Caption = #20445#23384#20462#25913
    TabOrder = 3
    OnClick = btnSaveClick
  end
  object btnAdd: TButton
    Left = 224
    Top = 8
    Width = 75
    Height = 25
    Caption = #28155#21152#26032#34892
    TabOrder = 4
    OnClick = btnAddClick
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 24
    Top = 112
  end
  object Table1: TTable
    Active = True
    TableName = 'Sound.db'
    Left = 24
    Top = 144
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.wav'
    Filter = #22768#38899#25991#20214'(*.wav)|*.wav|'#20840#37096#25991#20214'(*.*)|*.*'
    InitialDir = 'd:\windows\Media'
    Left = 64
    Top = 144
  end
end