|
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.
|