如何用delphi 制作重新登入界面

补充：额,我要的是重新登入哇....
我原本的datamodule里放了个公共变量ok
如果登入界面 的 button1  判断无误 则赋ok为1,button2 为 赋 ok为0 
主界面是 如果ok为0 则 close
请问有什么解决方法吗?
用用一个登入界面

答案：
楼上答非所问.倒塌
一个窗体,就是说打开程序弹出一个对话框窗口,输入一些数据,如果输入正确,则弹出程序的主窗口,如果不正确则退出.
不知道我理解的对不对.

如果理解的是这样的话,主窗体就是应用程序的窗体,然后新建一个窗口供主窗体调用就可以.
现在一般的软件都是这样做的.

实现办法我简单的说一下,
建立程序,用VCL Application Form,这个为Unit1.
再新建一个单独的Form,为Unit2
主窗体代码添加:uses Unit2;
弹出窗体添加:uses Unit1;
连接窗体输入数据
如果正确,则打开主窗体程序:
Application.Initialize;
Form2 := TForm.Create(Application);//创建启动窗体
if //这里就是你的判断,如果条件满足 then
Application.CreateForm(TForm, Form1);
Form2.Destroy;//启动窗体移出内存
Application.Run;//主程序启动
//如果条件不满足,就是输入不正确
Application.Terminate;//程序结束
//结束
这是手动连接方法:
1，新建Project。
　　2，在FORM中放入ADOConnection,ADOQuery,DataSource,dbgrid控件。
　　3，双击ADOConnection控件，然后点击Build...按钮，在“提供者”页中选择“Microsoft Jet 4.0 OLE DB 　　Provider”，然后点击“下一步”按钮，在“连接”页中选择要连接的Access数据库的路径和数据库的文件名，这时如果点“测试连接”按钮时，出现“初始化提供者时发生错误，测试连接失败，密码无效”的错误提示。 
　　4，把ADOConnection控件的LoginPromtp设为false.
　　5，设置连接完成。

动态连接:
procedure TFrm_main.ConnectDB;
var
ConnStr,DBPath,Msg:String;
begin
DBPath:= ExtractFilePath(Application.ExeName)+'db1.mdb';
if not FileExists(DBPath) then
begin
Msg:= '数据库文件路径设置不对! 确定数据库文件: "DiaryDB.mdb" 存在,且置于目录:' +#10#13+ DBPath+' 中.';
Application.MessageBox(Pchar(Msg),'数据库连接错误!',MB_OK+MB_ICONERROR);
Application.Terminate;
end;
ConnStr:= 'Provider=Microsoft.Jet.OLEDB.4.0;'
+'Data Source='+DBPath
+';Persist Security Info=False';
ADOConnection1.Close;
ADOConnection1.ConnectionString:=ConnStr;
.ADOconnection1.LoginPrompt:=False;
try
ADOConnection1.Connected:= true
except
Application.MessageBox('数据库连接错误，请重试！','错误',MB_OK+MB_ICONERROR);
Application.Terminate;
end;
end; 

上一个：我要完整的DELPHI编译错误信息。
下一个：谁有delphi的优先级排列表