Classe TMiDataModule

Unit

Declaração

type TMiDataModule = class(TDataModule)

Descrição

A class TMiDataModule é usado com módulo de dados para acesso a uma tabela através dos componentes TMi_SQLQuery e DmxScroller_Form1

Hierarquia

Visão Geral

Campos

Published ActionList1: TActionList;
Published CmCancel: TAction;
Published CmDeleteRecord: TAction;
Published CmGoBof: TAction;
Published CmGoEof: TAction;
Published CmLocate: TAction;
Published CmNewRecord: TAction;
Published CmNextRecord: TAction;
Published CmPrevRecord: TAction;
Published CmRefresh: TAction;
Published CmUpdateRecord: TAction;
Published DmxScroller_Form1: TDmxScroller_Form;
Published Mi_SQLQuery1: TMi_SQLQuery;
Protected var MiConnectionsDb: TMiConnectionsDb;

Métodos

Published procedure CmNewRecordExecute(Sender: TObject);
Published procedure CmUpdateRecordExecute(Sender: TObject);
Published procedure CmDeleteRecordExecute(Sender: TObject);
Published procedure CmGoBofExecute(Sender: TObject);
Published procedure CmGoEofExecute(Sender: TObject);
Published procedure CmNextRecordExecute(Sender: TObject);
Published procedure CmPrevRecordExecute(Sender: TObject);
Published procedure CmCancelExecute(Sender: TObject);
Published procedure CmRefreshExecute(Sender: TObject);
Published procedure CmLocateExecute(Sender: TObject);
Published procedure DataModuleCreate(Sender: TObject);
Published procedure DataModuleDestroy(Sender: TObject);
Public function Locate(): TModalResult; overload;
Public Function Locate(const aKeyFields: string; const aKeyValues: Variant; Options: TLocateOptions):boolean; overload;
Public function NewRecord(const aIn_JSONObject: TJSONObject):TJSONObject; overload;
Public function NewRecord():TJSONObject; overload;
Public function UpdateRecord(const aIn_JSONObject: TJSONObject):TJSONObject;
Public function DeleteRecord():TJSONObject;
Public function GetState: TJSONObject;
Public constructor Create(AOwner: TComponent); override;

Propriedades

Public property active : Boolean read GetActive write SetActive;
Public property State : TDataSetState read Get_State;

Descrição

Campos

Published ActionList1: TActionList;
 
Published CmCancel: TAction;
 
Published CmDeleteRecord: TAction;
 
Published CmGoBof: TAction;
 
Published CmGoEof: TAction;
 
Published CmLocate: TAction;
 
Published CmNewRecord: TAction;
 
Published CmNextRecord: TAction;
 
Published CmPrevRecord: TAction;
 
Published CmRefresh: TAction;
 
Published CmUpdateRecord: TAction;
 
Published DmxScroller_Form1: TDmxScroller_Form;
 
Published Mi_SQLQuery1: TMi_SQLQuery;
 
Protected var MiConnectionsDb: TMiConnectionsDb;

O atributo name contéem uma instância do módulo de dados TMiConnectionsDb criada no método DataModuleCreate.

Métodos

Published procedure CmNewRecordExecute(Sender: TObject);

O método CmNewRecordExecute da ação CmNewRecord executa o método DmxScroller_Form1.DoOnNewRecord;

Published procedure CmUpdateRecordExecute(Sender: TObject);

O método CmUpdateRecordExecute da ação CmUpdateRecord executa o método DmxScroller_Form1.UpdateRec;

Published procedure CmDeleteRecordExecute(Sender: TObject);

O método CmDeleteRecordExecute da ação CmDeleteRecord executa o método DmxScroller_Form1.DeleteRec;

Published procedure CmGoBofExecute(Sender: TObject);

O método CmGoBofExecute da ação CmGoBof executa o método DmxScroller_Form1.FirstRec;

Published procedure CmGoEofExecute(Sender: TObject);

O método CmGoEofExecute da ação CmGoEof executa o método DmxScroller_Form1.LastRec;

