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

Comparing ibx/trunk/examples/DBAdmin/dlg/BackupDlgUnit.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 BackupDlg: TBackupDlg
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 = 96
15      Height = 25
# Line 54 | Line 54 | object BackupDlg: TBackupDlg
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 70 | Line 70 | object BackupDlg: TBackupDlg
70          Caption = 'Database Name'
71          ParentColor = False
72        end
73 <      object Edit2: TEdit
73 >      object DBName: TEdit
74          Left = 12
75          Height = 24
76          Top = 72
# Line 78 | Line 78 | object BackupDlg: TBackupDlg
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
# Line 86 | Line 86 | object BackupDlg: TBackupDlg
86          Caption = 'Server Side'
87          TabOrder = 2
88        end
89 <      object RadioButton2: TRadioButton
89 >      object ClientSideBtn: TRadioButton
90          Left = 134
91          Height = 22
92          Top = 112
# Line 104 | Line 104 | object BackupDlg: TBackupDlg
104          Caption = 'Backup File'
105          ParentColor = False
106        end
107 <      object Edit3: TEdit
107 >      object BackupFileName: TEdit
108          Left = 12
109          Height = 24
110          Top = 160
# Line 214 | Line 214 | object BackupDlg: TBackupDlg
214        end
215      end
216    end
217  object IBBackupService1: TIBBackupService
218    ServerName = 'localhost'
219    Protocol = TCP
220    Params.Strings = (
221      'user_name=SYSDBA'
222      ''
223    )
224    TraceFlags = []
225    Verbose = True
226    StatisticsRequested = [bsTotalTime]
227    BackupFileLocation = flClientSide
228    BlockingFactor = 0
229    DatabaseName = 'employee'
230    Options = [NoDBTriggers]
231    left = 312
232    top = 24
233  end
217    object SaveDialog1: TSaveDialog
218      DefaultExt = '.gbk'
219      Filter = 'Backup Files|*.gbk|All Files|*.*'
# Line 238 | Line 221 | object BackupDlg: TBackupDlg
221      left = 309
222      top = 120
223    end
224 +  object IBXClientSideBackupService1: TIBXClientSideBackupService
225 +    ServicesConnection = DatabaseData.IBXServicesConnection1
226 +    TraceFlags = []
227 +    BlockingFactor = 0
228 +    Options = []
229 +    left = 262
230 +    top = 216
231 +  end
232 +  object IBXServerSideBackupService1: TIBXServerSideBackupService
233 +    ServicesConnection = DatabaseData.IBXServicesConnection1
234 +    TraceFlags = []
235 +    BlockingFactor = 0
236 +    Options = []
237 +    StatisticsRequested = [bsTotalTime]
238 +    Verbose = True
239 +    left = 257
240 +    top = 279
241 +  end
242   end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines