Assim como a consulta notei outro erro ele não está gravando os dados
apesar d usar uma procedure para transcreve-los p a tbl:
unit UCadCli;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs, Buttons, StdCtrls, ExtCtrls, DBCtrls, ComCtrls, Grids,
DBGrids,
Mask, DB;
type
TFrm_CadCli = class(TForm)
Panel1: TPanel;
Label1: TLabel;
SpeedButton1: TSpeedButton;
Panel2: TPanel;
SpdAnterior: TSpeedButton;
SpdProximo: TSpeedButton;
SpdUltimo: TSpeedButton;
SpdNovo: TSpeedButton;
SpdExcluir: TSpeedButton;
SpdAlterar: TSpeedButton;
SpdSalvar: TSpeedButton;
SpdCancelar: TSpeedButton;
SpdAtualizar: TSpeedButton;
SpdPrimeiro: TSpeedButton;
SpdRelatorio: TSpeedButton;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
TabSheet2: TTabSheet;
Label2: TLabel;
dbeCodigo: TDBEdit;
Label3: TLabel;
dbeNome: TDBEdit;
Label4: TLabel;
dbeCPF: TDBEdit;
Label5: TLabel;
dbeRG: TDBEdit;
Label6: TLabel;
dbeEndereco: TDBEdit;
Label7: TLabel;
dbeCidade: TDBEdit;
Label8: TLabel;
dbeUF: TDBEdit;
Label9: TLabel;
dbeCEP: TDBEdit;
Label10: TLabel;
dbeFone: TDBEdit;
Label11: TLabel;
dbeCelular: TDBEdit;
Label12: TLabel;
dbeEmail: TDBEdit;
DBGrid1: TDBGrid;
GroupBox1: TGroupBox;
Label13: TLabel;
edtPesquisaNome: TEdit;
SpeedButton13: TSpeedButton;
DBGrid2: TDBGrid;
DsQryClientes: TDataSource;
SpeedButton2: TSpeedButton;
procedure SpeedButton1Click(Sender: TObject);
procedure SpdPrimeiroClick(Sender: TObject);
procedure SpdAnteriorClick(Sender: TObject);
procedure SpdProximoClick(Sender: TObject);
procedure SpdUltimoClick(Sender: TObject);
procedure SpdNovoClick(Sender: TObject);
procedure SpdExcluirClick(Sender: TObject);
procedure SpdAlterarClick(Sender: TObject);
procedure SpdSalvarClick(Sender: TObject);
procedure SpdCancelarClick(Sender: TObject);
procedure SpdAtualizarClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormShow(Sender: TObject);
procedure SpeedButton13Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Frm_CadCli: TFrm_CadCli;
procedure LimparCampos();
implementation
uses UDados, UCadastros;
procedure LimparCampos();
Begin
with Frm_CadCli do
begin
dbeNome.Text := '';
dbeCPF.Text := '';
dbeRG.Text := '';
dbeEndereco.Text := '';
dbeCidade.Text := '';
dbeUF.Text := '';
dbeCEP.Text := '';
dbeFone.Text := '';
dbeCelular.Text := '';
dbeEmail.Text := '';
end;
end;
{$R *.dfm}
procedure TFrm_CadCli.SpeedButton1Click(Sender: TObject);
begin
Close;
end;
procedure TFrm_CadCli.SpdPrimeiroClick(Sender: TObject);
begin
Dm_Dados.Tb_Clientes.First;
end;
procedure TFrm_CadCli.SpdAnteriorClick(Sender: TObject);
begin
Dm_Dados.Tb_Clientes.Prior;
end;
procedure TFrm_CadCli.SpdProximoClick(Sender: TObject);
begin
Dm_Dados.Tb_Clientes.Next;
end;
procedure TFrm_CadCli.SpdUltimoClick(Sender: TObject);
begin
Dm_Dados.Tb_Clientes.Last;
end;
procedure TFrm_CadCli.SpdNovoClick(Sender: TObject);
begin
Dm_Dados.Tb_Clientes.Append;
dbeNome.Text := '';
dbeCPF.Text := '';
dbeRG.Text := '';
dbeEndereco.Text := '';
dbeCidade.Text := '';
dbeUF.Text := '';
dbeCEP.Text := '';
dbeFone.Text := '';
dbeCelular.Text := '';
dbeEmail.Text := '';
dbeNome.SetFocus;
end;
procedure TFrm_CadCli.SpdExcluirClick(Sender: TObject);
begin
Dm_Dados.Tb_Clientes.Delete;
end;
procedure TFrm_CadCli.SpdAlterarClick(Sender: TObject);
begin
Dm_Dados.Tb_Clientes.Edit;
end;
procedure TFrm_CadCli.SpdSalvarClick(Sender: TObject);
begin
Dm_Dados.Tb_Clientes.Append;
Dm_Dados.Tb_Clientes.Edit;
//Tranferindo os dados
//Dm_Dados.Tb_ClientesCodigo.Text := dbeCodigo.Text;
Dm_Dados.Tb_ClientesNome.Text := dbeNome.Text;
Dm_Dados.Tb_ClientesCPF.Text := dbeCPF.Text;
Dm_Dados.Tb_ClientesRG.Text := dbeRG.Text;
Dm_Dados.Tb_ClientesEndereco.Text := dbeEndereco.Text;
Dm_Dados.Tb_ClientesCidade.Text := dbeCidade.Text;
Dm_Dados.Tb_ClientesUF.Text := dbeUF.Text;
Dm_Dados.Tb_ClientesCEP.Text := dbeCEP.Text;
Dm_Dados.Tb_ClientesFone.Text := dbeFone.Text;
Dm_Dados.Tb_ClientesCelular.Text := dbeCelular.Text;
Dm_Dados.Tb_ClientesEmail.Text := dbeEmail.Text;
//Grava os Dados
Dm_Dados.Tb_Clientes.Post;
ShowMessage('Dados Gravados com Sucesso!');
end;
procedure TFrm_CadCli.SpdCancelarClick(Sender: TObject);
begin
Dm_Dados.Tb_Clientes.Cancel;
end;
procedure TFrm_CadCli.SpdAtualizarClick(Sender: TObject);
begin
Dm_Dados.Tb_Clientes.Refresh;
end;
procedure TFrm_CadCli.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
Dm_Dados.Tb_Clientes.Close;
end;
procedure TFrm_CadCli.FormShow(Sender: TObject);
begin
Dm_Dados.Tb_Clientes.Open;
end;
procedure TFrm_CadCli.SpeedButton13Click(Sender: TObject);
begin
Dm_Dados.Tb_Clientes.Open;
Dm_Dados.qryClientes.Close;
Dm_Dados.qryClientes.SQL.Clear;
Dm_Dados.qryClientes.SQL.Add('select * from clientes');
Dm_Dados.qryClientes.SQL.Add('where Nome= :nome');
Dm_Dados.qryClientes.ParamByName('nome').Value :=
edtPesquisaNome.Text;
Dm_Dados.qryClientes.Open;
end;
procedure TFrm_CadCli.SpeedButton2Click(Sender: TObject);
begin
edtPesquisaNome.Clear;
edtPesquisaNome.SetFocus;
end;
end.
alguém dá uma força tenho q entregar este exercicio e o prof é o mair
carrasco
Só par recapitular os pros:
1) eu kro fazer uma pesquisa por nome do cliente e por intervalo de
datas(este já tenho o exemplo);
2) os dados não estão ficando na tble clientes apesar da rotina
grato
