FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
delphi.error extraño en la funcion encriptar
hola amigos aqui con una duda.. lo que pasa es que quiero agregar una variable a la funcion de encriptar. pero melo marca como no definida...
no se que pasa des ya gracias... unit UEmpleados; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, Buttons; type TFrmEmpleados = class(TForm) PcModificarEmpleado: TPageControl; TabModificaEmpleado: TTabSheet; TabSheet3: TTabSheet; TabSheet1: TTabSheet; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Login: TLabel; password: TLabel; EdNumEmpleado: TEdit; EdAppaterno: TEdit; EdApmaterno: TEdit; EdNivel: TEdit; CmbDireccion: TComboBox; EdNombre: TEdit; EdLogin: TEdit; EdPassword: TEdit; BtnGuardar: TBitBtn; BtnCancelar: TBitBtn; BtnNuevo: TBitBtn; LblClaveDireccion: TLabel; LblEncriptado: TLabel; CmbEmpleado: TComboBox; Seleccionar: TLabel; BtnModificar: TBitBtn; LblModificaEmpleado: TLabel; EdMNumEmpleado: TEdit; EdMNombre: TEdit; EdMAppaterno: TEdit; EdMApmaterno: TEdit; EdMNivel: TEdit; EdMLogin: TEdit; EdMPassword: TEdit; Label7: TLabel; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; Label12: TLabel; Label13: TLabel; Label14: TLabel; CmbMDireccion: TComboBox; BtnMActualizar: TBitBtn; BtnMCancelar: TBitBtn; BtnMSalir: TBitBtn; lBLGuardaClave: TLabel; procedure EdMApmaternoEnter(Sender: TObject); procedure EdMNivelKeyPress(Sender: TObject; var Key: Char); procedure EdMAppaternoEnter(Sender: TObject); procedure EdMNombreClick(Sender: TObject); procedure EdMNombreEnter(Sender: TObject); procedure BtnMActualizarClick(Sender: TObject); //procedure PcModificarEmpleadoEnter(Sender: TObject); procedure CmbMDireccionEnter(Sender: TObject); procedure BtnModificarClick(Sender: TObject); procedure CmbEmpleadoSelect(Sender: TObject); procedure TabModificaEmpleadoEnter(Sender: TObject); procedure CmbDireccionEnter(Sender: TObject); procedure CmbDireccionClick(Sender: TObject); procedure EdNumEmpleadoKeyPress(Sender: TObject; var Key: Char); procedure EdNivelKeyPress(Sender: TObject; var Key: Char); procedure BtnCancelarClick(Sender: TObject); procedure CmbDireccionSelect(Sender: TObject); procedure FormShow(Sender: TObject); procedure EdPasswordEnter(Sender: TObject); procedure EdLoginEnter(Sender: TObject); procedure EdNivelEnter(Sender: TObject); procedure EdApmaternoEnter(Sender: TObject); procedure EdAppaternoEnter(Sender: TObject); procedure EdNombreEnter(Sender: TObject); procedure EdNumEmpleadoEnter(Sender: TObject); procedure EdPasswordClick(Sender: TObject); procedure EdLoginClick(Sender: TObject); procedure EdNivelClick(Sender: TObject); procedure EdApmaternoClick(Sender: TObject); procedure EdAppaternoClick(Sender: TObject); procedure EdNombreClick(Sender: TObject); procedure EdNumEmpleadoClick(Sender: TObject); procedure BtnGuardarClick(Sender: TObject); procedure BtnNuevoClick(Sender: TObject); private { Private declarations } procedure limpiar; procedure CancelaEdit; procedure HabilitaEdit; public { Public declarations } end; var FrmEmpleados: TFrmEmpleados; implementation uses Uconexion; {$R *.dfm} function encriptar(aStr: String; aKey: Integer): String; begin result:=''; variableAusar:=''; RandSeed:=aKey; for aKey:=1 to Length(aStr) do result:=result+Chr(Byte(aStr[aKey]) xor random(256)); end; {**************************************** *************PROCEMIDENTOS***************} Procedure TFrmEmpleados.limpiar(); begin CmbDireccion.Text:=''; EdNumEmpleado.Text:=''; EdNombre.Text:=''; EdAppaterno.Text:=''; EdApmaterno.Text:=''; EdNivel.Text:=''; EdLogin.Text:=''; EdPassword.Text:=''; end; procedure TFrmEmpleados.HabilitaEdit(); begin EdNumEmpleado.Enabled:=True; CmbDireccion.Enabled:=True; EdNombre.Enabled:=True; EdAppaterno.Enabled:=True; EdApmaterno.Enabled:=True; EdNivel.Enabled:=True; EdLogin.Enabled:=True; EdPassword.Enabled:=True; end; procedure TFrmEmpleados.CancelaEdit(); begin EdNumEmpleado.Enabled:=false; CmbDireccion.Enabled:=false; EdNombre.Enabled:=false; EdAppaterno.Enabled:=false; EdApmaterno.Enabled:=false; EdNivel.Enabled:=false; EdLogin.Enabled:=false; EdPassword.Enabled:=false; end; {***************fin************************** ****************Procedimientos*************************} procedure TFrmEmpleados.BtnNuevoClick(Sender: TObject); begin //Apagado de Botones BtnCancelar.Enabled:=True; BtnNuevo.Enabled:=False; BtnGuardar.Enabled:=True; //limpiado y cambiado de color de cuadro de texto EdNumEmpleado.color:=clWindow; EdNombre.color:=clWindow; EdAppaterno.color:=clWindow; EdApmaterno.color:=clWindow; EdNivel.color:=clWindow; EdLogin.color:=clWindow; EdPassword.color:=clWindow; CmbDireccion.color:=clWindow; limpiar(); HabilitaEdit(); CmbDireccion.Clear; //Llenado del combobox direccion Datos.QryLlenadoDireccion.Active:= False; Datos.QryLlenadoDireccion.SQL.Clear; Datos.QryLlenadoDireccion.SQL.Add('SELECT *'); Datos.QryLlenadoDireccion.SQL.Add('FROM Direccion'); Datos.QryLlenadoDireccion.SQL.Add('ORDER BY NombreDireccion'); Datos.QryLlenadoDireccion.Active:= True; Datos.QryLlenadoDireccion.First; if Datos.QryLlenadoDireccion.Recordcount>0 then begin While Not Datos.QryLlenadoDireccion.Eof Do begin CmbDireccion.Items.Add(Datos.QryLlenadoDireccion.FieldByName('NombreDireccion').AsString); Datos.QryLlenadoDireccion.Next; end end else Application.MessageBox('No existe direccion. agregue !!!', 'Aviso', MB_OK + MB_ICONINFORMATION); end; procedure TFrmEmpleados.BtnGuardarClick(Sender: TObject); var global : integer; begin global :=0; if CmbDireccion.Text='' then begin global:=1; CmbDireccion.color:=clInactiveCaptionText; end; //........................................................ if EdNumEmpleado.Text='' then begin global:=1; EdNumEmpleado.color:=clInactiveCaptionText; end; //............................. if Ednombre.Text='' then begin global:=1; Ednombre.color:=clInactiveCaptionText; end; //............................ if EdAppaterno.Text='' then begin global:=1; EdAppaterno.color:=clInactiveCaptionText; end; //............................ if EdApmaterno.Text='' then begin global:=1; EdApmaterno.color:=clInactiveCaptionText; end; //............................ if EdNivel.Text='' then begin global:=1; EdNivel.color:=clInactiveCaptionText; end; //............................ if EdLogin.Text='' then begin global:=1; EdLogin.color:=clInactiveCaptionText; end; //............................ if EdPassword.Text='' then begin global:=1; EdPassword.color:=clInactiveCaptionText; end; if global = 1 then begin Application.MessageBox('Rellene los campos marcados para continuar', 'Error', MB_OK + MB_ICONERROR); global:=0; end else if global = 0 then begin //Comprobar existencia Datos.QryEmpleado.Active:= False; Datos.QryEmpleado.SQL.Clear; Datos.QryEmpleado.SQL.Add('SELECT *'); Datos.QryEmpleado.SQL.Add('FROM Empleado'); Datos.QryEmpleado.SQL.Add('WHERE NumeroEmpleado =' + '''' + EdNumEmpleado.Text + ''''); Datos.QryEmpleado.Active:= True; If Datos.QryEmpleado.RecordCount > 0 then Application.MessageBox('La clave de empleado ya existe. Verifique los datos !!!', 'Error', MB_OK + MB_ICONERROR) else begin ******llamado de funcion**************** LblEncriptado.Caption := encriptar(EdPassword.Text, 10); Datos.QryEmpleado.Active:= False; Datos.QryEmpleado.SQL.Clear; Datos.QryEmpleado.SQL.Add('INSERT INTO Empleado VALUES('); Datos.QryEmpleado.SQL.Add(Quotedstr(EdNumEmpleado.Text) + ','); Datos.QryEmpleado.SQL.Add(Quotedstr(LblClaveDireccion.Caption) + ','); Datos.QryEmpleado.SQL.Add(Quotedstr(EdLogin.Text) + ','); Datos.QryEmpleado.SQL.Add(Quotedstr(LblEncriptado.caption) + ','); Datos.QryEmpleado.SQL.Add(Quotedstr(EdNombre.Text) + ','); Datos.QryEmpleado.SQL.Add(Quotedstr(EdAppaterno.Text) + ','); Datos.QryEmpleado.SQL.Add(Quotedstr(EdApmaterno.Text) + ','); Datos.QryEmpleado.SQL.Add(EdNivel.Text + ')'); Datos.QryEmpleado.ExecSQL; Application.MessageBox('Datos registrados satisfactoriamente !!!', 'Aviso', MB_OK + MB_ICONINFORMATION); //limpiar de componentes lblEncriptado.Caption:=''; LblClaveDireccion.Caption:=''; limpiar(); BtnNuevo.Enabled:=true; Btncancelar.Enabled:=false; BtnGuardar.Enabled:=false; end; end; end; procedure TFrmEmpleados.EdNumEmpleadoClick(Sender: TObject); begin EdNumEmpleado.color:=clWindow; end; procedure TFrmEmpleados.EdNombreClick(Sender: TObject); begin EdNombre.Color:=clWindow; end; procedure TFrmEmpleados.EdAppaternoClick(Sender: TObject); begin EdAppaterno.Color:=clWindow; end; procedure TFrmEmpleados.EdApmaternoClick(Sender: TObject); begin EdApmaterno.Color:=clWindow; end; procedure TFrmEmpleados.EdNivelClick(Sender: TObject); begin EdNivel.Color:=clWindow; end; procedure TFrmEmpleados.EdLoginClick(Sender: TObject); begin EdLogin.Color:=clWindow; end; procedure TFrmEmpleados.EdNumEmpleadoEnter(Sender: TObject); begin EdNumEmpleado.Color:=clWindow; end; procedure TFrmEmpleados.EdNombreEnter(Sender: TObject); begin EdNombre.Color:=clWindow; end; procedure TFrmEmpleados.EdAppaternoEnter(Sender: TObject); begin EdAppaterno.Color:=clWindow; end; procedure TFrmEmpleados.EdApmaternoEnter(Sender: TObject); begin EdMApmaterno.Color:=clWindow; end; procedure TFrmEmpleados.EdNivelEnter(Sender: TObject); begin EdMNivel.Color:=clWindow; end; procedure TFrmEmpleados.EdLoginEnter(Sender: TObject); begin EdMLogin.Color:=clwindow; end; procedure TFrmEmpleados.EdPasswordEnter(Sender: TObject); begin EdPassword.Color:=clWindow; end; procedure TFrmEmpleados.EdPasswordClick(Sender: TObject); begin EdPassword.color:=clWindow; end; procedure TFrmEmpleados.FormShow(Sender: TObject); begin //cacelar botones al iniciar la forma CancelaEdit(); BtnCancelar.Enabled:=False; BtnNuevo.Enabled:=True; BtnGuardar.Enabled:=False; //***********cancelar Botones modificar empleado********************* BtnModificar.Enabled:=false; BtnMActualizar.Enabled:=false; BtnMCancelar.Enabled:=False; //***********cancelar edit modificar empleado********************* EdMNombre.enabled:=false; EdMAppaterno.enabled:=false; EdMApmaterno.enabled:=false; EdMNivel.enabled:=false; CmbMDireccion.enabled:=false; EdMLogin.enabled:=false; EdMPassword.enabled:=false; end; procedure TFrmEmpleados.CmbDireccionSelect(Sender: TObject); begin {Aqui se busca la clave de la direccion solicitada en el combobox} Datos.QryBuscarClaveDireccion.Active:= False; Datos.QryBuscarClaveDireccion.SQL.Clear; Datos.QryBuscarClaveDireccion.SQL.Add('SELECT ClaveDireccion'); Datos.QryBuscarClaveDireccion.SQL.Add('FROM Direccion'); Datos.QryBuscarClaveDireccion.SQL.Add('WHERE NombreDireccion = ' + QuotedStr(CmbDireccion.Text)); Datos.QryBuscarClaveDireccion.Active:= True; Datos.QryBuscarClaveDireccion.First; LblClaveDireccion.Caption:=Datos.QryBuscarClaveDireccion.FieldByName('ClaveDireccion').AsString end; procedure TFrmEmpleados.BtnCancelarClick(Sender: TObject); begin if Application.MessageBox('Se cancelara la operacion. Desea continuar ??? ', 'Aviso', MB_OKCANCEL + MB_ICONINFORMATION)= mrOK then Limpiar(); end; procedure TFrmEmpleados.EdNivelKeyPress(Sender: TObject; var Key: Char); var mensaje:integer; begin if (key >= Char(64)) Or (key < Char(47)) And (key >= Char(14)) then begin mensaje:=Application.MessageBox('Digite un valor numérico. Gracias', 'Error de entrada'); key := char(0); //Limpia el EditBox end; EdNivel.SetFocus; end; procedure TFrmEmpleados.EdNumEmpleadoKeyPress(Sender: TObject; var Key: Char); var mensaje:integer; begin if (key >= Char(64)) Or (key < Char(47)) And (key >= Char(14)) then begin mensaje:=Application.MessageBox('Digite un valor numérico. Gracias', 'Error de entrada'); key := char(0); //Limpia el EditBox end; EdNumEmpleado.SetFocus; end; procedure TFrmEmpleados.CmbDireccionClick(Sender: TObject); begin CmbDireccion.Color:=clWindow; end; procedure TFrmEmpleados.CmbDireccionEnter(Sender: TObject); begin CmbDireccion.Color:=clWindow; end; procedure TFrmEmpleados.TabModificaEmpleadoEnter(Sender: TObject); begin CmbEmpleado.Enabled:=true; CmbEmpleado.Clear; Datos.QryEmpleado.Active:= False; Datos.QryEmpleado.SQL.Clear; Datos.QryEmpleado.SQL.Add('SELECT Nombre,Appaterno,Apmaterno,NumeroEmpleado'); Datos.QryEmpleado.SQL.Add('FROM Empleado'); Datos.QryEmpleado.Active:= True; Datos.QryEmpleado.First; If Datos.QryEmpleado.RecordCount > 0 then begin While Not Datos.QryEmpleado.Eof Do Begin CmbEmpleado.Items.Add(Datos.QryEmpleado.FieldByName ('Nombre').AsString+' '+ Datos.QryEmpleado.FieldByName ('Appaterno').AsString+' '+ Datos.QryEmpleado.FieldByName ('ApMaterno').AsString+' '+ Datos.QryEmpleado.FieldByName ('NumeroEmpleado').AsString); Datos.QryEmpleado.Next; End End else Application.MessageBox('No existe empleado. Agregue', 'Error', MB_OK + MB_ICONINFORMATION); end; procedure TFrmEmpleados.CmbEmpleadoSelect(Sender: TObject); begin BtnModificar.Enabled:=true; BtnMCancelar.Enabled:=false; BtnMActualizar.enabled:=false; LblModificaEmpleado.Caption:=CmbEmpleado.Text; end; procedure TFrmEmpleados.BtnModificarClick(Sender: TObject); var s:String; p:string; begin //***********cancelar edit modificar empleado********************* EdMNombre.enabled:=true; EdMAppaterno.enabled:=true; EdMApmaterno.enabled:=true; EdMNivel.enabled:=true; CmbMDireccion.enabled:=true; EdMLogin.enabled:=true; EdMPassword.enabled:=true; BtnMActualizar.enabled:=True; BtnModificar.Enabled:=false; BtnMCancelar.Enabled:=true; //guardo el string seleccionado y divido para obtener el ultimo string(numero de empleado) s:=LblModificaEmpleado.Caption; p:=(strRscan(PChar(Trim(s)),' ') + 1); //*************muestro los datos en los edit******************** Datos.QryEmpleado.Active:= False; Datos.QryEmpleado.SQL.Clear; Datos.QryEmpleado.SQL.Add('SELECT *'); Datos.QryEmpleado.SQL.Add('FROM Empleado'); Datos.QryEmpleado.SQL.Add('WHERE NumeroEmpleado=' + '''' + p + '''' + ';'); Datos.QryEmpleado.Active:= True; Datos.QryEmpleado.First; EdMNumEmpleado.Text:=Datos.QryEmpleado.FieldByName ('NumeroEmpleado').AsString; EdMNombre.Text:=Datos.QryEmpleado.FieldByName ('Nombre').AsString; EdMAppaterno.Text:=Datos.QryEmpleado.FieldByName ('Appaterno').AsString; EdMApmaterno.Text:=Datos.QryEmpleado.FieldByName ('ApMaterno').AsString; EdMNivel.Text:=Datos.QryEmpleado.FieldByName ('Nivel').AsString; LblGuardaClave.Caption:=Datos.QryEmpleado.FieldByName ('ClaveDireccion').AsString; EdMLogin.Text:=Datos.QryEmpleado.FieldByName ('Login').AsString; EdMPassword.Text:=Datos.QryEmpleado.FieldByName ('Password').AsString; //************************************************************** // buscar la direccion a la que pertenece Datos.QryBuscarClaveDireccion.Active:= False; Datos.QryBuscarClaveDireccion.SQL.Clear; Datos.QryBuscarClaveDireccion.SQL.Add('SELECT NombreDireccion'); Datos.QryBuscarClaveDireccion.SQL.Add('FROM Direccion'); Datos.QryBuscarClaveDireccion.SQL.Add('WHERE ClaveDireccion = ' + QuotedStr(LblGuardaClave.caption)); Datos.QryBuscarClaveDireccion.Active:= True; Datos.QryBuscarClaveDireccion.First; If Datos.QryBuscarClaveDireccion.RecordCount > 0 then CmbMDireccion.Text:=Datos.QryBuscarClaveDireccion.FieldByName('NombreDireccion').AsString; end; procedure TFrmEmpleados.CmbMDireccionEnter(Sender: TObject); begin CmbMDireccion.Color:=clwindow; if Application.MessageBox('Desea cambiar la direccion !!!', 'Aviso', MB_OKCANCEL + MB_ICONINFORMATION)= mrOK then begin //Llenado del combobox direccion CmbMDireccion.Clear; Datos.QryLlenadoDireccion.Active:= False; Datos.QryLlenadoDireccion.SQL.Clear; Datos.QryLlenadoDireccion.SQL.Add('SELECT *'); Datos.QryLlenadoDireccion.SQL.Add('FROM Direccion'); Datos.QryLlenadoDireccion.SQL.Add('ORDER BY NombreDireccion'); Datos.QryLlenadoDireccion.Active:= True; Datos.QryLlenadoDireccion.First; While Not Datos.QryLlenadoDireccion.Eof Do Begin CmbMDireccion.Items.Add(Datos.QryLlenadoDireccion.FieldByName('NombreDireccion').AsString); Datos.QryLlenadoDireccion.Next; End; end; end; procedure TFrmEmpleados.BtnMActualizarClick(Sender: TObject); var global : integer; begin global:=0; if CmbMDireccion.Text='' then begin global:=1; CmbMDireccion.color:=clInactiveCaptionText; end; //........................................................ if EdMnombre.Text='' then begin global:=1; EdMnombre.color:=clInactiveCaptionText; end; //............................ if EdMPassword.Text='' then begin global:=1; EdMPassword.color:=clInactiveCaptionText; end; if global = 1 then begin Application.MessageBox('Rellene los campos marcados para continuar', 'Error', MB_OK + MB_ICONERROR); global:=0; end else {**************************************** **********realizar las modificaciones**** *****************************************} end; procedure TFrmEmpleados.EdMNombreEnter(Sender: TObject); begin EdMNombre.Color:=clwindow; end; procedure TFrmEmpleados.EdMNombreClick(Sender: TObject); begin EdMNombre.Color:=clwindow; end; procedure TFrmEmpleados.EdMAppaternoEnter(Sender: TObject); begin EdMAppaterno.Color:=clwindow; end; procedure TFrmEmpleados.EdMAppaternoClick(Sender: TObject); begin EdMAppaterno.Color:=clwindow; end; procedure TFrmEmpleados.EdMApmaternoClick(Sender: TObject); begin EdMApmaterno.Color:=clwindow; end; procedure TFrmEmpleados.EdMNivelEnter(Sender: TObject); begin EdMNivel.Color:=clwindow; end; procedure TFrmEmpleados.EdMNivelClick(Sender: TObject); begin EdMNivel.Color:=clwindow; end; end. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Encriptar en delphi 5.0 | Gruthier | Varios | 5 | 01-12-2007 22:35:28 |
Error Extraño | Esau | SQL | 4 | 17-06-2005 22:44:16 |
Error creando forms en una funcion comun en delphi 7 | victorpower | Varios | 2 | 14-02-2005 13:46:35 |
error extraño | gilberto_1126 | Varios | 2 | 05-09-2004 01:01:01 |
Error Extraño | Esau | OOP | 5 | 19-11-2003 18:01:32 |
|