home *** CD-ROM | disk | FTP | other *** search
- 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
-