Classe TUiDmxScroller

O atributo DMXFields salva todos os rótulos e campos da lista de Templates.

• MOTIVO

  • A classe mãe TUiDmxScroller mãe da classe TDmxScroller_Form cria Template de apenas uma linha, a lista DMXFields salva todas as linhas para geração de um Template do tipo formulário.

O atributo Fields contém uma lista pDmxFieldRec cujo Fieldnum<>0.

• Essa lista é atualizada em createStruct

O atributo DataFields salva somente os campos de dados cujo o campo filednum<>0

O atributo Limit salva o limite inferior e superior da janela no qual foi criado os componentes dos formulários

O atributo CreateValid indica que a classe voi criada.

O atributo WorkingData é um ponteiro para o buffer do registro

O atributo WorkingDataOld é um ponteiro para o buffer do registro anterior

O atributo DataBlockSize é o tamanho do registro apontado por WorkingData.

O atributo ActualRecordNum contém o número da linha corrente

O atributo DMXField1 contém o primeiro campo da lista encandeada

O atributo TotalFields contém o total de campos da lista apontada por DMXField1

O atributo RecordSize contém o tamanho do buffer calculado por CreateStruct

O atributo FieldData contém o ponteiro do buffer do corrente campo calculado pela propriedade CurrentField

O atributo WidthChar deve ser iniciado quando este controle for incluído em um TScrollingWinControl. em um controle gráfico.

• EXEMPLO

  • WidthChar := ((Owner as TScrollingWinControl).Canvas.TextWidth(UiDmxScroller.CharAlfanumeric) div Length(UiDmxScroller.CharAlfanumeric));

O atributo HeightChar deve ser iniciado quando este controle for incluído em um TScrollingWinControl.

• EXEMPLO

  • HeightChar := (Owner as TScrollingWinControl).Canvas.TextHeight(CharAlfanumeric)+2;

O atributo KeyAltered indica se algum campo da chave foi alterado é setado em changeMade

O atributo keysPrimaryKeyComposite contém a lista de campos que pertence a chave primária

• EXEMPLOS:

  • Chave simples:

    • 'Matricula'.

  • Chave composta:

    • 'Estado,Cidade'.

• NOTA

  • Se pos(';',keysPrimaryKeyComposite) <> 0 indica que a chave é composta.

O atributo _Active é usado para criar a propriedade active do componente

• NOTAS

  • O componente só pode estar ativo se o GetTemplate <> nil .

  • O método CreateFormLCL só pode ser executado uma vêz.

  • Caso o active esteja true e o usuário seta para false o controle Owner deve ficar invisível.

O atributo protected _CurrentField contem os dados da propriedade CurrentField.

O atributo CurrentField_old salva o currentefield anterior ao atual.

• ATENÇÃO

  • Necessário caso se deseja fazer alguma crítica com os dados do buffer do corrente campo focado ao pressionar um botão de ação.

A atributo CurrentField_focused contém um ponteiro para o campo selecionado e que FieldNum seja diferente de zero.

O Método GetAction retorna a ação associada a aName se existir

O método SetStateAction habilita e desabila o botão aName

O método getStateAction retorna a propriedade Taction.enable

O método CommandsDisabled retorna true se todos os comandos passados por aCommands estiverem desativados e retorna false se pelo menos um estiver ativado.

• EXEMPLO

  
  if CommandsDisabled('novo','grava')
  Then WriteLn('Os comandos novo e grava estão desabilitados');

O método CommandsEnabled retorna true se todos os comandos passados por aCommands estiverem ativados e retorna false se pelo menos um estiver desativado

• EXEMPLO

  
  if CommandsEnabled('novo','grava')
  Then WriteLn('Os comandos novo e grava estão ativados');

O método EnableCommands ativa todos os todos os comandos passados por aCommands.

• EXEMPLO

  
  DisableCommands('novo','grava');
  WriteLn('Os comandos novo e grava estão ativados');

O método DisableCommands desativa todos os todos os comandos passados por aCommands.

• EXEMPLO

  
  DisableCommands('novo','grava');
  WriteLn('Os comandos novo e grava estão desativados');

