GARANTIR DESCONTO

Fórum como simplificar esse codigo #183171

19/09/2003

0

Delphi

como eu faso para simplificar esse codigo

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(´insert into nascimentos (LIVRO, FOLHA, TERMO, NOME, GENERO, DATA_NASCIMENTO, LOCAL_NASCIMENTO, NOME_PAI, NOME_MAE, NOME_AVO_P, NOME_AVÓ_P, NOME_AVO_M, NOME_AVÓ_M, SEXO, HORA_NASCIMENTO, NOME_TESTEMUNHA_1, NOME_TESTEMUNHA_2, NOME_DECLARANTE, IDADE_DECLARANTE, PROFI_DECLARANTE, IDENTI_DECLARANTE, ESTADO_DECLARANTE, ENDER_DECLARANTE, OBS)
VALUES
(´+ QuotedStr(edit1.text)+´, ´+ QuotedStr(edit2.text)+´, ´+ QuotedStr(edit3.text)+´, ´+ QuotedStr(edit4.text)+´, ´+ QuotedStr(DBLookupComboBox1.Text)+´, ´+ QuotedStr(edit5.text)+´, ´+ QuotedStr(edit6.text)+´, ´+ QuotedStr(edit7.text)+´, ´+ QuotedStr(edit8.text)+´, ´+ QuotedStr(edit9.text)+´, ´+ QuotedStr(edit10.text)+´, ´+ QuotedStr(edit11.text)+´, ´+ QuotedStr(edit12.text)+´, ´+ QuotedStr(edit13.text)+´, ´+ QuotedStr(edit14.text)+´, ´+ QuotedStr(edit15.text)+´, ´+ QuotedStr(edit16.text)+´, ´+ QuotedStr(edit17.text)+´, ´+ QuotedStr(edit18.text)+´, ´+ QuotedStr(edit19.text)+´, ´+ QuotedStr(edit20.text)+´, ´+ QuotedStr(edit21.text)+´, ´+ QuotedStr(edit22.text)+´, ´+ QuotedStr(DBMemo1.Lines)+´)´);

query1.execsql;


24 campos para registrar (22 dbedit.text 1DBLookupComboBox1 e
1 dbmemo1).


Anjomd

Anjomd

Responder

Posts

20/09/2003

Evandro_araujo

Coloca Dbedit no seu form...e faca a ligacao destes campos...


Responder

Gostei + 0

20/09/2003

Essistemas

Meu amigo utilize uma classe, nunca + terá problema ai vai um exemplo !.

Boa Sorte
Icq 136906409

unit TCli;

interface
Uses
Windows, Messages, SysUtils,Dialogs,IBQuery,Db,DbTables,URotinas;
Type
TB_Cli =Class(Tobject)
Tb_Clientes:TIBQuery;
DataClientes:TDataSource;
CODIGO,CLIENTE,SITUACAO,PAI, MAE,ENDERECO,TELEFONE,BAIRRO,CIDADE, ESTADO:String ;
CEP,RG,CPF,DATA_NASCIMENTO,DATA_CADASTRO,DATA_ATUALIZACAO, AUTORIZADO1:String;
AUTORIZADO2,AUTORIZADO3,TRABALHO,TELEFONE_CONTATO,OBSERVACAO,SEXO:string;
CONVENIO,TELEFONE2,EMAIL:String;
INICIAL,FINAL:String ;
LIMITE : DOUBLE ;
Title : String ;
Function LerDados : Boolean ;
Function LerSelecionado : Boolean ;
Function LerSelecao : Boolean ;
Function LerDescr : Boolean ;
Function LerConvenio : Boolean ;
Function LerCodigo : Boolean ;
Function LerSituacao : Boolean ;
Function Inserir : Boolean ;
Function Excluir : Boolean ;
Function LerEndereco : Boolean ;
Function GravaDados : Boolean ;
Function LerporTitle : Boolean ;
public
constructor Create ;
Destructor Destroy ; Override ;
end ;
implementation
Uses Unit25;

constructor Tb_Cli.Create ;
begin
DataClientes:=TDataSource.Create(nil);
Tb_Clientes:=TIbQuery.Create(nil);
Tb_Clientes.Database:=DataModule25.Conexao;
DataClientes.DataSet:=Tb_Clientes;
end;

Destructor TB_Cli.Destroy ;
begin
Tb_Clientes.Free ;
DataClientes.Free ;
end;

