sábado, 30 de novembro de 2013

Procedure para Abertura de Tables e Querys



Procedure AbreQrys(cDono: TForm ;lClos: Boolean) ;
Var
   nCon: Integer ;
Begin
   Screen.Cursor := crHourGlass ;
   If Not (lClos) Then
   Begin
      Try
         With cDono Do
            For nCon := 0 To ComponentCount - 1 Do
            Begin
               If (Components[nCon] Is TwwTable) Then
                  If Not TwwTable(Components[nCon]).Active Then
                  Begin
                     TwwTable(Components[nCon]).DisableControls ;
                     TwwTable(Components[nCon]).Open ;
                     TwwTable(Components[nCon]).EnableControls ;
                  End ;
               If (Components[nCon] Is TwwQuery) Then
                  If Not TwwQuery(Components[nCon]).Active Then
                  Begin
                     TwwQuery(Components[nCon]).DisableControls ;
                     TwwQuery(Components[nCon]).Prepare ;
                     TwwQuery(Components[nCon]).Open ;
                     TwwQuery(Components[nCon]).EnableControls ;
                  End ;
               {               If (Components[nCon] Is TOraQuery) Then
                                 If Not TwwQuery(Components[nCon]).Active Then
                                 Begin
                                    TOraQuery(Components[nCon]).DisableControls ;
                                    TOraQuery(Components[nCon]).Prepare ;
                                    TOraQuery(Components[nCon]).Open ;
                                    TOraQuery(Components[nCon]).EnableControls ;
                                 End ;
                              If (Components[nCon] Is TOraTable) Then
                                 If Not TwwQuery(Components[nCon]).Active Then
                                 Begin
                                    TOraTable(Components[nCon]).DisableControls ;
                                    TOraTable(Components[nCon]).Prepare ;
                                    TOraTable(Components[nCon]).Open ;
                                    TOraTable(Components[nCon]).EnableControls ;
                                 End ;
                              If (Components[nCon] Is TSmartQuery) Then
                                 If Not TwwQuery(Components[nCon]).Active Then
                                 Begin
                                    TSmartQuery(Components[nCon]).DisableControls ;
                                    TSmartQuery(Components[nCon]).Prepare ;
                                    TSmartQuery(Components[nCon]).Open ;
                                    TSmartQuery(Components[nCon]).EnableControls ;
                                 End ; }
            End ;
      Except On e: Exception
         Do MessageDlg('Ocorreu erro durante a Abertura das Querys' + #13 + 'Erro:' + E.Message, mtError, [mbOK], 0) ;
      End ;
   End
   Else
   Begin
      Try
         With cDono Do
            For nCon := 0 To ComponentCount - 1 Do
            Begin
               If (Components[nCon] Is TwwTable) Then
                  If TwwTable(Components[nCon]).Active Then
                  Begin
                     TwwTable(Components[nCon]).DisableControls ;
                     TwwTable(Components[nCon]).Close ;
                     TwwTable(Components[nCon]).EnableControls ;
                  End ;
               If (Components[nCon] Is TwwQuery) Then
                  If TwwQuery(Components[nCon]).Active Then
                  Begin
                     TwwQuery(Components[nCon]).DisableControls ;
                     TwwQuery(Components[nCon]).Close ;
                     TwwQuery(Components[nCon]).EnableControls ;
                  End ;
               {                  If TOraTable(Components[nCon]).Active Then
                                 Begin
                                    TOraTable(Components[nCon]).DisableControls ;
                                    TOraTable(Components[nCon]).Close ;
                                    TOraTable(Components[nCon]).EnableControls ;
                                 End ;
                                 If TOraQuery(Components[nCon]).Active Then
                                 Begin
                                    TOraQuery(Components[nCon]).DisableControls ;
                                    TOraQuery(Components[nCon]).Close ;
                                    TOraQuery(Components[nCon]).EnableControls ;
                                 End ;
                                 If TSmartQuery(Components[nCon]).Active Then
                                 Begin
                                    TSmartQuery(Components[nCon]).DisableControls ;
                                    TSmartQuery(Components[nCon]).Close ;
                                    TSmartQuery(Components[nCon]).EnableControls ;
                                 End ;}
            End ;
      Except On e: Exception
         Do MessageDlg('Ocorreu erro durante o fechamento das Querys' + #13 + 'Erro:' + E.Message, mtError, [mbOK], 0) ;
      End ;
   End ;
   Screen.Cursor := crDefault
End ;

Nenhum comentário:

Postar um comentário