procedure TFormLogin.ButtonLoginClick(Sender: TObject);
begin
QueryLogin.SQL.Text := Format(
'SELECT COUNT(*)'#13#10 +
'FROM 用户信息表'#13#10 +
'WHERE 用户编号 = "%s" AND 用户口令 = "%s"'#13#10,
[EditUserId.Text, EditPassword.Text]);
QueryLogin.Open;
if QueryLogin.Fields[0].AsInteger <= 0 then
ShowMessage('口令错误')
else ShowMessage('登录成功');
QueryLogin.Close;
end;
begin
QueryLogin.SQL.Text := Format(
'SELECT COUNT(*)'#13#10 +
'FROM 用户信息表'#13#10 +
'WHERE 用户编号 = "%s" AND 用户口令 = "%s"'#13#10,
[EditUserId.Text, EditPassword.Text]);
QueryLogin.Open;
if QueryLogin.Fields[0].AsInteger <= 0 then
ShowMessage('口令错误')
else ShowMessage('登录成功');
QueryLogin.Close;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货