【结帖】如何让新建的窗体生效**

sgmx

你们的回复速度怎么这么慢？

jiahaiminghr

这些代码要写在你自己的登录窗体里
unit LOGONFORM;

interface

uses
  Business.System, Business.Forms;

type
  TLOGONFORM = class(BASESYSTEMINTERFACE.TLOGONFORM)
  private
    {private declarations}
  public
    static function ShowLogonForm(var AName, APass: string): Boolean;
  end;

implementation

static function TLOGONFORM.ShowLogonForm(var AName, APass: string): Boolean;
begin
  with TLogonForm.Create(nil) do
    try
      eName.Text := AName;
      ePass.Text := APass;
      if ShowModal = Business.Forms.Controls.mrOK then
      begin
        AName := eName.Text;
        APass := ePass.Text;
        Result := True;
        Forms.Application.ProcessMessages;
      end
      else
        Result := False;
    finally
      Free;
    end;
end;

end.

sgmx

贾工，登陆窗体的问题已经解决了，我直接在接口中写
with CTZYJ.TLogonForm.Create(nil) do
  try
    eName.Text := ALogonID;
    ePass.Text := APassword;
    if ShowModal = Business.Forms.Controls.mrOK then
    begin
      ALogonID := eName.Text;
      APassword := ePass.Text;
      Result := True;
      Forms.Application.ProcessMessages;
    end
    else
      Result := False;
  finally
      Free;
  end;
就可以，就是我想给不同的用户指定不同的窗体风格，我在系统信息表中新加了一条记录
，如下图所示，gxj是该表中就有的，吴祥WX是我自己加上去，我给他指定了简洁风格界面、窗体库下的标准风格主窗体，可是我以吴祥登陆时，登陆窗体还是我在
<uitheme default="Biz:CTYWKJ" allowuser="TRUE"></uitheme>中指定的登陆窗体，登陆后的主窗体也还是制定的主窗体，没有变为标准风格主窗体，怎么回事？

jiahaiminghr

楼主是哪个版本？

jiahaiminghr

我在2918上测试是正确的。

注意：登录窗体是不能指定的，只能使用默认空间下的登录窗体。

sgmx

我的就是2918

lixy

你把config.justep.xml文件发来看看吧！

jiahaiminghr

问题已经解决，结帖。