Fórum [Pascal Error] uUsuarios.pas(44): E2003 Undeclared identifie #347041
05/10/2007
0
Oi estou com problema no meu sistema quando eu compilo da o seguite erro :
[Pascal Error] uUsuarios.pas(44): E2003 Undeclared identifier: ´Form´ na seguite linha de codigo:Form := FUsuariosManutencao;
o meu codigo neste form esta dessa maneira:
unit uUsuarios;
interface
uses
Windows, Messages,SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uModeloConsulta, Borland.Vcl.ActnList, Borland.Vcl.ImgList,
Borland.Vcl.Grids, Borland.Vcl.DBGrids, Borland.Vcl.ComCtrls,
Borland.Vcl.StdCtrls, Borland.Vcl.ExtCtrls, System.ComponentModel,
Borland.Vcl.ToolWin;
type
TFUsuarios = class(TFModeloConsulta)
Button6: TButton;
ac_permissoes: TAction;
procedure ac_permissoesExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FUsuarios: TFUsuarios;
implementation
uses uDM, uUsuariosManutencao, uUsuariosPermissoes, uFPrincipal;
{$R *.nfm}
procedure TFUsuarios.ac_permissoesExecute(Sender: TObject);
begin
FUsusariosPermissoes.ShowModal;
end;
procedure TFUsuarios.FormShow(Sender: TObject);
begin
inherited;
Tabela := DM.usuarios;
Grade.DataSource := DM.ds_usuarios;
Form := FUsuariosManutencao;
end;
end.
e eu já criei o fom FUsuariosManutencao :?
[Pascal Error] uUsuarios.pas(44): E2003 Undeclared identifier: ´Form´ na seguite linha de codigo:Form := FUsuariosManutencao;
o meu codigo neste form esta dessa maneira:
unit uUsuarios;
interface
uses
Windows, Messages,SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uModeloConsulta, Borland.Vcl.ActnList, Borland.Vcl.ImgList,
Borland.Vcl.Grids, Borland.Vcl.DBGrids, Borland.Vcl.ComCtrls,
Borland.Vcl.StdCtrls, Borland.Vcl.ExtCtrls, System.ComponentModel,
Borland.Vcl.ToolWin;
type
TFUsuarios = class(TFModeloConsulta)
Button6: TButton;
ac_permissoes: TAction;
procedure ac_permissoesExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FUsuarios: TFUsuarios;
implementation
uses uDM, uUsuariosManutencao, uUsuariosPermissoes, uFPrincipal;
{$R *.nfm}
procedure TFUsuarios.ac_permissoesExecute(Sender: TObject);
begin
FUsusariosPermissoes.ShowModal;
end;
procedure TFUsuarios.FormShow(Sender: TObject);
begin
inherited;
Tabela := DM.usuarios;
Grade.DataSource := DM.ds_usuarios;
Form := FUsuariosManutencao;
end;
end.
e eu já criei o fom FUsuariosManutencao :?
Mary
Curtir tópico
+ 0
Responder
Posts
05/10/2007
Jpauloss
Oi estou com problema no meu sistema quando eu compilo da o seguite erro :
[Pascal Error] uUsuarios.pas(44): E2003 Undeclared identifier: ´Form´ na seguite linha de codigo:Form := FUsuariosManutencao;
o meu codigo neste form esta dessa maneira:
unit uUsuarios;
interface
uses
Windows, Messages,SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uModeloConsulta, Borland.Vcl.ActnList, Borland.Vcl.ImgList,
Borland.Vcl.Grids, Borland.Vcl.DBGrids, Borland.Vcl.ComCtrls,
Borland.Vcl.StdCtrls, Borland.Vcl.ExtCtrls, System.ComponentModel,
Borland.Vcl.ToolWin;
type
TFUsuarios = class(TFModeloConsulta)
Button6: TButton;
ac_permissoes: TAction;
procedure ac_permissoesExecute(Sender: TObject);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FUsuarios: TFUsuarios;
implementation
uses uDM, uUsuariosManutencao, uUsuariosPermissoes, uFPrincipal;
{$R *.nfm}
procedure TFUsuarios.ac_permissoesExecute(Sender: TObject);
begin
FUsusariosPermissoes.ShowModal;
end;
procedure TFUsuarios.FormShow(Sender: TObject);
begin
inherited;
Tabela := DM.usuarios;
Grade.DataSource := DM.ds_usuarios;
Form := FUsuariosManutencao;
end;
end.
e eu já criei o fom FUsuariosManutencao :?
Não seria TForm? Tenta aí estou sem delphi aqui.
Responder
Gostei + 0
05/10/2007
Mary
oi coloquei como TForm e o erro continua
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)