(Resolvido) Formularios com problemas

[nicolasbraz]

Olá bom dia,

O problema e o seguinte tenho o formulario de clientes, so que ele esta praticamente "Travado", so consigo cadastrar e deletar novos registros, na hora de editar não consigo alterar nada exclui o formulario criei outro, acessei o banco de dados pelo Ibexpert e consigui mexer normal.

[maikel]

Que componentes você está utilizando?

Tem algum código no DataSource ou eventos de criação ou OnShow do formulário? Se você postar sua rotina aqui fica mais fácil de lhe ajudar....

Os fields no seu componente de busca estão como ReadOnly (Fields no ClientDataSet, Query ou outros componentes)?

Att

[nicolasbraz]

unit UfrmCliente;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, DBCtrls, ExtCtrls, Grids, DBGrids, ComCtrls, StdCtrls, Buttons,

RXCtrls, RXDBCtrl, DB,Mask, IBCustomDataSet, IBTable, ToolEdit, IBQuery,

Menus;

type

TFrmClientes = class(TForm)

PcClientes: TPageControl;

TbConsulta: TTabSheet;

TbCadastro: TTabSheet;

StatusBar1: TStatusBar;

DBGrid1: TDBGrid;

Panel1: TPanel;

StatusBar2: TStatusBar;

botao_novo: TBitBtn;

botao_alterar: TBitBtn;

botao_excluir: TBitBtn;

DBStatusLabel1: TDBStatusLabel;

botao_cancelar: TBitBtn;

botao_salvar: TBitBtn;

DBNavigator1: TDBNavigator;

Label1: TLabel;

DBEdit1: TDBEdit;

Label2: TLabel;

DBEdit2: TDBEdit;

Label8: TLabel;

DBEdit8: TDBEdit;

Label9: TLabel;

DBEdit9: TDBEdit;

Label10: TLabel;

DBEdit10: TDBEdit;

Label11: TLabel;

DBEdit11: TDBEdit;

Label12: TLabel;

DBEdit12: TDBEdit;

Label13: TLabel;

DBEdit13: TDBEdit;

Label3: TLabel;

DBEdit3: TDBEdit;

Label4: TLabel;

DBEdit4: TDBEdit;

Label5: TLabel;

DBEdit5: TDBEdit;

Label6: TLabel;

DBEdit6: TDBEdit;

Label7: TLabel;

Label14: TLabel;

DBEdit14: TDBEdit;

Label15: TLabel;

DBEdit15: TDBEdit;

DBDateEdit1: TDBDateEdit;

procedure FormCreate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormShow(Sender: TObject);

procedure botao_novoClick(Sender: TObject);

procedure botao_cancelarClick(Sender: TObject);

procedure botao_salvarClick(Sender: TObject);

procedure botao_alterarClick(Sender: TObject);

procedure botao_excluirClick(Sender: TObject);

procedure DBGrid1KeyPress(Sender: TObject; var Key: Char);

procedure FormKeyPress(Sender: TObject; var Key: Char);

procedure Button1Click(Sender: TObject);

procedure DBEdit2Change(Sender: TObject);

// procedure gera_codigo(sender: TObject);

private

texto:string;

MyMenuItem : TMenuItem;

{ Private declarations }

public

{ Public declarations }

end;

var

FrmClientes: TFrmClientes;

implementation

uses UDM_dados;

{$R *.dfm}

procedure TFrmClientes.FormCreate(Sender: TObject);

begin

dmdados.tblCliente.Open;

dmdados.tblCliente.Active:=true;

texto:='';

end;

procedure TFrmClientes.FormClose(Sender: TObject;

var Action: TCloseAction);

begin

MyMenuItem.Free;

Action := caFree;

frmclientes:= nil;

Release;

end;

procedure TFrmClientes.FormShow(Sender: TObject);

begin

TbConsulta.tabvisible := true;

tbcadastro.TabVisible := false;

