ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/iblocaldb/IBXUpgradeDatabaseDlg.lfm
Revision: 80
Committed: Mon Jan 1 11:31:07 2018 UTC (6 years, 10 months ago) by tony
File size: 1674 byte(s)
Log Message:
Fixes merged into public release

File Contents

# Content
1 object UpgradeDatabaseDlg: TUpgradeDatabaseDlg
2 Left = 528
3 Height = 132
4 Top = 302
5 Width = 324
6 ActiveControl = Panel1
7 BorderStyle = bsNone
8 Caption = 'UpdateDatabaseDlg'
9 ClientHeight = 132
10 ClientWidth = 324
11 OnShow = FormShow
12 Position = poMainFormCenter
13 LCLVersion = '1.8.0.5'
14 object Panel1: TPanel
15 Left = 0
16 Height = 132
17 Top = 0
18 Width = 324
19 Align = alClient
20 BorderStyle = bsSingle
21 ClientHeight = 130
22 ClientWidth = 322
23 TabOrder = 1
24 object Label1: TLabel
25 Left = 58
26 Height = 14
27 Top = 16
28 Width = 190
29 Caption = 'Updating Database Schema'
30 Font.Style = [fsBold]
31 ParentColor = False
32 ParentFont = False
33 end
34 object Status: TLabel
35 Left = 23
36 Height = 34
37 Top = 48
38 Width = 279
39 Alignment = taCenter
40 AutoSize = False
41 Caption = 'Status'
42 ParentColor = False
43 WordWrap = True
44 end
45 end
46 object ProgressBar1: TProgressBar
47 Left = 23
48 Height = 20
49 Top = 96
50 Width = 279
51 Smooth = True
52 TabOrder = 0
53 end
54 object Timer1: TTimer
55 Enabled = False
56 Interval = 200
57 OnTimer = HandleCompletionEvent
58 left = 270
59 top = 16
60 end
61 object IBXScript: TIBXScript
62 IgnoreGrants = True
63 Transaction = UpdateTransaction
64 ShowAffectedRows = False
65 ShowPerformanceStats = False
66 OnOutputLog = IBXScriptLogProc
67 OnErrorLog = IBXScriptLogProc
68 OnProgressEvent = IBXScriptProgressEvent
69 left = 272
70 top = 48
71 end
72 object UpdateTransaction: TIBTransaction
73 Active = False
74 Params.Strings = (
75 'concurrency'
76 'wait'
77 )
78 left = 232
79 top = 48
80 end
81 end