Chinaunix首页 | 论坛 | 博客
  • 博客访问: 2341440
  • 博文数量: 816
  • 博客积分: 10000
  • 博客等级: 上将
  • 技术积分: 5010
  • 用 户 组: 普通用户
  • 注册时间: 2008-12-17 17:57
文章分类

全部博文(816)

文章存档

2011年(1)

2008年(815)

分类:

2008-12-17 18:07:00

LoginForm->ADOQuery1->SQL->Clear();
LoginForm->ADOQuery1->Close();
AnsiString querystring="select * from Administrator ";
querystring+="where 管理员帐号=";
querystring+="\"";
querystring+=LoginForm->suiEdit1->Text;
querystring+="\"";
LoginForm->ADOQuery1->SQL->Add(querystring);
LoginForm->ADOQuery1->ExecSQL();
LoginForm->ADOQuery1->Active=true;
if(LoginForm->ADOQuery1->RecordCount==0)
{ErrorForm->SnLabel1->Caption="对不起,你输入的帐号错误!";
 ErrorForm->Show();  }
else{
querystring+=" and 管理员密码= ";
querystring+="\"";
querystring+=LoginForm->suiEdit2->Text;
querystring+="\"";
LoginForm->ADOQuery1->SQL->Add(querystring);
LoginForm->ADOQuery1->ExecSQL();
LoginForm->ADOQuery1->Active=true;
if(LoginForm->ADOQuery1->RecordCount==0)
{
  ErrorForm->SnLabel1->Caption="对不起,你输入的密码错误!";
  ErrorForm->Show();}
else
{
MainForm->Show();
LoginForm->Hide();
}
}

--------------------next---------------------

阅读(1426) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~