uformmain.dfm

精彩编程百例75～100 其中有媒体播放器 SQL语言编辑器 ADO方法连接多个数据库 用户密码验证系统 获取Man地址 信史服务 ping命令等待

object Form1: TForm1
  Left = 321
  Top = 124
  Width = 464
  Height = 404
  Caption = 'SQL'#35821#35328#33258#21160#29983#25104#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -10
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 456
    Height = 350
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #35774#32622'SQL'#35821#21477
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 448
        Height = 165
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object Label1: TLabel
          Left = 11
          Top = 8
          Width = 86
          Height = 13
          AutoSize = False
          Caption = #25968#25454#24211#21517#31216
          FocusControl = ComboBox1
        end
        object Label2: TLabel
          Left = 222
          Top = 6
          Width = 75
          Height = 13
          AutoSize = False
          Caption = #34920#21517#31216
          FocusControl = ComboBox2
        end
        object Label3: TLabel
          Left = 5
          Top = 113
          Width = 108
          Height = 13
          AutoSize = False
          Caption = #34920#20013#21253#21547#30340#23383#27573
        end
        object ComboBox1: TComboBox
          Left = 10
          Top = 37
          Width = 152
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          OnChange = ComboBox1Change
        end
        object ComboBox2: TComboBox
          Left = 218
          Top = 34
          Width = 152
          Height = 21
          ItemHeight = 13
          TabOrder = 1
          OnChange = ComboBox2Change
        end
        object ValueListEditor1: TValueListEditor
          Left = 114
          Top = 73
          Width = 257
          Height = 84
          TabOrder = 2
          TitleCaptions.Strings = (
            'Field Name'
            'Value')
          OnKeyDown = ValueListEditor1KeyDown
          OnStringsChange = ValueListEditor1StringsChange
          ColWidths = (
            150
            101)
        end
      end
      object Panel2: TPanel
        Left = 0
        Top = 165
        Width = 448
        Height = 157
        Align = alClient
        AutoSize = True
        BevelOuter = bvNone
        TabOrder = 1
        object RadioGroup1: TRadioGroup
          Left = 0
          Top = 0
          Width = 448
          Height = 42
          Align = alTop
          Caption = 'SQL'#31867#22411
          Columns = 4
          ItemIndex = 0
          Items.Strings = (
            #36873#25321
            #21024#38500
            #25554#20837
            #20462#25913)
          TabOrder = 0
          OnClick = RadioGroup1Click
        end
        object Memo1: TMemo
          Left = 0
          Top = 42
          Width = 448
          Height = 115
          Align = alClient
          ScrollBars = ssVertical
          TabOrder = 1
        end
      end
    end
    object TabSheet2: TTabSheet
      Caption = #26597#35810#32467#26524
      ImageIndex = 1
      object DBGrid1: TDBGrid
        Left = 0
        Top = 0
        Width = 448
        Height = 322
        Align = alClient
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -10
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 386
    Top = 32
    object File1: TMenuItem
      Caption = #25991#20214
      object Open1: TMenuItem
        Caption = #25171#24320
        OnClick = Open1Click
      end
      object SaveAs1: TMenuItem
        Caption = #21478#23384#20026
        OnClick = SaveAs1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = #36864#20986
        OnClick = Exit1Click
      end
    end
    object Tools1: TMenuItem
      Caption = #24037#20855
      object RefreshFields1: TMenuItem
        Caption = #26356#26032#23383#27573
        OnClick = RefreshFields1Click
      end
      object RunSQL1: TMenuItem
        Caption = #21551#21160'SQL'
        OnClick = RunSQL1Click
      end
    end
  end
  object Query1: TQuery
    DatabaseName = 'DBDEMOS'
    Constraints = <
      item
        FromDictionary = False
      end>
    ParamCheck = False
    SQL.Strings = (
      'select * from biolife')
    Left = 402
    Top = 104
  end
  object DataSource1: TDataSource
    DataSet = Query1
    Left = 418
    Top = 64
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'SQL'
    Filter = 
      'SQL Files (*.sql)|*.sql|Text Files (*.txt)|*.txt|All Files (*.*)' +
      '|*.*'
    InitialDir = 'C:\'
    Title = 'Save SQL Text'
    Left = 386
    Top = 64
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'SQL'
    Filter = 
      'SQL Files (*.sql)|*.sql|Text Files (*.txt)|*.txt|All Files (*.*)' +
      '|*.*'
    InitialDir = 'C:\'
    Title = 'Open SQL Text'
    Left = 422
    Top = 34
  end
end