Question

怎么样用delphi制作一个登陆窗口

我本来做好拉个一个图书馆管理系统，但是开始没有做登陆窗口，现在在原工程里加拉一个窗体来做登陆窗口，但是每次编译后，出现的是主窗体，登陆窗体却不见拉，请问什么原因？
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, DB, ADODB;

type
Tlogin = class(TForm)
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
ADOQuery1: TADOQuery;
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Edit2: TEdit;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
login: Tlogin;

implementation

uses MainForm, BookBorrowForm, BookDocuForm, ParentForm;

{$R *.dfm}

procedure Tlogin.BitBtn1Click(Sender: TObject);
var password:string;
begin
with adoquery1 do
begin
ADOQuery1.Close;
ADOQuery1.SQL.clear;
ADOQuery1.SQL.Add('select * from Your_Table Where UserName='''+trim(edit1.text)+''' And PassWord='''+Trim(edit2.text)+'''');
ADOQuery1.Open;

While not eof do
begin
showmessage('通过验证');
end;
end;

if(trim(edit1.Text)='')then
begin
showmessage('请输入用户名');
exit;
end;

ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 管理员 where username=:username');
ADOQuery1.Parameters.ParamByName('username').value :=trim(edit1.Text);
ADOQuery1.Prepared;
ADOQuery1.Open;
if not ADOQuery1.Eof then
begin
password:=trim(ADOQuery1.FieldByName('password').AsString);
end
else
begin
showmessage('用户名输入错误，请核实！');
exit;
end;

if trim(edit2.Text)<>password then
begin
showmessage('密码错误，请检查后重新输入！');
edit2.SetFocus;
exit;
end
else
begin
showmessage('密码正确，登录成功！');
end;

end;

procedure Tlogin.BitBtn2Click(Sender: TObject);
begin
Close;
end;

end.
知道的请指点哈！
先谢谢拉！
本来我做的是图书馆管理系统，开始系统没有做登陆窗口，运行很好，后来我又在工程里加了一个窗体作为登陆窗口，通过登陆窗口进入到原来的主界面后，原来主界面下的功能都不能用了，这个是怎么回事？

Answer 1

project-->options-->forms页中将mainform、login变为手动创建,然后在

login窗体中登录成功后加上
mainform := TMainForm.Create(application);
mainform.show;

然后在工程文件里加上
login := TLogin.Create(nil);

这个要具体看你的程序了，只凭目前这些不能够判断哪里出了问题

Answer 2

如楼上说言