Chip 2001 October/Chip_2001-10_cd1.bin/zkuste/delphi/nastroje/d45/IBSB1.ZIP/Unit1.dfm

Text File | 2001-06-20 | 10KB | 421 lines

object Form1: TForm1
  Left = 26
  Top = 109
  Width = 728
  Height = 479
  Caption = 'SLQ Builder For Interbase Ver.5.6'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 285
    Width = 720
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    Beveled = True
    ResizeStyle = rsLine
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 414
    Width = 720
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 300
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 720
    Height = 42
    ButtonHeight = 35
    ButtonWidth = 38
    Caption = 'ToolBar1'
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    Flat = True
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    object btndbConnect: TToolButton
      Left = 0
      Top = 0
      Action = actdbConnect
      DropdownMenu = popdbconnect
      Style = tbsDropDown
    end
    object btnDisconnect: TToolButton
      Left = 51
      Top = 0
      Action = actDBDisconnect
    end
    object ToolButton1: TToolButton
      Left = 89
      Top = 0
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object btnsqlrun: TToolButton
      Left = 97
      Top = 0
      Action = actRunSql
    end
    object btnTables: TToolButton
      Left = 135
      Top = 0
      Action = actTables
    end
    object ToolButton2: TToolButton
      Left = 173
      Top = 0
      Width = 8
      Caption = 'ToolButton2'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object btngetsqltext: TToolButton
      Left = 181
      Top = 0
      Action = actOpenSQLtext
      DropdownMenu = popSQL
      Style = tbsDropDown
    end
    object btnsqltextsave: TToolButton
      Left = 232
      Top = 0
      Hint = 'Save SQL Text'
      ImageIndex = 5
      OnClick = btnsqltextsaveClick
    end
    object ToolButton4: TToolButton
      Left = 270
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 2
      Style = tbsSeparator
    end
    object btnSQLOutBrowse: TToolButton
      Left = 278
      Top = 0
      Hint = 'SQL Result Borwse Mode'
      Caption = 'btnSQLOutBrowse'
      Down = True
      Enabled = False
      Grouped = True
      ImageIndex = 6
      Style = tbsCheck
    end
    object btnsqlouttext: TToolButton
      Left = 316
      Top = 0
      Hint = 'SQL Result Report Mode'
      Caption = 'btnsqlouttext'
      Enabled = False
      Grouped = True
      ImageIndex = 7
      Style = tbsCheck
    end
    object btnsqloutCSV: TToolButton
      Left = 354
      Top = 0
      Hint = 'SQL CSV Format'
      Caption = 'btnsqloutCSV'
      Enabled = False
      Grouped = True
      ImageIndex = 8
      Style = tbsCheck
    end
    object btnExcel: TToolButton
      Left = 392
      Top = 0
      Hint = 'Send To Excel'
      Caption = 'Excel'
      Enabled = False
      Grouped = True
      ImageIndex = 9
      Style = tbsCheck
    end
    object ToolButton3: TToolButton
      Left = 430
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 9
      Style = tbsSeparator
    end
    object btnCikis: TToolButton
      Left = 438
      Top = 0
      Action = actExit
      ImageIndex = 10
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 288
    Width = 720
    Height = 126
    Align = alBottom
    TabOrder = 2
    object MemoSQLstr: TMemo
      Left = 1
      Top = 1
      Width = 718
      Height = 124
      Hint = 'SQL Text Area'
      Align = alClient
      ParentShowHint = False
      ScrollBars = ssBoth
      ShowHint = True
      TabOrder = 0
      OnChange = MemoSQLstrChange
    end
  end
  object IBD: TIBDatabase
    Params.Strings = (
      'user_name=sysdba'
      'password=1')
    LoginPrompt = False
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = []
    Left = 567
    Top = 48
  end
  object IBT: TIBTransaction
    Active = False
    DefaultDatabase = IBD
    Left = 597
    Top = 48
  end
  object MainMenu1: TMainMenu
    Left = 534
    Top = 48
    object Database1: TMenuItem
      Caption = 'Database'
      object Open1: TMenuItem
        Action = actdbConnect
      end
      object Disconnect1: TMenuItem
        Action = actDBDisconnect
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object k1: TMenuItem
        Action = actExit
      end
    end
    object SQLBuild1: TMenuItem
      Caption = 'SQL Build'
      object OpenSQLTextFile1: TMenuItem
        Action = actOpenSQLtext
      end
      object SaveSQLText1: TMenuItem
        Caption = 'Save SQL Text'
        ImageIndex = 5
        OnClick = btnsqltextsaveClick
      end
      object RunSQL1: TMenuItem
        Action = actRunSql
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Tables1: TMenuItem
        Action = actTables
      end
    end
    object ResultView1: TMenuItem
      Caption = 'Result View'
      Enabled = False
      object Browse1: TMenuItem
        Caption = 'Browse'
        ImageIndex = 6
        OnClick = Browse1Click
      end
      object Report1: TMenuItem
        Caption = 'Report'
        ImageIndex = 7
        OnClick = Report1Click
      end
      object AsciTextCSV1: TMenuItem
        Caption = 'Asci Text (CSV)'
        ImageIndex = 8
        OnClick = AsciTextCSV1Click
      end
      object SendtoExcel1: TMenuItem
        Caption = 'Send to Excel'
        OnClick = SendtoExcel1Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object SaveResult1: TMenuItem
        Caption = 'Save Result'
        OnClick = SaveResult1Click
      end
    end
    object Window1: TMenuItem
      Caption = '&Window'
      object TileVertically1: TMenuItem
        Action = WindowTileVertical1
      end
      object Tile1: TMenuItem
        Action = WindowTileHorizontal1
      end
      object Cascade1: TMenuItem
        Action = WindowCascade1
      end
      object ArrangeAll1: TMenuItem
        Action = WindowArrange1
      end
      object Close1: TMenuItem
        Action = WindowClose1
      end
    end
  end
  object popJoin: TPopupMenu
    Left = 627
    Top = 48
    object Sil1: TMenuItem
      Caption = 'Delete'
      OnClick = Sil1Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Inner: TMenuItem
      Caption = 'Inner'
      GroupIndex = 5
      RadioItem = True
      OnClick = PopJoinTypeClick
    end
    object Left: TMenuItem
      Caption = 'Left'
      GroupIndex = 5
      RadioItem = True
      OnClick = PopJoinTypeClick
    end
    object Right: TMenuItem
      Caption = 'Right'
      GroupIndex = 5
      RadioItem = True
      OnClick = PopJoinTypeClick
    end
    object Full: TMenuItem
      Caption = 'Full'
      GroupIndex = 5
      RadioItem = True
      OnClick = PopJoinTypeClick
    end
  end
  object popdbconnect: TPopupMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Top = 42
  end
  object popSQL: TPopupMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Left = 186
    Top = 42
  end
  object actions: TActionList
    Left = 498
    Top = 48
    object actExit: TAction
      Caption = 'Exit'
      Hint = 'Exit from Program'
      ImageIndex = 9
      OnExecute = actExitExecute
    end
    object actdbConnect: TAction
      Caption = 'Connect to Database'
      Hint = 'Connect to Database'
      ImageIndex = 0
      OnExecute = btndbConnectClick
    end
    object actDBDisconnect: TAction
      Caption = 'Disconnect from Database'
      Enabled = False
      Hint = 'Disconnect from Database'
      ImageIndex = 1
      OnExecute = DisConnectDB
    end
    object actOpenSQLtext: TAction
      Caption = 'Open SQL Text File'
      Enabled = False
      Hint = 'Open SQL Text file'
      ImageIndex = 4
      OnExecute = btngetsqltextClick
    end
    object actRunSql: TAction
      Caption = 'Run SQL'
      Enabled = False
      Hint = 'Run SQL'
      ImageIndex = 2
      OnExecute = SQLrun
    end
    object actTables: TAction
      Caption = 'Tables'
      Enabled = False
      Hint = 'Tables'
      ImageIndex = 3
      OnExecute = btnTablesClick
    end
  end
  object actWindow: TActionList
    Left = 468
    Top = 48
    object WindowCascade1: TWindowCascade
      Category = 'Window'
      Caption = '&Cascade'
      ImageIndex = 17
    end
    object WindowArrange1: TWindowArrange
      Category = 'Window'
      Caption = '&Arrange'
    end
    object WindowClose1: TWindowClose
      Category = 'Window'
      Caption = 'C&lose'
    end
    object WindowTileHorizontal1: TWindowTileHorizontal
      Category = 'Window'
      Caption = 'Tile &Horizontally'
      ImageIndex = 15
    end
    object WindowTileVertical1: TWindowTileVertical
      Category = 'Window'
      Caption = '&Tile Vertically'
      ImageIndex = 16
    end
  end
end