Controle de Oficina Mecânica
Neste tutorial iremos criar o formulário de Controle de Manutenção, lembrando que o projeto em si, vem de várias dicas vindo das Revistas e Vídeo Aulas da Devmedia. Estou utilizando como base no Formulário de Manutenção um programa que vi de controle de Locadora, que no momento não me lembro o nome do desenvolvedor. Mas todo o mérito do layout não deverá ser dado a mim, apenas estou utilizando-o como forma didática. E demonstrando as várias utilidades de uma aplicação. Então vamos lá.
Clique em File /Use Unit, para criar a conexão ao banco de dados.
Propriedades |
|
Nome |
PnlMenu |
Caption |
Controle de Manutenção |
Align |
AlTop |
|
|
Crie o Menu conforme imagem, utilizando o formPrincipal como base.
Adicione ao Formulário um TStatusBar e altere suas propriedades para:
Propriedades |
|
Name |
StsRodape |
ShowHint |
true |
Adicione um TDBGrid(Palheta DataControls) ao centro do formulário e altere suas propriedades para:
Propriedades |
|
Name |
dbgdados |
Align |
Alclient |
Dataset |
DSControle |
Options |
dgRowSelect = true |
De um duplo clique no DbGrid e acrescente os dados da tabela clicando em Add All Field
Configurar os Botões
Selecione o Action List e no evento de cada botão digite:
procedure TFormOrcamento.ActNovoExecute(Sender: TObject);
begin
dm.TbControle.Insert;
dm.TbControleDataEntrada.Value:=date;
dm.TbControleDataPrevista.Value:=Date+2; //estou acrecentando 2 dias para a entrega do orçamento, aqui fica a seu dispor o controle de dias
dm.TbControle.Post;
formContManutencao.ShowModal; //Formulário ainda não criado
end;
procedure TFormOrcamento.ActAlterarExecute(Sender: TObject);
begin
FormContManutencao.showModal;
end;
procedure TFormOrcamento.ActExcluirExecute(Sender: TObject);
begin
if MessageDlg('Tem certeza que deseja Excluir:'+#13+dm.TbControle.FieldByName('Clientes').AsString + 'Da lista de Manutenção',
mtInformation,[mbYes,MbNo],0)=mrYes
then
dm.TbControle.Delete;
end;
procedure TFormOrcamento.ActSairExecute(Sender: TObject);
begin
Close;
end;
Retorne ao Formulário, e no evento Onclose, digite:
procedure TFormOrcamento.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=Cafree;
FormOrcamento:=nil;
end;
Obs:A idéia aqui , quando o cliente entrar com o veiculo, será feito seu cadastro e aberto um Controle de Manutenção, este formulário, não será editável, apenas mostrará os veículos que estão em manutenção e que já foram entregues.
Então ,vamos alterar nosso DbGrid, na aba events no item OndblClick digite:
procedure TFormOrcamento.DBGDadosDblClick(Sender: TObject);
begin
formContManutencao.showmodal;
end;
Testando o Formulário
Abra o Formulário Principal, e no evento do ActionList digite:
procedure TFormPrincipal.ActOrcamentoExecute(Sender: TObject);
begin
FormOrcamento.showModal;
end;
No próximo Tutorial, vamos criar o Cadastro de Manutenção
Até lá
Cláudio