Skip to content
This repository
tree: 425299ab2a
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 189 lines (188 sloc) 3.689 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188
object fmComparison: TfmComparison
  Left = 447
  Height = 478
  Top = 170
  Width = 623
  Caption = 'Database comparison'
  ClientHeight = 478
  ClientWidth = 623
  OnClose = FormClose
  Position = poScreenCenter
  LCLVersion = '0.9.31'
  object Label1: TLabel
    Left = 13
    Height = 18
    Top = 16
    Width = 129
    Caption = 'Compare database'
    ParentColor = False
  end
  object laDatabase: TLabel
    Left = 156
    Height = 18
    Top = 16
    Width = 81
    Caption = 'laDatabase'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Label2: TLabel
    Left = 13
    Height = 18
    Top = 47
    Width = 99
    Caption = 'With database'
    ParentColor = False
  end
  object cbComparedDatabase: TComboBox
    Left = 156
    Height = 31
    Top = 38
    Width = 460
    ItemHeight = 0
    OnChange = cbComparedDatabaseChange
    Style = csDropDownList
    TabOrder = 0
  end
  object laComparedDatabase: TLabel
    Left = 156
    Height = 18
    Top = 74
    Width = 12
    Caption = '[]'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object bbStart: TBitBtn
    Left = 13
    Height = 30
    Top = 184
    Width = 154
    Caption = 'Start Comparison'
    OnClick = bbStartClick
    TabOrder = 1
  end
  object meLog: TMemo
    Left = 13
    Height = 224
    Top = 222
    Width = 603
    Anchors = [akTop, akLeft, akRight, akBottom]
    Font.Name = 'Courier 10 Pitch'
    Font.Style = [fsUnderline]
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssAutoBoth
    TabOrder = 2
  end
  object laScript: TLabel
    Cursor = crHandPoint
    Left = 187
    Height = 18
    Top = 196
    Width = 301
    Caption = 'Script missing objects in compared database'
    Font.Style = [fsUnderline]
    ParentColor = False
    ParentFont = False
    OnClick = laScriptClick
  end
  object GroupBox1: TGroupBox
    Left = 15
    Height = 79
    Top = 101
    Width = 601
    Caption = 'Compared objects'
    ClientHeight = 60
    ClientWidth = 597
    TabOrder = 3
    object cxTables: TCheckBox
      Left = 11
      Height = 24
      Top = 4
      Width = 69
      Caption = 'Tables'
      TabOrder = 0
    end
    object cxGenerators: TCheckBox
      Left = 11
      Height = 24
      Top = 32
      Width = 102
      Caption = 'Generators'
      TabOrder = 1
    end
    object cxTriggers: TCheckBox
      Left = 151
      Height = 24
      Top = 4
      Width = 80
      Caption = 'Triggers'
      TabOrder = 2
    end
    object cxViews: TCheckBox
      Left = 151
      Height = 24
      Top = 34
      Width = 66
      Caption = 'Views'
      TabOrder = 3
    end
    object cxStoredProcs: TCheckBox
      Left = 262
      Height = 24
      Top = 4
      Width = 113
      Caption = 'Stored Procs'
      TabOrder = 4
    end
    object cxUDFs: TCheckBox
      Left = 262
      Height = 24
      Hint = 'User Defined Functions'
      Top = 32
      Width = 61
      Caption = 'UDFs'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
    end
    object cxDomains: TCheckBox
      Left = 390
      Height = 24
      Top = 4
      Width = 85
      Caption = 'Domains'
      TabOrder = 6
    end
    object cxRoles: TCheckBox
      Left = 390
      Height = 24
      Top = 34
      Width = 63
      Caption = 'Roles'
      TabOrder = 7
    end
    object cxUsers: TCheckBox
      Left = 495
      Height = 24
      Top = 4
      Width = 64
      Caption = 'Users'
      TabOrder = 8
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Height = 21
    Top = 457
    Width = 623
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
end
Something went wrong with that request. Please try again.