Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)
-   -   Manejo de consultas SQL y Base de datos (https://www.clubdelphi.com/foros/showthread.php?t=48904)

metroyd 07-10-2007 22:31:37

Manejo de consultas SQL y Base de datos
 
No se si esto vaya aqui, pero bueno, espero me ayuden.
Estoy haciendo un sistemita en Delphi 6 usando bases de datos en MySQL. Tengo 2 tablas en la BD: USUARIOS y CORREO. En USUARIOS tengo los sig. campos: nombre, contraseña y direccion; mientras qeu en correos tengo: indice, de, para, asunto, mensaje.
Bien, tengo un Servidor y un Cliente; donde el Servidor manda correos al cliente, tambien crea nuevos clientes via TCP y via SMTP. El cliente solo accede a su cuenta y consulta su bandeja de entrada (lee, elimina, mensajes, etc). Lo que hasta ahorita tengo es enviar correos a los usuarios (guardar datos en la tabla CORREO desde el Servidor) usando lo siguiente:

procedure TForm2.Button1Click(Sender: TObject); // Boton Enviar Correo

var
consulta: String;
begin
consulta:='insert into correo'+'(indice, de, para, asunto, mensaje)'+'values('+chr(39)+Edit1.Text+chr(39)+','+chr(39)+Edit2.Text+chr(39)+','+chr(39)+Edit3.Text +chr(39)+','+chr(39)+Edit4.Text+chr(39)+','+chr(39)+Memo1.Text+chr(39)+')';
DataModule3.ADOQuery1.Close;
DataModule3.ADOQuery1.SQL.Clear;
DataModule3.ADOQuery1.SQL.Add(consulta);
DataModule3.ADOQuery1.ExecSQL;
end;

Bueno, tambien puedo agregar usuarios a la tabla USUARIOS mediante la siguiente instruccion:

procedure TForm1.Button1Click(Sender: TObject);
var
consulta: String;
begin
consulta:='insert into usuarios'+'(nombre, contraseña, direccion)'+'values('+chr(39)+Edit1.Text+chr(39)+','+chr(39)+Edit2.Text+chr(39)+','+chr(39)+Edit3.Te xt+chr(39)+')';
// DataModule1.ADOQuery1.SQL.Add('select * from usuarios');
//DataModule1.ADOQuery1.Open;
DataModule1.ADOQuery1.Close;
DataModule1.ADOQuery1.SQL.Clear;
DataModule1.ADOQuery1.SQL.Add(consulta);
DataModule1.ADOQuery1.ExecSQL;

end;

Bueno, aqui vienen mis dudas: Que instrucciones debo usar en el CLIENTE para que pueda acceder a su bandeja de entrada????? Es decir, se abre la ventana del cliente, introduce su NOMBRE y su CONTRASEÑA, y si existen en la BD entra a checar los mensajes que estan con su direccion. Pues no se como hacer esto!!!!!!!!!!!!! :confused: Es obvio que se hace una busqueda, con los datos que estan en los EDIT1 y 2, pero no se muy bien que instrucciones usar.
Tambien quisiera saber que instrucciones me permiten borrar registros de la BD, esto para dar de baja cuentas y mensajes.
Bueno, sin mas por el momento, permitanme enviarles un cordial saludo esperando su ayuda!!


La franja horaria es GMT +2. Ahora son las 11:49:42.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi