u_form1.~dfm

很好地delphi书籍源码

object Form1: TForm1
  Left = 209
  Top = 100
  Width = 607
  Height = 423
  Caption = 'Rave'#25253#34920#28436#31034#31243#24207
  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 DBGrid1: TDBGrid
    Left = 0
    Top = 0
    Width = 599
    Height = 121
    Align = alTop
    DataSource = DM.DSWriteTable
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid2: TDBGrid
    Left = 0
    Top = 121
    Width = 599
    Height = 112
    Align = alTop
    DataSource = DM.DSBookQuery
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBGrid3: TDBGrid
    Left = 0
    Top = 233
    Width = 599
    Height = 120
    Align = alTop
    DataSource = DM.DSPhoneTable
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object BookButton: TButton
    Left = 160
    Top = 360
    Width = 75
    Height = 25
    Caption = #35746#31080#31995#32479
    TabOrder = 3
    OnClick = BookButtonClick
  end
  object FootballButton: TButton
    Left = 248
    Top = 360
    Width = 75
    Height = 25
    Caption = #36275#24425#25237#27880
    TabOrder = 4
    OnClick = FootballButtonClick
  end
  object PhoneButton: TButton
    Left = 336
    Top = 360
    Width = 75
    Height = 25
    Caption = #30005#35805#21495#30721
    TabOrder = 5
    OnClick = PhoneButtonClick
  end
  object WriteRvTC: TRvTableConnection
    RuntimeVisibility = rtDeveloper
    Table = DM.WriteTable
    Left = 40
    Top = 24
  end
  object PhoneRvTC: TRvTableConnection
    RuntimeVisibility = rtDeveloper
    Table = DM.PhoneTable
    Left = 120
    Top = 24
  end
  object RvProject1: TRvProject
    ProjectFile = 'D:\Delphi_Book\Ch10\'#20856#22411#23454#20363'\MyRave.rav'
    Left = 40
    Top = 64
  end
  object BookRvQC: TRvQueryConnection
    RuntimeVisibility = rtDeveloper
    Query = DM.BookQuery
    Left = 80
    Top = 24
  end
end