[mikylin]

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
    { Private declarations }
  public
    { Public declarations }
  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.