Cadastro de Vagas utilizando MySQL - Servidor WEB
Preenchendo um ComboBox
No evento onShow do formulário:
cmbUF.Items.Add('SP');
Carregando um formulário:
frmLogin.Hide; // oculta o formulário atual
Application.CreateForm(TfrmMenu, frmMenu);
frmMenu.Show;
Validando um Edit:
if(edtLogin.Text ='') then
begin
ShowMessage('Informe o Login!');
edtLogin.SetFocus; // Envia o cursor (foco) para o edit
end;
Saindo do Sistema:
No evento onClose do formulário:
if(Application.MessageBox('Deseja realmente sair?','Aviso',36)=6) then
begin
Application.Terminate;
// Encerra o sistema end
else
abort;
Só permitindo números e vírgula em um edit:
No evento onKeyPress do edit:
if not (Key in ['0'..'9' , ',' , #8]) then Key := #0;
// #8 é o código da tecla Backspace
Convertendo edit para efetuar cálculos:
var n1, n2, res:double;
begin
n1 := StrToFloat(edtNumero1.Text);
n2 := StrToFloat(edtNumero2.Text);
res := n1 + n2;
edtResultado.Text:= res.ToString;
end;
Limpando conteúdo dos edits:
edtNumero1.Clear;
edtNumero2.Clear;
edtResultado.Text:= '';
edtNumero1.SetFocus;
Criando procedimentos:
Crie logo após a diretiva {$R *.dfm}
A procedure:
procedure TfrmClientes.limpar;
// TfrmClientes é a instância do formulário begin
Edit1.Clear;
Edit2.Clear;
end;
Para chamar esta procedure, vá por exemplo em um botão, e digite: limpar;
Utilize os comandos abaixo para permitir apenas digitação de letras e
backspace. Acesse o evento OnKeyPress do controle Edit e digite:
// se última tecla for letra, espaço ou Backspace
If not (Key in ['A'..'Z','a'..'z', #32, #8]) then
Key := #0; // ignora a última tecla digitada
Para criar uma consulta aproximada a uma tabela de banco de dados, ou
seja, uma pesquisa que procura parte do campo desejado, siga os passos:
Selecione o evento OnChange do componente TEdit desejado e digite o
comando Locate, como abaixo:
DM.ADOQryClientes.Locate('nome',edtPesquisa.Text,[loCaseInsensitive,
loPartialKey]);
Onde:
DM é o nome da tela de DataModule,
ADOQryClientes é o nome da componente AdoTable da tabela,
nome é o nome do campo na tabela a ser pesquisado,
edtPesquisa.Text é o objeto TEdit onde será digitado o conteúdo a ser
pesquisado.
loCaseInsensitive não faz distinção entre letra maiúscula ou minúscula
loPartialKey pesquisa por parte do campo
Pressione Alt + F11. Será exibida a janela para você inserir unit em seu projeto, como a do Data Module