Fórum Minha aplicacao nao esta gravando os dados #458196

Olha, meus amigos minha aplicacao nao esta gravando os dados em suas respectivas tabela onde sera que estou errando, sou aprendiz

unit unClientes;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, ExtCtrls, StdCtrls, Mask, DBCtrls, DB;

type
TfrmClientes = class(TForm)
pnControle: TPanel;
btnIncluir: TSpeedButton;
btnAlterar: TSpeedButton;
btnExcluir: TSpeedButton;
btnPesquisar: TSpeedButton;
btnSair: TSpeedButton;
pnConfirma: TPanel;
btnConfirmar: TBitBtn;
btnDesistir: TBitBtn;
pnDados: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
DBText1: TDBText;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBText2: TDBText;
DSClientes: TDataSource;
procedure btnIncluirClick(Sender: TObject);
procedure btnAlterarClick(Sender: TObject);
procedure btnExcluirClick(Sender: TObject);
procedure btnConfirmarClick(Sender: TObject);
procedure btnSairClick(Sender: TObject);
procedure btnDesistirClick(Sender: TObject);
procedure btnPesquisarClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
frmClientes: TfrmClientes;

implementation

uses unDados, unPesquisa;

{$R *.dfm}

procedure TfrmClientes.btnIncluirClick(Sender: TObject);
begin
pnControle.Visible:=False;
pnDados.Enabled:=True;
pnConfirma.Visible:=True;
DMDados.Conexao.StartTransaction(DMDados.Trans);
DMDados.CDSClientes.Append;
DBEdit1.SetFocus;
DMDados.CDSClientes.Refresh;
end;

procedure TfrmClientes.btnAlterarClick(Sender: TObject);
begin
if DMDados.CDSClientes.RecordCount<1 then exit;
pnControle.Visible:=False;
pnDados.Enabled:=True;
pnConfirma.Visible:=True;
DMDados.Conexao.StartTransaction(DMDados.Trans);
DMDados.CDSClientes.Edit;
DBEdit1.SetFocus;
end;

procedure TfrmClientes.btnExcluirClick(Sender: TObject);
begin
if DMDados.CDSClientes.RecordCount<1 then exit;
if messagedlg('Confirma a exclusao',mtConfirmation,[mbYes,mbNo],0,)=mrYes then
begin
DMDados.CDSClientes.Delete;
DMDados.CDSClientes.ApplyUpdates(0);
end;
end;

procedure TfrmClientes.btnConfirmarClick(Sender: TObject);
begin
DMDados.CDSClientes.Post;
DMDados.CDSClientes.ApplyUpdates(0);
DMDados.Conexao.Commit(DMDados.Trans);
pnDados.Enabled:=False;
pnControle.Visible:=True;
pnConfirma.Visible:=False;
end;

procedure TfrmClientes.btnSairClick(Sender: TObject);
begin
Close;
end;

procedure TfrmClientes.btnDesistirClick(Sender: TObject);
begin
DMDados.CDSClientes.Cancel;
DMDados.CDSClientes.CancelUpdates;
DMDados.Conexao.Rollback(DMDados.Trans);
pnDados.Enabled:=False;
pnControle.Visible:=True;
pnConfirma.Visible:=False;
end;

procedure TfrmClientes.btnPesquisarClick(Sender: TObject);
begin
Application.CreateForm(TfrmPesquisa,frmPesquisa);
frmPesquisa.RdOrdem.Items.Clear;
frmPesquisa.RdOrdem.Items.Add('CLI_CODIGO');
frmPesquisa.RdOrdem.Items.Add('CLI_NOME');
frmPesquisa.RdOrdem.Items.Add('CLI_CNPJ');
frmPesquisa.Caption:='PESQUISA DE CLIENTES';
DMDados.PESQUISA:='select CLI_CODIGO,CLI_NOME,CLI_CNPJ from CAD_CLIENTES where';
frmPesquisa.ShowModal;
if (frmPesquisa.CDSPesq.Active=True) And (frmPesquisa.CDSPesq.RecordCount>0) then
begin
DMDados.CDSClientes.Active:=False;
DMDados.DTSClientes.ParamByName('ParamCli').AsInteger:=frmPesquisa.CDSPesq.FieldByName('CLI_CODIGO').Value;
DMDados.CDSClientes.Active:=True;
end;
frmPesquisa.Destroy;
end;

end.


gostaria de receber ajuda