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

Comparing ibx/trunk/examples/services/BackupDlgUnit.lfm (file contents):
Revision 208 by tony, Fri Feb 23 12:11:21 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

# Line 1 | Line 1
1   object BackupDlg: TBackupDlg
2 <  Left = 809
2 >  Left = 714
3    Height = 242
4 <  Top = 271
4 >  Top = 224
5    Width = 374
6    Caption = 'Backup Database'
7    ClientHeight = 242
# 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 Bevel1: TBevel
14      Left = 3
15      Height = 198
# Line 32 | Line 32 | object BackupDlg: TBackupDlg
32      Caption = 'Server'
33      ParentColor = False
34    end
35 <  object Edit1: TEdit
35 >  object ServerName: TEdit
36      Left = 12
37      Height = 24
38      Top = 24
# Line 40 | Line 40 | object BackupDlg: TBackupDlg
40      ReadOnly = True
41      TabOrder = 0
42    end
43 <  object Edit2: TEdit
43 >  object DBName: TEdit
44      Left = 12
45      Height = 24
46      Top = 72
# Line 55 | Line 55 | object BackupDlg: TBackupDlg
55      Caption = 'Backup File'
56      ParentColor = False
57    end
58 <  object RadioButton1: TRadioButton
58 >  object ServerSideBtn: TRadioButton
59      Left = 12
60      Height = 22
61      Top = 112
# Line 63 | Line 63 | object BackupDlg: TBackupDlg
63      Caption = 'Server Side'
64      TabOrder = 2
65    end
66 <  object RadioButton2: TRadioButton
66 >  object ClientSideBtn: TRadioButton
67      Left = 134
68      Height = 22
69      Top = 112
# Line 73 | Line 73 | object BackupDlg: TBackupDlg
73      TabOrder = 3
74      TabStop = True
75    end
76 <  object Edit3: TEdit
76 >  object BackupFilename: TEdit
77      Left = 12
78      Height = 24
79      Top = 160
# Line 143 | Line 143 | object BackupDlg: TBackupDlg
143      ModalResult = 2
144      TabOrder = 6
145    end
146  object IBBackupService1: TIBBackupService
147    ServerName = 'localhost'
148    Protocol = TCP
149    Params.Strings = (
150      'user_name=SYSDBA'
151      ''
152    )
153    TraceFlags = []
154    Verbose = True
155    StatisticsRequested = [bsTotalTime]
156    BackupFileLocation = flClientSide
157    BlockingFactor = 0
158    DatabaseName = 'employee'
159    Options = [NoDBTriggers]
160    left = 312
161    top = 24
162  end
146    object SaveDialog1: TSaveDialog
147      DefaultExt = '.gbk'
148      Filter = 'Backup Files|*.gbk|All Files|*.*'
# Line 167 | Line 150 | object BackupDlg: TBackupDlg
150      left = 309
151      top = 120
152    end
153 +  object CSBackupService1: TIBXClientSideBackupService
154 +    ServicesConnection = MainForm.IBXServicesConnection1
155 +    TraceFlags = []
156 +    BlockingFactor = 0
157 +    Options = [NoDBTriggers]
158 +    left = 133
159 +    top = 14
160 +  end
161 +  object SSBackupService1: TIBXServerSideBackupService
162 +    ServicesConnection = MainForm.IBXServicesConnection1
163 +    TraceFlags = []
164 +    OnGetNextLine = SSBackupService1GetNextLine
165 +    BlockingFactor = 0
166 +    Options = [NoDBTriggers]
167 +    StatisticsRequested = [bsTotalTime]
168 +    Verbose = True
169 +    left = 272
170 +    top = 16
171 +  end
172   end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines