forked from motaz/turbobird
-
Notifications
You must be signed in to change notification settings - Fork 0
/
comparison.lfm
333 lines (333 loc) · 10.4 KB
/
comparison.lfm
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
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
object fmComparison: TfmComparison
Left = 303
Height = 628
Top = 182
Width = 710
Caption = 'Database comparison'
ClientHeight = 628
ClientWidth = 710
KeyPreview = True
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnKeyDown = FormKeyDown
Position = poScreenCenter
LCLVersion = '1.2.2.0'
object Label1: TLabel
Left = 15
Height = 13
Top = 112
Width = 125
Caption = 'Original (target) database'
ParentColor = False
end
object laDatabase: TLabel
Left = 226
Height = 13
Top = 112
Width = 64
Caption = 'laDatabase'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 16
Height = 13
Top = 143
Width = 140
Caption = 'Compared (source) database'
ParentColor = False
end
object cbComparedDatabase: TComboBox
Left = 226
Height = 21
Hint = 'All changes from this database to the target database will be listed'
Top = 136
Width = 460
ItemHeight = 13
OnChange = cbComparedDatabaseChange
ParentShowHint = False
ShowHint = True
Style = csDropDownList
TabOrder = 0
end
object laComparedDatabase: TLabel
Left = 226
Height = 13
Top = 176
Width = 10
Caption = '[]'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
end
object bbStart: TBitBtn
Left = 549
Height = 30
Top = 315
Width = 154
Caption = 'Start Comparison'
Default = True
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000080208
04240000002200000006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000152383
45DE1B6130CD0104024500000005FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF000000000200000004000000040000000400000004FFFFFF000000001C238D
4DF027934DFF206F37E6061309570000000DFFFFFF00FFFFFF00000000040000
001F00000040000000490000004600000046000000470000004000000054218F
51F3269752FF27934CFF237B3DF20B25117500000018000000010000001613A1
74D218BC85FF1AB87FFF1BB479FF1DB074FF1EAB6EFF20A768FF22A362FF239F
5DFF259A57FF269651FF28924BFF268540F9113619930000001D0000002115C1
8EFC17C08AFF19BC84FF1AB77EFF1CB379FF1DAF73FF1FAB6DFF20A667FF22A2
61FF239E5CFF259A56FF269550FF28914AFF288943FC0E2C14540000001B14C5
92FC16C38FFF17BF89FF19BB83FF1AB77DFF1CB278FF1DAE72FF1FAA6CFF20A6
66FF22A160FF249D5BFF259955FF27954FFF248442EC081B0D2A0000000710B0
84AC13BF8EF215BA87F316B682F318B27CF31AAE76F31BAA72F21DA66CF41FA8
6AFE21A565FF22A160FF249D5AFF21864AE40F391E37FFFFFF00FFFFFF000000
00040000000E000000120000001000000011000000110000000A000000251CA1
68F11FA96AFF21A465FF1D8851D90B2F1B28FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000161BA5
6EEF1EAC6FFF1A8855CC061E121CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000001119A7
71D9178B5CB301070518FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000030D59
3D1300000006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
OnClick = bbStartClick
TabOrder = 3
end
object meLog: TMemo
Left = 15
Height = 248
Top = 352
Width = 674
Anchors = [akTop, akLeft, akRight, akBottom]
Font.Name = 'Courier 10 Pitch'
ParentFont = False
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 1
end
object laScript: TLabel
Cursor = crHandPoint
Left = 16
Height = 13
Top = 323
Width = 193
Caption = 'Script differences in compared database'
Font.Style = [fsUnderline]
ParentColor = False
ParentFont = False
OnClick = laScriptClick
end
object GroupBox1: TGroupBox
Left = 15
Height = 112
Top = 192
Width = 488
Caption = 'Compared objects'
ClientHeight = 94
ClientWidth = 484
TabOrder = 2
object cxTables: TCheckBox
Left = 11
Height = 17
Top = 4
Width = 51
Caption = 'Tables'
TabOrder = 0
end
object cxGenerators: TCheckBox
Left = 11
Height = 17
Top = 32
Width = 74
Caption = 'Generators'
TabOrder = 1
end
object cxTriggers: TCheckBox
Left = 151
Height = 17
Top = 4
Width = 59
Caption = 'Triggers'
TabOrder = 2
end
object cxViews: TCheckBox
Left = 151
Height = 17
Top = 34
Width = 47
Caption = 'Views'
TabOrder = 3
end
object cxStoredProcs: TCheckBox
Left = 262
Height = 17
Top = 4
Width = 81
Caption = 'Stored Procs'
TabOrder = 4
end
object cxUDFs: TCheckBox
Left = 262
Height = 17
Hint = 'User Defined Functions'
Top = 32
Width = 45
Caption = 'UDFs'
ParentShowHint = False
ShowHint = True
TabOrder = 5
end
object cxDomains: TCheckBox
Left = 390
Height = 17
Top = 4
Width = 60
Caption = 'Domains'
TabOrder = 6
end
object cxRoles: TCheckBox
Left = 390
Height = 17
Top = 34
Width = 46
Caption = 'Roles'
TabOrder = 7
end
object cxExceptions: TCheckBox
Left = 11
Height = 17
Top = 61
Width = 72
Caption = 'Exceptions'
TabOrder = 8
end
end
object StatusBar1: TStatusBar
Left = 0
Height = 20
Top = 608
Width = 710
Panels = <
item
Width = 50
end>
SimplePanel = False
end
object bbClose: TBitBtn
Left = 676
Height = 24
Top = 0
Width = 27
Anchors = [akTop, akRight]
Caption = ' X '
Color = 16249563
Font.Style = [fsBold]
OnClick = bbCloseClick
ParentFont = False
TabOrder = 5
TabStop = False
end
object Label3: TLabel
Left = 13
Height = 98
Top = 8
Width = 697
AutoSize = False
Caption = 'Database comparison tool compares original database structure to another database structure.'#13#10'It generates a script to make the compared (source) database structure become like the original (target) database.'#13#10'For instance, the original database could be a development database, and compared database is an old version that'#13#10'is deployed at a customer. This tool generates a script to make the customer database structure '#13#10'resemble the development database as much as possible.'
Color = clCream
Font.Height = -11
ParentColor = False
ParentFont = False
Transparent = False
WordWrap = True
end
object GroupBox2: TGroupBox
Left = 504
Height = 108
Top = 195
Width = 199
Caption = 'Options'
ClientHeight = 90
ClientWidth = 195
TabOrder = 6
object cxIgnoreLength: TCheckBox
Left = 11
Height = 17
Top = 1
Width = 113
Caption = 'Ignore fields length'
TabOrder = 0
end
object cxRemovedObjects: TCheckBox
Left = 11
Height = 17
Hint = 'Check objects present in source but removed in target database'
Top = 22
Width = 132
Caption = 'Check removed objects'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
end
object bbCancel: TBitBtn
Left = 440
Height = 30
Top = 315
Width = 78
Caption = 'Cancel'
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF0026061A2823051B5E23051B5E2305185E2305185E2305185E2305185E2305
185E2305165E2305165E2305165E22040B43FFFFFF00FFFFFF00FFFFFF001A1A
B30A1B1E97F51A21A2FF1A219EFF1A209BFF1A2097FF1A2094FF1A2090FF1A1F
8DFF1A1F89FF191F86FF191F82FF1B1A6DF622000025FFFFFF00FFFFFF002020
AA181B21A9FF1A21A5FF1A21A2FF1A219EFF1A209BFF1A2097FF1A2094FF1A20
90FF1A1F8DFF1A1F8AFF191F86FF191F82FF2800002DFFFFFF00FFFFFF002020
B5181B21ACFF1B21A9FF1B21A6FF1A21A2FF1A219FFF1A209BFF1A2098FF1A20
94FF1A2091FF1A1F8DFF1A1F8AFF191F86FF2800002DFFFFFF00FFFFFF002020
B5181B22B0FF1B21ADFF1B21A9FF1B21A6FF1A21A2FF1A219FFF1A209BFF1A20
98FF1A2094FF1A2091FF1A1F8DFF1A1F8AFF2800002DFFFFFF00FFFFFF002020
B5181B22B4FF1B22B0FF1B21ADFF1B21A9FF1B21A6FF1A21A2FF1A219FFF1A20
9BFF1A2098FF1A2094FF1A2091FF1A1F8DFF2800002DFFFFFF00FFFFFF002020
BF181B22B7FF1B22B4FF1B22B0FF1B21ADFF1B21A9FF1B21A6FF1A21A2FF1A21
9FFF1A209BFF1A2098FF1A2094FF1A2091FF2800002DFFFFFF00FFFFFF002020
BF181B22BBFF1B22B8FF1B22B4FF1B22B0FF1B21ADFF1B21AAFF1B21A6FF1A21
A3FF1A219FFF1A209CFF1A2098FF1A2095FF2800002DFFFFFF00FFFFFF002020
BF181B23BFFF1B22BBFF1B22B8FF1B22B4FF1B22B1FF1B22ADFF1B21AAFF1B21
A6FF1A21A3FF1A219FFF1A209CFF1A2098FF2800002DFFFFFF00FFFFFF002020
CA181B23C2FF1B23BFFF1B22BBFF1B22B8FF1B22B4FF1B22B1FF1B22ADFF1B21
AAFF1B21A6FF1A21A3FF1A219FFF1A209CFF2800002DFFFFFF00FFFFFF002020
CA181C23C6FF1B23C2FF1B23BFFF1B22BBFF1B22B8FF1B22B4FF1B22B1FF1B22
ADFF1B21AAFF1B21A6FF1A21A3FF1A219FFF2800002DFFFFFF00FFFFFF002020
CA181C23C9FF1C23C6FF1B23C2FF1B23BFFF1B22BCFF1B22B8FF1B22B4FF1B22
B1FF1B22AEFF1B21AAFF1B21A7FF1A21A3FF2800002DFFFFFF00FFFFFF002020
DF081C22C2E11C23CAFF1C23C6FF1B23C3FF1B23BFFF1B22BCFF1B22B8FF1B22
B5FF1B22B1FF1B22AEFF1B21AAFF1D1E95DF33000005FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
}
OnClick = bbCancelClick
TabOrder = 7
end
end