childwin2.dfm

jvcl driver development envionment

    AutoEdit = False
    DataSet = TableList
    OnDataChange = DataSource1DataChange
    Left = 32
    Top = 3
  end
  object Table1: TTable
    AfterOpen = AfterOpen
    BeforeClose = BeforeClose
    AfterClose = TabAfterClose
    AfterPost = AfterPost
    BeforeDelete = TabBeforeDelete
    Left = 4
    Top = 115
  end
  object FieldList1: TJvTableItems
    OnCalcFields = FieldListCalcFields
    Left = 4
    Top = 59
    object FieldList1NAME: TStringField
      DisplayLabel = 'Name'
      DisplayWidth = 25
      FieldName = 'NAME'
      Size = 31
    end
    object FieldList1TypeName: TStringField
      FieldKind = fkCalculated
      FieldName = 'TypeName'
      Size = 8
      Calculated = True
    end
    object FieldList1TYPE: TWordField
      DisplayLabel = 'Type'
      FieldName = 'TYPE'
      Visible = False
    end
    object FieldList1SubTypeName: TStringField
      FieldKind = fkCalculated
      FieldName = 'SubTypeName'
      Size = 14
      Calculated = True
    end
    object FieldList1Required: TBooleanField
      FieldKind = fkCalculated
      FieldName = 'Required'
      DisplayValues = 'Yes;No'
      Calculated = True
    end
    object FieldList1SUBTYPE: TWordField
      DisplayLabel = 'SubType'
      FieldName = 'SUBTYPE'
      Visible = False
    end
    object FieldList1UNITS1: TWordField
      DisplayLabel = 'Units1'
      FieldName = 'UNITS1'
    end
    object FieldList1UNITS2: TWordField
      DisplayLabel = 'Units2'
      FieldName = 'UNITS2'
    end
    object FieldList1LENGTH: TWordField
      DisplayLabel = 'Length'
      FieldName = 'LENGTH'
    end
    object FieldList1FIELDNUM: TWordField
      DisplayLabel = 'Field No'
      DisplayWidth = 5
      FieldName = 'FIELDNUM'
    end
  end
  object IndexList1: TJvTableItems
    ItemType = dtIndices
    Left = 32
    Top = 59
    object IndexList1NAME: TStringField
      DisplayLabel = 'Index name'
      DisplayWidth = 50
      FieldName = 'NAME'
      Size = 260
    end
    object IndexList1TAGNAME: TStringField
      DisplayLabel = 'Tag'
      DisplayWidth = 20
      FieldName = 'TAGNAME'
      Size = 31
    end
    object IndexList1UNIQUE: TBooleanField
      DisplayLabel = 'Unique'
      FieldName = 'UNIQUE'
      DisplayValues = 'Yes;No'
    end
    object IndexList1PRIMARY: TBooleanField
      DisplayLabel = 'Primary'
      FieldName = 'PRIMARY'
      DisplayValues = 'Yes;No'
    end
    object IndexList1FORMAT: TStringField
      DisplayLabel = 'Format'
      FieldName = 'FORMAT'
      Size = 31
    end
  end
  object RefIntList: TJvTableItems
    ItemType = dtRefInt
    Left = 60
    Top = 59
    object RefIntListNAME: TStringField
      DisplayLabel = 'Name'
      FieldName = 'NAME'
      Size = 31
    end
    object RefIntListTYPE: TIntegerField
      Alignment = taLeftJustify
      DisplayLabel = 'Type'
      FieldName = 'TYPE'
      OnGetText = RefIntListTYPEGetText
    end
    object RefIntListOTHERTABLE: TStringField
      DisplayLabel = 'Referential Table'
      DisplayWidth = 80
      FieldName = 'OTHERTABLE'
      Size = 260
    end
    object RefIntListFIELDCOUNT: TWordField
      DisplayLabel = 'Field Count'
      FieldName = 'FIELDCOUNT'
    end
  end
  object DataSource2: TDataSource
    DataSet = Table1
    OnStateChange = DataSource2StateChange
    OnDataChange = TableChange
    Left = 32
    Top = 115
  end
  object DbImages: TJvPicClip
    Cols = 5
    Picture.Data = {
      07544269746D6170A6020000424DA60200000000000076000000280000005000
      00000E0000000100040000000000300200000000000000000000100000000000
      000000000000000080000080000000808000800000008000800080800000C0C0
      C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
      FF00DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
      DDDDDDDDDDDDDD111DDDDD0000000000000DD000000000DDDDDDDD0000000000
      000DD000000000DDDDDDDDD11DDDDD191DDDDD0FF0FFFF0FFF0DD0FF0FFFF0DD
      DDDDDD0FF0FFFF0FFF0DD0FF0FFFF0DDDDDDDDD191DDD1991DDDDD04F0F44F0F
      4F0DD04F0F44F0DDD00DDD04F0F44F0F4F0DD04F0F44F0DDD00DDDD1991DD199
      1DDDDD0FF0FFFF0FFF0DD0FF0FFFF0DD000DDD0FF0FFFF0FFF0DD0FF0FFFF0DD
      000DDDDD191D1991DDDDDD04F0F44F0F4F0DD04F0F40000800DDDD04F0F44F0F
      4F0DD04F0F40000800DDDDDD1991991DDDDDDD0FF0FFFF0FFF0DD0FF0F0FFF00
      8DDDDD0FF0FFFF0FFF0DD0FF0F0FFF008DDDDDDDD199991DDDDDDD04F0F44F0F
      4F0DD000000888870DDDDD04F0F44F0F4F0DD000000888870DDDDDDDDD1991DD
      DDDDDD0FF0FFFF0FFF0DD0EEE0EEEE870DDDDD0FF0FFFF0FFF0DD09990999987
      0DDDDDDDD199991DDDDDDD0000000000000DD00000EEEE870DDDDD0000000000
      000DD000009999870DDDDDDD19919991DDDDDD0EEEEEEEEEEE0DDDDDD0088887
      0DDDDD0999999999990DDDDDD00888870DDDDDD1991D19991DDDDD0000000000
      000DDDDDDD077770DDDDDD0000000000000DDDDDDD077770DDDDDDD111DDD199
      1DDDDDDDDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDDDDDDDDDDDDDDDDDD0000D
      DDDDDDDDDDDDDD111DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
      DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD}
    Left = 4
    Top = 143
  end
  object QuerySession: TSession
    Left = 4
    Top = 87
  end
  object DBQueryProgress: TJvDBProgress
    WaitCursor = crSQLWait
    MessageControl = DBExplorerMainForm.StatusLine
    Gauge = DBExplorerMainForm.DBGauge
    OnTrace = DBQueryProgressTrace
    OnProgress = DBQryProgress
    Left = 60
    Top = 87
  end
  object QueryDB: TDatabase
    SessionName = 'Default'
    Left = 32
    Top = 87
  end
  object Query1: TJvQuery
    AfterOpen = AfterOpen
    BeforeClose = BeforeClose
    AfterPost = AfterPost
    RequestLive = True
    Macros = <>
    Left = 60
    Top = 115
  end
  object PopupTablesMenu: TPopupMenu
    OnPopup = PopupTablesMenuPopup
    Left = 4
    Top = 31
    object FilterItem: TMenuItem
      Caption = 'Tables Filter...'
      Hint = 'Set tablenames filter'
      ShortCut = 117
      OnClick = FilterItemClick
    end
    object N1: TMenuItem
      Caption = '-'
    end
    object OpenTableItem: TMenuItem
      Caption = 'OpenTable'
      OnClick = OpenTableClick
    end
    object CloseTableItem: TMenuItem
      Caption = 'Close Table'
      Hint = 'Close current table'
      OnClick = CloseTableItemClick
    end
    object ShowDeletedItem: TMenuItem
      Caption = 'Show Deleted Records'
      OnClick = ShowDeletedItemClick
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object CloseItem: TMenuItem
      Caption = 'Close Database'
      Hint = 'Close current database'
      OnClick = CloseItemClick
    end
  end
  object FormStorage: TJvFormStorage
    MinMaxInfo.MinTrackHeight = 170
    MinMaxInfo.MinTrackWidth = 300
    Options = [fpState]
    OnSavePlacement = FormStorageSavePlacement
    OnRestorePlacement = FormStorageRestorePlacement
    StoredProps.Strings = (
      'TablesGrid.Width'
      'Panel2.Height'
      'OpenDialog1.InitialDir'
      'SaveDialog1.InitialDir')
    StoredValues = <>
    Left = 60
    Top = 3
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = 'sql'
    FileName = '*.sql'
    Filter = 'SQL files (*.sql)|*.sql|All files (*.*)|*.*'
    Options = [ofHideReadOnly, ofFileMustExist]
    Title = 'Load query'
    Left = 32
    Top = 143
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'sql'
    FileName = '*.sql'
    Filter = 'SQL files (*.sql)|*.sql|All files (*.*)|*.*'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist]
    Title = 'Save query'
    Left = 60
    Top = 143
  end
  object AbortQueryMenu: TPopupMenu
    Left = 60
    Top = 31
    object CancelItem: TMenuItem
      Caption = 'Abort query'
      Enabled = False
      Hint = 'Abort currently running query'
      OnClick = CancelQueryClick
    end
  end
  object PopupSQLMenu: TPopupMenu
    OnPopup = PopupSQLMenuPopup
    Left = 32
    Top = 31
    object Undo1: TMenuItem
      Tag = 1
      Caption = '&Undo'
      OnClick = PopupSQLMenuClick
    end
    object N2: TMenuItem
      Caption = '-'
    end
    object Cut1: TMenuItem
      Tag = 2
      Caption = 'Cu&t'
      OnClick = PopupSQLMenuClick
    end
    object Copy1: TMenuItem
      Tag = 3
      Caption = '&Copy'
      OnClick = PopupSQLMenuClick
    end
    object Paste1: TMenuItem
      Tag = 4
      Caption = '&Paste'
      OnClick = PopupSQLMenuClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object SelectAll1: TMenuItem
      Tag = 5
      Caption = 'Select &All'
      OnClick = PopupSQLMenuClick
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object Saveas1: TMenuItem
      Tag = 6
      Caption = '&Save as...'
      ShortCut = 113
      OnClick = PopupSQLMenuClick
    end
    object Load1: TMenuItem
      Tag = 7
      Caption = '&Load...'
      ShortCut = 114
      OnClick = PopupSQLMenuClick
    end
    object PriorSQLItem: TMenuItem
      Tag = 9
      Caption = 'Prior SQL'
      OnClick = PopupSQLMenuClick
    end
    object NextSQLItem: TMenuItem
      Tag = 10
      Caption = 'Next SQL'
      OnClick = PopupSQLMenuClick
    end
    object Runquery1: TMenuItem
      Tag = 8
      Caption = 'Exec SQL'
      ShortCut = 120
      OnClick = PopupSQLMenuClick
    end
    object QueryParamItem: TMenuItem
      Tag = 12
      Caption = 'Parameters...'
      OnClick = PopupSQLMenuClick
    end
    object Querybuilder1: TMenuItem
      Tag = 11
      Caption = 'Query builder...'
      OnClick = PopupSQLMenuClick
    end
  end
end