dbgrid1.SetFocus;

if (dmdados.TblUsuarioUSU_NIVEL.value = 2) then

begin

botao_salvar.Enabled:=true;

end;

if (dmdados.tblusuarioUSU_NIVEL.Value = 3) then

begin

botao_salvar.Enabled:=true;

end;

end;

procedure TFrmClientes.botao_novoClick(Sender: TObject);

var ultcod:integer;

begin

TbConsulta.TabVisible := false;

tbCadastro.TabVisible := true;

botao_salvar.Enabled:=false;

dmdados.tblcliente.Last;

UltCod := dmdados.tblcliente.fieldByName('cli_codigo').AsInteger;

dmdados.tblcliente.Insert;

Dmdados.tblcliente.fieldByName('cli_codigo').AsInteger := UltCod + 1;

dmdados.TblclienteCli_datacad.value:=date;

dbedit2.SetFocus;

end;

procedure TFrmClientes.botao_cancelarClick(Sender: TObject);

begin

dmdados.tblcliente.Cancel;

TbCadastro.TabVisible := false;

tbconsulta.TabVisible := true;

dbgrid1.SetFocus;

end;

procedure TFrmClientes.botao_salvarClick(Sender: TObject);

begin

if dmdados.dsCliente.State in [Dsinsert,DsEdit] then

begin

if dbedit2.text > '' then

begin

botao_salvar.Enabled:=true;

if messageDlg ('Tem certeza que deseja salvar as alterações?!',

MtConfirmation,[MbYes,MbNo],0)=MrYes

then dmdados.tblcliente.post;

dmdados.IBTrans.CommitRetaining;

refresh;

TbCadastro.TabVisible:=false;

tbconsulta.TabVisible:=true;

dbgrid1.SetFocus;

end

else if dbedit2.Text = ('') then

begin

showmessage ('Preencha o nome para Salvar')

end;

end;

end;

procedure TFrmClientes.botao_alterarClick(Sender: TObject);

begin

dmdados.tblcliente.Edit;

TbConsulta.TabVisible:=false;

TbCadastro.TabVisible:=true;

dbedit2.SetFocus;

botao_salvar.Enabled:=enabled;

end;

procedure TFrmClientes.botao_excluirClick(Sender: TObject);

begin

if messageDlg ('Tem certeza que deseja Excluir o Cliente?!',MtConfirmation,[MbYes,MbNo],0)=MrYes

then dmdados.tblcliente.Delete;

dmdados.IBTrans.CommitRetaining;

refresh;

end;

procedure TFrmClientes.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin

if key = #13 then

begin

if texto > '' then

begin

dmdados.tblcliente.Locate('cli_nome',texto,[loCaseInsensitive,loPartialKey]);

texto:='';

statusbar2.Panels[1].Text:=texto;

end

else if dmdados.tblcliente.RecordCount > 0 then

botao_alterar.Click

end

else

if key = #8 then

begin

texto := copy(texto, 1, length(texto) -1);

statusbar2.Panels[1].text:=texto;

end

else

begin

texto := texto + key;

statusbar2.Panels[1].text := texto;

end;

end;

procedure TFrmClientes.FormKeyPress(Sender: TObject; var Key: Char);

begin

if key = #27 then

if PcClientes.ActivePageIndex = 0 then

close

else

botao_cancelar.Click;

end;

procedure TFrmClientes.Button1Click(Sender: TObject);

begin

dmdados.tblcliente.Insert;

end;

procedure TFrmClientes.DBEdit2Change(Sender: TObject);

begin

if dmdados.DsCliente.State in [Dsinsert] then

begin

if (dmdados.tblCliente.Modified=true) then

begin

botao_salvar.Enabled:=true;

end;

end;

end;

end.

http://img144.imageshack.us/img144/8612/clientes.jpg

Editado Abril 28, 2009 por nicolasbraz

[nicolasbraz]

Resolvi já problema no DataSource