1,178
社区成员
发帖
与我相关
我的任务
分享
void __fastcall TLoginFrm::LoginBitBtnClick(TObject *Sender)
{
try
{
String userid,passwd,SqlStr;
int level;
userid=Trim(UserIDEdt->Text);
passwd=Trim(PasswdEdt->Text);
SqlStr="select * from userTable where UserId='"+userid+"'";
SqlStr+="and Password='"+passwd+"'";
DataMod->TempQuery->Close();
DataMod->TempQuery->SQL->Clear();
DataMod->TempQuery->SQL->Add(SqlStr);
DataMod->TempQuery->Open();
if(DataMod->TempQuery->RecordCount>0)
{
level=DataMod->TempQuery->FieldByName("level")->AsInteger;
MainFrm->Login=true;
MainFrm->N9->Enabled=true;
MainFrm->ToolButton_Search->Enabled=true;
if(level>1)
{
MainFrm->N17->Enabled=true;
MainFrm->N18->Enabled=true;
MainFrm->N19->Enabled=true;
}
MainFrm->UserIDLbl->Caption=UserIDEdt->Text;
MainFrm->UserNameLbl->Caption= DataMod->TempQuery->FieldByName("UserName")->AsString;
MainFrm->VehOperator=UserIDEdt->Text;
MainFrm->VehOperator=MainFrm->UserIDLbl->Caption;
Close();
}
else
ShowMessage("没有该用户,\n或者密码错误!");
}
catch(...)
{
//
}
}
可以参考
void __fastcall TForm1::Button1Click(TObject *Sender)
{
ADOConnection1->ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\wu\xe2work\temp.mdb;Persist Security Info=False";
ADOConnection1->LoginPrompt = false;
ADOQuery1->Connection = ADOConnection1;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
//查询是否有输入的用户名
String sql ="select * from temp where Login = ";
sql+= "'"+EdName->Text+"'";
ADOQuery1->SQL->Add(sql);
ADOQuery1->Open();
if(ADOQuery1->RecordCount)
{
if(ADOQuery1->FieldByName("pass")->AsString == EdPass->Text)
{
ShowMessage("登入成功!");
return;
}
else
{
ShowMessage("密码错误!");
return;
}
}
else
{
ShowMessage("用户名不存在!");
return;
}
}
我想要拿分