aqui esta todo el codidgo de mi formulario haber si me pueden ayudar la parte en rojo es donde tengo el problema
Código Delphi
[-]unit UModificaUsuarios;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBCtrls, ADODB;
type
TFModificaUsuarios = class(TForm)
QUsuarios: TADOQuery;
QUsuariosusuario: TStringField;
BModificar: TButton;
BConsultar: TButton;
BSalir: TButton;
BBorrar: TButton;
EUsuario: TEdit;
LUsuarios: TListBox;
Label1: TLabel;
QModificaUsuario: TADOQuery;
procedure FormCreate(Sender: TObject);
procedure EUsuarioChange(Sender: TObject);
procedure LUsuariosClick(Sender: TObject);
procedure BModificarClick(Sender: TObject);
procedure BConsultarClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure BSalirClick(Sender: TObject);
private
public
end;
var
FModificaUsuarios: TFModificaUsuarios;
implementation
uses Uusuarios;
{$R *.dfm}
procedure TFModificaUsuarios.BConsultarClick(Sender: TObject);
var
consulta, nombre, pasword: String;
fusuarios: TFUsuarios;
permiso1, permiso2, permiso3, permiso4, permiso5, permiso6, permiso7: integer;
permiso8, permiso9, permiso10, permiso11, permiso12, permiso13: integer;
begin
nombre:= lusuarios.Items[lusuarios.ItemIndex];
consulta:= 'select u.usuario,(aes_decrypt(AES_ENCRYPT(u.clave,';
consulta:= consulta + '''' + 'TWH664' + '''' + '), ' + '''';
consulta:= consulta + 'TWH664' + '''' + ')) as psw, u.desc_usuario,';
consulta:= consulta + 'p.agregar_zonas, p.modificar_zonas, p.consultar_zonas,';
consulta:= consulta + 'p.agregar_cobr, p.modificar_cobr, p.consultar_cobr,';
consulta:= consulta + 'p.capturar_entregas, p.modificar_entregas, p.validar_entregas,';
consulta:= consulta + 'p.agregar_usuarios, p.modificar_usuarios, p.consultar_usuarios,';
consulta:= consulta + 'p.consultar_entregas from usuarios as u ';
consulta:= consulta + 'inner join permisos as p on u.usuario = p.usuario ';
consulta:= consulta +'where u.usuario =' + '''' + nombre +'''';
qmodificausuario.SQL.Clear;
QModificaUsuario.SQL.Text:= consulta;
QmodificaUsuario.Active:= true;
qmodificausuario.Open;
showmessage(qmodificausuario.fieldvalues['psw']); pasword:= qmodificausuario.FieldByName('psw').AsString;
permiso1:= StrtoInt(QModificaUsuario.FieldByName('agregar_zonas').AsString);
permiso2:= StrtoInt(QModificaUsuario.FieldByName('modificar_zonas').AsString);
permiso3:= StrtoInt(QModificaUsuario.FieldByName('consultar_zonas').AsString);
permiso4:= StrtoInt(QModificaUsuario.FieldByName('agregar_cobr').AsString);
permiso5:= StrtoInt(QModificaUsuario.FieldByName('modificar_cobr').AsString);
permiso6:= StrtoInt(QModificaUsuario.FieldByName('consultar_cobr').AsString);
permiso7:= StrtoInt(QModificaUsuario.FieldByName('capturar_entregas').AsString);
permiso8:= StrtoInt(QModificaUsuario.FieldByName('modificar_entregas').AsString);
permiso9:= StrtoInt(QModificaUsuario.FieldByName('validar_entregas').AsString);
permiso10:= StrtoInt(QModificaUsuario.FieldByName('agregar_usuarios').AsString);
permiso11:= StrtoInt(QModificaUsuario.FieldByName('modificar_usuarios').AsString);
permiso12:= StrtoInt(QModificaUsuario.FieldByName('consultar_usuarios').AsString);
permiso13:= StrtoInt(QModificaUsuario.FieldByName('consultar_entregas').AsString);
fusuarios:= tfusuarios.Create(Application);
fusuarios.BCancelar.SetFocus;
fusuarios.ENombre.Text:= lusuarios.Items[lusuarios.ItemIndex];
fusuarios.EPassword.Text:= QModificaUsuario.FieldByName('psw').AsString;
fusuarios.ERepitePassword.Text:= QModificaUsuario.FieldByName('psw').AsString;
fusuarios.EDescripcion.Text:= QModificaUsuario.FieldByName('desc_usuario').AsString;
if permiso1 = 1 then
fusuarios.CheckAgregaZona.Checked:= true
else
fusuarios.CheckAgregaZona.Checked:= false;
if permiso2 = 1 then
fusuarios.CheckModificaZona.Checked:= true
else
fusuarios.CheckModificaZona.Checked:= false;
if permiso3 = 1 then
fusuarios.CheckConsultaZona.Checked:= true
else
fusuarios.CheckConsultaZona.Checked:= false;
if permiso4 = 1 then
fusuarios.CheckAgregaCobrador.Checked:= true
else
fusuarios.CheckAgregaCobrador.Checked:= false;
if permiso5 = 1 then
fusuarios.CheckModificaCobrador.Checked:= true
else
fusuarios.CheckModificaCobrador.Checked:= false;
if permiso6 = 1 then
fusuarios.CheckConsultaCobrador.Checked:= true
else
fusuarios.CheckConsultaCobrador.Checked:= false;
if permiso7 = 1 then
fusuarios.CheckCapturaEntrega.Checked:= true
else
fusuarios.CheckCapturaEntrega.Checked:= false;
if permiso8 = 1 then
fusuarios.CheckModificaEntrega.Checked:= true
else
fusuarios.CheckModificaEntrega.Checked:= false;
if permiso9 =1 then
fusuarios.CheckValidaEntrega.Checked:= true
else
fusuarios.CheckValidaEntrega.Checked:= false;
if permiso10=1 then
fusuarios.CheckAgregaUsuario.Checked:= true
else
fusuarios.CheckAgregaUsuario.Checked:= false;
if permiso11= 1 then
fusuarios.CheckModificaUsuario.Checked:= true
else
fusuarios.CheckModificaUsuario.Checked:= false;
if permiso12 = 1 then
fusuarios.CheckConsultarUsuario.Checked:= true
else
fusuarios.CheckConsultarUsuario.Checked:= false;
if permiso13=1 then
fusuarios.CheckConsultarEntrega.Checked:= true
else
fusuarios.CheckConsultarEntrega.Checked:= false;
fusuarios.ENombre.Enabled:= false;
fusuarios.EPassword.Enabled:= false;
fusuarios.ERepitePassword.Enabled:= false;
fusuarios.EDescripcion.Enabled:= false;
fusuarios.CheckAgregaZona.Enabled:= false;
fusuarios.CheckModificaZona.Enabled:= false;
fusuarios.CheckConsultaZona.Enabled:= false;
fusuarios.CheckAgregaCobrador.Enabled:= false;
fusuarios.CheckModificaCobrador.Enabled:= false;
fusuarios.CheckConsultaCobrador.Enabled:= false;
fusuarios.CheckCapturaEntrega.Enabled:= false;
fusuarios.CheckModificaEntrega.Enabled:= false;
fusuarios.CheckValidaEntrega.Enabled:= false;
fusuarios.CheckConsultarEntrega.Enabled:= false;
fusuarios.CheckAgregaUsuario.Enabled:=false;
fusuarios.CheckModificaUsuario.Enabled:= false;
fusuarios.CheckConsultarUsuario.Enabled:= false;
fusuarios.BAceptar.Enabled:= false;
fusuarios.BAceptar.Visible:= false;
fusuarios.Show();
end;
procedure TFModificaUsuarios.BModificarClick(Sender: TObject);
var
Fusuarios: TFusuarios;
begin
fusuarios:= tfusuarios.Create(Application);
fusuarios.EPassword.SetFocus;
fusuarios.ENombre.Enabled:= false;
Fusuarios.ENombre.Text:= lusuarios.Items[lusuarios.ItemIndex];
fusuarios.Show();
end;
procedure TFModificaUsuarios.BSalirClick(Sender: TObject);
begin
close();
end;
procedure TFModificaUsuarios.EUsuarioChange(Sender: TObject);
var
texto, item: String;
i: integer;
begin texto:= AnsiUpperCase(EUsuario.Text);
for i := 0 to lusuarios.Count - 1 do
begin
item:= AnsiUpperCase(Lusuarios.Items[i]);
if Pos(texto, item) = 1 then
begin
lusuarios.ItemIndex:= i;
Bmodificar.Enabled:= true;
Bborrar.Enabled:= true;
Bconsultar.Enabled:= true;
end;
end;
if eusuario.text = '' then
begin
lusuarios.ItemIndex:= -1;
bmodificar.Enabled:= false;
bconsultar.Enabled:= false;
bborrar.Enabled:= false;
end;
end;
procedure TFModificaUsuarios.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
release();
end;
procedure TFModificaUsuarios.FormCreate(Sender: TObject);
begin
qusuarios.Active:= true;
qusuarios.Open;
lusuarios.Items.Clear; qusuarios.First; while not qusuarios.Eof do begin
lusuarios.Items.Add(AnsiUpperCase(qusuarios.FieldByName('usuario').AsString));
qusuarios.Next;
end;
qusuarios.Close;
qusuarios.Active:= false;
end;
procedure TFModificaUsuarios.LUsuariosClick(Sender: TObject);
begin
if lusuarios.ItemIndex <> -1 then
begin
Bmodificar.Enabled:= true;
Bborrar.Enabled:= true;
Bconsultar.Enabled:= true;
EUsuario.Text:= lusuarios.Items[lusuarios.ItemIndex]; end;
end;
end.