void __fastcall TForm1::Button1Click(TObject *Sender)
    {
      try
      {
        int  passcount; // passcount是整数?
        AnsiString sql;
        sql="select * from users where u_name='"
        +Edi_user->Text
        +"'and u_passwd='"
        +Edi_pass->Text
        +"'";        ADOQuery1->SQL->Add(sql);
        ADOQuery1->Close();
        ADOQuery1->Open();
        if(ADOQuery1->RecordCount==1)
        {
          Frm_Login->Hide();
          TFrm_Main=new TFrm_Main(Application);
          Frm_Main->ShowModal();
        }
        else if(passcount<=2)    // passcount是整数?
        {
          passcount++;
          Application->MessageBox("密码输入错误,请重新输入!","错误",MB_ICONWARNING);
          passcount++;
          Edi_pass->Text="";
          Edi_pass->SetFocus();
        }
        else
        {
          Application->Terminate();
        }
      }
      catch(...)
      {
        return;
      }
    }