Ciao a tutti. Scusate se son un pò assillante
Cmq ho questo problema...
Vorrei fare in modo da poter visualizzare dei valori che si trovano nel DB negli edit della form.
Ho messo 3 TQUERY nel DATAMODULE e 3 DATASOURCE. Son collegati.
Poi inserisco le seguenti QUERY nei 3 componenti:
codice:
1 - SELECT
clienti.NOME,
clienti.COGNOME,
clienti.REPARTO,
clienti.PADIGLIONE
FROM CLIENTI
WHERE clienti.NOME= :KNOME AND clienti.REPARTO= :KCOGNOME
2 - SELECT
richieste.DATARICHIESTA,
richieste.DATACHIUSURARICHIESTA,
FROM RICHIESTE
WHERE clienti.NOME= :KNOME AND clienti.REPARTO= :REPARTO
3 -SELECT
dettagli.QUANTITA,
dettagli.DESCRIZIONE,
FROM DETTAGLI
WHERE clienti.NOME= :KNOME AND clienti.REPARTO= :KREPARTO
Successivamente vado nel code editor e scrivo nell'evento click del tasto ricerca:
codice:
procedure TForm4.BBRicercaClick(Sender: TObject);
begin
unit2.DataModule2.Query4.Params[0].Value:=null;
unit2.DataModule2.Query4.Params[1].Value:=ERicercaNome.Text;
unit2.DataModule2.Query4.Params[2].Value:=ECognome1.Text;
unit2.DataModule2.Query4.Params[3].Value:=ERicercaReparto.Text;
unit2.DataModule2.Query4.Params[4].Value:=EPadiglione1.Text;
unit2.DataModule2.Query4.ExecSQL;
unit2.DataModule2.Query5.Params[0].Value:=null;
unit2.DataModule2.Query5.Params[1].Value:=null;
unit2.DataModule2.Query5.Params[2].Value:=EDataRichiesta1.Text;
unit2.DataModule2.Query5.Params[3].Value:=EDataChiusuraRichiesta1.Text;
unit2.DataModule2.Query5.ExecSQL;
unit2.DataModule2.Query6.Params[0].Value:=null;
unit2.DataModule2.Query6.Params[1].Value:=ENumeroRichiesta.Text;
unit2.DataModule2.Query6.Params[2].Value:=EDataRichiesta1.Text;
unit2.DataModule2.Query6.Params[3].Value:=EDataChiusuraRichiesta1.Text;
unit2.DataModule2.Query6.ExecSQL;
end;
Ora fatto questo non sò cosa scrivere per far sì che mi visualizzi i risultati ottenuti dalle Query nei campi Edit della Form.
P.S. Non ho usato i componenti INTERBASE perchè ho cominciato un progetto a parte in cui li utilizzerò poichè mi interessa saper muovermi in tutti e 2 i modi.