Function Tb_Cli.LerDados : Boolean;
Begin
With Tb_Clientes,SQL do
Begin
Try
Clear;
Add(´Select * from Clientes´);
Add(´Where (Nome) >= :VarInicial And (Nome) <= :VarFinal´);
ParamByname(´VarInicial´).AsString :=Inicial ;
ParamByname(´VarFinal´ ).AsString :=Final +´Ú´ ;
Add(´Order by Nome´);
Active:=True;
Result:=True;
Except
on E: Exception do
begin
Result := False ;
MensagemTela( ´ERRO Incluindo Cliente !...´, E.Message, ´´, 0 ) ;
end;
end;
end;
end;
Function Tb_Cli.LerSelecionado : Boolean;
Begin
With Tb_Clientes,SQL do
Begin
Try
Clear;
Add(´Select From Nome,Bairro,Rg,Cpf,Rg,Bairro,Situacao Clientes Order by Nome´);
Active:=True;
Result:=True;
Except
on E: Exception do
begin
Result := False ;
MensagemTela( ´ERRO Selecionando Cliente !...´, E.Message, ´´, 0 ) ;
end;
end;
end;
end;

Function Tb_Cli.LerSelecao : Boolean;
Begin
With Tb_Clientes,SQL do
Begin
Try
Clear;
Add(´Select * From Clientes Where (Selecao) =:VSelecao Order By Nome´);
ParamByname(´VSelecao´).AsString:=´*´;
Active:=True;
Result:=True;
If Tb_Clientes.Eof Then Begin
MessageDlg(´NENHUM, DADO SELECIONADO ...´,mtInformation,[mbOK],0);
end;
Except
on E: Exception do
begin
Result := False ;
MensagemTela( ´ERRO Carregando Cliente !...´, E.Message, ´´, 0 ) ;
end;
end;
end;
end;

Function Tb_Cli.LerDescr : Boolean;
Begin
With Tb_Clientes,SQL do
Begin
Try
Clear;
Add(´Select * From Clientes Where (NOME) Starting With :VCliente´);
Add(´Order By Nome´);
ParamByname(´VCliente´).AsString:=Cliente;
Active:=True;
Result:=True;
Except
on E: Exception do
begin
Result := False ;
MensagemTela( ´ERRO Carregando Cliente !...´, E.Message, ´´, 0 ) ;
end;
end;
end;
end;

Function Tb_Cli.LerPorTitle : Boolean;
Begin
With Tb_Clientes,SQL do
Begin
Try
Clear;
Add(´Select * From Clientes Where (NOME) Starting With :VCliente´);
Add(´Order By´ +´ ´+Title);
ParamByname(´VCliente´).AsString:=Cliente;
Active:=True;
Result:=True;
Except
on E: Exception do
begin
Result := False ;
MensagemTela( ´ERRO Carregando Cliente !...´, E.Message, ´´, 0 ) ;
end;
end;
end;
end;


Function Tb_Cli.LerCodigo : Boolean;
Begin
With Tb_Clientes,SQL do
Begin
Try
Clear;
Add(´Select * From Clientes Where (CODIGO)= :VCODIGO´);
ParamByname(´VCODIGO´).AsString:=Codigo;
Active:=True;
Result:=True;
Except
on E: Exception do
begin
Result := False ;
MensagemTela( ´ERRO Carregar Cliente !...´, E.Message, ´´, 0 ) ;
end;
end;
end;
end;

Function Tb_Cli.LerSituacao : Boolean;
Begin
With Tb_Clientes,SQL do
Begin
Try
Clear;
Add(´Select * From Clientes Where (SITUACAO) Starting With :VSITUACAO´);
ParamByname(´VSITUACAO´).AsString:=Situacao;
Active:=True;
Result:=True;
Except
on E: Exception do
begin
Result := False ;
MensagemTela( ´ERRO Carregando Cliente !...´, E.Message, ´´, 0 ) ;
end;
end;
end;
end;

