初始化ADOConnection函數

procedure TRecUIControl.InitADOConnectionBeginTrans(ADOConnBatchTrans: TADOConnection);
begin
  // 設定ADOConnBatchTrans物件所需參數
  with ADOConnBatchTrans do
  begin
    CommandTimeout   := 300;
    //ConnectOptions   := coAsyncConnect;        // The connection is formed asynchronously
    CursorLocation   := clUseServer;           // Connection is client-side
    LoginPrompt      := False;                 // Don't show the login dialog when connecting to a database
    Provider         := 'SQLOLEDB.1';          //
    ConnectionString := frmMain.ADOConnection1.ConnectionString;  // 取主程式的ConnectionString
  end;
end;