Курсовой проект по РПП / Redactor

unit Redactor;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls;

type
TFormRedactor = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
Label5: TLabel;
DBLookupComboBox1: TDBLookupComboBox;
Button1: TButton;
Button2: TButton;
Label6: TLabel;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
Label7: TLabel;
Label8: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormRedactor: TFormRedactor;

implementation

uses UnitDM;

{$R *.dfm}

procedure TFormRedactor.Button1Click(Sender: TObject);
begin
if DM.ADOTable1.Modified then DM.ADOTable1.Post;
Close;
end;

procedure TFormRedactor.Button2Click(Sender: TObject);
begin
DM.ADOTable1.Cancel;
Close;
end;

end.