112
else ㅤ Application.Terminate;
end;
{Процедура ㅤ отмены ㅤ пароля}
procedure ㅤ TMyPasswordDlg.MyCancelBtnClick(Sender: ㅤ TObject);
begin
Application.Terminate;
end;
end.
{описание ㅤ модуля ㅤ 3}
unit ㅤ Unit3;
interface
uses
Windows, ㅤ Messages, ㅤ SysUtils, ㅤ Variants, ㅤ Classes, ㅤ Graphics, ㅤ Controls, ㅤ Forms,
Dialogs, ㅤ DB, ㅤ ADODB, ㅤ Grids, ㅤ DBGrids, ㅤ StdCtrls, ㅤ RpCon, ㅤ RpConDS, ㅤ
RpDefine,
RpRave;
Type
{Используемые ㅤ компоненты ㅤ модуля ㅤ 3}
TMyForm3 ㅤ = ㅤ class(TForm)
DBGrid1: ㅤ TDBGrid;
MyADOConnection1: ㅤ TADOConnection;
MyADOTable1: ㅤ TADOTable;
MyDataSource1: ㅤ TDataSource;
MyButton1: ㅤ TButton;
MyLabel1: ㅤ TLabel;
MyEdit1: ㅤ TEdit;
113
MyButton2: ㅤ TButton;
MyRvProject1: ㅤ TRvProject;
MyRvDataSetConnection1: ㅤ TRvDataSetConnection;
{Используемые ㅤ процедуры ㅤ в ㅤ модуле ㅤ 3}
procedure ㅤ MyButton1Click(Sender: ㅤ TObject);
procedure ㅤ MyEdit1Change(Sender: ㅤ TObject);
procedure ㅤ MyButton2Click(Sender: ㅤ TObject);
private
{ ㅤ Private ㅤ declarations ㅤ }
public
{ ㅤ Public ㅤ declarations ㅤ }
end;
var
MyForm3: ㅤ TMyForm3;
{Описание ㅤ процедур ㅤ модуля ㅤ 3}
implementation
{$R ㅤ *.dfm}
{ ㅤ Процедура ㅤ нажатия ㅤ кнопки ㅤ 1 ㅤ модуля ㅤ 3}
procedure ㅤ TMyForm3.MyButton1Click(Sender: ㅤ TObject);
begin
Close;
end;
{ ㅤ Процедура ㅤ изменения ㅤ формы ㅤ 3}
procedure ㅤ TMyForm3.MyEdit1Change(Sender: ㅤ TObject);
begin
114
if ㅤ Not ㅤ MyADOTable1.Active ㅤ then ㅤ Exit;
if ㅤ Not ㅤ MyADOTable1.Locate('Наименование ㅤ средства', ㅤ MyEdit1.Text, ㅤ
[loPartialKey, ㅤ loCaseInsensitive])
then ㅤ Application.MessageBox('Заданная ㅤ строка ㅤ не ㅤ найдена', ㅤ 'Поиск', ㅤ
MB_OK);
end;
procedure ㅤ TMyForm3.MyButton2Click(Sender: ㅤ TObject);
begin
MyRvProject1.Execute;
end;
end.
{ ㅤ Описание ㅤ модуля ㅤ 4 ㅤ программы}
unit ㅤ Unit4;
interface
uses
Windows, ㅤ Messages, ㅤ SysUtils, ㅤ Variants, ㅤ Classes, ㅤ Graphics, ㅤ Controls, ㅤ Forms,
Dialogs, ㅤ DB, ㅤ ADODB, ㅤ Grids, ㅤ DBGrids, ㅤ StdCtrls, ㅤ RpCon, ㅤ RpConDS, ㅤ
RpDefine,
RpRave;
Type
{ ㅤ Использованные ㅤ компоненты ㅤ в ㅤ модуле ㅤ 4}
TMyForm4 ㅤ = ㅤ class(TForm)
MyDataSource1: ㅤ TDataSource;
DBGrid1: ㅤ TDBGrid;
MyADOConnection1: ㅤ TADOConnection;
115
MyADOTable1: ㅤ TADOTable;
MyButton1: ㅤ TButton;
MyButton2: ㅤ TButton;
MyRvProject1: ㅤ TRvProject;
MyRvDataSetConnection1: ㅤ TRvDataSetConnection;
MyLabel1: ㅤ TLabel;
MyEdit1: ㅤ TEdit;
{ ㅤ Использованные ㅤ процедуры ㅤ в ㅤ модуле ㅤ 4}
procedure ㅤ MyButton1Click(Sender: ㅤ TObject);
procedure ㅤ MyButton2Click(Sender: ㅤ TObject);
procedure ㅤ MyEdit1Change(Sender: ㅤ TObject);
private
{ ㅤ Private ㅤ declarations ㅤ }
public
{ ㅤ Public ㅤ declarations ㅤ }
end;
var
MyForm4: ㅤ TMyForm4;
{ ㅤ Описание ㅤ процедур ㅤ модуля ㅤ 4}
implementation
{$R ㅤ *.dfm}
{ ㅤ Нажатие ㅤ кнопки ㅤ 1в ㅤ ㅤ модуле ㅤ 4}
procedure ㅤ TMyForm4.MyButton1Click(Sender: ㅤ TObject);
begin
MyRvProject1.Execute;
116
end;
{ ㅤ Нажатие ㅤ кнопки ㅤ 2 ㅤ в ㅤ ㅤ модуле ㅤ 4}
procedure ㅤ TMyForm4.MyButton2Click(Sender: ㅤ TObject);
begin
Close;
end;
{ ㅤ Изменение ㅤ формы ㅤ 4 ㅤ в ㅤ ㅤ модуле ㅤ 4}
procedure ㅤ TMyForm4.MyEdit1Change(Sender: ㅤ TObject);
begin
if ㅤ Not ㅤ MyADOTable1.Active ㅤ then ㅤ Exit;
if ㅤ Not ㅤ MyADOTable1.Locate('ФИО ㅤ сотрудника', ㅤ MyEdit1.Text, ㅤ [loPartialKey, ㅤ
loCaseInsensitive])
then ㅤ Application.MessageBox('Заданная ㅤ строка ㅤ не ㅤ найдена', ㅤ 'Поиск', ㅤ
MB_OK);
end;
end.
{ ㅤ Описание ㅤ ㅤ модуля ㅤ 5}
unit ㅤ Unit5;
interface
uses
Windows, ㅤ Messages, ㅤ SysUtils, ㅤ Variants, ㅤ Classes, ㅤ Graphics, ㅤ Controls, ㅤ Forms,
Dialogs, ㅤ StdCtrls, ㅤ Grids;
type
{ ㅤ Список ㅤ использованных ㅤ компонентов ㅤ в ㅤ форме ㅤ 5}
Zap ㅤ = ㅤ Record
ID: ㅤ Cardinal;
117
Chisl: ㅤ String[10];
Ug: ㅤ String[60];
Otm: ㅤ String[6];
Prim: ㅤ String[30];
end;
TMyForm5 ㅤ = ㅤ class(TForm)
MyStringGrid1: ㅤ TStringGrid;
MyButton1: ㅤ TButton;
MyButton2: ㅤ TButton;
MyButton3: ㅤ TButton;
Button4: ㅤ TButton;
MyButton5: ㅤ TButton;
OpenDialog1: ㅤ TOpenDialog;
SaveDialog1: ㅤ TSaveDialog;
Button6: ㅤ TButton;
{ ㅤ Список ㅤ использованных ㅤ процедур ㅤ в ㅤ форме ㅤ 5}
procedure ㅤ FormCreate(Sender: ㅤ TObject);
procedure ㅤ MyButton1Click(Sender: ㅤ TObject);
procedure ㅤ MyButton2Click(Sender: ㅤ TObject);
procedure ㅤ MyButton3Click(Sender: ㅤ TObject);
procedure ㅤ Button4Click(Sender: ㅤ TObject);
procedure ㅤ MyButton5Click(Sender: ㅤ TObject);
procedure ㅤ Button6Click(Sender: ㅤ TObject);
private
{ ㅤ Private ㅤ declarations ㅤ }
118
public
{ ㅤ Public ㅤ declarations ㅤ }
end;
{ ㅤ Список ㅤ использованных ㅤ глобальных ㅤ переменныхв ㅤ форме ㅤ 5}
var
MyForm5: ㅤ TMyForm5;
F: ㅤ File ㅤ of ㅤ Zap;
Rec: ㅤ Zap;
Nomer: ㅤ Integer;
Kol: ㅤ integer;
i: ㅤ integer;
add: ㅤ boolean;
sum: ㅤ integer;
implementation
{ ㅤ Описание ㅤ модуля ㅤ ㅤ 6 ㅤ программы}
uses ㅤ Unit6;
{$R ㅤ *.dfm}
{ ㅤ Описание ㅤ процедуры ㅤ создания ㅤ формы ㅤ 5}
procedure ㅤ TMyForm5.FormCreate(Sender: ㅤ TObject);
begin
MyStringGrid1.Cells[0,0]:='№ ㅤ п/п';
MyStringGrid1.Cells[1,0]:='Дата';
MyStringGrid1.Cells[2,0]:='Возникшая ㅤ угроза';
MyStringGrid1.Cells[3,0]:='Отметка ㅤ об ㅤ устранении';
MyStringGrid1.Cells[4,0]:='Примечание';
119
Kol:=0;
Nomer:=1;
end;
{ ㅤ Описание ㅤ процедуры ㅤ нажатия ㅤ кнопки ㅤ 1модуля ㅤ 6 ㅤ }
procedure ㅤ TMyForm5.MyButton1Click(Sender: ㅤ TObject);
begin
if ㅤ Kol<>0 ㅤ then
BEGIN
for ㅤ i:=Nomer ㅤ to ㅤ MyStringGrid1.RowCount-1 ㅤ do
with ㅤ MyStringGrid1 ㅤ do ㅤ begin
cells[0,i]:= ㅤ cells[0,i+1];
cells[1,i]:= ㅤ cells[1,i+1];
cells[2,i]:= ㅤ cells[2,i+1];
cells[3,i]:= ㅤ cells[3,i+1];
cells[4,i]:= ㅤ cells[4,i+1];
end;
Kol:=Kol-1;
if ㅤ Kol<>0 ㅤ then ㅤ MyStringGrid1.RowCount:= ㅤ Kol+1 ㅤ else
begin
MyButton1.Enabled:=False;
end;
end;
end;
{ ㅤ Описание ㅤ процедуры ㅤ нажатия ㅤ кнопки2 ㅤ модуля ㅤ 6 ㅤ }
procedure ㅤ TMyForm5.MyButton2Click(Sender: ㅤ TObject);
120
begin
MyForm6.Caption:='Добавление ㅤ записи';
add:=true;
MyForm6.ShowModal
end;
{ ㅤ Описание ㅤ процедуры ㅤ нажатия ㅤ кнопки3 ㅤ модуля ㅤ 6 ㅤ }
procedure ㅤ TMyForm5.MyButton3Click(Sender: ㅤ TObject);
begin
MyForm6.Caption:='Изменение ㅤ записи';
add:=true;
MyForm6.ShowModal;
end;
{ ㅤ Описание ㅤ процедуры ㅤ нажатия ㅤ кнопки ㅤ 4 ㅤ модуля ㅤ 6 ㅤ }
procedure ㅤ TMyForm5.Button4Click(Sender: ㅤ TObject);
begin
if ㅤ SaveDialog1.Execute ㅤ then
begin
assignfile(f,savedialog1.FileName);
if ㅤ FileExists(SaveDialog1.FileName) ㅤ then
begin
if ㅤ MessageDlg('Файл ㅤ с ㅤ таким ㅤ именем ㅤ уже ㅤ существует. ㅤ Перезаписать?', ㅤ
mtConfirmation,[mbYes,mbNo],0)=mrNo ㅤ then ㅤ exit;
end;
rewrite(f,savedialog1.FileName);
i:=0;
while ㅤ i<>MyStringGrid1.rowCount-1 ㅤ do ㅤ begin
121
inc(i);
Rec.ID ㅤ := ㅤ StrToInt(MyStringGrid1.cells[0,i]);
Rec.Chisl:=MyStringGrid1.cells[1,i];
Rec.Ug:=MyStringGrid1.cells[2,i];
Rec.Otm:=MyStringGrid1.cells[3,i];
Rec.Prim:=MyStringGrid1.cells[4,i];
write(f,Rec); ㅤ //запись ㅤ данных ㅤ в ㅤ файл
end;
closefile(f);
end;
end;
{ ㅤ Описание ㅤ процедуры ㅤ нажатия ㅤ кнопки5 ㅤ модуля ㅤ 6 ㅤ }
procedure ㅤ TMyForm5.MyButton5Click(Sender: ㅤ TObject);
begin
if ㅤ Opendialog1.Execute
and ㅤ FileExists(OpenDialog1.FileName) ㅤ then
begin
AssignFile(f,OpenDialog1.FileName);
Reset(f);
i:=0;
while ㅤ not ㅤ eof(f) ㅤ do ㅤ begin
read(f,Rec); ㅤ //чтение ㅤ данных ㅤ из ㅤ файла
inc(i);
MyStringGrid1.cells[0,i]:=IntToStr(Rec.ID);
MyStringGrid1.cells[1,i]:=Rec.Chisl;