ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/dlg/RestoreDlgUnit.lfm
(Generate patch)

Comparing ibx/trunk/examples/DBAdmin/dlg/RestoreDlgUnit.lfm (file contents):
Revision 208 by tony, Thu Mar 1 11:23:33 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

# Line 9 | Line 9 | object RestoreDlg: TRestoreDlg
9    OnClose = FormClose
10    OnShow = FormShow
11    Position = poMainFormCenter
12 <  LCLVersion = '1.8.1.0'
12 >  LCLVersion = '1.8.3.0'
13    object Button1: TButton
14      Left = 128
15      Height = 25
# Line 54 | Line 54 | object RestoreDlg: TRestoreDlg
54          Caption = 'Server'
55          ParentColor = False
56        end
57 <      object Edit1: TEdit
57 >      object ServerName: TEdit
58          Left = 12
59          Height = 24
60          Top = 24
# Line 78 | Line 78 | object RestoreDlg: TRestoreDlg
78          ReadOnly = True
79          TabOrder = 1
80        end
81 <      object RadioButton1: TRadioButton
81 >      object ServerSideBtn: TRadioButton
82          Left = 12
83          Height = 22
84          Top = 112
85          Width = 93
86          Caption = 'Server Side'
87        Checked = True
87          TabOrder = 2
89        TabStop = True
88        end
89 <      object RadioButton2: TRadioButton
89 >      object ClientSideBtn: TRadioButton
90          Left = 134
91          Height = 22
92          Top = 112
93          Width = 88
94          Caption = 'Client Side'
95 +        Checked = True
96          TabOrder = 3
97 +        TabStop = True
98        end
99        object Label3: TLabel
100          Left = 12
# Line 272 | Line 272 | object RestoreDlg: TRestoreDlg
272      left = 368
273      top = 24
274    end
275 <  object IBRestoreService1: TIBRestoreService
276 <    ServerName = 'localhost'
277 <    Protocol = TCP
278 <    Params.Strings = (
279 <      'user_name=SYSDBA'
280 <    )
275 >  object IBXClientSideRestoreService1: TIBXClientSideRestoreService
276 >    ServicesConnection = DatabaseData.IBXServicesConnection1
277      TraceFlags = []
278 <    Verbose = True
278 >    OnGetNextLine = IBXClientSideRestoreService1GetNextLine
279 >    PageSize = 0
280 >    PageBuffers = 0
281 >    Options = [Replace]
282      StatisticsRequested = [bsTotalTime]
283 <    BackupFileLocation = flClientSide
284 <    DatabaseName.Strings = (
285 <      '/tmp/mytest.fdb'
286 <    )
283 >    Verbose = True
284 >    left = 224
285 >    top = 208
286 >  end
287 >  object IBXServerSideRestoreService1: TIBXServerSideRestoreService
288 >    ServicesConnection = DatabaseData.IBXServicesConnection1
289 >    TraceFlags = []
290 >    OnGetNextLine = IBXClientSideRestoreService1GetNextLine
291      PageSize = 0
292      PageBuffers = 0
293      Options = [Replace]
294 <    left = 272
295 <    top = 16
294 >    StatisticsRequested = [bsTotalTime]
295 >    Verbose = True
296 >    left = 232
297 >    top = 32
298    end
299   end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines