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

if DataModule2.TownTable.Modified then

DataModule2.TownTable.Post;

end;

procedure TTownBookForm.Button3Click(Sender: TObject);

begin

DataModule2.TownTable.Delete;

end;

procedure TTownBookForm.OKClick(Sender: TObject);

begin

TownBookForm.Close;

end;

end.

3.4 код модуля EditFormunit

unit EditFormunit; форма «редактированиеданных»

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DBCtrls, Mask;

type

TEditRecordForm = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;