Cómo realizar un "select" en Delphi 7, y Zeos 6.6.1

Lo que pasa es que estoy realizando mi proyecto para poder titularme, deseo terminar antes de Diciembre...
Y bueno, hasta ahorita me funciona muy bien el "insert".
La programación es orientada a objetos.
El codigo que tengo es:
_________________________________________
DE LA CLASE MENU
unit UnitFrmMenu;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;
type
TFrmMenu = class(TForm)
MainMenu1: TMainMenu;
MnuRegistros: TMenuItem;
SubMnuCliente: TMenuItem;
SubMnuCompra: TMenuItem;
MnuConsultas: TMenuItem;
SubMnuClientes: TMenuItem;
SubMnuCompras: TMenuItem;
MnuAdministrador: TMenuItem;
MnuSalir: TMenuItem;
procedure SubMnuClienteClick(Sender: TObject);
procedure MnuSalirClick(Sender: TObject);
procedure SubMnuClientesClick(Sender: TObject);
private
opcion:integer;
{ Private declarations }
public
function RegresarOpcion():integer;
{ Public declarations }
end;
var
FrmMenu: TFrmMenu;
implementation
{$R *.dfm}
procedure TFrmMenu.SubMnuClienteClick(Sender: TObject);
begin
self.opcion:=1;
self.Close;
end;
function TFrmMenu.RegresarOpcion():integer;
begin
result:=self.opcion;
end;
procedure TFrmMenu.MnuSalirClick(Sender: TObject);
begin
self.opcion:=6;
self.Close;
end;
procedure TFrmMenu.SubMnuClientesClick(Sender: TObject);
begin
self.opcion:=3;
self.Close;
end;
end.
_________________________________________
DE LA CLASE APLICACION
unit UnitAplicacion;
interface
uses
UnitInterfaz,UnitCliente,UnitDBMS;
type
Aplicacion=class
private
MiInterfaz:Interfaz;
MiCliente:Cliente;
MiDBMS:DBMS;
OpcionMenu:integer;
//Bandera:boolean;
public
procedure correr();
end;
implementation
procedure Aplicacion.correr();
begin
MiInterfaz:=Interfaz.Create;
MiCliente:=Cliente.Create;
MiDBMS:=DBMS.Create;
while (self.OpcionMenu<>6) do
begin
MiInterfaz.MostrarMenu();
self.OpcionMenu:=MiInterfaz.RegresarOpcion();
case self.OpcionMenu of
3: begin
MiInterfaz.MostrarConsultaClientes
(MiDBMS.RegresarConsultaClientes1());
MiDBMS.ConectarDB();
end;
end; {case}
end; {while}
MiInterfaz.Destroy;
MiCliente.Destroy;
MiDBMS.Destroy;
end;
end.
_________________________________________
DE LA CLASE CLIENTE
unit UnitCliente;
interface
TYPE
Cliente=class
private
ClaveCliente:string;
ConfirmarClaveCliente:string;
NombreCliente:string;
TelefonoCliente:string;
PaisCliente:string;
EstadoCliente:string;
CiudadCliente:string;
DomicilioCliente:string;
ColoniaCliente:string;
CodigoPostalCliente:string;
TarjetaCliente:string;
CuentaCliente:string;
public
procedure AsignarClaveCliente(c:string);
procedure AsignarConfirmarClaveCliente(cc:string);
procedure AsignarNombreCliente(n:string);
procedure AsignarTelefonoCliente(te:string);
procedure AsignarPaisCliente(p:string);
procedure AsignarEstadoCliente(e:string);
procedure AsignarCiudadCliente(ci:string);
procedure AsignarDomicilioCliente(d:string);
procedure AsignarColoniaCliente(co:string);
procedure AsignarCodigoPostalCliente(copo:string);
procedure AsignarTarjetaCliente(ta:string);
procedure AsignarCuentaCliente(cu:string);
function RegresarClaveCliente():string;
function RegresarConfirmarClaveCliente():string;
function RegresarNombreCliente():string;
function RegresarTelefonoCliente():string;
function RegresarPaisCliente():string;
function RegresarEstadoCliente():string;
function RegresarCiudadCliente():string;
function RegresarDomicilioCliente():string;
function RegresarColoniaCliente():string;
function RegresarCodigoPostalCliente():string;
function RegresarTarjetaCliente():string;
function RegresarCuentaCliente():string;
end;
implementation
//Asignar Datos
procedure Cliente.AsignarClaveCliente(c:string);
begin
self.ClaveCliente:=c;
end;
procedure Cliente.AsignarConfirmarClaveCliente(cc:string);
begin
self.ConfirmarClaveCliente:=cc;
end;
procedure Cliente.AsignarNombreCliente(n:string);
begin
self.NombreCliente:=n;
end;
procedure Cliente.AsignarTelefonoCliente(te:string);
begin
self.TelefonoCliente:=te;
end;
procedure Cliente.AsignarPaisCliente(p:string);
begin
self.PaisCliente:=p;
end;
procedure Cliente.AsignarEstadoCliente(e:string);
begin
self.EstadoCliente:=e;
end;
procedure Cliente.AsignarCiudadCliente(ci:string);
begin
self.CiudadCliente:=ci;
end;
procedure Cliente.AsignarDomicilioCliente(d:string);
begin
self.DomicilioCliente:=d;
end;
procedure Cliente.AsignarColoniaCliente(co:string);
begin;
self.ColoniaCliente:=co;
end;
procedure Cliente.AsignarCodigoPostalCliente(copo:string);
begin
self.CodigoPostalCliente:=copo;
end;
procedure Cliente.AsignarTarjetaCliente(ta:string);
begin
self.TarjetaCliente:=ta;
end;
procedure Cliente.AsignarCuentaCliente(cu:string);
begin
self.CuentaCliente:=cu;
end;
// Regresar Datos
function Cliente.RegresarClaveCliente():string;
begin
result:=self.ClaveCliente;
end;
function Cliente.RegresarConfirmarClaveCliente():string;
begin
result:=self.ConfirmarClaveCliente;
end;
function Cliente.RegresarNombreCliente():string;
begin
result:=self.NombreCliente;
end;
function Cliente.RegresarTelefonoCliente():string;
begin
result:=self.TelefonoCliente;
end;
function Cliente.RegresarPaisCliente():string;
begin
result:=self.PaisCliente;
end;
function Cliente.RegresarEstadoCliente():string;
begin
result:=self.EstadoCliente;
end;
function Cliente.RegresarCiudadCliente():string;
begin
result:=self.CiudadCliente;
end;
function Cliente.RegresarDomicilioCliente():string;
begin
result:=self.DomicilioCliente;
end;
function Cliente.RegresarColoniaCliente():string;
begin
result:=self.ColoniaCliente;
end;
function Cliente.RegresarCodigoPostalCliente():string;
begin
result:=self.CodigoPostalCliente;
end;
function Cliente.RegresarTarjetaCliente():string;
begin
result:=self.TarjetaCliente;
end;
function Cliente.RegresarCuentaCliente():string;
begin
result:=self.CuentaCliente;
...
Respuesta
1
Disculpa la tardanza en la respuesta. Tu error está en que estás llamando a Qry. ExecSql, este procedimiento sólo se usa para ejecutar querys que "modifiquen" la data. Para traer la data mediante el SELECT sólo debes usar Qry. Open
Gracias, eso lo descubrí yo misma hace como unos 15 dias, pero aún así mil gracias por tu respuesta, por el simple echo de contestar a mi pregunta, te califico como excelente por tener la misma autorespuesta que descubrí, y por ser una respuesta acertada.
SaLuDoS

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas