81
edtAddress: TDBEdit;
edtSNILS: TDBEdit;
edtPassport: TDBEdit;
pmMain: TPopupMenu;
pmSub: TPopupMenu;
imAddMain: TMenuItem;
imEditMain: TMenuItem;
imDeleteMain: TMenuItem;
imAddSub: TMenuItem;
imEditSub: TMenuItem;
imDeleteSub: TMenuItem;
procedure imAddMainClick(Sender: TObject);
procedure imEditMainClick(Sender: TObject);
procedure imDeleteMainClick(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure imAddSubClick(Sender: TObject);
procedure imEditSubClick(Sender: TObject);
procedure imDeleteSubClick(Sender: TObject);
procedure pmMainPopup(Sender: TObject);
procedure pmSubPopup(Sender: TObject);
private
procedure ModeView(mode: boolean); //true - Veiw; false - Modify
public
{ Public declarations }
end;
var
frmPersonal: TfrmPersonal;
implementation
82
{$R *.dfm}
uses
uDM, uJob;
procedure TfrmPersonal.btnCancelClick(Sender: TObject);
begin
DM.tblPersonal.Cancel;
ModeView(true);
end;
procedure TfrmPersonal.btnSaveClick(Sender: TObject);
begin
DM.tblPersonal.FieldByName('BirthDate').AsDateTime:=dtpBirthDate.DateTi
me;
DM.tblPersonal.Post;
ModeView(true);
end;
procedure TfrmPersonal.FormShow(Sender: TObject);
begin
ModeView(true);
end;
procedure TfrmPersonal.imAddMainClick(Sender: TObject);
begin
ModeView(false);
DM.tblPersonal.Append;
end;
procedure TfrmPersonal.imAddSubClick(Sender: TObject);
83
var
frm: TfrmJob;
begin
Application.CreateForm(TfrmJob, frm);
DM.tblJob.Append;
frm.ShowModal;
frm.Free;
end;
procedure TfrmPersonal.imDeleteMainClick(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
DM.tblPersonal.Delete;
end;
procedure TfrmPersonal.imDeleteSubClick(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
DM.tblJob.Delete;
end;
procedure TfrmPersonal.imEditMainClick(Sender: TObject);
begin
ModeView(false);
DM.tblPersonal.Edit;
end;
procedure TfrmPersonal.imEditSubClick(Sender: TObject);
var
frm: TfrmJob;
84
begin
Application.CreateForm(TfrmJob, frm);
DM.tblJob.Edit;
frm.ShowModal;
frm.Free;
end;
procedure TfrmPersonal.ModeView(mode: boolean);//true - Veiw; false -
Modify
begin
pnlGrid.Enabled:= mode;
pnlSub.Enabled:= mode;
pnlMain.Visible:= not mode;
end;
procedure TfrmPersonal.pmMainPopup(Sender: TObject);
begin
imEditMain.Enabled:=grdMain.DataSource.DataSet.RecordCount>0;
imDeleteMain.Enabled:=grdMain.DataSource.DataSet.RecordCount>0;
end;
procedure TfrmPersonal.pmSubPopup(Sender: TObject);
var
fl: boolean;
begin
fl:=grdMain.DataSource.DataSet.RecordCount>0;
imAddSub.Visible:=fl;
imEditSub.Visible:=grdSub.DataSource.DataSet.RecordCount>0;
imDeleteSub.Visible:=grdSub.DataSource.DataSet.RecordCount>0;
end;
end.
85
unit uJob;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.DBCtrls, Vcl.Mask,
Vcl.ExtCtrls;
type
TfrmJob = class(TForm)
pnlMain: TPanel;
btnSave: TButton;
btnCancel: TButton;
Label1: TLabel;
Label2: TLabel;
cbDepartment: TDBLookupComboBox;
cbPost: TDBLookupComboBox;
cbEndJob: TDBCheckBox;
procedure btnSaveClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
frmJob: TfrmJob;
implementation
86
{$R *.dfm}
uses
uDM;
procedure TfrmJob.btnCancelClick(Sender: TObject);
begin
DM.tblJob.Cancel;
ModalResult:=mrCancel;
end;
procedure TfrmJob.btnSaveClick(Sender: TObject);
begin
DM.tblJob.Post;
ModalResult:=mrOk;
end;
end.
unit uInstruction;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.DBCtrls, Vcl.Menus,
Vcl.ComCtrls, Vcl.StdCtrls, Vcl.Mask, Vcl.Grids, Vcl.DBGrids, Vcl.ExtCtrls;
type
TfrmInstruction = class(TForm)
87
pnlSub: TPanel;
grdSub: TDBGrid;
pnlMain: TPanel;
Label1: TLabel;
Label3: TLabel;
btnSave: TButton;
btnCancel: TButton;
edtDescription: TDBEdit;
dtpDate: TDateTimePicker;
pnlGrid: TPanel;
grdMain: TDBGrid;
pmMain: TPopupMenu;
imAddMain: TMenuItem;
imEditMain: TMenuItem;
imDeleteMain: TMenuItem;
pmSub: TPopupMenu;
imAddSub: TMenuItem;
imDeleteSub: TMenuItem;
Label2: TLabel;
cbPersonal: TDBLookupComboBox;
cbEndInstruction: TDBCheckBox;
procedure imAddSubClick(Sender: TObject);
procedure pmMainPopup(Sender: TObject);
procedure pmSubPopup(Sender: TObject);
procedure imDeleteSubClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnSaveClick(Sender: TObject);
procedure btnCancelClick(Sender: TObject);
procedure imAddMainClick(Sender: TObject);
procedure imEditMainClick(Sender: TObject);
procedure imDeleteMainClick(Sender: TObject);
private
88
procedure ModeView(mode: boolean); //true - Veiw; false - Modify
public
{ Public declarations }
end;
var
frmInstruction: TfrmInstruction;
implementation
{$R *.dfm}
uses
uListIncident, uDM;
procedure TfrmInstruction.btnCancelClick(Sender: TObject);
begin
DM.tblInstruction.Cancel;
ModeView(true);
end;
procedure TfrmInstruction.btnSaveClick(Sender: TObject);
begin
DM.tblInstruction.FieldByName('sDate').AsDateTime:=dtpDate.DateTime;
DM.tblInstruction.Post;
ModeView(true);
end;
procedure TfrmInstruction.FormShow(Sender: TObject);
begin
ModeView(true);
end;
89
procedure TfrmInstruction.imAddMainClick(Sender: TObject);
begin
ModeView(false);
dtpDate.DateTime:=Date;
DM.tblInstruction.Append;
end;
procedure TfrmInstruction.imAddSubClick(Sender: TObject);
var
frm: TfrmListIncident;
begin
Application.CreateForm(TfrmListIncident, frm);
DM.tblListIncident.Append;
frm.ShowModal;
frm.Free;
end;
procedure TfrmInstruction.imDeleteMainClick(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
DM.tblInstruction.Delete;
end;
procedure TfrmInstruction.imDeleteSubClick(Sender: TObject);
begin
if MessageDlg('Вы действительно хотите удалить
запись?',mtWarning,mbOkCancel,0)=mrOk then
DM.tblListIncident.Delete;
end;
90
procedure TfrmInstruction.imEditMainClick(Sender: TObject);
begin
ModeView(false);
DM.tblInstruction.Edit;
end;
procedure TfrmInstruction.pmMainPopup(Sender: TObject);
begin
imEditMain.Enabled:=grdMain.DataSource.DataSet.RecordCount>0;
imDeleteMain.Enabled:=grdMain.DataSource.DataSet.RecordCount>0;
end;
procedure TfrmInstruction.pmSubPopup(Sender: TObject);
var
fl: boolean;
begin
fl:=grdMain.DataSource.DataSet.RecordCount>0;
imAddSub.Visible:=fl;
imDeleteSub.Visible:=grdSub.DataSource.DataSet.RecordCount>0;
end;
procedure TfrmInstruction.ModeView(mode: boolean);//true - Veiw; false -
Modify
begin
pnlGrid.Enabled:= mode;
pnlSub.Enabled:= mode;
pnlMain.Visible:= not mode;
end;
end.