Chip 2002 June/Chip_2002-06_cd1.bin/zkuste/delphi/kompon/d456/JANSQL.ZIP/janSQLDemo/demosource/janSQLDemoU.dfm

Text File | 2002-03-27 | 6.8 KB | 300 lines

object janSQLDemoF: TjanSQLDemoF
  Left = 201
  Top = 123
  Width = 696
  Height = 480
  Caption = 'janSQL Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object Splitter1: TSplitter
    Left = 0
    Top = 236
    Width = 688
    Height = 3
    Cursor = crVSplit
    Align = alTop
    Beveled = True
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 405
    Width = 688
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 236
    Align = alTop
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    object sqlmemo: TMemo
      Left = 2
      Top = 49
      Width = 684
      Height = 136
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -17
      Font.Name = 'Courier New'
      Font.Style = []
      ParentFont = False
      PopupMenu = memopop
      ScrollBars = ssVertical
      TabOrder = 0
    end
    object GroupBox1: TGroupBox
      Left = 2
      Top = 185
      Width = 684
      Height = 49
      Align = alBottom
      Caption = 'Messages'
      TabOrder = 1
      object edmessage: TEdit
        Left = 8
        Top = 17
        Width = 665
        Height = 24
        Anchors = [akLeft, akTop, akRight]
        TabOrder = 0
      end
    end
    object GroupBox2: TGroupBox
      Left = 2
      Top = 2
      Width = 684
      Height = 47
      Align = alTop
      Caption = 'SQL'
      TabOrder = 2
      object hisbox: TComboBox
        Left = 8
        Top = 16
        Width = 665
        Height = 24
        Anchors = [akLeft, akTop, akRight]
        ItemHeight = 16
        TabOrder = 0
        OnClick = hisboxClick
      end
    end
  end
  object viewgrid: TStringGrid
    Left = 0
    Top = 239
    Width = 688
    Height = 166
    Align = alClient
    FixedCols = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    OnDblClick = viewgridDblClick
    ColWidths = (
      64
      64
      64
      64
      64)
    RowHeights = (
      24
      24
      24
      24
      24)
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 136
    Top = 128
    object File1: TMenuItem
      Caption = '&File'
      object Open1: TMenuItem
        Caption = '&Open...'
        ShortCut = 16463
        OnClick = Open1Click
      end
      object Save1: TMenuItem
        Caption = '&Save As...'
        ShortCut = 16467
        OnClick = Save1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      object Undelete1: TMenuItem
        Caption = '&Undo'
        ShortCut = 16474
        OnClick = Undelete1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        ShortCut = 16472
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        ShortCut = 16451
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        ShortCut = 16470
        OnClick = Paste1Click
      end
      object Delete1: TMenuItem
        Caption = '&Delete'
        OnClick = Delete1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object SelectAll1: TMenuItem
        Caption = 'Select &All'
        ShortCut = 16449
        OnClick = SelectAll1Click
      end
    end
    object Insert1: TMenuItem
      Caption = '&Insert'
      object ApplicationFolder1: TMenuItem
        Caption = '&Application Folder'
        OnClick = ApplicationFolder1Click
      end
      object SelectedFolder1: TMenuItem
        Caption = '&Selected Folder...'
        OnClick = SelectedFolder1Click
      end
    end
    object SQL1: TMenuItem
      Caption = '&Run'
      object Execute1: TMenuItem
        Caption = '&Execute'
        ShortCut = 120
        OnClick = cmdExecuteClick
      end
      object AddtoHistory1: TMenuItem
        Caption = 'Add to &History'
        ShortCut = 16456
        OnClick = AddtoHistory1Click
      end
    end
    object Samples1: TMenuItem
      Caption = '&Samples'
    end
    object Options1: TMenuItem
      Caption = '&Options'
      object LoadSamples1: TMenuItem
        Caption = '&Load Samples'
        OnClick = LoadSamples1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Contents1: TMenuItem
        Caption = '&Contents'
        ShortCut = 112
        OnClick = Contents1Click
      end
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = 'janSQL Files (*.sql)|*.sql'
    Left = 120
    Top = 61
  end
  object SaveDialog1: TSaveDialog
    Filter = 'janSQL Files (*.sql)|*.sql'
    Left = 160
    Top = 69
  end
  object memopop: TPopupMenu
    Left = 80
    Top = 128
    object SELECT1: TMenuItem
      Caption = '&SELECT'
      OnClick = SELECT1Click
    end
    object FROM1: TMenuItem
      Caption = '&FROM'
      OnClick = FROM1Click
    end
    object WHERE1: TMenuItem
      Caption = '&WHERE'
      OnClick = WHERE1Click
    end
    object GROUPBY1: TMenuItem
      Caption = '&GROUP BY'
      OnClick = GROUPBY1Click
    end
    object HAVING1: TMenuItem
      Caption = '&HAVING'
      OnClick = HAVING1Click
    end
    object ORDERBY1: TMenuItem
      Caption = '&ORDER BY'
      OnClick = ORDERBY1Click
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object UPDATE1: TMenuItem
      Caption = '&UPDATE'
      OnClick = UPDATE1Click
    end
    object INSERT2: TMenuItem
      Caption = '&INSERT INTO'
      OnClick = INSERT2Click
    end
    object VALUES1: TMenuItem
      Caption = '&VALUES'
      OnClick = VALUES1Click
    end
    object DELETEFROM1: TMenuItem
      Caption = '&DELETE FROM'
      OnClick = DELETEFROM1Click
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object CONNECTTO1: TMenuItem
      Caption = 'CO&NNECT TO'
      OnClick = CONNECTTO1Click
    end
    object COMMIT1: TMenuItem
      Caption = '&COMMIT'
      OnClick = COMMIT1Click
    end
    object CREATETABLE1: TMenuItem
      Caption = 'CREATE &TABLE'
      OnClick = CREATETABLE1Click
    end
    object ATERTABLE1: TMenuItem
      Caption = '&ATER TABLE'
      OnClick = ATERTABLE1Click
    end
  end
end