Published procedure CmNextRecordExecute(Sender: TObject);

O método CmNextRecordExecute da ação CmNextRecord executa o método DmxScroller_Form1.NextRec;

Published procedure CmPrevRecordExecute(Sender: TObject);

O método CmPrevRecordExecute da ação CmPrevRecord executa o método DmxScroller_Form1.PrevRec;

Published procedure CmCancelExecute(Sender: TObject);

O método CmCancelExecute da ação CmCancel executa o método DmxScroller_Form1.Cancel;

Published procedure CmRefreshExecute(Sender: TObject);

O método CmRefreshExecute da ação CmRefresh executa o método DmxScroller_Form1.Refresh;

Published procedure CmLocateExecute(Sender: TObject);

O método CmLocateExecute da ação CmLocate executa o método DmxScroller_Form1.Locate;

  • Nota:

    • Locate criar um formulário de pesquisa baseado no que está selecionado na edição.

Published procedure DataModuleCreate(Sender: TObject);

O método name cria o módulo de dados dos componentes sqldb (SQLConnector1 e SQLTransaction1 para que possa ser usado pelo componente Mi_SQLQuery1 e DmxScroller_Form1

Published procedure DataModuleDestroy(Sender: TObject);

O método name faz com qua a propriedade seja active := false; antes de de destruir o modulo de dados.

Public function Locate(): TModalResult; overload;

O método Locate executa uma caixa de diálogo de pesquisa com os dados do campo corrente.

Public Function Locate(const aKeyFields: string; const aKeyValues: Variant; Options: TLocateOptions):boolean; overload;

O método Locate localiza um registro baseado nos campos passados por aKeyFields e valores dos campos aKeyValues.

Public function NewRecord(const aIn_JSONObject: TJSONObject):TJSONObject; overload;

O método NewRecord executa o método datasource.dataset.append e inicia-o com valores default definidos no template caso o prâmetros aIn_JSONObject seja diferente de nil, seta o registro com os dados enviados em aIn_JSONObject onde o mesmo só é gravado caso o método UpdateRecord seja executado sem parâmetros;

  • RESULT

    • Json : 'result',true ou false

      • true : Modo Appending habilitado

      • false : Modo Appending desabilitado

Public function NewRecord():TJSONObject; overload;

O método NewRecord executa o método datasource.dataset.append e inicia-o com valores default definidos no template.

  • RESULT

    • Json : 'appening',true ou false

      • true : Modo Appending habilitado

      • false : Modo Appending desabilitado em caso de execão

Public function UpdateRecord(const aIn_JSONObject: TJSONObject):TJSONObject;

O método name grava os campos passados por aIn_JSONObject no registro selecionado em chamada anterior ao método .doOnNewReord() ou .locate().

  • RESULT = appending

    • Json : result,boolean

      • true : sucesso ao gravar o registro

      • false : fracasso ao gravar o registro

Public function DeleteRecord():TJSONObject;

O método DeleteRecord delete o registro selecionado por .locate() ou pelos métodos FirstRecord(), NextRecord(), PrevRecord() ou LastRecord().

  • RESULT

    • Json : 'result',true ou false

      • true : Sucesso ao excluir o registro

      • false : False ao excluir o registro

Public function GetState: TJSONObject;

O método GetState retorna o estado do dataset que pode ser:

  • Estados:

    • DsActive : true ou false;

    • dsAppending : true ou false; //Se dsInsert for diferente de appending tem erro.

    • dsInsert : true ou false;

    • dsRecordAltered : true ou false; // Indica que foi alterado

    • dsBrowse : true ou false;

    • dsEdit : true ou false;

Public constructor Create(AOwner: TComponent); override;
 

Propriedades

Public property active : Boolean read GetActive write SetActive;

A propriedade active é usado para ativar e desativa o datamodule

Public property State : TDataSetState read Get_State;

A propriedade State é usado para saber o estado da tabela


Gerado por PasDoc 0.16.0.