Zeoslib Portal

Code: Select all

unit UMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, DB, ZConnection,
  ZAbstractRODataset, ZAbstractDataset, ZDataset, ZAbstractTable, ADODB;

type
  TForm2 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    btnOpen: TButton;
    cbWithANSIParams: TCheckBox;
    Connection: TZConnection;
    qRiportokNevTipus: TZQuery;
    procedure btnOpenClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.btnOpenClick(Sender: TObject);
var
  datum: TDate;
begin

	Connection.Protocol:='ado';
	Connection.Database:='Provider=SQLNCLI10.1;Integrated Security="";'
                      +'Persist Security Info=False;User ID=sslogin;'
                      +'Initial Catalog=SmartStorage;Data Source=PERGERLPTW7;'
                      +'Initial File Name="";Server SPN=""';
  Connection.Connected:=false;
  Connection.Connected:=true;

  if cbWithANSIParams.Checked then  // Switch for FALSE param
  begin
    qRiportokNevTipus.Active:=false;
    qRiportokNevTipus.ParamByName('NEV').AsString:='AAA';
    qRiportokNevTipus.ParamByName('TIPUS').AsInteger:=1;
    qRiportokNevTipus.Active:=true;
  end;

  //if qRiportokNevTipus.Active then begin
  qRiportokNevTipus.Active:=false;
  //** OOOOOHHHH --- ***
  //qRiportokNevTipus.ParamCheck:=true;
  // If I do not call this line I got empty resultset
  // if I call ParamCheck I got results???
  //end;
  qRiportokNevTipus.ParamByName('NEV').AsString:='Fordított adózás - egészre kerekít';
  qRiportokNevTipus.ParamByName('TIPUS').AsInteger:=1;
  qRiportokNevTipus.ParamByName('NEV').DataType:=ftWideString;
  qRiportokNevTipus.Active:=true;
end;

end.

Code: Select all

SELECT
  FAZONOSITO,
  FRIPORT,
  FIDO,
  FUSER
FROM
  TRIPORTOK
WHERE
  FNEV = :NEV AND
  FTIPUS = :TIPUS