Chamar Unit por botão ou menu utilizando evento

Olá!

Estava tentando chamar uma Unit pelo menu do Delphi, mas não estava conseguindo porque ainda estou iniciando na ferramenta, mas percebi que posso chamar da mesma maneira que chamo a Unit utilizando um botão. Então logo, posso chamá-la usando outros artifícios.

fonte: https://mastigado.wordpress.com

Mas vamos lá.

Em primeiro lugar, devemos clicar no componente MainMenu que estamos utilizando para selecioná-lo e em seguida, em seu Object Inspector, clicar nos três pontos pertencentes a (Menu) dentro do atributo Items(sim, em inglês esta palavra usa o m).

TMainMenu Propriedades

MainMenu Propriedades

Após selecionar o ítem de menu selecionado no componente clicado, você pode dar 2 cliques nele como na figura abaixo.

Ítem do menu MainMenu

Ítem do menu MainMenu

O código a ser inserido neste local que estará assim:


procedure TfrmPrincipal.Cidades1Click(Sender: TObject);

begin

end;

Ficaria algo tipo assim:


procedure TfrmPrincipal.Cidades1Click(Sender: TObject);
var cidade : TfrmCidade;
begin
cidade := TfrmCidade.create(Self);
cidade.ShowModal;
end;

Na verdade, eu baseei em um exemplo de chamada de button utilizada pelo professor Neri e vi que não precisaria modificar praticamente nada, pois o evento Click já vem automático após os 2 cliques, sendo apenas necessário:

A criação da variável cidade do tipo TfrmCidade e dentro de begin;

Dizer que cidade recebe a criação de um TfrmCidade dentro dela mesma;

E para finalizar, chamar a variável cidade passando o método showModal que servirá para mostrar na tela a Unit sem poder sair do formulário aberto sem ter fechado o form.

Inserindo teclas de atalho na aplicação

Vale lembrar que para inserir uma tecla de atalho no ítem de menu, em Object Inspector, no ítem ShortCut, escolha a combinação de tecla de atalho que desejar para chamar a aplicação.

fonte: https://mastigado.wordpress.com

Alterar os nomes dos botões do DBNavigator ou outro componente input(Hints)

Para adicionar um nome em um determinado botão ou a um componente input, siga em Object Inspector -> Hints e nas linhas que seguem é possível em cada um delas, alterando o seu nome, modificar o nome que irá aparecer quando o mouse parar sobre determinado componente. Mas vale lembrar que a mudança só ocorrerá se o atributo ShowHint estiver marcado como True.

DBNavigator editando Hint

DBNavigator editando Hint

fonte: https://mastigado.wordpress.com

Alterando propriedades do DBGrid

Bem, abaixo um pequeno resumo sobre algumas propriedades contidas no Object Inspector do DBGrid.

fonte: https://mastigado.wordpress.com

Dentro de Object Inspector -> Options existem vários campos que eu, particularmente, esqueço constatemente. Vamos lá então para saber maiores detalhes(Lembrando, os que não estão aí foi porque nunca precisei utilizar).

  • dbEditing –
  • dbAlwaysShowEditor –
  • dgTitles – Se False, retira o título de cada coluna do DBGrid;
  • dgIndicator – Se False, retira do canto esquerdo a coluna que contém uma pequena seta indicando qual o registro dentro do DBGrid está sendo selecionado no momento;
  • dgColumnResize – Se False, não haverá mais a possibilidade de aumentar manualmente o tamanho das colunas durante a execução do programa;
  • dgColLines – Se False, não mais exibe na tela a linha das colunas do DBGrid;
  • dgRowLines – Se False, não mais exibe na tela as linhas dos registros trazidos no DBGrid;
  • dgTabs – Se False, desabilita a navegação nos registros trazidos pelo DBGrid utilizando a tecla Tab, mas caso a opção dgRowSelect esteja marcada como True, qualquer parâmetro contido no atributo dgTabs não surtirá efeito algum;
  • dgRowSelect – Se True, faz com que haja seleção em toda a linha do registro contido no DBGrid, ao invés de somente o campo selecionado quando esta opção esta em False;
  • dgAlwaysShowSelection – Se True, permite que a seleção do registro no DBGrid fique sempre ativa, mesmo sua navegação estando sendo controlada por um outro componente que não seja o próprio clique no DBGrid;
  • dgConfirmDelete –
  • dgCancelOnExit –
  • dgMultiSelect – Se True, permite selecionar múltiplos ítens com a tecla Ctrl pressionada.

: )

fonte: https://mastigado.wordpress.com

Como alterar o título de coluna em um DBGrid

Olá!

Continuando os estudos em cima das aulas do professor Neri, hoje entenderemos como alterar o título de uma coluna pertencente a um DBGrid.

fonte: https://mastigado.wordpress.com

Em primeiro lugar, dê 2 cliques em cima do título para abrir uma janela de edição de colunas do DBGrid.

Num primeiro momento, o quadrado que se abrirá será mostrada em branco, mas clicando no botão Add All Fields(2º passo), todos os nomes correspondentes às colunas surgirão e partir disso, deve-se selecionar o desejado para efetuar a alteração desejada. A alteração do nome do campo deverá ser feita dentro Object Inspector -> Title -> Caption.

Alterando título do DBGrid

