为什么我在dll中登录的窗口上放了个adotable，用来验证数据库中的密码与用户名，在相关判段中加入后，再调用时会出现“尚未调用CoiniTial

Question

dll中：  private
    LoginTime: integer;
    reply: pchar;
    { Private declarations }
  public
    { Public declarations }
  end;var
  frmUserLogin: TfrmUserLogin;function Showpass(app:Tapplication): pchar; stdcall;
implementation
{$R *.DFM}
function Showpass(app:Tapplication): pchar; stdcall;
begin
  frmUserLogin := TfrmUserLogin.Create(app);
  with frmUserLogin do
  begin
    try
      update;
      showmodal;
    finally
      result := reply;
      free;
    end;
  end;
end;
exe调用：
implementation
function Showpass(app:TApplication): pchar; stdcall;external 'Plogin.dll' name 'Showpass';
{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  if Showpass(application) <>'Ok' then
    application.Terminate;
end;

Answer 1

把你的代码发给我吧。另最好还是用adoquery不要用adotable

Answer 2

把你的代码发给我吧。另最好还是用adoquery不要用[email protected]