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:
Successivamente vado nel code editor e scrivo nell'evento click del tasto ricerca: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
Ora fatto questo non sò cosa scrivere per far sì che mi visualizzi i risultati ottenuti dalle Query nei campi Edit della Form.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;
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.

Rispondi quotando