examples/services/Unit1.lfm

object Form1: TForm1
  Left = 652
  Height = 371
  Top = 409
  Width = 622
  Caption = 'Server Properties'
  ClientHeight = 371
  ClientWidth = 622
  DefaultMonitor = dmPrimary
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.0.4'
  object Memo1: TMemo
    Left = 8
    Height = 295
    Top = 9
    Width = 603
    Anchors = [akTop, akLeft, akRight, akBottom]
    ScrollBars = ssAutoVertical
    TabOrder = 0
  end
  object Button1: TButton
    Left = 535
    Height = 25
    Top = 312
    Width = 75
    Anchors = [akRight, akBottom]
    Caption = 'Close'
    OnClick = Button1Click
    TabOrder = 1
  end
  object Button2: TButton
    Left = 8
    Height = 25
    Top = 313
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Backup'
    OnClick = Button2Click
    TabOrder = 2
  end
  object Button3: TButton
    Left = 88
    Height = 25
    Top = 313
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Restore'
    OnClick = Button3Click
    TabOrder = 3
  end
  object Button4: TButton
    Left = 168
    Height = 25
    Top = 313
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Server Log'
    OnClick = Button4Click
    TabOrder = 4
  end
  object Button5: TButton
    Left = 248
    Height = 25
    Top = 312
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Statistics'
    OnClick = Button5Click
    TabOrder = 5
  end
  object Button6: TButton
    Left = 328
    Height = 25
    Top = 312
    Width = 75
    Caption = 'Users'
    OnClick = Button6Click
    TabOrder = 6
  end
  object Button7: TButton
    Left = 408
    Height = 25
    Top = 312
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Validate'
    OnClick = Button7Click
    TabOrder = 7
  end
  object Button8: TButton
    Left = 9
    Height = 25
    Top = 344
    Width = 151
    Caption = 'Limbo Transactions'
    OnClick = Button8Click
    TabOrder = 8
  end
  object IBServerProperties1: TIBServerProperties
    ServerName = 'localhost'
    Protocol = TCP
    Params.Strings = (
      'user_name=SYSDBA'
      ''
    )
    TraceFlags = []
    Options = []
    left = 320
    top = 24
  end
  object IBLogService1: TIBLogService
    ServerName = 'localhost'
    Protocol = TCP
    TraceFlags = []
    left = 320
    top = 72
  end
  object IBStatisticalService1: TIBStatisticalService
    ServerName = 'localhost'
    Protocol = TCP
    TraceFlags = []
    DatabaseName = 'employee'
    Options = [HeaderPages]
    left = 320
    top = 112
  end
  object IBValidationService1: TIBValidationService
    ServerName = 'localhost'
    Protocol = TCP
    TraceFlags = []
    DatabaseName = 'employee'
    Options = [ValidateFull]
    GlobalAction = CommitGlobal
    left = 320
    top = 160
  end
end
Revision:	68
Committed:	Tue Oct 17 10:07:58 2017 UTC (7 years, 1 month ago) by tony
File size:	2759 byte(s)
Log Message:	IBX: Editor Positioning tidy up FBINTF: Trap uninitialised SQL parameters on SQL Exec. Avoids Unknown SQL Type errors. Consistent setting of Modified (SQLParam).
#	Content
1	object Form1: TForm1
2	Left = 652
3	Height = 371
4	Top = 409
5	Width = 622
6	Caption = 'Server Properties'
7	ClientHeight = 371
8	ClientWidth = 622
9	DefaultMonitor = dmPrimary
10	OnShow = FormShow
11	Position = poScreenCenter
12	LCLVersion = '1.8.0.4'
13	object Memo1: TMemo
14	Left = 8
15	Height = 295
16	Top = 9
17	Width = 603
18	Anchors = [akTop, akLeft, akRight, akBottom]
19	ScrollBars = ssAutoVertical
20	TabOrder = 0
21	end
22	object Button1: TButton
23	Left = 535
24	Height = 25
25	Top = 312
26	Width = 75
27	Anchors = [akRight, akBottom]
28	Caption = 'Close'
29	OnClick = Button1Click
30	TabOrder = 1
31	end
32	object Button2: TButton
33	Left = 8
34	Height = 25
35	Top = 313
36	Width = 75
37	Anchors = [akLeft, akBottom]
38	Caption = 'Backup'
39	OnClick = Button2Click
40	TabOrder = 2
41	end
42	object Button3: TButton
43	Left = 88
44	Height = 25
45	Top = 313
46	Width = 75
47	Anchors = [akLeft, akBottom]
48	Caption = 'Restore'
49	OnClick = Button3Click
50	TabOrder = 3
51	end
52	object Button4: TButton
53	Left = 168
54	Height = 25
55	Top = 313
56	Width = 75
57	Anchors = [akLeft, akBottom]
58	Caption = 'Server Log'
59	OnClick = Button4Click
60	TabOrder = 4
61	end
62	object Button5: TButton
63	Left = 248
64	Height = 25
65	Top = 312
66	Width = 75
67	Anchors = [akLeft, akBottom]
68	Caption = 'Statistics'
69	OnClick = Button5Click
70	TabOrder = 5
71	end
72	object Button6: TButton
73	Left = 328
74	Height = 25
75	Top = 312
76	Width = 75
77	Caption = 'Users'
78	OnClick = Button6Click
79	TabOrder = 6
80	end
81	object Button7: TButton
82	Left = 408
83	Height = 25
84	Top = 312
85	Width = 75
86	Anchors = [akLeft, akBottom]
87	Caption = 'Validate'
88	OnClick = Button7Click
89	TabOrder = 7
90	end
91	object Button8: TButton
92	Left = 9
93	Height = 25
94	Top = 344
95	Width = 151
96	Caption = 'Limbo Transactions'
97	OnClick = Button8Click
98	TabOrder = 8
99	end
100	object IBServerProperties1: TIBServerProperties
101	ServerName = 'localhost'
102	Protocol = TCP
103	Params.Strings = (
104	'user_name=SYSDBA'
105	''
106	)
107	TraceFlags = []
108	Options = []
109	left = 320
110	top = 24
111	end
112	object IBLogService1: TIBLogService
113	ServerName = 'localhost'
114	Protocol = TCP
115	TraceFlags = []
116	left = 320
117	top = 72
118	end
119	object IBStatisticalService1: TIBStatisticalService
120	ServerName = 'localhost'
121	Protocol = TCP
122	TraceFlags = []
123	DatabaseName = 'employee'
124	Options = [HeaderPages]
125	left = 320
126	top = 112
127	end
128	object IBValidationService1: TIBValidationService
129	ServerName = 'localhost'
130	Protocol = TCP
131	TraceFlags = []
132	DatabaseName = 'employee'
133	Options = [ValidateFull]
134	GlobalAction = CommitGlobal
135	left = 320
136	top = 160
137	end
138	end