home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / delphi / kompon / d456 / JANSQL.ZIP / janSQLDemo / demosource / janSQLDemoU.dfm < prev    next >
Encoding:
Text File  |  2002-03-27  |  6.8 KB  |  300 lines

  1. object janSQLDemoF: TjanSQLDemoF
  2.   Left = 201
  3.   Top = 123
  4.   Width = 696
  5.   Height = 480
  6.   Caption = 'janSQL Demo'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -13
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Menu = MainMenu1
  14.   OldCreateOrder = False
  15.   Position = poDesktopCenter
  16.   OnCreate = FormCreate
  17.   OnDestroy = FormDestroy
  18.   OnShow = FormShow
  19.   PixelsPerInch = 120
  20.   TextHeight = 16
  21.   object Splitter1: TSplitter
  22.     Left = 0
  23.     Top = 236
  24.     Width = 688
  25.     Height = 3
  26.     Cursor = crVSplit
  27.     Align = alTop
  28.     Beveled = True
  29.   end
  30.   object StatusBar1: TStatusBar
  31.     Left = 0
  32.     Top = 405
  33.     Width = 688
  34.     Height = 19
  35.     Panels = <>
  36.     SimplePanel = False
  37.   end
  38.   object Panel1: TPanel
  39.     Left = 0
  40.     Top = 0
  41.     Width = 688
  42.     Height = 236
  43.     Align = alTop
  44.     BevelInner = bvRaised
  45.     BevelOuter = bvLowered
  46.     TabOrder = 1
  47.     object sqlmemo: TMemo
  48.       Left = 2
  49.       Top = 49
  50.       Width = 684
  51.       Height = 136
  52.       Align = alClient
  53.       Font.Charset = DEFAULT_CHARSET
  54.       Font.Color = clWindowText
  55.       Font.Height = -17
  56.       Font.Name = 'Courier New'
  57.       Font.Style = []
  58.       ParentFont = False
  59.       PopupMenu = memopop
  60.       ScrollBars = ssVertical
  61.       TabOrder = 0
  62.     end
  63.     object GroupBox1: TGroupBox
  64.       Left = 2
  65.       Top = 185
  66.       Width = 684
  67.       Height = 49
  68.       Align = alBottom
  69.       Caption = 'Messages'
  70.       TabOrder = 1
  71.       object edmessage: TEdit
  72.         Left = 8
  73.         Top = 17
  74.         Width = 665
  75.         Height = 24
  76.         Anchors = [akLeft, akTop, akRight]
  77.         TabOrder = 0
  78.       end
  79.     end
  80.     object GroupBox2: TGroupBox
  81.       Left = 2
  82.       Top = 2
  83.       Width = 684
  84.       Height = 47
  85.       Align = alTop
  86.       Caption = 'SQL'
  87.       TabOrder = 2
  88.       object hisbox: TComboBox
  89.         Left = 8
  90.         Top = 16
  91.         Width = 665
  92.         Height = 24
  93.         Anchors = [akLeft, akTop, akRight]
  94.         ItemHeight = 16
  95.         TabOrder = 0
  96.         OnClick = hisboxClick
  97.       end
  98.     end
  99.   end
  100.   object viewgrid: TStringGrid
  101.     Left = 0
  102.     Top = 239
  103.     Width = 688
  104.     Height = 166
  105.     Align = alClient
  106.     FixedCols = 0
  107.     Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
  108.     ParentShowHint = False
  109.     ShowHint = True
  110.     TabOrder = 2
  111.     OnDblClick = viewgridDblClick
  112.     ColWidths = (
  113.       64
  114.       64
  115.       64
  116.       64
  117.       64)
  118.     RowHeights = (
  119.       24
  120.       24
  121.       24
  122.       24
  123.       24)
  124.   end
  125.   object MainMenu1: TMainMenu
  126.     AutoHotkeys = maManual
  127.     Left = 136
  128.     Top = 128
  129.     object File1: TMenuItem
  130.       Caption = '&File'
  131.       object Open1: TMenuItem
  132.         Caption = '&Open...'
  133.         ShortCut = 16463
  134.         OnClick = Open1Click
  135.       end
  136.       object Save1: TMenuItem
  137.         Caption = '&Save As...'
  138.         ShortCut = 16467
  139.         OnClick = Save1Click
  140.       end
  141.     end
  142.     object Edit1: TMenuItem
  143.       Caption = '&Edit'
  144.       object Undelete1: TMenuItem
  145.         Caption = '&Undo'
  146.         ShortCut = 16474
  147.         OnClick = Undelete1Click
  148.       end
  149.       object N4: TMenuItem
  150.         Caption = '-'
  151.       end
  152.       object Cut1: TMenuItem
  153.         Caption = 'Cu&t'
  154.         ShortCut = 16472
  155.         OnClick = Cut1Click
  156.       end
  157.       object Copy1: TMenuItem
  158.         Caption = '&Copy'
  159.         ShortCut = 16451
  160.         OnClick = Copy1Click
  161.       end
  162.       object Paste1: TMenuItem
  163.         Caption = '&Paste'
  164.         ShortCut = 16470
  165.         OnClick = Paste1Click
  166.       end
  167.       object Delete1: TMenuItem
  168.         Caption = '&Delete'
  169.         OnClick = Delete1Click
  170.       end
  171.       object N3: TMenuItem
  172.         Caption = '-'
  173.       end
  174.       object SelectAll1: TMenuItem
  175.         Caption = 'Select &All'
  176.         ShortCut = 16449
  177.         OnClick = SelectAll1Click
  178.       end
  179.     end
  180.     object Insert1: TMenuItem
  181.       Caption = '&Insert'
  182.       object ApplicationFolder1: TMenuItem
  183.         Caption = '&Application Folder'
  184.         OnClick = ApplicationFolder1Click
  185.       end
  186.       object SelectedFolder1: TMenuItem
  187.         Caption = '&Selected Folder...'
  188.         OnClick = SelectedFolder1Click
  189.       end
  190.     end
  191.     object SQL1: TMenuItem
  192.       Caption = '&Run'
  193.       object Execute1: TMenuItem
  194.         Caption = '&Execute'
  195.         ShortCut = 120
  196.         OnClick = cmdExecuteClick
  197.       end
  198.       object AddtoHistory1: TMenuItem
  199.         Caption = 'Add to &History'
  200.         ShortCut = 16456
  201.         OnClick = AddtoHistory1Click
  202.       end
  203.     end
  204.     object Samples1: TMenuItem
  205.       Caption = '&Samples'
  206.     end
  207.     object Options1: TMenuItem
  208.       Caption = '&Options'
  209.       object LoadSamples1: TMenuItem
  210.         Caption = '&Load Samples'
  211.         OnClick = LoadSamples1Click
  212.       end
  213.     end
  214.     object Help1: TMenuItem
  215.       Caption = '&Help'
  216.       object Contents1: TMenuItem
  217.         Caption = '&Contents'
  218.         ShortCut = 112
  219.         OnClick = Contents1Click
  220.       end
  221.     end
  222.   end
  223.   object OpenDialog1: TOpenDialog
  224.     Filter = 'janSQL Files (*.sql)|*.sql'
  225.     Left = 120
  226.     Top = 61
  227.   end
  228.   object SaveDialog1: TSaveDialog
  229.     Filter = 'janSQL Files (*.sql)|*.sql'
  230.     Left = 160
  231.     Top = 69
  232.   end
  233.   object memopop: TPopupMenu
  234.     Left = 80
  235.     Top = 128
  236.     object SELECT1: TMenuItem
  237.       Caption = '&SELECT'
  238.       OnClick = SELECT1Click
  239.     end
  240.     object FROM1: TMenuItem
  241.       Caption = '&FROM'
  242.       OnClick = FROM1Click
  243.     end
  244.     object WHERE1: TMenuItem
  245.       Caption = '&WHERE'
  246.       OnClick = WHERE1Click
  247.     end
  248.     object GROUPBY1: TMenuItem
  249.       Caption = '&GROUP BY'
  250.       OnClick = GROUPBY1Click
  251.     end
  252.     object HAVING1: TMenuItem
  253.       Caption = '&HAVING'
  254.       OnClick = HAVING1Click
  255.     end
  256.     object ORDERBY1: TMenuItem
  257.       Caption = '&ORDER BY'
  258.       OnClick = ORDERBY1Click
  259.     end
  260.     object N2: TMenuItem
  261.       Caption = '-'
  262.     end
  263.     object UPDATE1: TMenuItem
  264.       Caption = '&UPDATE'
  265.       OnClick = UPDATE1Click
  266.     end
  267.     object INSERT2: TMenuItem
  268.       Caption = '&INSERT INTO'
  269.       OnClick = INSERT2Click
  270.     end
  271.     object VALUES1: TMenuItem
  272.       Caption = '&VALUES'
  273.       OnClick = VALUES1Click
  274.     end
  275.     object DELETEFROM1: TMenuItem
  276.       Caption = '&DELETE FROM'
  277.       OnClick = DELETEFROM1Click
  278.     end
  279.     object N1: TMenuItem
  280.       Caption = '-'
  281.     end
  282.     object CONNECTTO1: TMenuItem
  283.       Caption = 'CO&NNECT TO'
  284.       OnClick = CONNECTTO1Click
  285.     end
  286.     object COMMIT1: TMenuItem
  287.       Caption = '&COMMIT'
  288.       OnClick = COMMIT1Click
  289.     end
  290.     object CREATETABLE1: TMenuItem
  291.       Caption = 'CREATE &TABLE'
  292.       OnClick = CREATETABLE1Click
  293.     end
  294.     object ATERTABLE1: TMenuItem
  295.       Caption = '&ATER TABLE'
  296.       OnClick = ATERTABLE1Click
  297.     end
  298.   end
  299. end
  300.