![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#4
|
|||
|
|||
|
Aaaaahhhhh!!!!! :)
bueno amigo hubieses comensado por ahi....
antes ke nada yo trabajo con dos bases : paradox y access. primero ke nada debes habilitar el dbgrid para ke hacepte los datos, estp se hace con el codigo "Append;" luego una ves ingresado los datos puedes guardarlos con el "Post" te mando un codigo a modo de ejemplo procedure TFrmAgClie.BitBtn1Click(Sender: TObject); begin {habilitamos nuevamente los campos} DBEdit1.Enabled:=True; DBEdit2.Enabled:=True; DBEdit3.Enabled:=True; DBEdit4.Enabled:=True; DBEdit5.Enabled:=True; DBEdit6.Enabled:=True; DBEdit7.Enabled:=True; DBEdit8.Enabled:=True; DBEdit9.Enabled:=True; DBEdit10.Enabled:=True; DBEdit11.Enabled:=True; DBEdit12.Enabled:=True; DBEdit13.Enabled:=True; DBEdit14.Enabled:=True; //-*-*-*-*-*-*- DBComboBox1.Enabled:=True; //-*-*-*-*-*-*- ADOTable1.Append;//halilitamos el DBGrid para ingresar datos... //-*-*-*-*-*-*- BitBtn1.Enabled:=False; BitBtn2.Enabled:=True; BitBtn3.Enabled:=True; //-*-*-*-*-*-*- DBEdit1.SetFocus; BitBtn2.Default:=True; end; procedure TFrmAgClie.BitBtn2Click(Sender: TObject); begin {Aceptamos los campos en la tabla} ADOTable1.Post;// Aceptamos loos datos y son guardados en la Tabla {deshablilitar nuevamente} DBEdit1.Enabled:=False; DBEdit2.Enabled:=False; DBEdit3.Enabled:=False; DBEdit4.Enabled:=False; DBEdit5.Enabled:=False; DBEdit6.Enabled:=False; DBEdit7.Enabled:=False; DBEdit8.Enabled:=False; DBEdit9.Enabled:=False; DBEdit10.Enabled:=False; DBEdit11.Enabled:=False; DBEdit12.Enabled:=False; DBEdit13.Enabled:=False; DBEdit14.Enabled:=False; //-*-*-*-*-*-*- DBComboBox1.Enabled:=False; //-*-*-*-*-*-*- BitBtn1.Enabled:=True; BitBtn1.Default:=True; BitBtn2.Enabled:=False; BitBtn3.Enabled:=False; //-*-*-*-*-*- end; Espero ke este godigo te sea util, no le des mucha bola a lo demas solo a los parametros de "Append;" y "Post;" Mucha suertte y nos vemos Mauro [email protected] |
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
|