Alterando título do DBGrid

Para complementar, uma forma de alterar a visualização das linhas selecionadas no DBGrid quando utilizado no programa, selecionamos o objeto DBGrid, depois clicamos em Object Inspector -> Options e nas opções dgRowSelect, que significa deixar marcada toda a linha do DBGrid quando selecionada e dgAlwaysShowSelection, que faz com que a linha de um determinado registro selecionado pelo DBNavigator esteja sempre selecionada, sejam ambos marcados como True.

Assim, deixará de ficar deste jeito abaixo.

DBGrid antes de alterar as propriedades de exibição de linha

DBGrid antes de alterar as propriedades de exibição de linha

Para depois de alterado.

DBGrid depois de alterado a exibição de linha

DBGrid depois de alterado a exibição de linha

: )

fonte: https://mastigado.wordpress.com

Trocar campo Edit por DBComboBox

Neste post, vou colocar um exemplo utilizado pelo professor Neri sobre como utilizar um DBComboBox para buscar dados dentro de um DBGrid.

fonte: https://mastigado.wordpress.com

Primeiro, vou apagar de minha Unit o campo Edit que desejo substituir.

Campo Edit a ser excluído

Em Data Controls, vou buscar o componente DBComboBox e colocá-lo no lugar do campo Edit. Selecionando este novo objeto, no painel Object Editor, clicar na propriedade Items, clicar nos três pontinhos e acrescentar as siglas dos estados um a um. Lembrando que se você não inserir estes valores, toda a vez que você clicar em um registro no DBGrid, você não verá os outros valores que deveriam sido informaados.

DBComboBox

Para completar esta operação, primeiro utilizaremos o DataSource para definir qual será o DataSource que você busca os dados.

Data Source do DBComboBox

E em Datafield, defini qual será o campo da minha tabela daquele determinado DataSource que utilizarei em meu DBComboBox.

Data Field do DBComboBox

É isso aí.

fonte: www.informaticon.com.br

fonte: https://mastigado.wordpress.com

Fazer consultas num DBGrid utilizando DBLookupComboBox

Olá.

Hoje faremos uma consulta utilizando o componente DBLookupComboBox que está contido na aba Data Controls do Delphi.

fonte: https://mastigado.wordpress.com

Primeiro, para ficar aprensentável, colocaremos ele(o DBLookupComboBox) dentro de um GroupBox que em sua propriedade name dentro de Object Inspector, alteraremos o seu nome para exibição.

Em seguida, olhando abaixo, escolheremos qual a fonte de dados que pesquisaremos nossa lista, clicando em cima do componente DBLookupComboBox e dirigindo-se para ListSource dentro de seu Object Inspector. Lembrando que estou utilizando o SQL Server.

O Source da Lista que desejamos obter

Adiante, escolheremos na propriedade KeyField qual será o campo chave que iremos utilizar.

Campo Chave

Abaixo, definiremos o campo a ser listado no DBGrid. Na propriedade ListField, deveremos escolher o campo que entendemos que a seleção deverá indicar.

Campo a ser listado

Daí é só testar. : )

fonte: https://mastigado.wordpress.com

Fazendo pesquisa em um DB Grid utilizando um campo do tipo Edit

Hola!

Estou assistindo umas aulas do professor Neri(comprei uns dvds há um tempo atrás no site www.informaticon.com.br) e tenho achado muito legal, mas como ele utiliza Interbase e não usa conexão de banco do ADO, me complicou, pois estou utilizando SQL Server e por isso, achei que deveria traduzir isso.

fonte: https://mastigado.wordpress.com

Logo abaixo está o Edit que utilizaremos para fazer pesquisa dentro Group Box

Group Box e Edit

Após dar dois cliques em cima do componente Edit, coloque o código abaixo do que deseja pesquisar, no caso abaixo é o campo nome chamado cid_nome.

<br />procedure TfrmCidade.Edit1Change(Sender: TObject);<br /><%%KEEPWHITESPACE%%>   begin<br /><%%KEEPWHITESPACE%%>      ADOTable1.locate('cid_nome',edit1.text,[loPartialKey,loCaseInsensitive]);<br /><%%KEEPWHITESPACE%%> end;<br />

Bem, vamos lá traduzir então:

  • Evento Change – Leva o nome na procedure e é responsável por capturar tudo o que é digitado no texto dentro do Edit e enquanto isso executa a procedure que o chama(isto também tem no Java Script).
  • ADOTable1 – É a nossa tabela do banco de dados, seria tbl_cidade no caso, mas como estou utilizando uma conexão ADO ficou deste jeito aí.
  • locate – Este comando busca onde você deseja localizar determinado texto que está digitando.
  • cid_nome – O nome do campo em que irá ser pesquisado o termo e as aspas simples(”) são necessárias porque se trata de uma string.
  • Edit.text – Identifica a partir de onde será pesquisado o termo em questão e o text é porque estou digitando uma String.
  • LoPartialKey – Quer dizer que a pesquisa feita por uma parte da string que é digitada para a busca.
  • LoCaseInsensitive – Significa que tanto letras maiúsculas ou minúsculas podem ser digitadas nesta pesquisa que ele sempre trará o resultado.

até+. 🙂

fonte: https://mastigado.wordpress.com

%d blogueiros gostam disto: