Como fazer isso?

[Carcleo 4]

Tentei e não deu certo. É o seguinte:

Estou usando Delphi 7, MySql Server e Zeos.

 

Estou com um formulario onde coloquei um ZConnection.

Coloquei uma Ztable e conectei bem a tabela.

 

Puxei os itens da tabela pro formulario e puz um DBControl pra as operações mais comuns(postar, alterar).

 

Taí meu código. onde sera que errei?

 

unit cadastros;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ComCtrls, DB, ZAbstractRODataset, ZAbstractDataset,  ZAbstractTable, ZDataset, StdCtrls, Mask, DBCtrls, ExtCtrls;type  TFormCadastros = class(TForm)	PageControlCadastros: TPageControl;	TabSheetClientes: TTabSheet;	TabSheetFornecedores: TTabSheet;	TabSheetProdutos: TTabSheet;	ZTableClientes: TZTable;	ZTableFornecedores: TZTable;	ZTableProdutos: TZTable;	ZTableClientesId: TIntegerField;	ZTableClientesNome: TStringField;	ZTableClientesEndereco: TStringField;	ZTableClientesEmail: TStringField;	ZTableClientesTelefone: TStringField;	ZTableClientesCpf: TStringField;	ZTableClientesCnpj: TStringField;	Label1: TLabel;	DBEdit1: TDBEdit;	DataSourceClientes: TDataSource;	Label2: TLabel;	DBEdit2: TDBEdit;	Label3: TLabel;	DBEdit3: TDBEdit;	Label4: TLabel;	DBEdit4: TDBEdit;	Label5: TLabel;	DBEdit5: TDBEdit;	Label6: TLabel;	DBEdit6: TDBEdit;	Label7: TLabel;	DBEdit7: TDBEdit;	ZTableFornecedoresId: TIntegerField;	ZTableFornecedoresNome: TStringField;	ZTableFornecedoresEndereco: TStringField;	ZTableFornecedoresEmail: TStringField;	ZTableFornecedoresTelefone: TStringField;	ZTableFornecedoresCpf: TStringField;	ZTableFornecedoresCnpj: TStringField;	Label8: TLabel;	DBEdit8: TDBEdit;	DataSourceFornecedores: TDataSource;	Label9: TLabel;	DBEdit9: TDBEdit;	Label10: TLabel;	DBEdit10: TDBEdit;	Label11: TLabel;	DBEdit11: TDBEdit;	DataSourceProdutos: TDataSource;	Label17: TLabel;	DBEdit16: TDBEdit;	DBNavigatorClientes: TDBNavigator;	DBNavigatorProdutos: TDBNavigator;	DBNavigatorFornecedores: TDBNavigator;	Label12: TLabel;	DBEdit12: TDBEdit;	Label13: TLabel;	DBEdit13: TDBEdit;	ZTableProdutosCodigo: TIntegerField;	ZTableProdutosNome: TMemoField;	ZTableProdutosDescricao: TMemoField;	ZTableProdutosPreco: TIntegerField;	Label14: TLabel;	DBEdit14: TDBEdit;	Label15: TLabel;	DBMemo1: TDBMemo;	Label16: TLabel;	DBMemo2: TDBMemo;	Label18: TLabel;	DBEdit15: TDBEdit;	RadioButtonPFisica: TRadioButton;	RadioButtonPJuridica: TRadioButton;	RadioButtonFisica: TRadioButton;	RadioButtonJuridica: TRadioButton;	ZQueryClientes: TZQuery;	Button1: TButton;	Button2: TButton;	Button3: TButton;	Button4: TButton;	Button5: TButton;	procedure FormClose(Sender: TObject; var Action: TCloseAction);	procedure RadioButtonPFisicaClick(Sender: TObject);	procedure RadioButtonPJuridicaClick(Sender: TObject);	procedure RadioButtonFisicaClick(Sender: TObject);	procedure RadioButtonJuridicaClick(Sender: TObject);	procedure DBEdit2Change(Sender: TObject);	procedure Button1Click(Sender: TObject);	procedure Button2Click(Sender: TObject);	procedure Button3Click(Sender: TObject);	procedure Button4Click(Sender: TObject);	procedure Button5Click(Sender: TObject);	procedure FormCreate(Sender: TObject);  private	{ Private declarations }  public	{ Public declarations }  end;var  FormCadastros: TFormCadastros;implementation{$R *.dfm}procedure TFormCadastros.FormClose(Sender: TObject;  var Action: TCloseAction);beginAction := caFree; // remove o form da memóriaFormCadastros := NIL; // informa que foi destruído (não criado)end;procedure TFormCadastros.RadioButtonPFisicaClick(Sender: TObject);begin  Label7.Visible  := False;  DBEdit7.Visible  := False;  Label6.Visible  := True;  DBEdit6.Visible  := True;end;procedure TFormCadastros.RadioButtonPJuridicaClick(Sender: TObject);begin  Label6.Visible  := False;  DBEdit6.Visible  := False;  Label7.Visible  := True;  DBEdit7.Visible  := True;end;procedure TFormCadastros.RadioButtonFisicaClick(Sender: TObject);begin  Label13.Visible  := False;  DBEdit13.Visible  := False;  Label12.Visible  := True;  DBEdit12.Visible  := True;end;procedure TFormCadastros.RadioButtonJuridicaClick(Sender: TObject);begin  Label12.Visible  := False;  DBEdit12.Visible  := False;  Label13.Visible  := True;  DBEdit13.Visible  := True;end;procedure TFormCadastros.DBEdit2Change(Sender: TObject);var i: integer;var recordcount: integer;beginZQueryClientes.Close;ZQueryClientes.SQL.Clear;ZQueryClientes.SQL.Add('Select * from Clientes where Nome = '+''''+DBEdit2.Text+''''+'');ZQueryClientes.Sql.add('order By nome asc');ZQueryClientes.Open;if ZQueryClientes.RecordCount>0 thenwith DBEdit3 dobeginZQueryClientes.ClearFields;for i:= 0 to recordcount-1 do { ZQueryClientes.First;while not ZQueryClientes.EOF dobeginDBEdit2.Items.Add(VarToStr(ZQueryClientes.Fields[1].value));ZQueryClientes.Next;end;  }end;end;procedure TFormCadastros.Button1Click(Sender: TObject);beginIf Not ZTableClientes.Active then   ZTableClientes.Active := true;   ZTableClientes.Append;   ZTableClientes.Close;end;procedure TFormCadastros.Button2Click(Sender: TObject);beginIf Not ZTableClientes.Active then   ZTableClientes.Active := true;   ZTableClientes.Edit;   ZTableClientes.Close;end;procedure TFormCadastros.Button3Click(Sender: TObject);beginIf Not ZTableClientes.Active then   ZTableClientes.Active := true;   ZTableClientes.Delete;   ZTableClientes.Close;end;procedure TFormCadastros.Button4Click(Sender: TObject);beginIf Not ZTableClientes.Active then   ZTableClientes.Active := true;   ZTableClientes.Post;   ZTableClientes.Close;end;procedure TFormCadastros.Button5Click(Sender: TObject);beginIf Not ZTableClientes.Active then   ZTableClientes.Active := true;   ZTableClientes.Append;   ZTableClientes.Close;end;procedure TFormCadastros.FormCreate(Sender: TObject);beginIf Not ZTableClientes.Active then   ZTableClientes.Active := true;   ZTableClientes.Close;end;end.