Pesquisar na Comunidade
Mostrando resultados para as tags ''zeos''.
Atualmente, o índice de pesquisa está sendo processado. Os resultados atuais podem não estar completos.
Encontrado 1 registro
-
Utilizei esse tópico para criar um sistemas de login porém o código não funciona... [Hidden Content] unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Data.DB, ZAbstractRODataset, ZAbstractDataset, ZDataset, ZAbstractConnection, ZConnection; type TForm1 = class(TForm) Edit1: TEdit; Label1: TLabel; Label2: TLabel; Edit2: TEdit; Button1: TButton; ZConnection1: TZConnection; ZQuery1: TZQuery; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin ZQuery.close; ZQuery.SQL.Clear; ZQuery.sql.add('SELECT * FROM users WHERE usuario='+Quotedstr(Edit1.Text) +' AND senha=' + Quotedstr(edit2.Text)); ZQuery.Open; if ZQuery.Eof then begin MessageBox(handle,'Usuário ou senha Incorretos','Erro!',16); end else begin ShowMessage('Sucesso na Conexão'); end; end; Erros apresentados: [dcc32 Error] Unit1.pas(36): E2003 Undeclared identifier: 'ZQuery' [dcc32 Error] Unit1.pas(37): E2066 Missing operator or semicolon [dcc32 Error] Unit1.pas(38): E2066 Missing operator or semicolon [dcc32 Error] Unit1.pas(39): E2066 Missing operator or semicolon [dcc32 Error] Unit1.pas(40): E2029 'THEN' expected but identifier 'Eof' found [dcc32 Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas' Failed Elapsed time: 00:00:00.3
