Erro Declarar DB

[Jefferson Oliveira 0]

Boa noite sei que vcs ja possuem milhares de respostas para esse erro porem sou novo na area de progamacao e não estou conseguindo resolver o problema...

Não esto entendendo Declarar a DB no Uses.

1º como e onde declarar

2º Muito Obrigado e desculpe pelo Post caso local errado pois e o Primeiro que posto estou muito tempo tentando resolver esse problema Contudo Obrigado. Segue abaixo o Codigo da Unit

 

 

unit ULogin;

 

interface

 

uses

Windows, Messages, SysUtils, StdCtrls, Buttons, Controls, jpeg,

Classes, ExtCtrls Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, DB;

 

type

TDB = class(TForm)

Image1: TImage;

GrpBxLogin: TGroupBox;

Label1: TLabel;

Senha: TLabel;

Label3: TLabel;

EdtApelido: TEdit;

Edt_Senha: TEdit;

BtnOk: TBitBtn;

BtnCancelar: TBitBtn;

procedure BtnCancelarClick(Sender: TObject);

procedure BtnOkClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

DB: TDB;

 

implementation

 

uses UDM, UMenuPrin;

 

{$R *.dfm}

 

procedure TDB.BtnCancelarClick(Sender: TObject);

begin

Application.Terminate;

end;

 

procedure TDB.BtnOkClick(Sender: TObject);

begin

Dm.tab_Usuarios.Open; // abre a tabela tab_Usuarios

FrmMenuPrin.StatusBar1.Panels[2].Text := ' Usuário:' + FrmLogin.EdtApelido.Text + ' - '+ Dm.tab_UsuariosUsuDepto.AsSTring;

If not (Dm.tab_Usuarios.Locate('UsuApelido', FrmLogin.EdtApelido.Text, [loPartialKey ])) or (Dm.tab_UsuariosUsuSenha.Value <> FrmLogin.EdtSenha.Text) then

begin

MessageDlg('Nome ou senha do usuário inválidos.'+#13+#13

+ 'Se você esqueceu sua senha, consulte '+ #13

+ 'o administrador do sistema', mtError, [mbOK], 0);

EdtSenha.Clear; // limpa o objeto EdtSenha

EdtSenha.SetFocus; //Ajusta o foco para o objeto EdtSenha

end

else

begin

FrmLogin.Hide; //Esconde a tela

FrmMenuPrin.ShowModal; //chama a tela FrmMenuPrin no modo modal

FrmLogin.Release; //Remove a tela da memória

FrmLogin := Nil; //Atribui conteúdo nulo para a variável de tela FrmLogin

end;

 

 

end;

 

end.

 

 

Segue o Erro Abaixo

 

Build

[Error] ULogin.pas(7): ',' or ';' expected but identifier 'Variants' found

[Error] ULogin.pas(7): Identifier redeclared: 'Classes'

[Error] ULogin.pas(7): Identifier redeclared: 'Controls'

[Error] ULogin.pas(8): Identifier redeclared: 'StdCtrls'

[Error] ULogin.pas(8): Identifier redeclared: 'jpeg'

[Error] ULogin.pas(46): Undeclared identifier: 'FrmLogin'

[Error] ULogin.pas(46): Undeclared identifier: 'tab_UsuariosUsuDepto'

[Error] ULogin.pas(46): Missing operator or semicolon

[Error] ULogin.pas(47): Not enough actual parameters

[Error] ULogin.pas(52): Undeclared identifier: 'EdtSenha'

[Error] ULogin.pas(53): Missing operator or semicolon

[Error] ULogin.pas(57): Missing operator or semicolon

[Error] ULogin.pas(59): Missing operator or semicolon

[Fatal Error] Sistema.dpr(9): Could not compile used unit 'ULogin.pas'

 

Realmente galera estou prescisando muito dessa solucão + de 2 meses e nada de solucao sou muito leigo, e gostaria de ajuda se puderem caso eu tenha postado em local errado gostaria de ser Direcionado para o local certo e caso alguem saiba solucionar esse erro e possa ajuda(modificar essa Unit, com a correta ) Ficarei Muito Grato. Contudo Obrigado...

OBS: Desculpem pelo Portugues....

Jefferson Oliveira

[fernando.fxsoft 0]

Na cláusula uses no início do código está faltando uma vírgula, substitua este trecho de código:

 

uses

Windows, Messages, SysUtils, StdCtrls, Buttons, Controls, jpeg,

Classes, ExtCtrls, { aqui faltou uma vírgula} Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, DB;

[Jefferson Oliveira 0]

Na cláusula uses no início do código está faltando uma vírgula, substitua este trecho de código:

 

uses

Windows, Messages, SysUtils, StdCtrls, Buttons, Controls, jpeg,

Classes, ExtCtrls, { aqui faltou uma vírgula} Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, DB;

 

fernando.fxsoft

 

Muito Obrigado pela ajuda e desculpe a demora mas eu tentei corrigir dessa forma mas ainda continua dando o mesmo erro Muito obrigado