一窗口却换不到另一个窗口中，不报错，

最新推荐文章于 2025-01-04 12:11:17 发布

转载最新推荐文章于 2025-01-04 12:11:17 发布 · 119 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/delphi2007/archive/2009/02/19/1394118.html

本文探讨了在Delphi中实现登录窗体与主窗体之间的切换问题，特别是当登录验证通过后如何正确关闭登录窗体并显示主窗体。文章提供了具体的代码示例，分析了RecordCount属性在验证过程中的作用，并给出了正确的使用方式。

一窗口却换不到另一个窗口中，不报错， Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiDB/html/delphi_20061219141750218.html
unit z_login;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
Tf_login = class(TForm)
Edit1: TEdit;
edit2: TEdit;
Button1: TButton;
Button2: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
f_login: Tf_login;

implementation
uses z_data,z_main;

{$R *.dfm}

procedure Tf_login.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
application.MessageBox('请输入用户名','提示',64)
else
if edit2.Text='' then
application.MessageBox('请输入密码','提示',64)
else

with Data1.q_login do
begin
close;
sql.Clear;
sql.Add('select * from t_user where user_no = :a and passwd = :b');
parameters.ParamByName('a').Value:=trim(edit1.Text);
parameters.ParamByName('b').Value:=trim(edit2.Text);
open;
end;
if Data1.q_login.RecordCount>0 then
begin
application.MessageBox('用户名或密码错误，请重新输入！','提示',64);
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
end;

end;

procedure Tf_login.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;

end.

1. 里面好像没写换哪个窗口.
2. 当Data1.q_login.RecordCount = 0 时才报为用户名或密码错误

我这个登录窗口是从z_main主窗口中
procedure Tf_main.FormShow(Sender: TObject);
begin
application.CreateForm(Tf_login,f_login);
f_login.ShowModal;
f_login.free;
end;
这样新建出来的

顶上去

当查询成功后close登录框就OK了

if Data1.q_login.RecordCount>0 then
begin
application.MessageBox('用户名或密码错误，请重新输入！','提示',64);
edit1.Clear;
edit2.Clear;
edit1.SetFocus;
end;

Data1.q_login.RecordCount>0应该是查询成功吧
查询成功还用重新输入密码和用户名吗？

if Data1.q_login.RecordCount>0 then
begin
f_login.close;
end;

问题以搞定

转载于:https://www.cnblogs.com/delphi2007/archive/2009/02/19/1394118.html