![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
#4
|
||||
|
||||
|
Bueno las altas se hacen de la siguiente manera:
unit Altas_carros; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls; type TForm2 = class(TForm) Label1: TLabel; DBEdit1: TDBEdit; Label2: TLabel; DBEdit2: TDBEdit; BNuevo: TButton; BGrabar: TButton; BSalir: TButton; Image1: TImage; procedure FormShow(Sender: TObject); procedure BNuevoClick(Sender: TObject); procedure BGrabarClick(Sender: TObject); procedure BSalirClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses ModuloDeDatos; {$R *.DFM} procedure TForm2.FormShow(Sender: TObject); begin DataModule1.TCarro.Open; end; procedure TForm2.BNuevoClick(Sender: TObject); begin DataModule1.TCarro.Insert; DBEdit1.SetFocus; end; procedure TForm2.BGrabarClick(Sender: TObject); begin DataModule1.TCarro.Post; ShowMessage('Los Datos han sido grabados correctamente'); end; procedure TForm2.BSalirClick(Sender: TObject); begin DataModule1.TCarro.Close; Close; end; end. |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| PickList DBGrid (Pregunta acerca de los DBGRID) | lazarous | Varios | 1 | 10-01-2006 09:53:12 |
| Como extraer datos de un DBgrid a otro DBgrid | mickey | Conexión con bases de datos | 13 | 29-01-2004 05:05:30 |
|