O método UpdateCommands habilita ou desabilita os botões de ações baseado no estado do dataset.

O método GetTemplate_CRUD_Buttons retorna um template para criação dos botões aCmNewRecord, aCmUpdateRecord,aCmLocate,aCmDeleteRecord,aCmCancel.

O método GetTemplate_CRUD_Buttons retorna um template para criação dos botões CmNewRecord, CmUpdateRecord,CmLocate,CmDeleteRecord,CmCancel.

O método GetTemplate_DbNavigator_Buttons retorna um template para criação dos botões aCmGoBof, aCmNextRecord,aCmPrevRecord,aCmGoEof,aCmRefresh.

O método GetTemplate_DbNavigator_Buttons retorna um template para criação dos botões CmGoBof, CmNextRecord,CmPrevRecord,CmGoEof,CmRefresh.

O método SetHelpCtx_Hint inicia a documentação resumida do campo. aFldNum

O método SetHelpCtx_Hint inicia a documentação resumida do campo passado em :apDmxFieldRec

O método UpdateBuffers atualiza o buffer dos controles associados ao componente.

O método ChangeMadeOnOff seta os atributos indicativos de que o objeto foi alterado ou não.

O método SetState seta o bit passado no parâmetro aState e retorna o estado anterior do mapa de bits passado por aState

O Método GetState recebe um mapa de bits e retorna:

• false : Se o bite estiver desligado;

• true ; Se o bit estiver ligado

O método FieldByName retorna o campo passado por aName.

O método CancelBuffers copia o buffer do registro anterior para o buffer do registro atual

O método GetBuffers copia o buffer do registro atual para o buffer do registro anterior.

• OBSERVAÇÃO:

  • O método GetBuffers deve ser anulado para ler o buffer dos campos dos arquivos associados a classe TUiDmxScroller para o buffer dos campos da classe TUiDmxScroller

O método PutBuffers deve ser anulado para grava o buffer dos campos da classe TUiDmxScroller para o buffer dos campos dos arquivos associados a classe TUiDmxScroller

O método Scroll_it_inview é usado para da o scroller na janela onde esse componente for inserido.

• NOTA

  • A LCL não rola a tela com a tecla tab e o controle não estiver visível.

O método DoOnEnter Executa o evento onEnter se o mesmo estiver assinalado.

Executado antes de construir o componente

Constrói o componente

Destrói o componente

A procedure CreateStruct é executado para construir a lista apontada por DMXField1 baseado no Template do tipo TString.

• NOTA

  • O parâmetro aTemplate é um string com 255 caracteres, porém o mesmo pode ser encandeado usando a função CreateAppendFields.

  • A função CreateAppendFields retorna a constante fldAPPEND mais o endereço da string a ser concatenada.

    • EXEMPLO

      Var
        S1,s2,Template : TString;
      begin
        S1 := '˜Nome do Aluno....:˜\ssssssssssssssssssssssssssssssssss';
        s2 := '˜Endereço do aluno:˜\sssssssssssssssssssssssss';
        Template := S1+CreateAppendFields(s2);
      end;

A procedure CreateStruct é executado para construir a lista apontada por DMXField1 baseado na lista PSItem.

• NOTA

  • O parâmetro aTemplate é uma lista PSitem.

  • A função CreateTSItemFields retorna uma lista de PSItem.

    • EXEMPLO

      Var
        Template : PSItem;
      begin
        Template := CreateTSItemFields(
                              NewSItem('cccccccccccccccccccccccccccccccccccccccccccccccccc',
                              NewSItem('cccccccccccccccccccccccccccccccccccccccccccccccccc',
                              NewSItem('cccccccccccccccccccccccccccccccccccccccccccccccccc',
                              NewSItem('cccccccccccccccccccccccccccccccccccccccccccccccccc',
                              NewSItem('cccccccccccccccccccccccccccccccccccccccccccccccccc',nil))))))
      end;

A procedure CreateStruct interpreta o Template obtido em getTemplate e cria a lista de pDmxFieldRec associada ao Template.

• Nota

  • O Template pode ser obtido pela propriedade Template se Template<> '' ou retornado pelo evento onGetTemplate.

