重新登录如何实现

zaciig

close;
formdenglu.show；
为什么我写可以show出来登录窗体，可是输入用户名和密码后，点确定就报错；我还尝试了用
close;
formdenglu:=tformdenglu;
formdenglu.create(application);
formdenglu.showmodal;
formdenglu.free;
这个连登录窗体都show不出来了
如何实现重新登录呀

artpaper123

登录窗体，
默认创建也行呀。
是不是Free释放 没释放好。

zaciig

就是默认创建的，我为了create他，在登录后我把FREE了

gaochong

{，可是输入用户名和密码后，点确定就报错 }

你登录窗口中的“确定”按钮的响应事件方法中写了什么代码？
或者说你确定按钮，返回值是什么，你是如何捕捉到返回值并进行处理的，按你的描述出错并不在show 上，而是窗口点击了确定之后触发的

zaciig

我在登陆窗体show的时候，读取了数据库中的所有用户账号，记录在combobox里面，procedure TFormdenglu.FormShow(Sender: TObject);
begin
  ComboBox1.Items.Clear;  //把数据库中所有用户名写倒下拉框中
  with DataModule1.SQLQueryyh do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from yonghu');
    Open;
    while not eof do
    begin
      ComboBox1.Items.Add(FieldByName('zhanghao').AsString);
      Next;
    end;
  end;
end;  
好像是在  SQL.Add('select * from yonghu');出现了异常
登陆窗体还有一段
procedure TFormdenglu.Button1Click(Sender: TObject);
begin
  if Trim(ComboBox1.Text)='' then
  begin
    ShowMessage('用户名不存在,请重新输入!');
    Exit;
  end;
  if Edit1.Text='' then
  begin
    ShowMessage('密码错误,请重新输入!');
    Exit;
  end;
  with DataModule1.SQLQueryyh do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from yonghu where zhanghao='''+ComboBox1.Text+''' and mima='''+Edit1.Text+'''');
    Open;
    if RecordCount <= 0 then
       ShowMessage('用户名或密码错误，请重新输入！')
    else
       mainform.ShowModal;
       mainform.Free;
  end;
end;