Internet Pratica/IPRAT_01.iso/ASP/dataform/DataForm.exe/0/RCDATA/TFORMDB/TFORMDB.txt

Text File | 2002-05-21 | 6.0 KB | 247 lines

object FormDB: TFormDB
  Left = 196
  Top = 161
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'Dataform - Definir base de dados'
  ClientHeight = 294
  ClientWidth = 444
  Color = clWindow
  ParentFont = True
  OldCreateOrder = True
  Position = poScreenCenter
  ShowHint = True
  Visible = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image2: TImage
    Left = 77
    Top = 0
    Width = 374
    Height = 50
    AutoSize = True
    Picture.Data = {<image000.jpg>}
  end
  object Image27: TImage
    Left = -58
    Top = 0
    Width = 374
    Height = 50
    AutoSize = True
    Picture.Data = {<image001.jpg>}
  end
  object SrcLabel: TLabel
    Left = 107
    Top = 73
    Width = 145
    Height = 16
    AutoSize = False
    Caption = 'Campos da tabela'
    Transparent = True
  end
  object DstLabel: TLabel
    Left = 291
    Top = 73
    Width = 145
    Height = 16
    AutoSize = False
    Caption = 'Campos do Formul�rio'
    Transparent = True
  end
  object IncludeBtn: TSpeedButton
    Left = 259
    Top = 97
    Width = 24
    Height = 24
    Hint = 'Adiciona o(s) campo(s) selecionado(s)'
    Caption = '>'
    Enabled = False
    OnClick = IncludeBtnClick
  end
  object IncAllBtn: TSpeedButton
    Left = 259
    Top = 129
    Width = 24
    Height = 24
    Hint = 'Adiciona todos campos'
    Caption = '>>'
    Enabled = False
    OnClick = IncAllBtnClick
  end
  object ExcludeBtn: TSpeedButton
    Left = 259
    Top = 161
    Width = 24
    Height = 24
    Hint = 'Remove o(s) campo(s) selecionado(s)'
    Caption = '<'
    Enabled = False
    OnClick = ExcludeBtnClick
  end
  object ExAllBtn: TSpeedButton
    Left = 259
    Top = 193
    Width = 24
    Height = 24
    Hint = 'Remove todos campos'
    Caption = '<<'
    Enabled = False
    OnClick = ExcAllBtnClick
  end
  object Label1: TLabel
    Left = 292
    Top = 34
    Width = 134
    Height = 13
    Caption = 'Selecione a tabela desejada'
    Transparent = True
  end
  object Label2: TLabel
    Left = 108
    Top = 34
    Width = 80
    Height = 13
    Caption = 'Banco de Dados'
    Transparent = True
  end
  object SpeedButton1: TSpeedButton
    Left = 253
    Top = 49
    Width = 23
    Height = 22
    Hint = 'Clique aqui para selecionar um banco de dados'
    Flat = True
    Glyph.Data = {
      36030000424D3603000000000000360000002800000010000000100000000100
      18000000000000030000C40E0000C40E00000000000000000000BFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000
      000000000000000000000000000000000000000000000000000000BFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBF00000000000000878000878000878000878000878000
      8780008780008780008780000000BFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF
      0000000087800087800087800087800087800087800087800087800087800000
      00BFBFBFBFBFBFBFBFBF000000FFFFFF00FFFF00000000878000878000878000
      8780008780008780008780008780008780000000BFBFBFBFBFBF00000000FFFF
      FFFFFF00FFFF0000000087800087800087800087800087800087800087800087
      80008780000000BFBFBF000000FFFFFF00FFFFFFFFFF00FFFF00000000000000
      000000000000000000000000000000000000000000000000000000000000FFFF
      FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFF000000BFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBF000000FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFF
      FFFF00FFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF
      FFFFFF00FFFF000000000000000000000000000000000000000000BFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BF000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBF000000BFBFBFBFBFBFBFBFBF000000BFBFBF000000BFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
      BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
    OnClick = SpeedButton1Click
  end
  object Image1: TImage
    Left = 21
    Top = 28
    Width = 62
    Height = 122
    AutoSize = True
    Picture.Data = {<image002.jpg>}
  end
  object Label3: TLabel
    Left = 23
    Top = 8
    Width = 366
    Height = 13
    Caption =
      'Selecione por ordem, os campos da tabela que deseja colocar no f' +
      'ormul�rio...'
    Transparent = True
  end
  object OKBtn: TButton
    Left = 280
    Top = 257
    Width = 75
    Height = 25
    Caption = '&OK'
    Default = True
    Enabled = False
    ModalResult = 1
    TabOrder = 2
    OnClick = OKBtnClick
  end
  object CancelBtn: TButton
    Left = 360
    Top = 257
    Width = 75
    Height = 25
    Cancel = True
    Caption = '&Cancelar'
    ModalResult = 2
    TabOrder = 3
    OnClick = CancelBtnClick
  end
  object SrcList: TListBox
    Left = 107
    Top = 89
    Width = 144
    Height = 160
    Color = clWhite
    ItemHeight = 13
    MultiSelect = True
    Sorted = True
    TabOrder = 0
  end
  object DstList: TListBox
    Left = 291
    Top = 89
    Width = 144
    Height = 160
    Color = clWhite
    ItemHeight = 13
    MultiSelect = True
    TabOrder = 1
  end
  object ComboBox1: TComboBox
    Left = 291
    Top = 50
    Width = 145
    Height = 21
    Style = csDropDownList
    Color = clWhite
    ItemHeight = 13
    TabOrder = 4
    OnChange = ComboBox1Change
  end
  object Edit1: TEdit
    Left = 107
    Top = 50
    Width = 144
    Height = 21
    Color = clWhite
    ReadOnly = True
    TabOrder = 5
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 31
    Top = 153
  end
  object ADOTable1: TADOTable
    Connection = ADOConnection1
    CursorType = ctStatic
    LockType = ltReadOnly
    Left = 31
    Top = 201
  end
  object DataSource1: TDataSource
    AutoEdit = False
    DataSet = ADOTable1
    Left = 31
    Top = 249
  end
end