u_form1.~dfm

很好地delphi书籍源码

object Form1: TForm1
  Left = 279
  Top = 149
  Width = 498
  Height = 257
  Caption = #21160#24577'SQL'#35821#21477#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
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 184
    Top = 200
    Width = 97
    Height = 25
    Caption = #25191#34892#21160#24577'SQL'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 490
    Height = 33
    Align = alTop
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 8
      Width = 52
      Height = 13
      Caption = #20132#36890#24037#20855
    end
    object ComboBox1: TComboBox
      Left = 64
      Top = 8
      Width = 97
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      OnChange = ComboBox1Change
      Items.Strings = (
        #28779#36710
        #27773#36710
        #39134#26426
        #36718#33337)
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 33
    Width = 490
    Height = 160
    Align = alTop
    DataSource = DataSource1
    TabOrder = 2
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object Query1: TQuery
    DatabaseName = 'AAA'
    SQL.Strings = (
      'SELECT GuestName '#23458#25143#22995#21517',TKind '#20132#36890#24037#20855', TDate as '#36710#31080#26085#26399', Foregift '#39044#20184#25276#37329','
      
        '       DesTown '#30446#30340#22320',BDate '#35746#31080#26102#38388', Note '#22791#27880'  From tbBookTicket  where' +
        ' TKind=:S_Kind'
      '')
    Left = 416
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'S_Kind'
        ParamType = ptUnknown
      end>
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 448
  end
  object Database1: TDatabase
    Connected = True
    DatabaseName = 'AAA'
    DriverName = 'MSSQL'
    LoginPrompt = False
    Params.Strings = (
      'DATABASE NAME='#35746#31080#31995#32479
      'SERVER NAME=ZSC'
      'USER NAME=sa'
      'OPEN MODE=READ/WRITE'
      'SCHEMA CACHE SIZE=8'
      'BLOB EDIT LOGGING='
      'LANGDRIVER='
      'SQLQRYMODE='
      'SQLPASSTHRU MODE=SHARED AUTOCOMMIT'
      'DATE MODE=0'
      'SCHEMA CACHE TIME=-1'
      'MAX QUERY TIME=300'
      'MAX ROWS=-1'
      'BATCH COUNT=200'
      'ENABLE SCHEMA CACHE=FALSE'
      'SCHEMA CACHE DIR='
      'HOST NAME='
      'APPLICATION NAME='
      'NATIONAL LANG NAME='
      'ENABLE BCD=FALSE'
      'TDS PACKET SIZE=4096'
      'BLOBS TO CACHE=64'
      'BLOB SIZE=32'
      'PASSWORD=123')
    SessionName = 'Default'
    Left = 384
  end
end