procedure TfrmLogin.Button1Click(Sender: TObject); begin try with data do begin ADOLogin.SQL.clear; ADOLogin.SQL.Add('select * from users where UserName="'+username.Text +'"'); ADOConnectLogin.Connected:=true; ADOLogin.open; end except begin MessageDlg('Connect to Database Error!',mtError,[mbok],0); close; //关闭窗口 endend;//endtry if data.ADOLogin.recordCount=1 then {如果找到用户} if data.ADOLogin['UserPwd']=password.Text then begin flag:=true;//密码正确 end else begin flag:=false;{密码不正确} MessageDlg('password Error!',mtError,[mbok],0); end else begin flag:=False; {没有找到用户} MessageDlg('username Error!',mtError,[mbok],0); end; //endif close; end;end. 这些是我点击登录按钮验证用户名和密码的代码,麻烦看看这里是不是有问题啊
我不知道怎么把他变大,这个在我空间里,你去看看吧,麻烦你了
你把xxx的内容发上来瞧瞧
看一下这个地址了。
http://album.hi.csdn.net/views/photo/292741
2.'admin'本身不是列名,但被你在某个地方错当列名用了
begin
try
with data do
begin
ADOLogin.SQL.clear;
ADOLogin.SQL.Add('select * from users where UserName="'+username.Text +'"');
ADOConnectLogin.Connected:=true;
ADOLogin.open;
end
except
begin
MessageDlg('Connect to Database Error!',mtError,[mbok],0);
close; //关闭窗口
endend;//endtry
if data.ADOLogin.recordCount=1 then {如果找到用户}
if data.ADOLogin['UserPwd']=password.Text then
begin
flag:=true;//密码正确
end
else
begin
flag:=false;{密码不正确}
MessageDlg('password Error!',mtError,[mbok],0);
end
else begin
flag:=False; {没有找到用户}
MessageDlg('username Error!',mtError,[mbok],0);
end; //endif
close;
end;end.
这些是我点击登录按钮验证用户名和密码的代码,麻烦看看这里是不是有问题啊