DEMarket/Con_Cliente.~pas at master · wesleysousalacerda/DEMarket · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
unit Con_Cliente;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, db, pngimage, ExtCtrls;

type
  TFrmCon_Cliente = class(TForm)
    EdtConsulta: TEdit;
    Label1: TLabel;
    DBGrid1: TDBGrid;
    BtnConsultar: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BtnConsultarClick(Sender: TObject);
    procedure EdtConsultaChange(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmCon_Cliente: TFrmCon_Cliente;

implementation

uses UDM, Cad_Cliente, Cad_Venda;

{$R *.DFM}

procedure TFrmCon_Cliente.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
        dm.qryCliente.Close;
end;

procedure TFrmCon_Cliente.FormShow(Sender: TObject);
begin
     dm.QryCliente.SQL.Clear;
     dm.QryCliente.SQL.add('SELECT * FROM CLIENTE ORDER BY NOME');
     dm.QryCliente.Open;
end;

procedure TFrmCon_Cliente.BitBtn2Click(Sender: TObject);
begin
     close;
end;

procedure TFrmCon_Cliente.BtnConsultarClick(Sender: TObject);
begin
try
     frmcad_cliente.show;
     dm.tblcliente.locate ('Cod_Cliente', dm.qryClienteCod_Cliente.value, []);
     FrmCad_Cliente.BtnLocalizar.Enabled := false;

except
ShowMessage('Janela já está aberta!');
end;
end;

procedure TFrmCon_Cliente.EdtConsultaChange(Sender: TObject);
begin
with dm.QryCliente do
          begin
               close;
               sql.clear;
               sql.add ('SELECT * FROM CLIENTE WHERE NOME LIKE '+#39+EdtConsulta.Text+'%'+#39+' order by NOME');
               open;
end;
end;


end.