在c/s应用程序中，如何动态连接Informix数据库并屏蔽用户名和密码输入的对话框？

Question

procedure TDm1.InitDataBase(aliasnames :string);
var
  AliasParams:TStringList;
  FilePath : string;
begin
  Aliasparams:=TStringList.Create;
  aliaspraras.add('servername = servername');
  aliaspraras.add('databasename = databasename');  if not Session.IsAlias(aliasnames) then
  begin
    try
      Session.AddAlias(aliasnames,'informix',ALiasParams);
      Session.SaveConfigFile;
    finally
      AliasParams.Free;
    end;
  end else
  begin
    try
      Session.ModifyAlias(aliasnames,AliasParams);
      Session.SaveConfigFile;
    finally
      AliasParams.Free;
    end;
  end;
end;procedure Tdm1.DataModuleCreate(Sender: TObject);
begin
  InitDataBase('sd_Xj');  with Db1 do
  begin
    Connected := false;
    Params.Clear;
    AliasName := 'Sd_xj';
    user name := 'informix';
    password := 'informix';
    LoginPrompt := false;
    try
      Connected;
    except
      Application.MessageBox(pchar('无法连接数据库,系统终止!'),pchar('警告'),mb_ok);
      Application.Terminate;
    end;
  end;