Hola Caral aca me sale el error: haber si con esto me puedes ayudar por favor. El programa corre pero se ven feo los errores y no se si mas adelante me de problemas.
unit PRINCIPAL;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls, XPMan, Menus, Grids, DBGrids, Mask,
DBCtrls;
type
Tmenucito = class(TForm)
Código Delphi
[-]
XPManifest1: TXPManifest;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
DBGrid3: TDBGrid;
DBGrid4: TDBGrid;
DBGrid5: TDBGrid;
DBGrid6: TDBGrid;
DBGrid7: TDBGrid;
DBGrid8: TDBGrid;
DBGrid9: TDBGrid;
Image1: TImage;
Button1: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
DBGrid10: TDBGrid;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBGrid11: TDBGrid;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Image2: TImage;
DBEdit5: TDBEdit;
procedure Button1Click(Sender: TObject);
private
public
end;
var
menucito: Tmenucito;
implementation
uses
FORMULARIOMENU,MODULOENLACE;
{$R *.dfm}procedure Tmenucito.Button1Click(Sender: TObject);
begin
with datamodule1.BCONTRA_LOGIN do begin
if active=true then active:=false;prepare;
parambyname('@LOGINU').AsString:= EDIT1.TEXT;
parambyname('@CONTRASENAU').AsString:= EDIT2.TEXT;
execproc; active:=true;
end;
with datamodule1.BNOMBREUSUARIO do begin
if active=true then active:=false;prepare;
parambyname('@LOGINU').AsString:= EDIT1.TEXT;
execproc; active:=true;
end;
IF (DBEDIT1.TEXT = '')OR(DBEDIT2.TEXT = '') THEN
begin
SHOWMESSAGE('EL NOMBRE DE USUARIO O CONTRASEÑA NO ES VALIDO');
image2.Visible:=true;
end
ELSE
begin
if (DBEDIT5.TEXT = 'ADMINISTRADOR') then
BEGIN
FPRINCIPAL.SHOW;
image2.Visible:=false;
FPRINCIPAL.MainMenu1.ITEMS.Items[0].ENABLED:=TRUE;
FPRINCIPAL.MainMenu1.ITEMS.Items[2].ENABLED:=TRUE;
FPRINCIPAL.MainMenu1.ITEMS.Items[1].ITEMS[2].ENABLED:=TRUE;
END
ELSE
BEGIN
FPRINCIPAL.SHOW;
FPRINCIPAL.MainMenu1.ITEMS.Items[0].ENABLED:=FALSE;
FPRINCIPAL.MainMenu1.ITEMS.Items[2].ENABLED:=FALSE;
FPRINCIPAL.MainMenu1.ITEMS.Items[1].ITEMS[2].ENABLED:=FALSE;
END;
end;
end;
end.