首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > .NET > .NET >

delphi 生手

2013-09-28 
delphi 新手假如tform1是主窗口,程序运行时,主窗口就会出现,tform2是登陆窗口,要求输入密码之后才能出现主

delphi 新手
假如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;

调用

热点排行