Rookie question about the database query problem?

Category: Delphi -> Database Author: log54321log Date: 2001-07-10 08:57:55
 
log54321log
2001-07-10 08:57:55
In the two edit boxes and enter a user name and password, and then find the data sheet, locate the execution form1.show,
dynamic queries using query, how to determine the records to find that in between if and then add some of what the code

procedure TForm5.SeSkinButton1Click (Sender: TObject);
begin
if Qurry1.active then
query1.active: = False;
Query1.Parambyname [txt1]. AsString: = Trim (FlatEdit1.Text);
Query1.Parambyname [txt2]. AsString: = Trim (FlatEdit2.Text);
Query1.Active: = true;
if {meet the conditions Records found} then
begin
Form1.Show;
Form5.Hide ;
Form5.Free;
end
else
begin
messagebeep (0);
showmessage ('user name or password is incorrect!');
end ;
end;
ma176941799
2001-07-10 09:02:10
if Query1.RecordCount> 0 then ......