Function Tb_Cli.Inserir : Boolean;
Begin
With Tb_Clientes,SQL do
Begin
Try
Clear;
Add(´insert into CLIENTES´);
Add(´(NOME, PAI, MAE, ENDERECO, TELEFONE, BAIRRO, CIDADE, ESTADO,´);
Add(´CEP, RG, CPF, DATA_NASCIMENTO, DATA_CADASTRO, DATA_ATUALIZACAO, AUTORIZADO1,´);
Add(´AUTORIZADO2, AUTORIZADO3, TRABALHO, TELELEFONE_CONTATO, OBSERVACAO,´);
Add(´CONVENIO, SITUACAO,SEXO,EMAIL,TELEFONE2,EMAIL,LIMITE)´);
Add(´values´);
Add(´(:VNOME, :VPAI, :VMAE, :VENDERECO, :VTELEFONE, :VBAIRRO, :VCIDADE,´);
Add(´:VESTADO, :VCEP, :VRG, :VCPF, :VDATA_NASCIMENTO, :VDATA_CADASTRO, :VDATA_ATUALIZACAO,´);
Add(´:VAUTORIZADO1, :VAUTORIZADO2, :VAUTORIZADO3, :VTRABALHO, :VTELEFONE_CONTATO,´);
Add(´:VOBSERVACAO, :VCONVENIO, :VSITUACAO,:VSEXO,:VEMAIL,:VTELEFONE2,:VEMAIL,:VLIMITE)´) ;
ParamByname(´VNOME´ ).AsString :=Cliente ;
ParamByname(´VPAI´ ).AsString :=Pai ;
ParamByname(´VMAE´ ).AsString :=Mae ;
ParamByname(´VENDERECO´ ).AsString :=Endereco ;
ParamByname(´VTELEFONE´ ).AsString :=Telefone ;
ParamByname(´VBAIRRO´ ).AsString :=Bairro ;
ParamByname(´VCIDADE´ ).AsString :=Cidade ;
ParamByname(´VESTADO´ ).AsString :=Estado ;
ParamByname(´VCEP´ ).AsString :=Cep ;
ParamByname(´VRG´ ).AsString :=Rg ;
ParamByname(´VCPF´ ).AsString :=Cpf ;
ParamByname(´VDATA_NASCIMENTO´ ).AsString :=Data_Nascimento ;
ParamByname(´VDATA_ATUALIZACAO´).AsString :=Data_Atualizacao ;
ParamByname(´VDATA_CADASTRO´ ).AsString :=Data_Cadastro ;
ParamByname(´VAUTORIZADO1´ ).AsString :=Autorizado1 ;
ParamByname(´VAUTORIZADO2´ ).AsString :=Autorizado2 ;
ParamByname(´VAUTORIZADO3´ ).AsString :=Autorizado3 ;
ParamByname(´VOBSERVACAO´ ).AsString :=Observacao ;
ParamByname(´VCONVENIO´ ).AsString :=Convenio ;
ParamByname(´VSITUACAO´ ).AsString :=Situacao ;
ParamByname(´VTRABALHO´ ).AsString :=Trabalho ;
ParamByname(´VTELEFONE_CONTATO´).AsString :=Telefone_Contato ;
ParamByname(´VSEXO´ ).AsString :=Sexo ;
ParamByname(´VEmail´ ).AsString :=Email ;
ParamByname(´VTelefone2´ ).AsString :=Telefone2 ;
ParamByname(´VLimite´ ).AsFloat :=Limite ;
ExecSql;
Add(´Commit´);
If DataModule25.Transacao.Active = False Then Begin
DataModule25.Transacao.Active :=True ;
end;
If DataModule25.Transacao.Active = True Then Begin
DataModule25.Transacao.Commit ;
end ;
Result:=True;
Except
on E: Exception do
begin
Result := False ;
MensagemTela( ´ERRO Adicionado Novo Cliente !...´, E.Message, ´´, 0 ) ;
end;
end;
end;
end;

Function Tb_Cli.Excluir : Boolean;
Begin
With Tb_Clientes,SQL do
Begin
Try
Clear;
Add(´Delete From Clientes´);
Add(´Where (Codigo) = :VCodigo´);
ParamByname(´VCodigo´).AsString:=Codigo;
ExecSql;
Result:=True;
Add(´Commit´);
Except
on E: Exception do
begin
Result := False ;
MensagemTela( ´ERRO Ao Excluir Cliente !...´, E.Message, ´´, 0 ) ;
end;
end;
end;
end;

