UC知道各位DELPHI程序代码问题'
来源：百度知道 编辑：UC知道 时间：2024/05/22 19:12:30
procedure TForm1.Button1Click(Sender: TObject);
var user,pass:string;
begin
query1.close;
query1.sql.clear;
query1.SQL.Add('select username,userpassword FROM user_info where username='''+edit1.text+'''');
query1.open ;
user:=query1.fieldbyname('username').AsString;
pass:=query1.fieldbyname('userpassword').asstring;
if (edit2.Text='') and (edit1.Text='') then
begin
showmessage('您没有输入正确的用户名及密码信息!!');
end
else
if (pass=edit2.Text) and (user=edit1.Text) then
begin
rr:=1 ;
form1.Close;
end
else
if (user=edit1.Text) and(pass<>edit2.Text) then
begin
showmessage('请输入正确的用户密码信息!!');
end
else
if (user<>edit1.Text) and(pass=edit2.Text) then
begin
showmessage('请输入正确的用户帐户信息~~!') ;
end
else
if (user<>edit1.Text) and (p
var user,pass:string;
begin
query1.close;
query1.sql.clear;
query1.SQL.Add('select username,userpassword FROM user_info where username='''+edit1.text+'''');
query1.open ;
user:=query1.fieldbyname('username').AsString;
pass:=query1.fieldbyname('userpassword').asstring;
if (edit2.Text='') and (edit1.Text='') then
begin
showmessage('您没有输入正确的用户名及密码信息!!');
end
else
if (pass=edit2.Text) and (user=edit1.Text) then
begin
rr:=1 ;
form1.Close;
end
else
if (user=edit1.Text) and(pass<>edit2.Text) then
begin
showmessage('请输入正确的用户密码信息!!');
end
else
if (user<>edit1.Text) and(pass=edit2.Text) then
begin
showmessage('请输入正确的用户帐户信息~~!') ;
end
else
if (user<>edit1.Text) and (p
procedure TForm1.Button1Click(Sender: TObject);
var
user, pass: string;
begin
if Edit1.Text <> '' then
begin //用户名不为空则连接数据库判断帐号合法性
query1.close;
query1.sql.clear;
query1.SQL.Add('select username,userpassword FROM user_info where username='''+edit1.text+'''');
try
query1.open;
except
ShowMessage('数据库连接错误');
end;
user := query1.fieldbyname('username').AsString;
pass := query1.fieldbyname('userpassword').asstring;
if (Edit1.Text = user) and (Edit2.Text = pass) then
begin
//用户合法，这里输入进form2的代码
end
else
begin
ShowMessage('无效用户信息，请重新输入');
end;
end;
end;
这样比较直观，容易理解
不知道你说得是什么问题，密码正确就关闭form1回到form2.如果错误则结束程序。
你现在是不是不能结束程序，如果要结束程序，需要调用application的terminate函数
if (user<&g