unit Unit9;
{登录成功关闭登陆窗口，如何打开一个新窗口？？}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls, ExtCtrls, Buttons;
type
TForm9 = class(TForm)
btn1: TBitBtn;
con1: TADOConnection;
qry1: TADOQuery;
input1: TEdit;
text1: TLabel;
text2: TLabel;
input2: TEdit;
btn2: TBitBtn;
procedure btn1Click(Sender: TObject);
procedure text1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form9: TForm9;
type
TForm10 = class(TForm)
btn1: TBitBtn;
con1: TADOConnection;
qry1: TADOQuery;
input1: TEdit;
text1: TLabel;
text2: TLabel;
input2: TEdit;
btn2: TBitBtn;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form10: TForm10;
implementation
{$R *.dfm}
procedure TForm9.btn1Click(Sender: TObject);
var
n1,p1,i:Integer;
var
n,p:string ;
begin
n:=input1.Text;
p:=input2.Text;
i:=0;
if Length(n)<1 then
begin
ShowMessage('账号密码不能留空');
end
else
begin
if Length(p)<1 then
begin
ShowMessage('账号密码不能留空');
end
else
begin
con1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\QQPCmgr\Desktop\OK.mdb;Persist Security Info=False';
con1.Open();
qry1.Connection:=con1;
qry1.SQL.Clear;
qry1.SQL.Add('SELECT * FROM [user] WHERE [name ]= "'+n+'" and pass="'+p+'"');
ShowMessage(qry1.SQL.CommaText);
qry1.Open;
i:=qry1.FieldByName('id').AsInteger;
ShowMessage(IntToStr(i));
end;
end;
//如果返回id不为0 登陆成功，关闭登陆窗口打开功能窗口
if i<>0 then
begin
Form9.close;
Form10.Show;//报错？
end
end;
procedure TForm9.btn2Click(Sender: TObject);
begin
ShowMessage('22');
Form10.Show;//报错？
end;
procedure TForm9.text1Click(Sender: TObject);
begin
input1.Text:='1';
input2.Text:='1';
end;
end.