菜问“为什么每个FORM每次都要连接？”

Question

1。每个要用后台数据时都会出现“DATABASE LOGIN”表单？好麻烦
   有没有一次连接后就能一直使用，直到断开为止。
2。是不是用ADO动态连接，是不是每个表单每次使用就要调用什么INI文件3.ADOCONNECT 放在DataModule也同在表单一样吗
                       

Answer 1

将ADOCONNECT的LoginPromat设置为False

Answer 2

我的ADOCONNECT 是通过读取'main.ini' 如下，可不知为什么总是还是有“DATABASE LOGIN”表单
  
    MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'main.ini');
    ServerName := MyIniFile.ReadString('ServerConfig', 'ServerName', '');
    UserID := MyIniFile.ReadString('ServerConfig', 'UserID', '');
    Password := MyIniFile.ReadString('ServerConfig', 'Password', '');
    DataBaseName := MyIniFile.ReadString('ServerConfig', 'DataBaseName', '');    conn.ConnectionString := 'Provider=MSDASQL.1;Password='
                     + Trim(Password) + ';Persist Security Info=TURE;User ID='
                     + Trim(UserID) + ';Extended Properties="DRIVER=SQL Server;SERVER='
                     + Trim(ServerName) + ';DATABASE=' + Trim(DataBaseName) + '"';    MyIniFile.Free;
    MyIniFile := nil;
    showmessage(conn.ConnectionString );

Answer 3

MyIniFile := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'main.ini');
    ServerName := MyIniFile.ReadString('ServerConfig', 'ServerName', '');
    UserID := MyIniFile.ReadString('ServerConfig', 'UserID', '');
    Password := MyIniFile.ReadString('ServerConfig', 'Password', '');
    DataBaseName := MyIniFile.ReadString('ServerConfig', 'DataBaseName', '');    conn.ConnectionString := 'Provider=MSDASQL.1;Password='
                     + Trim(Password) + ';Persist Security Info=TURE;User ID='
                     + Trim(UserID) + ';Extended Properties="DRIVER=SQL Server;SERVER='
                     + Trim(ServerName) + ';DATABASE=' + Trim(DataBaseName) + '"';    MyIniFile.Free;
    MyIniFile := nil;
    showmessage(conn.ConnectionString );
//
conn.loginprompt := false;
conn.connected := True;

Answer 4

将ADOCONNECT的LoginPromat设置为False