Zeoslib Portal

procedure TForm1.Button1Click(Sender: TObject);
var
ZConnection1: TZConnection;
Query1: TZQuery;
Datasource1: TDatasource;
I: Integer;
ICount: Integer;
// Time: TDateTime;
begin
screen.Cursor := crSQLWait;
ZConnection1 := TZConnection.Create(Self);
ZConnection1.Protocol := 'oracle';
ZConnection1.Database := 'HPNDCW5';
ZConnection1.User := 'pnd';
ZConnection1.Password := 'pnd';
ZConnection1.Connect ;

Query1 := TZQuery.Create(Self);
Query1.Connection := ZConnection1;
Query1.Active := false;
Label2.Caption := 'Before Select : ' + TimeToStr(Time);
Query1.SQL.Clear;
Query1.SQL.Add('select NOMSCR,CHPSCR,IDTENT,CHPDIC from cwd16') ;
Query1.Active := true;
Label3.Caption := 'After Select : ' + TimeToStr(Time);

Query1.First;
Label4.Caption := 'After First: ' + TimeToStr(Time);
ICount := Query1.RecordCount;
Label5.Caption := 'After RecordCount: ' + TimeToStr(Time);
for I := 0 to ICount do
begin

// Label1.Caption := Query1.Fields[0].Text;
Query1.Next;

end;
Label6.Caption := 'After for : ' + TimeToStr(Time);


{ Datasource1 := TDatasource.Create(Self) ;
Datasource1.AutoEdit := false;
Datasource1.Enabled := true;
Datasource1.DataSet := Query1;
DBGrid1.DataSource := Datasource1;
}
screen.Cursor := crDefault;

end;