请教大家,为什么我的mdi子窗体form2会显示主窗体上form1的edit控件呢?
ADODataset1.Close;
ADODataset1.CommandText:='select * from Log_user where 登录名='''+edit1.Text+'''';
ADODataset1.Open;
IF ADODataset1.Eof
then showmessage('用户名不存在')
else
begin
IF not(trim(ADODataset1.FieldByName('密码').AsString) = trim(edit2.Text)) then showmessage('密码错误')
else
Tform2.create(application);
end;
谢谢大家!!
ADODataset1.Close;
ADODataset1.CommandText:='select * from Log_user where 登录名='''+edit1.Text+'''';
ADODataset1.Open;
IF ADODataset1.Eof
then showmessage('用户名不存在')
else
begin
IF not(trim(ADODataset1.FieldByName('密码').AsString) = trim(edit2.Text)) then showmessage('密码错误')
else
Tform2.create(application);
end;
谢谢大家!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货