src/Unt_CadAnClientes.pas at master · trautodiag/src · 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
unit Unt_CadAnClientes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unt_BaseAnCad, dxSkinsCore, dxSkinOffice2010Blue, dxSkinscxPCPainter,
  cxGraphics, cxControls, cxLookAndFeels, cxLookAndFeelPainters, Menus,
  cxContainer, cxEdit, ImgList, ActnList, cxScrollBox, StdCtrls, cxTextEdit,
  cxGroupBox, cxRadioGroup, cxButtons, ExtCtrls, cxPC, Unt_CadClientes,
  Unt_Util, Unit_DM, cxStyles, cxCustomData, cxFilter, cxData, cxDataStorage,
  DB, cxDBData, cxLocalization, cxGridLevel, cxClasses, cxGridCustomView,
  cxGridCustomTableView, cxGridTableView, cxGridDBTableView, cxGrid, DBClient,
  dxSkinOffice2007Blue;

type
  TF_CadAnClientes = class(TF_BaseAnCad)
    vwl_baseColumn1: TcxGridDBColumn;
    vwl_baseColumn2: TcxGridDBColumn;
    vwl_baseColumn3: TcxGridDBColumn;
    procedure act_NovoExecute(Sender: TObject);
    procedure act_EditarExecute(Sender: TObject);
    procedure act_ExcluirExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DblClica(Sender: TObject); override;
  end;

var
  F_CadAnClientes: TF_CadAnClientes;

implementation

{$R *.dfm}

procedure TF_CadAnClientes.act_EditarExecute(Sender: TObject);
begin
//  if TabelaAtualizar.Locate(FieldChave, RegistroSelecionado, []) then
//    begin
      inherited;
      TF_CadClientes.Inicia(Self.Handle);
//    end;
end;

procedure TF_CadAnClientes.act_ExcluirExecute(Sender: TObject);
begin
  if TabelaAtualizar.Locate(FieldChave, cds_dados.FieldByName(FieldChave).AsString, []) then
    if MessageDlg('Deseja excluir o registro ['+TabelaAtualizar.FieldByName(FieldChave).AsString+'] ?', mtWarning, mbYesNo, 0) = mrYes then
      begin
        TabelaAtualizar.Delete;
        inherited;
        //RecriaIcons;
      end;
end;

procedure TF_CadAnClientes.act_NovoExecute(Sender: TObject);
begin
  inherited;
  TF_CadClientes.Inicia(Self.Handle);
end;

procedure TF_CadAnClientes.DblClica(Sender: TObject);
begin
 inherited;
 TF_CadClientes.Inicia(Self.Handle, False);
end;

procedure TF_CadAnClientes.FormCreate(Sender: TObject);
begin
  SetInformacoes(DM.cds_clientes, 'CLI_Nome', 'CLI_Cod', 'Data', cs_Cliente);
  //RecriaIcons;
  inherited;
end;

end.