Function Tb_Cli.GravaDados : Boolean;
Begin
With Tb_Clientes,SQL do
Begin
Try
Clear;
Add(´update CLIENTES´);
Add(´set´);
Add(´CODIGO = :VCODIGO,´ ) ;
Add(´NOME = :VNOME,´ ) ;
Add(´PAI = :VPAI,´ ) ;
Add(´MAE = :VMAE,´ ) ;
Add(´ENDERECO = :VENDERECO,´ ) ;
Add(´TELEFONE = :VTELEFONE,´ ) ;
Add(´BAIRRO = :VBAIRRO,´ ) ;
Add(´CIDADE = :VCIDADE,´ ) ;
Add(´ESTADO = :VESTADO,´ ) ;
Add(´CEP = :VCEP,´ ) ;
Add(´RG = :VRG,´ ) ;
Add(´CPF = :VCPF,´ ) ;
Add(´DATA_NASCIMENTO = :VDATA_NASCIMENTO,´ ) ;
Add(´DATA_CADASTRO = :VDATA_CADASTRO,´ ) ;
Add(´DATA_ATUALIZACAO = :VDATA_ATUALIZACAO,´) ;
Add(´AUTORIZADO1 = :VAUTORIZADO1,´ ) ;
Add(´AUTORIZADO2 = :VAUTORIZADO2,´ ) ;
Add(´AUTORIZADO3 = :VAUTORIZADO3,´ ) ;
Add(´TRABALHO = :VTRABALHO,´ ) ;
Add(´TELELEFONE_CONTATO = :VTELEFONE_CONTATO,´) ;
Add(´OBSERVACAO = :VOBSERVACAO,´ ) ;
Add(´CONVENIO = :VCONVENIO,´ ) ;
Add(´SITUACAO = :VSITUACAO,´ ) ;
Add(´SEXO = :VSEXO,´ ) ;
Add(´EMAIL = :VEMAIL,´ ) ;
Add(´TELEFONE2 = :VTELEFONE2,´ ) ;
Add(´LIMITE = :VLIMITE´ ) ;
Add(´where´);
Add(´CODIGO = :VCODIGO´);
ParamByname(´VCODIGO´ ).AsString :=Codigo ;
ParamByname(´VNOME´ ).AsString :=Cliente ;
ParamByname(´VPAI´ ).AsString :=Pai ;
ParamByname(´VMAE´ ).AsString :=Mae ;
ParamByname(´VENDERECO´ ).AsString :=Endereco ;
ParamByname(´VTELEFONE´ ).AsString :=Telefone ;
ParamByname(´VBAIRRO´ ).AsString :=Bairro ;
ParamByname(´VCIDADE´ ).AsString :=Cidade ;
ParamByname(´VESTADO´ ).AsString :=Estado ;
ParamByname(´VCEP´ ).AsString :=Cep ;
ParamByname(´VRG´ ).AsString :=Rg ;
ParamByname(´VCPF´ ).AsString :=Cpf ;
ParamByname(´VDATA_NASCIMENTO´ ).AsString :=Data_Nascimento ;
ParamByname(´VDATA_ATUALIZACAO´).AsString :=Data_Atualizacao ;
ParamByname(´VDATA_CADASTRO´ ).AsString :=Data_Cadastro ;
ParamByname(´VAUTORIZADO1´ ).AsString :=Autorizado1 ;
ParamByname(´VAUTORIZADO2´ ).AsString :=Autorizado2 ;
ParamByname(´VAUTORIZADO3´ ).AsString :=Autorizado3 ;
ParamByname(´VOBSERVACAO´ ).AsString :=Observacao ;
ParamByname(´VCONVENIO´ ).AsString :=Convenio ;
ParamByname(´VSITUACAO´ ).AsString :=Situacao ;
ParamByname(´VTRABALHO´ ).AsString :=Trabalho ;
ParamByname(´VTELEFONE_CONTATO´).AsString :=Telefone_Contato ;
ParamByname(´VSEXO´ ).AsString :=Sexo ;
ParamByname(´VEmail´ ).AsString :=Email ;
ParamByname(´VTelefone2´ ).AsString :=Telefone2 ;
ParamByname(´VLimite´ ).AsFloat :=Limite ;
ExecSql;
Result:=True;
If DataModule25.Transacao.Active = False Then Begin
DataModule25.Transacao.Active :=True ;
end;
If DataModule25.Transacao.Active = True Then Begin
DataModule25.Transacao.Commit ;
end ;
Add(´Commit´);
Except
on E: Exception do
begin
Result := False ;
MensagemTela( ´ERRO Atualizando Cliente !...´, E.Message, ´´, 0 ) ;
end;
end;
end;
end;

Function Tb_Cli.LerConvenio : Boolean;
Begin
With Tb_Clientes,SQL do
Begin
Try
Clear;
Add(´Select * From Clientes Where (CONVENIO) = :VConvenio´);
Add(´Order By Nome´);
ParamByname(´VConvenio´).AsString:=Convenio;
Active:=True;
Result:=True;
Except
on E: Exception do
begin
Result := False ;
MensagemTela( ´ERRO Lendo Convenio Por Cliente !...´, E.Message, ´´, 0 ) ;
end;
end;
end;
end;

Function Tb_Cli.LerEndereco : Boolean;
Begin
With Tb_Clientes,SQL do
Begin
Try
Clear;
Add(´Select * From Clientes Where (ENDERECO) Starting with :VEndereco´);
Add(´Order By Nome´);
ParamByname(´VEndereco´).AsString:=Endereco;
Active:=True;
Result:=True;
Except
on E: Exception do
begin
Result := False ;
MensagemTela( ´ERRO Lendo Cliente Por Endereço !...´, E.Message, ´´, 0 ) ;
end;
end;
end;
end;

end.


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar