91
unit uActor;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.DBCtrls, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TfrmActor = class(TForm)
pnlMain: TPanel;
Label1: TLabel;
Label2: TLabel;
btnSave: TButton;
btnCancel: TButton;
cbPersonal: TDBLookupComboBox;
cbRole: TDBLookupComboBox;
procedure btnSaveClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmActor: TfrmActor;
implementation
92
{$R *.dfm}
uses
uDM;
procedure TfrmActor.btnCancelClick(Sender: TObject);
begin
DM.tblActor.Cancel;
ModalResult:=mrCancel;
end;
procedure TfrmActor.btnSaveClick(Sender: TObject);
begin
DM.tblActor.Post;
ModalResult:=mrOk;
end;
end.
