看看~~~需要你的帮忙~~关于application.Terminate 的问题

Question

我用INI配置文件进行登录数据库,在数据模块中进行INI的验证,当登录不了系统,执行application.Terminate ,然后又有一次连接,因为我的登录窗体中也要先用到数据模块中的连接,这样会进行两次的验证,第二次时就不再执行application.Terminate 了,程序一直运行~~为什么呢???

Answer 1

这样写 
program Project1;uses
  Forms,
  Windows,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};{$R *.res}begin
  Application.Initialize;
  Application.CreateForm(TForm2, Form2); //登陆窗体
  if 登陆成功 then
  begin
    Application.CreateForm(TForm1, Form1); //主窗体
    Application.Run;
  end else
  begin
    MessageBox(Application.Handle, '登陆错误', PChar(Application.Title), MB_OK or MB_ICONERROR);
  end;
end.

Answer 2

谢谢楼上的大哥~~可是我有点看不明白,你帮我看下原码行么~?
 procedure TDataModule1.DataModuleCreate(Sender: TObject);
 var
  addsini:Tinifile;
  s1,user,database,server,password:string;
 if_windows_login:boolean;
begin
   addsini:=Tinifile.Create(extractfilepath('d:\润丰房产\data\')+'login.ini');
  try
   user:=addsini.ReadString('Database','User','');
   database:=addsini.ReadString('Database','database','');
   server:=addsini.ReadString('Database','server','');
   password:=addsini.ReadString('Database','password','');
  if_windows_login:=addsini.ReadBool('database','if_windows_login',false);
  finally
   addsini.Free;
  end;
   ADOConnection1.Connected:=false;
  try
    begin
      if if_windows_login then
         s1:='Provider=SQLOLEDB.1;'+
             'Integrated Security=SSPI;Persist Security Info=False;'+
             'Initial Catalog='+database+';Data Source='+server+''
      else
         S1:='Provider=SQLOLEDB.1;'+
             'Password='+password+';'+
             'Persist Security Info=False;'+
             'User ID='+user+';'+
             'Initial Catalog='+database+';'+
             'Data Source='+Server+';'+
             'Use Procedure for Prepare=1;'+
             'Auto Translate=True;'+
             'Packet Size=4096;'+
             'Workstation ID=hx05;'+
             'Use Encryption for Data=False;'+
             'Tag with column collation when possible=False';
    end;
       ADOConnection1.ConnectionString:=s1;
       ADOConnection1.Connected:=true;
   except
       application.MessageBox('数据库连接失败,请检查配置文件','连接错误',mb_iconstop+MB_OK);
       application.Terminate;   end;
end;end.
还有一个就是登录窗体上有这句话:   ado_tmp.Connection:=datamodule1.ADOConnection1;
程序主窗体上有这句话:procedure TE_MainF.FormCreate(Sender: TObject);      //ONCREATE事件触发登录界面窗体
begin
     datamodule1:=tdatamodule1.Create(self);
     if not assigned(E_loginF) then
             E_loginF:=TE_loginF.create(self);
             E_loginF.ShowModal;
也就是会进行两次连接,不懂为什么第二次的时候怎么就不执行application.terminate了

Answer 3

在TADOConnection.Connected的帮助中没有说若连接不上会抛出异常呀？
     ADOConnection1.ConnectionString:=s1;
     ADOConnection1.Connected:=true;
建议改为：
     ADOConnection1.ConnectionString:=s1;
     ADOConnection1.Open;
     if not ADOConnection1.Connected then
     begin
          application.MessageBox('数据库连接失败,请检查配置文件','连接错误',mb_iconstop+MB_OK);
          application.Terminate;
     end;

Answer 4

这样你的Datamodule1不是创建了两遍？工程文件中DataModule1有创建吗？

Answer 5

我试过了 xuzj2000(米泥)的方法了哦,虽然不能登录系统,可是达不到效果,登录窗体一直会出现,有什么好的办法,现在发现程序会执行application.terminate了,但是有没有什么办法不让它执行两次判断,只要提示一次连接出错就好了~~

Answer 6

给你写了个简单的例子program Project1;uses
  Forms,
  Windows,
  Controls,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {frmLogin},
  Unit3 in 'Unit3.pas' {DataModule3: TDataModule};{$R *.res}var
  frm: TfrmLogin;begin
  Application.Initialize;
  Application.CreateForm(TDataModule3, DataModule3);  //数据库连接
  frm := TfrmLogin.Create(nil);
  if frm.ShowModal = mrOk then
  begin
    frm.Free;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end else
  begin
    frm.Free;
    MessageBox(Application.Handle, '登陆错误', 'Error', MB_OK or MB_ICONERROR);
  end;
end.
-------------------------------------
登陆窗体的单元
unit Unit2;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TfrmLogin = class(TForm)
    btnLogin: TButton;
    procedure btnLoginClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;implementation{$R *.dfm}procedure TfrmLogin.btnLoginClick(Sender: TObject);
begin
  if {登陆成功}True then //在这儿判断登陆是否成功
    Self.ModalResult := mrOk
  else
    Self.ModalResult := mrAbort;
end;end.