unit2.dfm

本人原创（delphi程序设计提高与应用）源码。《简单的数据库工作平台》其目的是教学生如何用delphi连接数据库、打开数据表

object Form2: TForm2
  Left = 192
  Top = 107
  Width = 780
  Height = 480
  Caption = 'Form2'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 16
  object PageControl1: TPageControl
    Left = 0
    Top = 28
    Width = 772
    Height = 425
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #35774#32622'SQL'
      OnEnter = TabSheet1Enter
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 361
        Height = 394
        Align = alLeft
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -16
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = #31867#22411
            Visible = False
          end
          item
            Expanded = False
            FieldName = #35828#26126
            Visible = True
          end
          item
            Expanded = False
            FieldName = #25968#25454#24211#21517
            Width = 76
            Visible = True
          end
          item
            Expanded = False
            FieldName = #35774#32622'SQL'
            Visible = False
          end>
      end
      object DBMemo1: TDBMemo
        Left = 361
        Top = 0
        Width = 403
        Height = 394
        Align = alClient
        DataField = #35774#32622'SQL'
        DataSource = DataSource1
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26597#35810#32467#26524
      ImageIndex = 1
      OnEnter = TabSheet2Enter
      object Panel2: TPanel
        Left = 0
        Top = 0
        Width = 764
        Height = 394
        Align = alClient
        TabOrder = 0
        object DBGrid2: TDBGrid
          Left = 1
          Top = 1
          Width = 762
          Height = 392
          Align = alClient
          DataSource = DataSource2
          TabOrder = 0
          TitleFont.Charset = ANSI_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -16
          TitleFont.Name = #23435#20307
          TitleFont.Style = []
        end
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 772
    Height = 28
    Align = alTop
    TabOrder = 1
    object SBRunSQL: TSpeedButton
      Left = 248
      Top = 3
      Width = 23
      Height = 22
      Hint = #35843#29992'SQL'
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF3344444444444443337777777777777F334CCCCCCCCCC
        C43337777777777777F33444881B188444333777F3737337773333308881FF70
        33333337F3373337F3333330888BF770333333373F33F337333333330881F703
        3333333373F73F7333333333308B703333333333373F77333333333333080333
        3333333333777FF333333333301F103333333333377777FF3333333301B1F103
        333333337737777FF3333330881BFB7033333337F3737F77F333333088881F70
        333333F7F3337777FFF334448888888444333777FFFFFFF777F334CCCCCCCCCC
        C43337777777777777F334444444444444333777777777777733}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SBRunSQLClick
    end
    object SpeedButton1: TSpeedButton
      Left = 279
      Top = 3
      Width = 22
      Height = 22
      Hint = #29983#25104'xls'#25991#20214
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
        333333333333337FF3333333333333903333333333333377FF33333333333399
        03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
        99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
        99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
        03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
        33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
        33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
        3333777777333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object Label1: TLabel
      Left = 392
      Top = 8
      Width = 8
      Height = 16
    end
    object DBNavigator1: TDBNavigator
      Left = 1
      Top = 1
      Width = 240
      Height = 26
      DataSource = DataSource1
      Align = alLeft
      TabOrder = 0
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 104
    Top = 113
  end
  object Table1: TTable
    BeforeOpen = Table1BeforeOpen
    AfterInsert = Table1AfterInsert
    TableName = 'SETSQL.db'
    Left = 64
    Top = 113
  end
  object Query1: TQuery
    DatabaseName = 'DBDEMOS'
    SQL.Strings = (
      'select * from country'
      'where Area>:AR')
    Left = 260
    Top = 239
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'AR'
        ParamType = ptUnknown
      end>
  end
  object DataSource2: TDataSource
    DataSet = Query1
    Left = 292
    Top = 239
  end
end