35 |
|
Timer1: TTimer; |
36 |
|
procedure EchoInputChange(Sender: TObject); |
37 |
|
procedure FormShow(Sender: TObject); |
38 |
+ |
procedure IBDatabase1BeforeConnect(Sender: TObject); |
39 |
|
procedure IBXScript1GetParamValue(Sender: TObject; ParamName: string; |
40 |
|
var BlobID: TISC_QUAD); |
41 |
|
procedure IBXScript1LogProc(Sender: TObject; Msg: string); |
72 |
|
DBName.Caption := IBDatabase1.DatabaseName; |
73 |
|
StopOnError.Checked := IBXScript1.StopOnFirstError; |
74 |
|
EchoInput.Checked := IBXScript1.Echo; |
75 |
< |
Application.QueueAsyncCall(@DoOpen,0); |
75 |
> |
// Application.QueueAsyncCall(@DoOpen,0); |
76 |
> |
end; |
77 |
> |
|
78 |
> |
procedure TForm1.IBDatabase1BeforeConnect(Sender: TObject); |
79 |
> |
begin |
80 |
> |
with (Sender as TIBDatabase) do |
81 |
> |
begin |
82 |
> |
LoginPrompt := (Params.IndexOfName('user_name') = -1) or |
83 |
> |
(Params.IndexOfName('password') = -1); |
84 |
> |
end; |
85 |
|
end; |
86 |
|
|
87 |
|
procedure TForm1.EchoInputChange(Sender: TObject); |
148 |
|
end; |
149 |
|
|
150 |
|
procedure TForm1.RunScriptExecute(Sender: TObject); |
141 |
– |
var S: TMemoryStream; |
151 |
|
begin |
152 |
|
ResultsLog.Lines.Clear; |
153 |
< |
S := TMemoryStream.Create; |
145 |
< |
try |
146 |
< |
IBScript.Lines.SaveToStream(S); |
147 |
< |
S.Position := 0; |
148 |
< |
IBXScript1.PerformUpdate(S,true); |
149 |
< |
finally |
150 |
< |
S.Free; |
151 |
< |
end; |
153 |
> |
IBXScript1.RunScript(IBScript.Lines); |
154 |
|
Timer1.Interval := 1000; |
155 |
+ |
EchoInput.Checked := IBXScript1.Echo; |
156 |
+ |
StopOnError.Checked := IBXScript1.StopOnFirstError; |
157 |
+ |
DBName.Caption := IBDatabase1.DatabaseName; |
158 |
|
end; |
159 |
|
|
160 |
|
procedure TForm1.RunScriptUpdate(Sender: TObject); |