[Ajuda] Problema com projeto no Delphi.

[cebolaaa]

Pessoal, ta dando o seguinte erro: "Project EnterpriseManager.exe raised exception class EDBEnginerError with message 'Name not unic in this context'. Process stopped. Use step or Run to continue.

Segue abaixo o codigo:

unit TelaLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
    TLogin = class(TForm)
    Password: TEdit;
    User: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    BtnLogin: TButton;
    procedure BtnLoginClick(Sender: TObject);
    procedure PasswordKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);

  private
    { Private declarations }
    VUser : String;
    VPwd : String;
  public
    { Public declarations }
  end;

var
  Login: TLogin;

implementation


uses MenuPrincipal;
{$R *.dfm}

procedure TLogin.PasswordKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key = 13 then
  BtnLogin.Click;
end;

procedure TLogin.BtnLoginClick(Sender: TObject);
Begin
  VUser := User.Text;
  VPwd := Password.Text;
  If (VUser = 'ad12') and (VPwd = 'ad12') Then
    Begin
      Hide;
      Application.CreateForm(TMenPrincipal, MenPrincipal);
      MenPrincipal.ShowModal; <*************---------------O Delphi aponta que o erro eh aqui ###
    end
      Else
        Begin
          ShowMessage ('Senha ou Usuario invalidos');
          User.SetFocus;
          Exit;
        end;

end;

end.

------------------------------------Outra Form do projeto------------------------------------------

unit MenuPrincipal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, DB, DBTables;

type
  TMenPrincipal = class(TForm)
    MainMenu1: TMainMenu;
    MCadastros: TMenuItem;
    MCadFuncionarios: TMenuItem;
    MCadClientes: TMenuItem;
    MCadFornecedores: TMenuItem;
    MCadProdutos: TMenuItem;
    MVendas: TMenuItem;
    MVenOS: TMenuItem;
    MPagamentos: TMenuItem;
    MPagsFuncionarios: TMenuItem;
    MPagsFornecedores: TMenuItem;
    Exit: TMenuItem;
    Database1: TDatabase;
    procedure ExitClick(Sender: TObject);
    procedure MCadClientesClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MenPrincipal: TMenPrincipal;

implementation

uses CadastroClientes;

{$R *.dfm}

procedure TMenPrincipal.ExitClick(Sender: TObject);
begin
  If Application.MessageBox('Deseja realmente sair do programa?', 'Escolha', mb_yesno) = idyes Then
  Application.Terminate;
end;

procedure TMenPrincipal.MCadClientesClick(Sender: TObject);
begin
  Application.CreateForm(TCadClientes, CadClientes);
  CadClientes.ShowModal;
end;

end.

----------------------------------------------Outra Form do Projeto----------------------------------

unit CadastroClientes;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, StdCtrls, Mask, DBCtrls, DBTables;

type
  TCadClientes = class(TForm)
    Query1: TQuery;
    Query1Nome: TStringField;
    Query1RG: TIntegerField;
    Query1CPF: TIntegerField;
    Query1CPNJ: TIntegerField;
    Query1Entidade: TStringField;
    Query1NCliente: TIntegerField;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    DataSource1: TDataSource;
    Label2: TLabel;
    DBEdit2: TDBEdit;
    Label3: TLabel;
    DBEdit3: TDBEdit;
    Label4: TLabel;
    DBEdit4: TDBEdit;
    Label5: TLabel;
    DBEdit5: TDBEdit;
    Label6: TLabel;
    DBEdit6: TDBEdit;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CadClientes: TCadClientes;

implementation

{$R *.dfm}

end.

=============================================================================

E ai pessoal? alguem sabe me dizer qual eh o problema? Obrigado.

[TGA]

Esta dando erro no DBE,

para melhor soluções poste a DPR com os PAS do Project, se poder é claro,
pois ficar olhando assim e descobrir esses erros é foda,

vlw.. abraços..


TGA

[cebolaaa]

http://rapidshare.com/files/39828718/Projeto.zip.html

xD, aki, espero q posso me ajudar, xD obrigado.

[TGA]

Ola cebola, o fonte acima acessa uma base de dados em MySql, e no projeto o programa naum encontra essa base de dados, por isso ocorre o erro, mesmo tenho o Banco de dados, infelizmente não poderei ajudar, pois não tenho o MySql instalado aqui...  vlw.. desculpe-me...

grande abraço.. 

[cebolaaa]

xD brigado mano, nem da nd n..... xD, e ow,, eu so mto burro, a base tava conectada no banco e eu compilando o programa,,,, =/ mto ignorante...ahuaheuuhea abraços :* agora ta td certo xD