Курсовая работа: База данных предприятия

DBLookupComboBox1: TDBLookupComboBox;

Label6: TLabel;

Button1: TButton;

Button2: TButton;

Label7: TLabel;

Label8: TLabel;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

Label9: TLabel;

Label10: TLabel;

DBEdit9: TDBEdit;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

EditRecordForm: TEditRecordForm;

implementation

uses DataModuleUnit;

{$R *.dfm}

procedure TEditRecordForm.Button1Click(Sender: TObject);

begin

if DataModule2.BookTable.Modified then

DataModule2.BookTable.Post;

Close;