Chip 1999 March/Chip_1999-03_cd.bin/zkuste/delphi/D3/TQBE32D3.ZIP/DemoMain.dfm/DemoMain.txt

Text File | 1998-10-19 | 7KB | 285 lines

object Form1: TForm1
  Left = 113
  Top = 142
  Width = 589
  Height = 496
  Caption = 'TQBE32 Evaluation Program'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnActivate = FormActivate
  PixelsPerInch = 120
  TextHeight = 16
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 581
    Height = 53
    Align = alTop
    TabOrder = 0
    object sbtnExit: TSpeedButton
      Left = 645
      Top = 12
      Width = 31
      Height = 31
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
      OnClick = Exit1Click
    end
    object GroupBox1: TGroupBox
      Left = 17
      Top = 2
      Width = 253
      Height = 42
      Caption = 'Table'
      TabOrder = 2
    end
    object btnOpenTable: TButton
      Left = 69
      Top = 12
      Width = 77
      Height = 26
      Caption = '&Open'
      TabOrder = 0
      OnClick = OpenTable1Click
    end
    object btnCloseTable: TButton
      Left = 158
      Top = 12
      Width = 77
      Height = 26
      Caption = '&Close'
      TabOrder = 1
      OnClick = CloseTable1Click
    end
    object GroupBox2: TGroupBox
      Left = 288
      Top = 2
      Width = 329
      Height = 42
      Caption = 'QBE'
      TabOrder = 3
      object btnLoadQuery: TButton
        Left = 49
        Top = 12
        Width = 78
        Height = 26
        Caption = '&Load'
        TabOrder = 0
        OnClick = Load1Click
      end
      object btnExecQuery: TButton
        Left = 140
        Top = 12
        Width = 78
        Height = 26
        Caption = '&Execute'
        TabOrder = 1
        OnClick = Execute1Click
      end
      object btnCloseAnswer: TButton
        Left = 231
        Top = 12
        Width = 78
        Height = 26
        Caption = 'Clo&se'
        TabOrder = 2
        OnClick = btnCloseAnswerClick
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 53
    Width = 581
    Height = 140
    Align = alTop
    Caption = 'Panel1'
    TabOrder = 1
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 579
      Height = 22
      Align = alTop
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object gridTable: TDBGrid
      Left = 1
      Top = 23
      Width = 701
      Height = 116
      DataSource = dsSource
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
  end
  object Panel4: TPanel
    Left = 0
    Top = 256
    Width = 581
    Height = 184
    Align = alBottom
    TabOrder = 2
    object Panel5: TPanel
      Left = 1
      Top = 1
      Width = 579
      Height = 25
      Align = alTop
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object gridAnswer: TDBGrid
      Left = 1
      Top = 23
      Width = 701
      Height = 121
      DataSource = dsQBE
      ReadOnly = True
      TabOrder = 1
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object IDentification: TPanel
      Left = 1
      Top = 151
      Width = 579
      Height = 32
      Align = alBottom
      Caption = 'Identification'
      TabOrder = 2
    end
  end
  object Panel6: TPanel
    Left = 0
    Top = 193
    Width = 581
    Height = 63
    Align = alClient
    TabOrder = 3
    object Panel7: TPanel
      Left = 1
      Top = 1
      Width = 579
      Height = 22
      Align = alTop
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
    end
    object memoQueryText: TMemo
      Left = 1
      Top = 23
      Width = 701
      Height = 146
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 1
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Tables(*.db)|*.db'
    Left = 161
    Top = 108
  end
  object OpenDialog2: TOpenDialog
    Filter = 'Queries(*.qbe)|*.qbe'
    Left = 223
    Top = 108
  end
  object MainMenu1: TMainMenu
    Left = 98
    Top = 108
    object File1: TMenuItem
      Caption = '&File'
      object OpenTable1: TMenuItem
        Caption = '&Open Table'
        OnClick = OpenTable1Click
      end
      object CloseTable1: TMenuItem
        Caption = '&Close Table'
        OnClick = CloseTable1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Query1: TMenuItem
      Caption = '&Query'
      object Load1: TMenuItem
        Caption = '&Load'
        OnClick = Load1Click
      end
      object Execute1: TMenuItem
        Caption = '&Execute'
        OnClick = Execute1Click
      end
    end
    object About1: TMenuItem
      Caption = '&About'
      OnClick = About1Click
    end
  end
  object QBE1: TQBE
    AnswerTable = 'Answer1.db'
    Left = 474
    Top = 108
  end
  object tblSource: TTable
    Left = 286
    Top = 108
  end
  object dsSource: TDataSource
    DataSet = tblSource
    Left = 349
    Top = 108
  end
  object dsQBE: TDataSource
    DataSet = QBE1
    Left = 411
    Top = 108
  end
end