2
20092009
Unregistered / Unconfirmed
GUEST, unregistred user!
我一个主窗口FORM1,登记窗口FORM2
我在FORM1的ONCREAT 里的代码如下:
application.createform(tform11,form11);
form11.ShowModal;
在FORM2里“确定”按纽CLICK代码如下:
var
name01:string;
pass01:string;
begin
name01:=edit1.text;
pass01:=edit2.Text;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from cppass where cpname='''+trim(name01)+''' and cppass='''+trim(pass01)+'''');
adoquery1.open;
if adoquery1.IsEmpty then begin
showmessage('嘿嘿,错误的用户名或密码~');
abort
end
else
form2.Free;
end;
在FORM2里的“取消”按纽如下:
FORM2.CLOSE
可是我的程序运行后,它是先出来登录窗口,但是我输入正确的值后,它却进不了主窗口。
而且程序终止,为什么。请高手帮我分析以下????
我在FORM1的ONCREAT 里的代码如下:
application.createform(tform11,form11);
form11.ShowModal;
在FORM2里“确定”按纽CLICK代码如下:
var
name01:string;
pass01:string;
begin
name01:=edit1.text;
pass01:=edit2.Text;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from cppass where cpname='''+trim(name01)+''' and cppass='''+trim(pass01)+'''');
adoquery1.open;
if adoquery1.IsEmpty then begin
showmessage('嘿嘿,错误的用户名或密码~');
abort
end
else
form2.Free;
end;
在FORM2里的“取消”按纽如下:
FORM2.CLOSE
可是我的程序运行后,它是先出来登录窗口,但是我输入正确的值后,它却进不了主窗口。
而且程序终止,为什么。请高手帮我分析以下????