Zeoslib Portal

Code: Select all

 ZQuery1.SQL.Text := ':pParam1 :pParam2 :pParam3';
 ZQuery1.Params[0].AsDateTime := Now;
 ZQuery1.Params[1].AsDateTime := Now;
 ZQuery1.Params[2].AsString := 'Hello, world';

 ZQuery1.SQL.Text := ':pParam5';
 If Not ZQuery1.Params[0].IsNull Then
   ShowMessage(ZQuery1.Params[0].AsString);

Code: Select all

Var
 dict: TDictionary<String, Variant>;
 a: Integer;
begin
 dict := TDictionary<String, Variant>.Create;
 Try
  ZQuery1.SQL.Text := ':pParam1 :pParam2 :pParam3';
  ZQuery1.Params[0].AsDateTime := Now;
  ZQuery1.Params[1].AsDateTime := Now;
  ZQuery1.Params[2].AsString := 'Hello, world';

  For a := 0 To ZQuery1.Params.Count - 1 Do
   dict.AddOrSetValue(ZQuery1.Params[a].Name, ZQuery1.Params[a].Value);
 Finally
  FreeAndNil(dict);
 End;
End;

Code: Select all

ZQuery.SQL.Text := ':param1';
ZQuery.Params[0].AsDateTime := Now;

ZQuery.SQL.Text := ':param2';
ShowMessage(ZQuery.Params[0].AsString);

Code: Select all

ZQuery.SQL.Text := ':param1 :param2';
ZQuery.Params[0].AsDateTime := Now;
ZQuery.Params[1].AsString := 'Hello, world!'

ZQuery.SQL.Text := ':param2';
ShowMessage(ZQuery.Params[0].AsString);

Code: Select all

select X.* from (
  SELECT ID, Name, Surname, birthday, cast(EXTRACT(month from birthday) * 100 + Extract(day from birthday) as integer) as birthday_c
  FROM clients C
  WHERE (remindme = 'y') AND ((state <> 'dead') or (state is null)) and ((cast(:USERID as idtype) in (Advisor1, Advisor2)) or (cast(:CanSeeAllClients as yesno) = 'y'))
)
AS X
/* has to be added / changed by code: */
/* where birthday_c >= :MINDAY and birthday_c <= :MAXDAY */

Code: Select all

    BirthdaysQ.ParamByName('USERID').AsString := frmDatamodule.UserID;
    BirthdaysQ.ParamByName('CanSeeAllClients').AsString := frmDatamodule.CheckUserPermissionDB(psSeeAllClients);

Code: Select all

procedure TStartformularGeburtstageFrame.ApplyChangedBirthdayParams;
var
  StartDate, EndDate: TDate;
  from, until: Integer;
  y, m, d: Word;
begin
  StartDate := IncDay(date, BackDaysEdt.Value * (-1));
  EndDate := IncDay(date, NextDaysEdt.Value);

  DecodeDate(StartDate, y, m, d);
  from := m * 100 + d;
  DecodeDate(EndDate, y, m, d);
  until := m * 100 + d;

  if from <= until then
    // All is in the same year
    with ZQ_Partner.SQL do Strings[Count - 1] := 'where birthday_c >= :MINDAY and birthday_c <= :MAXDAY'
  else
    // Look in old and new year
    with ZQ_Partner.SQL do Strings[Count - 1] := 'where birthday_c >= :MINDAY or  birthday_c <= :MAXDAY';

  BirthdaysQ.Close;
  BirthdaysQ.ParamByName('minday').AsInteger := from;
  BirthdaysQ.ParamByName('maxday').AsInteger := until;
  BirthdaysQ.Open;
end;

Code: Select all

Constructor Create;
Begin
 [...]
 SQLQuery.SQL.Text := 'SELECT * FROM MyTable WHERE MyField = :pParam1';
 SQLQuery.ParamByName('pParam1').AsDateTime := Now;
End;

Procedure AdditionalFilters(Const inID: UInt64);
Begin
 SQLQuery.SQL.Text := SQLQuery.SQL.Text + ' AND ID = :pID';
 SQLQuery.ParamByname('pID').AsUInt64 := inID;
End;

Code: Select all

procedure TParams.AssignValues(Value: TParams);
var
  I: Integer;
  P: TParam;
begin
  for I := 0 to Value.Count - 1 do
  begin
    P := FindParam(Value[I].Name);
    if P <> nil then
      P.Assign(Value[I]);
  end;
end;