Ir para conteúdo
Fórum Script Brasil
  • 0

(Resolvido) Formularios com problemas


nicolasbraz

Pergunta

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.

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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 por nicolasbraz
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...