-
Notifications
You must be signed in to change notification settings - Fork 6
Expand file tree
/
Copy pathUnit1.dfm
More file actions
248 lines (248 loc) · 4.79 KB
/
Unit1.dfm
File metadata and controls
248 lines (248 loc) · 4.79 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
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
object Form1: TForm1
Left = 44
Top = 161
Caption = 'Metadata extractor'
ClientHeight = 502
ClientWidth = 784
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
DesignSize = (
784
502)
PixelsPerInch = 96
TextHeight = 13
object Label3: TLabel
Left = 8
Top = 24
Width = 75
Height = 13
Caption = 'Database name'
end
object LabelUserM: TLabel
Left = 176
Top = 24
Width = 22
Height = 13
Caption = 'User'
end
object LabelPswdM: TLabel
Left = 256
Top = 24
Width = 46
Height = 13
Caption = 'Password'
end
object LabelServerM: TLabel
Left = 8
Top = 64
Width = 61
Height = 13
Caption = 'Server name'
end
object Label11: TLabel
Left = 136
Top = 84
Width = 55
Height = 13
Caption = 'Table name'
end
object MemoScript: TRichEdit
Left = 8
Top = 232
Width = 777
Height = 273
Anchors = [akLeft, akTop, akRight, akBottom]
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
Lines.Strings = (
'< Script is empty >')
ParentFont = False
ScrollBars = ssBoth
TabOrder = 1
end
object MemoLog: TRichEdit
Left = 8
Top = 128
Width = 777
Height = 97
Anchors = [akLeft, akTop, akRight]
Font.Charset = RUSSIAN_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = []
Lines.Strings = (
'< Log >')
ParentFont = False
ReadOnly = True
ScrollBars = ssBoth
TabOrder = 2
end
object ProgressBarM: TProgressBar
Left = 200
Top = 106
Width = 137
Height = 17
TabOrder = 3
end
object Panel2: TPanel
Left = 8
Top = 2
Width = 273
Height = 17
BevelOuter = bvNone
TabOrder = 4
object rbMIB: TRadioButton
Left = 8
Top = 0
Width = 73
Height = 17
Caption = 'InterBase'
Checked = True
TabOrder = 0
TabStop = True
OnClick = rbMClick
end
object rbMMS: TRadioButton
Left = 80
Top = 0
Width = 65
Height = 17
Caption = 'MS SQL'
TabOrder = 1
OnClick = rbMClick
end
object rbMMY: TRadioButton
Left = 144
Top = 0
Width = 65
Height = 17
Caption = 'MySQL'
TabOrder = 2
Visible = False
OnClick = rbMClick
end
end
object EditDBNameM: TEdit
Left = 8
Top = 40
Width = 161
Height = 21
TabOrder = 5
end
object EditUserM: TEdit
Left = 176
Top = 40
Width = 81
Height = 21
TabOrder = 6
end
object EditPswdM: TEdit
Left = 256
Top = 40
Width = 81
Height = 21
TabOrder = 7
end
object cbAuthM: TCheckBox
Left = 176
Top = 61
Width = 161
Height = 17
Caption = 'Windows authentication'
TabOrder = 8
OnClick = rbMClick
end
object EditServerM: TEdit
Left = 8
Top = 80
Width = 121
Height = 21
TabOrder = 9
end
object BtnExtractDb: TBitBtn
Left = 368
Top = 8
Width = 145
Height = 25
Caption = 'Extract database'
TabOrder = 0
OnClick = BtnExtractDbClick
end
object EditTableM: TEdit
Left = 200
Top = 80
Width = 137
Height = 21
TabOrder = 10
end
object BtnExtractMetadata: TBitBtn
Left = 368
Top = 40
Width = 145
Height = 25
Caption = 'Extract metadata'
Enabled = False
TabOrder = 11
OnClick = BtnExtractMetadataClick
end
object BtnExtractTable: TBitBtn
Left = 368
Top = 80
Width = 145
Height = 25
Caption = 'Extract table'
Enabled = False
TabOrder = 12
OnClick = BtnExtractTableClick
end
object OpenDialog: TOpenDialog
Filter = 'Local SQL script (*.SQL)|*.sql|All files|*.*'
Left = 376
Top = 128
end
object DBCConnection: TDBCConnection
OnErrorMessage = LogErrorMessage
Left = 176
Top = 128
end
object IBDBExtract: TIBDBExtract
DBCConnection = DBCConnection
DBStructure = DBStructure
OnLogNextLine = LogNextLine
OnErrorMessage = LogErrorMessage
Left = 200
Top = 248
end
object MSSQLDBExtract: TMSSQLDBExtract
DBCConnection = DBCConnection
DBStructure = DBStructure
OnLogNextLine = LogNextLine
OnErrorMessage = LogErrorMessage
Left = 288
Top = 248
end
object MySQLDBExtract: TMySQLDBExtract
DBCConnection = DBCConnection
DBStructure = DBStructure
OnLogNextLine = LogNextLine
OnErrorMessage = LogErrorMessage
Left = 384
Top = 248
end
object DBStructure: TDBStructure
Left = 200
Top = 304
end
end