A procedure DestroyStruct destrói as lista criada por CreateStruct acima.

O método CreateBufDataset_FieldDefs é usado para criar os campos de BufDataset

• Dica

  if GetDataSet.DefaultFields
  Then WriteLn('Os campos foram criados baseado nos metadados do banco de dados')
  else WriteLn('Os campos foram criados em tempo de designer ou tempo de execução.');

A procedure CreateData é usada para alocar (RecordSize) memória para o buffer (WorkingData) do registro calculado por createStruct

A procedure DestroyData é usada para desalocar memória do buffer do registro criado por CreateData

A função GetRecordData retorna o atributo WorkingData

O método GetTemplate é usado para atualizar o atributo _onGetTemplate com o modelo informado pelo usuário caso o onGetTemplate seja nil.

• NOTA

  1. O Evento _onGetTemplate só é iniciado em tempo de execução por isso o formulário não pode ser criado em tempo de projeto usando o evento onGetTemplate.

  2. As strings do formulário também pode ser desenhado usando o evento OnAddTemplate.

  3. O evento OnGetTemplate tem prioridade em relação ao evento OnAddTemplate;

O método DoAddTemplate Criar um formulário baseado em _Strings.

• Objetivo

  • Criar formulário baseado em recursos tipo maricarai em arquivo.

  • Nome do arquivo: TableName.template

• NOTAS

  • Se _Strings.Count > 0 então gera o template e retorna true;

  • Se _Strings.Count = 0 retorna false.

A procedure SetActive seta a propriedade active e criar um formulário LCL ou HTML dependendo do tipo de aplicação

O Método SetCurrentField Set o currenteField com aCurrentField

A função PutString salva a string S no currentField

• PARÂMETROS

  • OkSpc : campo lógico e se true salva o campo preenchendo com espaço para completar a máscara.

  • S : String do tipo ShortString com conteúdo do campo.

O método PutString salva um string no campo passado por aFieldName.

O método GetString retorna um string do campo passado por aFieldName.

A função GetString retorna a string com o valor do currentField

• PARÂMETROS

  • OkSpc : campo lógico e se true retorna o campo preenchendo com espaço para completar a máscara.

A função GetString retorna a string com o valor do currentField sem preencher com espaço para completar a máscara.

A função PutString salva a string S no currentField usando okspc = false;

• PARÂMETROS

  • S : String do tipo ShortString com conteúdo do campo.

O método Get_MaskEdit_LCL receber a máscara do DmxScroller e retorna a mascara do componente LCL.

