Código Delphi
[-]
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, Buttons, DBCtrls, DB, DBTables;
type
TForm2 = class(TForm)
Label1: TLabel;
Label2: TLabel;
GroupBox1: TGroupBox;
Label3: TLabel;
Label4: TLabel;
DateTimePicker1: TDateTimePicker;
DateTimePicker2: TDateTimePicker;
DateTimePicker3: TDateTimePicker;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Table1: TTable;
DataSource1: TDataSource;
Database1: TDatabase;
Edit1: TEdit;
GroupBox2: TGroupBox;
CheckBox1: TCheckBox;
Edit2: TEdit;
Label5: TLabel;
procedure BitBtn1Click(Sender: TObject);
procedure Hola(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Table1AfterInsert(DataSet: TDataSet);
private
public
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
close;
end;
procedure TForm2.Hola(Sender: TObject);
begin
Form2.DateTimePicker2.Enabled := True;
end;
procedure TForm2.BitBtn2Click(Sender: TObject);
var
estado: Boolean;
begin
estado := False;
if Form2.CheckBox1.State = cbChecked then
begin
estado := True;
end;
Database1.Connected := True;
end;
No hay caso. Este es el cod actual:
Código Delphi
[-]
DataSource1.Enabled := True;
Table1.Active := True;
Table1.Open;
Table1.Insert;
Table1.FieldByName('Titulo').AsString := Form2.Edit1.Text;
Table1.FieldByName('Arancelado').AsBoolean := estado;
Table1.Post;
Table1.ApplyUpdates;
Table1.Close;
Table1.Active := False;
DataSource1.Enabled := False;
Database1.Connected := False;
end;
procedure TForm2.Table1AfterInsert(DataSet: TDataSet);
begin
ShowMessage ('Registro agregado');
end;
end.