delphi 生手
delphi 新手
假如tform1是主窗口,程序运行时,主窗口就会出现,tform2是登陆窗口,要求输入密码之后才能出现主窗口,我该怎么做呢?请大侠指教...谢谢..
------解决方案--------------------
tfrom2的登录button里写
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from 表名');
adoquery1.sql.add(' where 列名='''+edit1.text+'''');
adoquery1.open;
end;
form1.show;
------解决方案--------------------
可以使用子父窗口
------解决方案--------------------
这是我的代码。看看应该懂了
程序入口
在你登陆窗体添加这个方法
调用
假如tform1是主窗口,程序运行时,主窗口就会出现,tform2是登陆窗口,要求输入密码之后才能出现主窗口,我该怎么做呢?请大侠指教...谢谢..
delphi
------解决方案--------------------
tfrom2的登录button里写
begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('select * from 表名');
adoquery1.sql.add(' where 列名='''+edit1.text+'''');
adoquery1.open;
end;
form1.show;
------解决方案--------------------
可以使用子父窗口
------解决方案--------------------
这是我的代码。看看应该懂了
Application.Initialize;
Application.CreateForm(Tdtmdl1, dtmdl1);
if TLoginForm.ShowForm then
begin
Application.CreateForm(TIDCardRead_F, IDCardRead_F);
Application.CreateForm(TLeave, Leave);
Application.CreateForm(Tlavel, lavel);
end;
Application.Run;
程序入口
class function TLoginForm.ShowForm:Boolean;
var
LoginForm: TLoginForm;
begin
LoginForm := TLoginForm.Create(Application);
try
if LoginForm.ShowModal = mrOk then
Result := True
else
Result := False;
finally
LoginForm.Free;
end;
end;
在你登陆窗体添加这个方法
ModalResult := mrOk;
调用