Quick Tips : State do DataSet

Ol� galera, nesta Quick Tips irei mostrar como descobrir o State de um DataSet (ClientDataSet, por exemplo), o State seria o estado em que o DataSet se encontra, veja os tipos definidos :

TDataSetState
- dsInactive
- dsBrowse
- dsEdit
- dsInsert
- dsSetKey
- dsCalcFields
- dsFilter
- dsNewValue
- dsOldValue
- dsCurValue
- dsBlockRead
- dsInternalCalc
- dsOpening

Agora como descobrir o State que se encontra o DataSet ? J� ouviram falar ou j� usaram a unit TypInfo, nela temos uma function GetEnumName(TypeInfo: PTypeInfo; Value: Integer): string;, onde esta retorna a string representada pelo Enumerado declarado, no caso TDataSetState.

Vamos a construç�o do Exemplo.

Adicione ;
- 1 ClientDataset, CDSState ( Constru� um XML, por�m nada lhe impede de usar uma base pr�pria )
- 1 DataSource, DSState
- 1 DBGrid
- 1 DBNavigator

Exemplo.

Agora iremos dar uses em TypInfo, e logo em seguida criar uma function RetornaEstado


        function TFrmPrincipal.RetornaEstado(DataSet: TDataSet): String;

        begin

        Result := Format('Estado: %s', [GetEnumName(TypeInfo(TDataSetState),

        Ord(DataSet.State))]);

        end;

Nossa function j� esta pronta, vamos agora usar a mesma, geralmente usamos o evento AfterScrol (ClientDataSet), onde os State do DataSet � modificado quando o mesmo entra em Ediç�o, Inserç�o, e por ai vai.

CDSState : AfterScroll


        procedure TFrmPrincipal.CDSStateAfterScroll(DataSet: TDataSet);

        begin

        Caption := RetornaEstado(CDSState);

        end;

Fico por aqui e na pr�xima Quick Tips espero que tenham gostado e peço que mandem e-mail com sugest�es para as Quick Tips.

Um abraço

Quick Tips : State do DataSet

Nesta Quick iremos mostrar como saber o State do DataSet

Artigos relacionados