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

Comparing ibx/trunk/examples/services/MainFormUnit.lfm (file contents):
Revision 208 by tony, Sat Feb 24 23:16:18 2018 UTC vs.
Revision 209 by tony, Wed Mar 14 12:48:51 2018 UTC

# Line 9 | Line 9 | object MainForm: TMainForm
9    DefaultMonitor = dmPrimary
10    OnShow = FormShow
11    Position = poScreenCenter
12 <  LCLVersion = '1.8.1.0'
12 >  LCLVersion = '1.8.3.0'
13    object Memo1: TMemo
14      Left = 8
15      Height = 295
# Line 78 | Line 78 | object MainForm: TMainForm
78      OnClick = UsersBtnClick
79      TabOrder = 6
80    end
81 <  object IBServerProperties1: TIBServerProperties
82 <    ServerName = 'Localhost'
83 <    Protocol = TCP
84 <    Params.Strings = (
85 <      'user_name=SYSDBA'
86 <      'sql_role_name=RDB$ADMIN'
87 <    )
81 >  object IBServerProperties1: TIBXServerProperties
82 >    ServicesConnection = IBXServicesConnection1
83      TraceFlags = []
89    OnLogin = IBServerProperties1Login
90    Options = []
84      left = 320
85      top = 24
86    end
87 <  object IBLogService1: TIBLogService
88 <    ServerName = 'localhost'
96 <    Protocol = TCP
87 >  object IBLogService1: TIBXLogService
88 >    ServicesConnection = IBXServicesConnection1
89      TraceFlags = []
90      left = 320
91      top = 72
92    end
93 <  object IBStatisticalService1: TIBStatisticalService
94 <    ServerName = 'localhost'
103 <    Protocol = TCP
93 >  object IBStatisticalService1: TIBXStatisticalService
94 >    ServicesConnection = IBXServicesConnection1
95      TraceFlags = []
96      DatabaseName = 'employee'
97      Options = [DataPages]
98      left = 320
99      top = 112
100    end
101 <  object IBValidationService1: TIBValidationService
102 <    ServerName = 'localhost'
112 <    Protocol = TCP
101 >  object IBValidationService1: TIBXValidationService
102 >    ServicesConnection = IBXServicesConnection1
103      TraceFlags = []
104      DatabaseName = 'employee'
105      Options = [ValidateFull]
116    GlobalAction = CommitGlobal
106      left = 320
107      top = 160
108    end
109 <  object IBOnlineValidationService1: TIBOnlineValidationService
110 <    ServerName = 'localhost'
122 <    Protocol = TCP
109 >  object IBOnlineValidationService1: TIBXOnlineValidationService
110 >    ServicesConnection = IBXServicesConnection1
111      TraceFlags = []
112      DatabaseName = 'employee'
113      left = 320
# Line 177 | Line 165 | object MainForm: TMainForm
165        Action = Shutdown
166      end
167    end
168 <  object IBConfigService1: TIBConfigService
168 >  object IBConfigService1: TIBXConfigService
169 >    ServicesConnection = IBXServicesConnection1
170      TraceFlags = []
171      left = 466
172      top = 188
173    end
174 +  object IBXServicesConnection1: TIBXServicesConnection
175 +    Connected = False
176 +    OnLogin = IBXServicesConnection1Login
177 +    ConnectString = 'localhost:service_mgr'
178 +    Protocol = TCP
179 +    Params.Strings = (
180 +      'sql_role_name=RDB$ADMIN'
181 +      'user_name=SYSDBA'
182 +    )
183 +    ServerName = 'localhost'
184 +    TraceFlags = []
185 +    OnSecurityContextException = IBXServicesConnection1SecurityContextException
186 +    left = 128
187 +    top = 35
188 +  end
189   end

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines