147
f_rules.ShowModal;
f_rules.Destroy;
end;
procedure TMain.N31Click(Sender: TObject);
begin
F_rezerv:=TF_rezerv.Create(self);
F_rezerv.ShowModal;
F_rezerv.Destroy;
end;
procedure TMain.btn1Click(Sender: TObject);
begin
f_TS:=Tf_TS.Create(self);
f_TS.ShowModal;
f_TS.Destroy;
end;
procedure TMain.btn2Click(Sender: TObject);
begin
F_sotr:=TF_sotr.Create(self);
F_sotr.ShowModal;
F_sotr.Destroy;
end;
procedure TMain.btn3Click(Sender: TObject);
begin
F_otdel:=TF_otdel.Create(self);
F_otdel.ShowModal;
F_otdel.Destroy;
end;
procedure TMain.btn4Click(Sender: TObject);
begin
F_status:=TF_status.Create(Self);
F_status.ShowModal;
F_status.Destroy;
end;
procedure TMain.btn7Click(Sender: TObject);
begin
f_user:=Tf_user.Create(self);
f_user.ShowModal;
f_user.Destroy;
end;
procedure TMain.btn8Click(Sender: TObject);
begin
f_group:=Tf_group.Create(self);
f_group.ShowModal;
f_group.Destroy;
end;
procedure TMain.btn9Click(Sender: TObject);
begin
F_access:=TF_access.Create(self);
F_access.ShowModal;
F_access.Destroy;
end;
procedure TMain.btn10Click(Sender: TObject);
begin
f_rules:=Tf_rules.Create(self);
f_rules.ShowModal;
f_rules.Destroy;
end;
procedure TMain.btn12Click(Sender: TObject);
begin
F_IR:=TF_IR.Create(self);
F_IR.ShowModal;
F_IR.Destroy;
148
end;
procedure TMain.btn13Click(Sender: TObject);
begin
F_PO:=TF_PO.Create(self);
F_PO.ShowModal;
F_PO.Destroy;
end;
procedure TMain.btn14Click(Sender: TObject);
begin
F_place_po:=TF_place_po.Create(self);
F_place_po.ShowModal;
F_place_po.Destroy;
end;
procedure TMain.btn15Click(Sender: TObject);
begin
f_TS:=Tf_TS.Create(self);
f_TS.ShowModal;
f_TS.Destroy;
end;
procedure TMain.btn17Click(Sender: TObject);
begin
F_place_TS:=TF_place_TS.Create(self);
F_place_TS.ShowModal;
F_place_TS.Destroy;
end;
procedure TMain.N24Click(Sender: TObject);
begin
frxReport1.LoadFromFile('TS.fr3');
frxReport1.ShowReport(true);
end;
procedure TMain.N29Click(Sender: TObject);
begin
frxReport1.LoadFromFile('sotr.fr3');
frxReport1.ShowReport(true);
end;
procedure TMain.N28Click(Sender: TObject);
begin
frxReport1.LoadFromFile('prava.fr3');
frxReport1.ShowReport(true);
end;
procedure TMain.N25Click(Sender: TObject);
begin
frxReport1.LoadFromFile('TS_otdel.fr3');
fxReport1.ShowReport(true);
end;
procedure TMain.N27Click(Sender: TObject);
begin
frxReport1.LoadFromFile('po_otdel.fr3');
frxReport1.ShowReport(true);
end;
proedure TMain.N23Click(Sender: TObject);
begin
frxReport1.LoadFromFile('pravila.fr3');
frxReport1.ShowReport(true);
end;
proceure TMain.N22Click(Sender: TObject);
begin
frxReport1.LoadFromFile('ir.fr3');
frxReport1.ShowReport(true);
end;
149
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxLookAndFeelPainters, StdCtrls, DBCtrls, cxNavigator,
cxDBNavigator, cxButtons, cxControls, cxContainer, cxEdit, cxGroupBox,
Grids, DBGrids, cxDropDownEdit, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox, cxMaskEdit, cxDBEdit, cxTextEdit, DB;
type
TF_sotr = class(TForm)
cxGroupBox1: TcxGroupBox;
cxGroupBox2: TcxGroupBox;
cxGroupBox3: TcxGroupBox;
cxButton1: TcxButton;
cxButton2: TcxButton;
cxButton5: TcxButton;
cxButton6: TcxButton;
cxDBNavigator1: TcxDBNavigator;
DBLookupComboBox1: TDBLookupComboBox;
Label1: TLabel;
DBGrid1: TDBGrid;
cxDBTextEdit1: TcxDBTextEdit;
cxDBMaskEdit1: TcxDBMaskEdit;
cxDBLookupComboBox1: TcxDBLookupComboBox;
cxButton3: TcxButton;
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
procedure cxButton6Click(Sender: TObject);
procedure cxButton3Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_sotr: TF_sotr;
implementation
uses Unit1, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$R *.dfm}
procedure TF_sotr.cxButton1Click(Sender: TObject);
begin
dm.tbl_sotr.Insert;
end;
procedure TF_sotr.cxButton5Click(Sender: TObject);
begin
dm.tbl_sotr.edit;
end;
procedure TF_sotr.cxButton6Click(Sender: TObject);
begin
dm.tbl_sotr.Refresh;
end;
procedure TF_sotr.cxButton3Click(Sender: TObject);
begin
if ((DM.tbl_sotr.State=dsinsert) or (DM.tbl_sotr.State=dsedit)) then
begin
if MessageDlg('Сохранить?',mtConfirmation,mbYesNoCancel,0) = mrYes then
begin
DM.tbl_sotr.Post;
dm.tbl_sotr.Refresh;
end
150
else
begin
DM.tbl_sotr.Cancel;
dm.tbl_sotr.Refresh;
end;
end
else
ShowMessage('Нет изменений для сохранения)
end;
procedure TF_sotr.cxButton2Click(Sender: TObject);
begin
if (MessageDlg('Удалить?',mtConfirmation,mbOKCancel,0) = mrOk) then
begin
dm.tbl_sotr.Delete;
end
else
ShowMessage('Запись не выбрана);
end;
end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, cxLookAndFeelPainters, cxNavigator, cxDBNavigator, Grids,
DBGrids, DBCtrls, StdCtrls, cxButtons, cxControls, cxContainer, cxEdit,
cxGroupBox, cxTextEdit;
type
TF_IR = class(TForm)
cxGroupBox1: TcxGroupBox;
cxButton1: TcxButton;
cxButton2: TcxButton;
cxButton5: TcxButton;
cxButton6: TcxButton;
cxGroupBox2: TcxGroupBox;
cxGroupBox3: TcxGroupBox;
cxDBNavigator1: TcxDBNavigator;
cxTextEdit1: TcxTextEdit;
dbgrd1: TDBGrid;
procedure cxTextEdit1PropertiesChange(Sender: TObject);
procedure cxButton6Click(Sender: TObject);
procedure cxButton2Click(Sender: TObject);
procedure cxButton1Click(Sender: TObject);
procedure cxButton5Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
F_IR: TF_IR;
implementation
uses Unit1, Unit2, Unit3, Unit4, Unit6, Unit7, Unit8, Unit9, Unit10;
{$R *.dfm}
procedure TF_IR.cxTextEdit1PropertiesChange(Sender: TObject);
begin
DM.tbl_IR.Filtered:=false;
DM.tbl_IR.filter:='';
DM.tbl_IR.filter:='(Наименование_ИР='+cxTextEdit1.Text+')';
DM.tbl_IR.filtered:=true;
151
end;
procedure TF_IR.cxButton6Click(Sender: TObject);
begin
dm.tbl_IR.Refresh;
end;
procedure TF_IR.cxButton2Click(Sender: TObject);
begin
if (MessageDlg(Удалить запись?,mtConfirmation,mbOKCancel,0) = mrOk) then
begin
dm.tbl_IR.Delete;
end
else
ShowMessage(Запись не выбрана);
end;
procedure TF_IR.cxButton1Click(Sender: TObject);
begin
if MessageDlg(Добавить запись?',mtConfirmation,mbOKCancel,0) = mrOk then
begin
dm.tbl_IR.Insert;
f_new_IR:=Tf_new_IR.Create(self);
f_new_IR.ShowModal;
f_new_IR.Destroy;
end
else
ShowMessage(Отмена добавления);
end;
procedure TF_IR.cxButton5Click(Sender: TObject);
begin
if MessageDlg(Изменить запись?',mtConfirmation,mbOKCancel,0) = mrOk then
begin
dm.tbl_IR.edit;
f_new_IR:=Tf_new_IR.Create(self);
f_new_IR.ShowModal;
f_new_IR.Destroy;
end
else
ShowMessage(Изменений нет!');
end;
end.