unit UFornecedor;

interface

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

type
  TFrmFornecedor = class(TForm)
    PnButton: TPanel;
    PmDados: TPanel;
    EdRazSoc: TEdit;
    EdNomFant: TEdit;
    MdCNPJ: TMaskEdit;
    MdIE: TMaskEdit;
    EdEnd: TEdit;
    EdNum: TEdit;
    EdCidade: TEdit;
    EdUF: TEdit;
    MdCEP: TMaskEdit;
    MdTel: TMaskEdit;
    MdFax: TMaskEdit;
    BtnSalvar: TButton;
    BtnSair: TButton;
    LbRazSoc: TLabel;
    LbNomFant: TLabel;
    LbCNPJ: TLabel;
    LbIE: TLabel;
    LbEnd: TLabel;
    LbNumero: TLabel;
    LbCidade: TLabel;
    LbUF: TLabel;
    LbCEP: TLabel;
    LbTelefone: TLabel;
    LbFax: TLabel;
    EdBairro: TEdit;
    LbBairro: TLabel;
    btnLimpar: TButton;
    procedure BtnSairClick(Sender: TObject);
    procedure BtnSalvarClick(Sender: TObject);
    procedure btnLimparClick(Sender: TObject);
  private

    Procedure LimpaCampo;

  public
    { Public declarations }
  end;

var
  FrmFornecedor: TFrmFornecedor;

implementation
uses UBDESTOQUE, IBQuery;

{$R *.dfm}
procedure TFrmFornecedor.LimpaCampo;
Begin
   EdRazSoc.Clear;
   EdNomFant.Clear;
   EdEnd.Clear;
   EdNomFant.Clear;
   EdCidade.Clear;
   EdBairro.Clear;
   EdUF.Clear;
   MdCNPJ.Text:= '              ';
   MdIE.Text:= '           ';
   MdCEP.Text:= '        ';
   MdTel.Text:= '          ';
   MdFax.Text:= '          ';
end;


procedure TFrmFornecedor.BtnSairClick(Sender: TObject);
begin
   Close;
end;

procedure TFrmFornecedor.BtnSalvarClick(Sender: TObject);
Var str:string;
begin
   str:= 'inset into Fornecedor(razaosocial,NomeFantasia,CNPJ,IE,Rua,Numero,Cidade,,UF,CEP, Telefone, Fax, Bairro)'
   + 'Values ('+#39+Trim (EdRazSoc.text)+#39+','+#39+Trim (Ednomfant.text)+#39+','
   +#39+Trim (Mdcnpj.text)+#39+','+#39+Trim (MdIE.text)+#39+','+#39+Trim (EdEnd.text)+#39+','
   +#39+Trim (EdNum.text)+#39+','+#39+Trim (EdCidade.text)+#39+','+#39+Trim (EdUF.text)+#39+','
   +#39+Trim (MdCEP.text)+#39+','+#39+Trim (MdTel.text)+#39+','+#39+Trim (MdFax.text)+#39+','
   +#39+Trim (EdBairro.text)+#39+')';
   with DataModule1 do
      Begin
         with IBQFornecedor do
            Begin
               SQL.Clear;
               SQL.Add(str);
               ExecSQL;
            end;
         try
           IBTransaction1.commit;
           with IBQFornecedor do
              begin
                 sql.Clear;
                 SQL.Add('select*From Fornecedor');
                 close;
                 open;
              end;
           ShowMessage('cadastro Concluido!');
         except
              IBTransaction1.Rollback;
           ShowMessage('Ouve um Erro no Cadastro!!');
         end;
      end;

end;

procedure TFrmFornecedor.btnLimparClick(Sender: TObject);
begin
   LimpaCampo;
end;

end.

str:= 'inset into Fornecedor(razaosocial,NomeFantasia,CNPJ,IE,Rua,Numero,Cidade,,UF,CEP, Telefone, Fax, Bairro)'