procedure TMainForm.UniFormCreate(Sender: TObject);
begin
IBDatabase1.DatabaseName:=UniServerModule.FilesFolderPath+'TEST.FDB';
IBDatabase1.LoginPrompt:=FALSE;
IBDatabase1.Params.CLEAR;
IBDatabase1.Params.Add('user_name=SYSDBA');
IBDatabase1.Params.Add('password=masterkey');
IBDatabase1.Params.Add('lc_ctype=ISO8859_1'); //CHARSET.
IBDatabase1.Open;
IBQuery1.open;
IBEvents1.Registered:=true;
end;
procedure TMainForm.btn_insertClick(Sender: TObject);
var q:TIBQuery;
begin
//