• PARÂMETROS

  • aTemplate :

    • S = Indica que a posição é do tipo ShortString e só aceita caractere maiúsculo.

      • Exemplo: \SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS

    • s = Indica que a posição é do tipo ShortString e só aceita caractere maiusculos e minusculos.

      • Exemplo: \ssssssssssssssssssssssssssssssssssssss

    • s = Indica que a posição é do tipo ShortString e só aceita caracteres númericos.

      • Exemplo: '\(##) # ####-####'

    • C = Indica que a posição é do tipo AnsiString e só aceita caractere maiúsculo.

      • Exemplo: \CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC

    • c = Indica que a posição é do tipo ansistring e aceita caractere maiusculos e minusculos.

      • Exemplo: \cccccccccccccccccccccccccccccccccccccc

    • 0 = Indica que a posição é do tipo ansistring e aceita caracteres númericos.

      • Exemplo: \(00) 0 0000-0000' //85 9 9702 4498

    • B = Indica que a posição é do tipo byte o máximo de B que pode ter é 3. O valor não pode ser maior que 255.

      • Exemplo: \BBB

    • J = Indica que a posição é do tipo shortint o número shotint so pode ter número entre -128 to 127

      • Exemplo: \JJJ

    • W = Indica que a posição é do tipo smallword (2 bytes) e só pode ter número entre 0 a 65.535

      • Exemplo: \WWWWW

    • I = Indica que a posição é do tipo inteiro longo (4 bytes) e só pode ter número entre -4.294.967.295 a 4.294.967.295

      • Exemplo: \IIIII

    • L = Indica que a posição é do tipo inteiro longo (4 bytes) e só pode ter número entre -4.294.967.295 a 4.294.967.295

      • Exemplo: \LLLLLL

    • R = Indica que a posição é do tipo real (8 bytes) e pode ter número fracionários.

      • Exemplo: \RRR,RRRR,RR

    • r = Indica que a posição é do tipo real positivo (8 bytes) e pode ter número fracionários.

      • Exemplo: \rrr,rrr.rr

    • O = Indica que a posição é do tipo real (4 bytes) e pode ter número fracionários.

      • Exemplo: \OOO,OOO.OO

    • o = Indica que a posição é do tipo real positivo (4 bytes) e pode ter número fracionários.

      • Exemplo: \ooo,ooo.oo

    • P = Indica que a posição é do tipo real (4 bytes) e pode ter número fracionários e armazena. Seu valor é dividido por 100 e ao gravar e ao ler é mutiplicado por 100 usado em número percentuais. Obs: Pode se negativo.

      • Exemplo: \PPP.PP

    • p = Indica que a posição é do tipo real positivo (4 bytes) e pode ter número fracionários e armazena. Seu valor é dividido por 100 e ao gravar e ao ler é mutiplicado por 100 usado em número percentuais. Obs: Não pode se negativo.

      • Exemplo: \PPP.PP

    • E = Indica que a posição é do tipo extended (10 bytes) e pode ter números fracionários.

      • Exemplo: \EEE,EEE,EEE.EE

    • X = Indica que a posição é do tipo boolean (1 bytes) e só pode ter os números 0 ou 1;

      • Exemplo: \X

  • Size_TypeFld

    • Retorno o tipo de dados da mascara;

  • aLength_Buffer

    • Retorno o tamanho do tipo de dados da mascara;

  • aOkMask

    • Retorna true se tiver mascara e false caso contrário;

