programa_cobranca/ucadUsuarioseditar.pas

unit ucadUsuarioseditar;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, umstCadastro, Data.DB, Vcl.ExtCtrls,
  Vcl.DBCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.ComCtrls, System.ImageList,
  Vcl.ImgList, Vcl.Buttons, ucadUsuarios;

type
  THackDBNavigator = class(TDBNavigator);

type
  TcadUsuarioseditar = class(TmstCadastro)
    dbedt_login: TDBEdit;
    lbl_login: TLabel;
    dbedt_senha: TDBEdit;
    lbl_senha: TLabel;
    lbl_grpacesso: TLabel;
    DBCheckBox1: TDBCheckBox;
    DBCheckBox5: TDBCheckBox;
    ImageList1: TImageList;
    cb_senha: TCheckBox;
    tabemail: TTabSheet;
    cb_emailuser: TCheckBox;
    grpb_email: TGroupBox;
    lbl_nomeemail: TLabel;
    lbl_email: TLabel;
    lbl_ccemail: TLabel;
    lbl_useremail: TLabel;
    lbl_senhaemail: TLabel;
    lbl_pop3: TLabel;
    lbl_portapop3: TLabel;
    lbl_portasmtp: TLabel;
    lbl_smtp: TLabel;
    dbedt_nomeemail: TDBEdit;
    dbedt_email: TDBEdit;
    dbedt_ccemail: TDBEdit;
    dbedt_useremail: TDBEdit;
    dbedt_senhaemail: TDBEdit;
    dbedt_pop3: TDBEdit;
    dbedt_portapop3: TDBEdit;
    dbedt_portasmtp: TDBEdit;
    dbedt_smtp: TDBEdit;
    dbc_conxsegura: TDBCheckBox;
    btn_testconex: TButton;
    Button2: TButton;
    dblucb_grupo: TDBLookupComboBox;
    procedure FormCreate(Sender: TObject);
    procedure navPrincipalBeforeAction(Sender: TObject; Button: TNavigateBtn);
    procedure FormShow(Sender: TObject);
    procedure cb_emailuserClick(Sender: TObject);
    procedure cb_senhaClick(Sender: TObject);
    procedure dtsDBStateChange(Sender: TObject);
  private
  public
    // master_srs : TDataSource;
    { Public declarations }
  end;

var
  cadUsuarioseditar: TcadUsuarioseditar;

implementation

{$R *.dfm}

uses udtmSystem;

procedure TcadUsuarioseditar.cb_emailuserClick(Sender: TObject);
begin
  // usuário vai ter email próprio ou não
  if cb_emailuser.Checked then
  begin
    grpb_email.Enabled := true;
  end;
  if cb_emailuser.Checked = false then
  begin
    grpb_email.Enabled := false;
  end;
end;

procedure TcadUsuarioseditar.cb_senhaClick(Sender: TObject);
begin

  if cb_senha.Checked then
  begin
    dbedt_senha.PasswordChar := #0;
    dtmSystem.mostrar_senha := true;
  end;
  if not cb_senha.Checked then
  begin
    dbedt_senha.PasswordChar := '*';
    dtmSystem.mostrar_senha := false;
  end;
end;

procedure TcadUsuarioseditar.dtsDBStateChange(Sender: TObject);
begin
  inherited;
  tabemail.Enabled := grpDescricao.Enabled;
end;

procedure TcadUsuarioseditar.FormCreate(Sender: TObject);
begin
  inherited;
  with dtmSystem do
  begin
    tblUsuarios.Open;
    tblGrupos.Open;
    tblGruposPermissoes.Open;
    grpb_email.Enabled := false;
    SetupHackedNavigator(navPrincipal, ImageList1, 's');

    qryConsulta.SQL.Text := 'Select * from SYS_GRUPOS';
    qryConsulta.Open;

    while not qryConsulta.Eof do
    begin
      //ComboBox1.Items.Add(qryConsulta.FieldByName('tx_nome').AsString);
      qryConsulta.Next;
    end;

    qryConsulta.Close;

   // ComboBox1.ItemIndex := tblGruposID_GRUPO.AsInteger - 1;
  end;
end;

procedure TcadUsuarioseditar.FormShow(Sender: TObject);
begin

  // seta se vai poder ver a senha sem máscara ou com
  if dtmSystem.mostrar_senha then
  begin
    cb_senha.Checked := true;
    dbedt_senha.PasswordChar := #0;
  end
  else
  begin
    cb_senha.Checked := false;
    dbedt_senha.PasswordChar := '*';
  end;
end;

procedure TcadUsuarioseditar.navPrincipalBeforeAction(Sender: TObject;
  Button: TNavigateBtn);
begin
  inherited;
  if Button = nbPost then
  begin
    if DBEdit1.Text = '' then
    begin
      messagedlg('Necessário dar um nome ao usuário', mtWarning, mbOKCancel, 0);
      dbedt_login.Text := '';
      dbedt_senha.Text := '';
      exit;
    end;
    dtmSystem.qryConsulta.SQL.Text := 'Select * from SYS_GRUPOS';
    dtmSystem.qryConsulta.Open;
//    dtmSystem.qryConsulta.Locate('TX_NOME',
//      ComboBox1.Items[ComboBox1.ItemIndex], []);
    dtmSystem.tblUsuariosID_GRUPO.AsString := dtmSystem.qryConsulta.FieldByName
      ('ID_GRUPO').AsString;
    dtmSystem.qryConsulta.Close;
    dtmSystem.tblUsuarios.Post;
//    dtmSystem.tblGrupos.Locate('TX_NOME',
//      ComboBox1.Items[ComboBox1.ItemIndex], []);
    dtmSystem.tblUsuarios.Edit;
  end;

end;
end.