Saludos Compañeros, de nuevo recurro a ustedes para que me ayuden en un nuevo problema que se me presenta sucede lo siguiente, tengo un formulario donde contiene los siguientes componentes:
1 - speedbutton
2 - ZQuery
y en el otro form contiene los edits corresponidientes al ZQuery, en el speedbutton tengo el siguiente codigo:
Código Delphi
[-]procedure TFTramiteMod.SpeedButton21Click(Sender: TObject);
begin
if (DBEdit1.Text = '') OR (DBEdit1.Text = '0') then
begin
MessageDlg('¡No se encuentra el número de registro!',mtError,[mbOK],0);
end
else
begin
FModPed:=TFModPed.Create(self);
ZModPed.SQL.Add(' where no="'+DBEdit1.Text+'"');
ZModPed.open;
FModPed.ZDpto.Open;
FModPed.Show;
end;
end;
clickeo el boton el codigo funciona perfecto, aqui viene el problema, cierro el form que llame con el boton, no? y si vuel vo a presionar el mismo boton que hace un momento me funciono me tira esos errores:
primero me sale:
Cita:
source file not found: ZDbcMySqlUtils.pas
|
si presiono a ignorar me sale ese otro error:
Cita:
---------------------------
Debugger Exception Notification
---------------------------
Project Sigesped.exe raised exception class EZSQLException with message 'SQL Error: You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near 'where no="1"' at line 3'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
|
no entiendo por que me sucede si al primer intento me funciona pero luego si lo presiono de nuevo me tira ese error
.
saludos...