• RESULT

  • Caracter Descrição da mascara da LCL

    • ! Espaços em branco não aparecerão

    • > Todos os caracteres seguintes serão maiúsculos até que apareça o caracter

    • < Todos os caracteres seguintes serão minúsculos até que apareça o caracter

    • \ Indica um caracter literal

    • l (L minusculo) Somente caracter alfabético

    • L Obrigatoriamente um caracter alfabético (A-Z, a-z)

    • a Somente caracter alfanumérico

    • A Obrigatoriamente caractere alfanumérico ( A-Z, a-z, 0-9)

    • 9 Somente caracter numérico

    • 0 Obrigatoriamente caracter numérico

    • c permite um caracter

    • C Obrigatoriamente um caracter

    • # Permite um caracter numérico ou sinal de mais ou de menos, mas não os requer.

    • : Separador de horas, minutos e segundos

    • / Separador de dias, meses e anos

    • NOTAS:

      • A máscara basicamente consiste de três campos, separados por ponto e vírgula.

        • A primeira parte é a máscara propriamente dita.

        • A segunda parte determina se os caracteres fixos devem ser ou não salvos com a máscara (ex: /, -, (, ...).

        • A terceira parte da máscara representa o caracter em branco, podendo ser substituído por outro (ex: _, @, ...).

      • Caracteres especiais utilizados com a máscara:

        • ! Faz com que a digitação da máscara fique parada no primeiro caracter, fazendo com que os caracteres digitados que se movam. Ex: !;0;_

        • > Todos os caracteres alfabéticos digitados após este símbolo serão convertidos para maiúsculos. Ex: >aaa;0;_

        • < Todos os caracteres alfabéticos digitados após este símbolo serão convertidos para minúsculos. Ex: <aaa;0;_

        • <> Anula o uso dos caracteres > e <. Ex: >aaa<>aaa;0;_

        • \ Utilizado para marcar determinado caractere não especial como fixo, não podendo sobrescrevê-lo. Ex: !\(999\)000-0000;0;_

        • L Caracteres alfabéticos (A-Z, a-z.) de preenchimento obrigatório. Ex: LLL;1;_

        • l (Letra ele minúscula) Caracteres alfabéticos (A-Z, a-z.) de preenchimento opcional. Ex: lll;1;_

        • A Caracteres alfanuméricos (A-Z, a-z, 0-9) de preenchimento obrigatório. Ex: AAA;1;_

        • a Caracteres alfanuméricos (A-Z, a-z, 0-9) de preenchimento opcional. Ex: aaa;1;_

        • C Exige preenchimento obrigatório com qualquer caractere para a posição. Ex: CCC;1;_

        • c Permite qualquer caractere para a posição de preenchimento opcional. Ex: ccc;1;_

        • 0 Caracteres numéricos (0-9) de preenchimento obrigatório. Ex: 000;1;_

        • 9 Caracteres numéricos (0-9) de preenchimento opcional. Ex: 999;1;_

        • # Caracteres numéricos (0-9) e os sinais de - ou + de preenchimento opcional. Ex: ###;1;_

        • : Utilizado como separador de horas, minutos e segundos. Ex: !00:00:00;1;_

        • / Utilizado como separador de dia, mês e ano. Ex: !99/99/9999;1;_

        • ; Separa os três campos da máscara.

        • _ Caractere usado normalmente nas posições do campo ainda não preenchidas.

        • Campom númerico

          • #####,##;1;_

          • O 1 Indica para salvar a mascara no resultado.

          • O caractere _ indica que deve ser digitado 1 caractere.

          • #####,##;0;_

            • O 0 Indica para não salvar a máscara no resultado.

• EXEMPLO DE FORMATO FLOAT

  Const
    NrFormat=9;
    FormatStrings : Array[1..NrFormat] of string = (
          '',
          '0',
          '0.00',
          '#.##',
          '#,##0.00',
          '#,##0.00;(#,##0.00)',
          '#,##0.00;;Zero',
          '0.000E+00',
          '#.###E-0');
  
          '999999999,99;0; ';
          '###,###,###,##0.00';

O método Get_MaskEdit_LCL receber a máscara do Dmx e retorna a mascara do componente LCL.

• PARÂMETROS

O Método FormatMaskEdit_LCL retorna um valor o parâmetro aValue formatado deacordo o parâmetro mask com formato da IDL LCL.

• NOTA:

  • aDirecao

    • True : aValue será formatado da esquerda para direita;

    • false: aValue será formatado da direita para esquerda;

O atributo IfEqual retorna true se o buffer apontado por PAnt for igual ao buffer apontado por PAtu.

O método RecordAltered retorna true se o registro atual for diferente do registro anterior

A classe método CreateExecAction é usado para adicionar a chamada de um procedimento quando a tecla F7 é pressionada;

O método SetArgs atualiza o buffer com o array aArgs

• Exemplo de como alterar o primeiro registro com a sequencia [josé Carlos, 15]:

  
  if FirstRec Then
  begin
    edit;
    SetArgs(['José Carlos',15]);
    UpdateRec;
  end;

O método Select_First_Field_Normal deve ser implamentado na unit que implementar o desenho do formulário

O método DoOnNewRecord é usado para inicializa os parâmetros de um novo registro.

• Descrição

  • O método DoOnNewRecord é responsável por iniciar a criação de um novo registro no dataset associado ao componente. Ele executa uma série de operações para configurar o estado da aplicação como "appending", preencher campos com valores padrão e atualizar o buffer de dados.

• Parâmetros Locais

  • WState_SfFocused (Boolean): Guarda o estado anterior do foco no componente para restaurá-lo após a inserção.

  • wOnCalcRecordEnable (Boolean): Armazena o estado da habilitação de cálculos de registros, desativado temporariamente.

  • p (TDataSetNotifyEvent): Ponteiro para o evento OnNewRecord do dataset, se atribuído.

  • wCurrentField (PDmxFieldRec): Campo atualmente em foco.

  • i (Integer): Usado para iterar sobre os campos do dataset.

  • s (String): Usado para armazenar temporariamente valores padrão dos campos.

• Fluxo de Execução

  1. Verifica se o dataset está ativo com isDataSetActive.

  2. Se ativo:

     • Marca o estado como "Appending" para indicar a inserção de um novo registro.

     • Define valores padrão para os campos do novo registro.

     • Notifica os manipuladores de evento, se existentes.

     • Atualiza o buffer de dados e os comandos associados ao dataset.

  3. Após a inserção, restaura o estado anterior, como foco e habilitação de cálculos.

• Exceções

  • Exception:

    • Lança uma exceção se houver algum erro durante o processo de inserção de um novo registro.

• Ver Também

  • OnNewRecord: Evento chamado ao criar um novo registro.

O método StartTransaction inicia uma transação se puder.

• RESULT

  • True

    • Se a transação atual for false;

  • false

    • Se a transação atual for true;

  • **Objetivo:

    • Permitir que após o processamento, só executar commit ou rollback se StartTransaction tenha retornado true;

  • EXEMPLO DE USO

    
    Function AddRec:Boolean;
    Var
      Finalize : boolean;
    begin
      try /Exepet
    
        Finalize := StartTransaction;
    
        AddRec;
    
        if Finalize
        then Commit
    
      Except
        On E : Exception do
        begin
          if finalize
          then Rollback;
    
          Raise TException.Create(Self,$I %CURRENTROUTINE%,E.Message);
        end;
    end;

O método COMMIT confirme a transação no banco de dados

O método Rollback anula a transação do banco de dados

O método isDataSetActive retorna true se ativo e existe datasource com dataset ativo.

O método UpdateState Executa SetState para hablitar e desabilita comandos para estar sincronizado com getdataset

O método DataSet_Append comunica-se com o DataSource.DataSet.Append

O método DataSet_post comunica-se com o DataSource.DataSet.post

O método DataSet_Delete comunica-se com o DataSource.DataSet.delete

O método DataSet_Edit comunica-se com o DataSource.DataSet.edit

O método Locate localiza o registro baseada nos valores (KeyValues) dos campos passados por KeyFields.

• RETORNA

  • True : Se localizou;

  • False : Não localizou.

O método Locate executa o método TMi_rtl.Locate(const aField:pDmxFieldRec) onde aField é o campo corrente do formulário em edição.

• RETORNA

  • True : Se localizou;

  • False : Não localizou.

O método DataSet_BookmarkValid comunica-se com o DataSource.DataSet.BookMarkValid

O método DataSet_Cancel comunica-se com o DataSource.DataSet.Cancel

O método DataSet_Refresh Exeuta DataSource.DataSet.Refresh porém antes desativa e ativa.

O método DataSet_ApplyUpdates comunica-se com o DataSource.DataSet.ApplyUpdates

O método Edit colocará o conjunto de dados no modo de edição:

• NOTAS:

  • O conteúdo do registro atual poderá então ser alterado.

  • Esta ação irá chamar os eventos TDataset.BeforeEdit e TDataset.AfterEdit.

  • Se o conjunto de dados já estiver em modo de inserção ou edição, nada acontecerá (os eventos também não serão acionados).

  • Se o conjunto de dados estiver vazio, esta ação executará TDataset.Append .

O método FirstRec posiciona o cursor no primeiro registro de DataSource.dataSet

• RETORNA

  • True: se posicionado no primeiro registro;

  • False: Chamada ao método FirstRec estando no primeiro registro.

O método NextRec é responsável por mover o cursor do dataset para o próximo registro, caso o dataset esteja ativo e não tenha alcançado o final dos registros (EOF). Se houver um próximo registro, ele retorna True e chama os eventos correspondentes para atualizar o estado da interface. Caso contrário, retorna False e mantém o estado do dataset.

• Parâmetros Locais

  • ds: TDataSet: Objeto do tipo TDataSet que faz referência ao dataset utilizado no método.

• Fluxo de Execução

  1. Verificação de Atividade do Dataset:

     • O método primeiro verifica se o dataset está ativo usando isDataSetActive. Se não estiver ativo, o método retorna False.

  2. Manipulação de Registros:

     • Se o dataset está ativo, o método obtém o dataset com GetDataSet, chama o evento DoOnExit e tenta mover para o próximo registro com ds.Next.

     • Se não for o final do dataset (EOF), ele chama GetRec para atualizar os dados com o registro atual usando o Bookmark do dataset.

     • Se o EOF for alcançado, ele retorna False.

  3. Tratamento de Exceções:

     • Se ocorrer qualquer exceção durante a movimentação entre os registros, uma mensagem de erro é exibida com ShowMessage(E.Message), e o método retorna False.

  4. Eventos Finais:

     • Após o processamento, o evento DoOnEnter é chamado. Caso o EOF seja atingido, o método chama ds.Last para garantir que o estado final do dataset seja correto, já que o evento DoOnEnter pode alterar o ponteiro EOF.

     • Finalmente, o método chama UpdateCommands para atualizar os comandos da interface.

  5. Exceções

     • O método captura exceções do tipo Exception, exibindo a mensagem de erro ao usuário com ShowMessage.

• Retorno

  • True: Se houver sucesso ao mover para o próximo registro e atualizar o estado da interface.

  • False: Se o dataset estiver no final (EOF), inativo ou ocorrer alguma exceção.

• Ver Também

  • DoOnExit

  • DoOnEnter

  • GetRec

  • UpdateCommands

O método PrevRec posiciona o cursor no registro anteror de DataSource.dataSet

• RETORNA

  • True se posicionau no registro anterior;

  • False se atingir o bof (inicio do arquivo)

O método LastRec posiciona o cursor no último registro do DataSource.dataSet

• RETORNA

  • True: se posicionado no último registro;

  • False: Chamada ao método LastRec estando no último registro.

O Método Cancel deve apagar o buffer e coloca a tabela no modo Browser

O método RefreshInternal posiciona ler o registro atual do DataSource.dataSet

O método DoCalcFields entra e sai em todos os campos para que os mesmos executem seus eventos assinalados e é executado em DoCalcFields sem parâmetros.

• NOTA

  • O Buffer deve ser WorkingData ou WorkingDataold.

O método AddRec adiciona o buffer DataSource.dataSet n arquivo.

• RETORNA

  • True: Se sucesso;

  • False: Se fracasso.

O método GetRec ler do arquivo o registro apontado pelo buffer DataSource.dataSet.

• RETORNA

  • True: Se sucesso;

  • False: Se fracasso.

O método DeleteRec exclui o registro apontado pelo buffer DataSource.dataSet no arquivo.

• RETORNA

  • True: Se sucesso;

  • False: Se fracasso.

O método getFieldsKeys retorna uma string com os nomes dos campos separados por virculas e em Values retorna os valores do campos;

• EXEMPLO

  • Campo chaves: 'data;id'

O método PutRec grava o buffer no registro apontado CuurentBookmark do DataSource.dataSet no arquivo.

• RETORNA

  • True: Se sucesso;

  • False: Se fracasso.

O método UpdateRec grava o buffer no registro apontado CuurentBookmark do DataSource.dataSet no arquivo.

• NOTAS

  • Se appending = true executar o método addRec;

  • Se Appening = false executa o método PutRec;

• RETORNA

  • True: Se sucesso;

  • False: Se fracasso.

O método GetNextValue retorna a número da sequência do próximo registro.

• PARAMETROS

  • SequenceName

    • O nome da sequência no banco de dados;

  • IncrementBy

    • Número que deve ser acrescentado na sequência

O método MaxPKey retorna o maximo do campo ID da tabela dm_table

• EXMPLO DE USO:

  ´´´pascal procedure TForm_Operadores.Button1Click(Sender: TObject); Var Id : string; begin id := Operadores.MaxPKey('dm_table','id'); Tmi_rtl.ShowMessage('Próxímo número = '+id+1); end;

  `

• REFERÊNCIA:

  • ATENÇÂO:

    • [Geração automática de instruções SQL de atualização](https://www.freepascal.org/docs-html/fcl/sqldb/updatesqls.html)

    • [aprenda-programar-funcao-para-retornar](https://infocotidiano.com.br/2016/09/aprenda-programar-funcao-para-retornar.html)

    • [postgresql-max-function](https://www.postgresqltutorial.com/postgresql-aggregate-functions/postgresql-max-function/)

O método MaxPKey retorna o número de registros da coluna 'ID'

O método GetRecNo retorna o valor máximo da coluna 'ID' se a tabela for TSQLQuery e DataSet.RecNo caso contrário.

O método EnableControls habilitas os controles visuais do dataset

O método DisableControls desabilita os controles visuais do dataset

O método ControlsDisabled retorna true se os contoles estã habilitados e retorna false se não tiver habilitado

O método SaveTemplate salva o parâmetro aTemplate_org no arquivo aFileName se o arquivo aFileName não existir.

• PARÂMETROS

  • aFileName

    • Nome do arquivo;

  • aTemplate_org

    • String com o template

• NOTA

  • o Método CreateStruct reconhece somente os rótulos e os campos da mesma linha. É necessário ser redefinido em mi_rtl_ui_mxscroller_form para salve todas as linhas.

O método UpdateDataField_AliasList procura todos os campos fldRadioGroup e atualiza o campo AliasList a alias.

A propriedade CurrentRecord salva o número do campo selecionado.

A propriedade Strings o Strings é usada para editar o Template em tempo de projeto.

A propriedade TableName contém o nome da tabela ou consulta no banco de dados.

• NOTA

  • A propriedade TableName é usado no método SetSqlBufDataset para criação da propriedade TCustomSQLQuery.SQL e no método AlterTable para criação da tabela ou consulta no banco de dados.

A propriedade Appending é usada para saber se está editando um novo registro ou não

• NOTA

  • TRUE = Indica que um novo registro esta sendo editado.

  • False = Indica que um registro existente está sendo editado ou visualizado.

  • Obs: Deve ser atualizado na visão caso a tabela está em edição.

O evento onCloseQuery é disparado toda vez que o TUiDmxScroller é desativado.

• NOTA*

  • Este evento é disparado antes de desativar a classe **TUiDmxScroller

  .

  • Obs: Se o parâmetro CanClose for false, então o formulário não é desativado.

O evento onEnter é disparado toda vez que o TUiDmxScroller ativado.

O evento onExit é disparado toda vez que o TUiDmxScroller é destivado.

O evento onEnterField é disparado toda vez que o controle corrente recebe o foco.

O evento onExitField é disparado toda vez que o controle corrente perde o foco.

O tipo onCalcField é usado no evento para calcular um campo e é executado em TDmxFieldRec.DoOnEnter() e TDmxFieldRec.DoOnExit()

O evento onGetTemplate substitui o método getTemplate caso OnGetTemplate<>nil

A propriedade CurrentField contém um ponteiro para o campo selecionado

A propriedade AlignmentLabels contém a propriedade taLeftJustify, taRightJustify, taCenter indicando que o rótulos dos campos devem ser alinhados a esquerda, a direita ou ao centro.

• NOTA

  • Quando todas as letras são maiúsculas e o alinhamento é a direta é necessário colocar espaços em branco a direta para compensar o tamanho, do contrário o TLabel omite o inicio do label porque o texto fica maior que o a largura do label.

A propriedade BufDataset é usada com objetivo de integração dos dados do formulário TDmxScroller e os controle que forem baseados em TDataSet.

A propriedade DataSource permite que controles da LCL (Lazarus Componentes Library) possam usar os dados do componente TDmxScroller.

• NOTA

  • Essa integração permite que TDmxScroller utilize todos os componentes de banco de dados do Free Pascal.

A propriedade Locked deve ser redefinida na interface filha desta classe para travar o formulário se aLocked = true e destravar se aLocked = false;

A propriedade OnNewRecord é executada em DoOnNewRecord se a mesma for assinalada.

A propriedade CurrentBookmark retorna o registro corrente de TDataSource.Datase.

• NOTA

  • Faz a mesma função de gerRec;

A propriedade ShouldSaveTemplate é usada método CreateStruct com objetivo de salvar o template_org.

• NOTAS

  • Condição para que o método SaveTemplate seja executado:

    • A propriedade ShouldSaveTemplate deve ser igua true;

    • O Nome da propriedade TableName deve ser diferente de vazio;

O propriedade MiDataPacketFormat_Default usado para dar opção do usuário informar o tipo de arquivo a ser salvo por BufDataSet.

O propriedade Modified se retorna true indica que pelo menos um campo foi alterado no dataset.

O propriedade CanModify se retorna true indica que pelo menos um campo foi alterado no dataset.