Tengo este codigo para hacer la llamada al ADOQuery:
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Text:= 'Select * from Alumnos where nrodoc = :nrodoc';
ADOQuery2.Parameters.ParamByName('nrodoc').Value:= strtoint(Edit24.Text);
ADOQuery2.ExecSQL;
ADOQuery2.Open;
DBEdit1.Text:= inttostr(ADoQuery2.Fields.Fields[1].Value);
DBEdit2.Text:= ADOQuery2.Fields.Fields[2].Value;
DBEdit3.Text:= ADOQuery2.Fields.Fields[3].Value;
DBEdit11.Text:= ADOQuery2.Fields.Fields[4].Value;
DBEdit12.Text:= ADOQuery2.Fields.Fields[5].Value;
DBEdit13.Text:= ADOQuery2.Fields.Fields[6].Value;
DBEdit14.Text:= ADOQuery2.Fields.Fields[7].Value;
DBEdit15.Text:= ADOQuery2.Fields.Fields[9].Value;
DBEDit16.Text:= ADOQuery2.Fields.Fields[10].Value;
Lo que quiero hacer es que cuando haga clic en un DBEdit me permita editar y luego grabar los cambios. Saludos.
|