u_form1.dfm

很好地delphi书籍源码

object Form1: TForm1
  Left = 279
  Top = 149
  Width = 472
  Height = 257
  Caption = #21160#24577'SQL'#21644#35270#22270#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 = 120
    Top = 200
    Width = 97
    Height = 25
    Caption = #21160#24577'SQL'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 464
    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
      Items.Strings = (
        #28779#36710
        #27773#36710
        #39134#26426
        #36718#33337)
    end
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 33
    Width = 464
    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 Button2: TButton
    Left = 256
    Top = 200
    Width = 97
    Height = 25
    Caption = #20351#29992#35270#22270
    TabOrder = 3
    OnClick = Button2Click
  end
  object Query1: TQuery
    DatabaseName = 'AAA'
    Left = 344
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 376
  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 = 312
  end
end