为什么我用谁的用户名和密码登陆都是显示数据库中第一个记录的信息??

                            
我有一个问题,就是我在数据库中有很多人的卡号,密码,做一个简单的ATM   
  是不是我用什么人的用户名和密码登录,就显示谁的信息,但不知为什么,我不论用数据库中的谁的用户名和密码,都显示数据库中第一个建的用户信息(第一个记录的信息)。  
  下面是两个窗体的部分代码?既是从用户输入卡号,密码后跳到存款的窗体上的两段代码/  
   
  implementation  
   
  uses   Udemo3;  
   
  {$R   *.dfm}  
   
  procedure   TForm2.SpeedButton1Click(Sender:   TObject);  
  begin  
  with   table1   do  
  begin  
  Indexname:='KH1';{卡号的索引}  
  Open;  
  setKey;  
  FieldByname('卡号').AsString:=Edit1.Text;  
  GotoNearest;  
  IndexName:='PASS1';     {密码的索引}  
  open;  
  SetKey;  
  fieldbyName('密码').AsString:=Edit2.text;  
  GotoNearest;  
  if((DBEdit1.Text   <>edit1.Text)or(DBedit2.text<>Edit2.text))   then  
  showMessage('对不起,没有该用户!')  
  else  
  form3.show;  
  end;  
  end;  
   
  end.  
   
   
   
  \\\\\\\\\\\\\\\\\\\\  
  implementation  
   
  {$R   *.dfm}  
   
  procedure   TForm3.SpeedButton1Click(Sender:   TObject);  
  var  
  R1:real;  
  R2:real;  
  Code1:Integer;  
  Code2:Integer;  
  s1:string;  
  s2:string;  
  s3:string;  
  begin  
  Table1.Edit;  
  s1:=DBEdit5.Text;  
  s2:=edit1.Text;  
  Val(s1,R1,Code1);  
  Val(s2,R2,code2);  
  STR(R1+R2,s3);  
  DBEdit5.text:=s3;  
  table1.Post;  
  edit1.Text:='';  
  showmessage('存款业务结束,下次再见!');  
  end;  
  end.  
   
  还有我好象用GoToNearest一定要建索引,这个索引再程序中,我实在看不出有什么用,大家也帮我解释一下。

查看回复

相关问题