Ignore:
Timestamp:
Mar 23, 2018, 1:59:25 PM (7 years ago)
Author:
chronos
Message:
  • Modified: Database classes reorganized. Now TDbConnectProfile is class which holds information about connection to database.
  • Modified: TDbManager is top most class for managing other database classes.
  • Modified: TDbConnectParams class contains client specific parameters for connect profile.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormConnect.lfm

    r9 r20  
    77  ClientHeight = 452
    88  ClientWidth = 616
     9  DesignTimePPI = 120
    910  OnShow = FormShow
    10   LCLVersion = '1.5'
     11  LCLVersion = '1.8.0.6'
    1112  object EditName: TEdit
    1213    Left = 211
    13     Height = 35
     14    Height = 28
    1415    Top = 21
    1516    Width = 261
    … …  
    1819  object Label1: TLabel
    1920    Left = 16
    20     Height = 25
     21    Height = 20
    2122    Top = 26
    22     Width = 62
     23    Width = 43
    2324    Caption = 'Name:'
    2425    ParentColor = False
    … …  
    2627  object Label2: TLabel
    2728    Left = 16
    28     Height = 25
     29    Height = 20
    2930    Top = 67
    30     Width = 159
     31    Width = 115
    3132    Caption = 'Database engine:'
    3233    ParentColor = False
    … …  
    3435  object ComboBox1: TComboBox
    3536    Left = 213
    36     Height = 37
     37    Height = 28
    3738    Top = 67
    38     Width = 252
    39     ItemHeight = 0
     39    Width = 260
     40    ItemHeight = 20
     41    OnChange = ComboBox1Change
    4042    Style = csDropDownList
    4143    TabOrder = 1
    42   end
    43   object EditConnectionString: TEdit
    44     Left = 211
    45     Height = 35
    46     Top = 112
    47     Width = 261
    48     TabOrder = 2
    49   end
    50   object Label3: TLabel
    51     Left = 16
    52     Height = 25
    53     Top = 117
    54     Width = 169
    55     Caption = 'Connection string:'
    56     ParentColor = False
    5744  end
    5845  object ButtonOk: TButton
    … …  
    6451    Caption = 'Ok'
    6552    ModalResult = 1
    66     TabOrder = 3
     53    TabOrder = 2
    6754  end
    6855  object ButtonCancel: TButton
    … …  
    7461    Caption = 'Cancel'
    7562    ModalResult = 2
     63    TabOrder = 3
     64  end
     65  object PageControl1: TPageControl
     66    Left = 15
     67    Height = 250
     68    Top = 116
     69    Width = 586
     70    ActivePage = TabSheetRegistry
     71    Anchors = [akTop, akLeft, akRight]
     72    ShowTabs = False
     73    TabIndex = 3
    7674    TabOrder = 4
     75    object TabSheetXml: TTabSheet
     76      ClientHeight = 242
     77      ClientWidth = 578
     78      object Label3: TLabel
     79        Left = 14
     80        Height = 20
     81        Top = 20
     82        Width = 54
     83        Caption = 'Xml file:'
     84        ParentColor = False
     85      end
     86      object EditXml: TEdit
     87        Left = 92
     88        Height = 28
     89        Top = 21
     90        Width = 372
     91        Anchors = [akTop, akLeft, akRight]
     92        TabOrder = 0
     93      end
     94      object ButtonXmlBrowse: TButton
     95        Left = 472
     96        Height = 31
     97        Top = 16
     98        Width = 94
     99        Anchors = [akTop, akRight]
     100        Caption = 'Browse'
     101        OnClick = ButtonXmlBrowseClick
     102        TabOrder = 1
     103      end
     104    end
     105    object TabSheetSql: TTabSheet
     106      ClientHeight = 242
     107      ClientWidth = 578
     108      object Label4: TLabel
     109        Left = 14
     110        Height = 20
     111        Top = 16
     112        Width = 34
     113        Caption = 'Host:'
     114        ParentColor = False
     115      end
     116      object EditHost: TEdit
     117        Left = 125
     118        Height = 28
     119        Top = 12
     120        Width = 260
     121        TabOrder = 0
     122      end
     123      object Label5: TLabel
     124        Left = 16
     125        Height = 20
     126        Top = 48
     127        Width = 30
     128        Caption = 'Port:'
     129        ParentColor = False
     130      end
     131      object SpinEditPort: TSpinEdit
     132        Left = 125
     133        Height = 28
     134        Top = 48
     135        Width = 111
     136        MaxValue = 65535
     137        TabOrder = 1
     138      end
     139    end
     140    object TabSheetSqlite: TTabSheet
     141      Caption = 'TabSheetSqlite'
     142    end
     143    object TabSheetRegistry: TTabSheet
     144      Caption = 'TabSheetRegistry'
     145    end
     146  end
     147  object OpenDialog1: TOpenDialog
     148    left = 528
     149    top = 32
    77150  end
    78151end
Note: See TracChangeset for help on using the changeset viewer.