105
procedure TMainForm.FormCreate(Sender: TObject);
begin
Application.Title:='Подтверждение';
rg3.Visible:=true;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Сетевое_имя FROM Комп_техника');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbIm.Items.Clear;
while not eof do
begin
cbIm.Items.Add(FieldByName('Сетевое_имя').AsString);
Next;
end;
end;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select ФИО FROM Сотрудники');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbSotr.Items.Clear;
while not eof do
begin
cbSotr.Items.Add(FieldByName('ФИО').AsString);
Next;
end;
end;
self.LoadTOOrg();
end;
procedure TMainForm.btnAboutClick(Sender: TObject);
var str:string;
begin
Application.MessageBox('Программа: Учет обслуживания компьютерной техники
v.1.0','О программе');
end;
procedure TMainForm.btnAddClick(Sender: TObject);
var
fSotr:TAddSotr;
fOrg:TAddOrg;
fKomp:TAddKomp;
fPO:TAddPO;
fTOOrg:TTOOrg;
fTOKomp:TTOKomp;
fInstall:TInstall;
begin
case t of
0:
begin
fSotr:=TAddSotr.Create(self);
fSotr.ShowModal;
Loading();
LoadSotrudnik();
end;
1:
106
begin
fOrg:=TAddOrg.Create(self);
fOrg.ShowModal;
Loading();
LoadOrg();
end;
2:
begin
fKomp:=TAddKomp.Create(self);
fKomp.ShowModal;
Loading();
LoadKomp();
end;
3:
begin
fPO:=TAddPO.Create(self);
fPO.ShowModal;
Loading();
LoadPO();
end;
4:
begin
fTOOrg:=TTOOrg.Create(self);
fTOOrg.ShowModal;
Loading();
LoadTOOrg();
end;
5:
begin
fTOKomp:=TTOKomp.Create(self);
fTOKomp.ShowModal;
Loading();
LoadTOKomp();
end;
6:
begin
fInstall:=TInstall.Create(self);
fInstall.ShowModal;
Loading();
LoadInstall();
end;
end;
end;
procedure TMainForm.btnDelClick(Sender: TObject);
var
n:integer;
buttonSelected : Integer;
str:String;
begin
if t>=0 then
begin
n:=StrToInt(DBGrid1.DataSource.DataSet.FieldByName('Код').value);
case t of
0:
begin
str:=DBGrid1.DataSource.DataSet.FieldByName('ФИО').value;
buttonSelected := MessageDlg('Вы действительно хотите удалить сотрудника ' +
str + '?',mtCustom,
107
[mbYes,mbCancel], 0);
if buttonSelected = mrYes then
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('DELETE FROM Сотрудники WHERE Код=:n');
ADOQuery1.Parameters.ParamByName('n').Value:=n;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные удалены!','Уведомление');
LoadSotrudnik();
end;
end;
1:
begin
buttonSelected := MessageDlg('Вы действительно хотите удалить оргтехнику с
кодом ' + IntToStr(n) + '?',mtCustom,
[mbYes,mbCancel], 0);
if buttonSelected = mrYes then
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('DELETE FROM Оргтехника WHERE Код=:n');
ADOQuery1.Parameters.ParamByName('n').Value:=n;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные удалены!','Уведомление');
LoadOrg();
end;
end;
2:
begin
str:=DBGrid1.DataSource.DataSet.FieldByName('Сетевое_имя').value;
buttonSelected := MessageDlg('Вы действительно хотите удалить компьютерную
технику ' + str + '?',mtCustom,
[mbYes,mbCancel], 0);
if buttonSelected = mrYes then
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('DELETE FROM Комп_техника WHERE Код=:n');
ADOQuery1.Parameters.ParamByName('n').Value:=n;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные удалены!','Уведомление');
LoadKomp();
end;
end;
3:
begin
str:=DBGrid1.DataSource.DataSet.FieldByName('Название').value;
buttonSelected := MessageDlg('Вы действительно хотите удалить ПО ' + str +
'?',mtCustom,
[mbYes,mbCancel], 0);
if buttonSelected = mrYes then
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('DELETE FROM ПО WHERE Код=:n');
ADOQuery1.Parameters.ParamByName('n').Value:=n;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные удалены!','Уведомление');
LoadPO();
end;
end;
4:
108
begin
buttonSelected := MessageDlg('Вы действительно хотите удалить запись о ТО с
кодом ' + IntToStr(n) + '?',mtCustom,
[mbYes,mbCancel], 0);
if buttonSelected = mrYes then
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('DELETE FROM ТО_Орг WHERE Код=:n');
ADOQuery1.Parameters.ParamByName('n').Value:=n;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные удалены!','Уведомление');
LoadTOOrg();
end;
end;
5:
begin
buttonSelected := MessageDlg('Вы действительно хотите удалить запись о ТО с
кодом ' + IntToStr(n) + '?',mtCustom,
[mbYes,mbCancel], 0);
if buttonSelected = mrYes then
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('DELETE FROM ТО_Комп WHERE Код=:n');
ADOQuery1.Parameters.ParamByName('n').Value:=n;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные удалены!','Уведомление');
LoadTOKomp();
end;
end;
6:
begin
buttonSelected := MessageDlg('Вы действительно хотите удалить запись об
установке с кодом ' + IntToStr(n) + '?',mtCustom,
[mbYes,mbCancel], 0);
if buttonSelected = mrYes then
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('DELETE FROM Установленное_ПО WHERE Код=:n');
ADOQuery1.Parameters.ParamByName('n').Value:=n;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные удалены!','Уведомление');
LoadTOKomp();
end;
end;
end;
end;
end;
procedure TMainForm.btnEditClick(Sender: TObject);
var
fSotr:TEditSotr;
fOrg:TEditOrg;
fKomp:TEditKomp;
fPO:TEditPO;
fTOOrg:TEditTOOrg;
fTOKomp:TEditTOKomp;
fInstall:TEditInstallPO;
begin
case t of
109
0:
begin
fSotr:=TEditSotr.Create(self);
fSotr.ShowModal;
Loading();
LoadSotrudnik();
end;
1:
begin
fOrg:=TEditOrg.Create(self);
fOrg.ShowModal;
Loading();
LoadOrg();
end;
2:
begin
fKomp:=TEditKomp.Create(self);
fKomp.ShowModal;
Loading();
LoadKomp();
end;
3:
begin
fPO:=TEditPO.Create(self);
fPO.ShowModal;
Loading();
LoadPO();
end;
4:
begin
fTOOrg:=TEditTOOrg.Create(self);
fTOOrg.ShowModal;
Loading();
LoadTOOrg();
end;
5:
begin
fTOKomp:=TEditTOKomp.Create(self);
fTOKomp.ShowModal;
Loading();
LoadTOKomp();
end;
6:
begin
fInstall:=TEditInstallPO.Create(self);
fInstall.ShowModal;
Loading();
LoadInstall();
end;
end;
end;
end.
unit Unit7;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
110
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TAddSotr = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
eDolz: TEdit;
eFIO: TEdit;
btnAdd: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure btnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AddSotr: TAddSotr;
implementation
{$R *.dfm}
procedure TAddSotr.btnAddClick(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Сотрудники(ФИО,Должность)
VALUES(:fio,:dolz)');
ADOQuery1.Parameters.ParamByName('fio').Value:=eFIO.Text;
ADOQuery1.Parameters.ParamByName('dolz').Value:=eDolz.Text;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные сохранены!','Уведомление');
end;
end.
unit Unit8;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TEditSotr = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
cbSotr: TComboBox;
eDolz: TEdit;
btnEdit: TButton;
ADOConnection1: TADOConnection;
111
ADOQuery1: TADOQuery;
procedure FormCreate(Sender: TObject);
procedure btnEditClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cbSotrChange(Sender: TObject);
private
{ Private declarations }
public
id:Integer;
end;
var
EditSotr: TEditSotr;
implementation
{$R *.dfm}
procedure TEditSotr.btnEditClick(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('UPDATE Сотрудники SET Должность=:d WHERE ФИО=:fio');
ADOQuery1.Parameters.ParamByName('d').Value:=eDolz.Text;
ADOQuery1.Parameters.ParamByName('fio').Value:=cbSotr.Text;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные сохранены!','Уведомление');
end;
procedure TEditSotr.cbSotrChange(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * FROM Сотрудники WHERE ФИО=:fio');
ADOQuery1.Parameters.ParamByName('fio').Value:=cbSotr.Text;
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
eDolz.Text:=FieldByName('Должность').AsString;
end;
end;
procedure TEditSotr.FormCreate(Sender: TObject);
begin
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select ФИО FROM Сотрудники');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbSotr.Items.Clear;
while not eof do
begin
cbSotr.Items.Add(FieldByName('ФИО').AsString);
Next;
end;
end;
finally
end;
end;
112
procedure TEditSotr.FormShow(Sender: TObject);
begin
if id>0 then
begin
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select ФИО FROM Сотрудники');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbSotr.Items.Clear;
while not eof do
begin
cbSotr.Items.Add(FieldByName('ФИО').AsString);
Next;
end;
end;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * FROM Сотрудники WHERE Код=:id');
ADOQuery1.Parameters.ParamByName('id').Value:=id;
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbSotr.ItemIndex := cbSotr.Items.IndexOF(FieldByName('ФИО').AsString);
eDolz.Text:=FieldByName('Должность').AsString;
end;
finally
end;
end;
end;
end.
unit Unit9;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TEditOrg = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
cbCode: TComboBox;
eNaz: TEdit;
eTip: TEdit;
eMesto: TEdit;
Button1: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
113
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure cbCodeChange(Sender: TObject);
private
{ Private declarations }
public
id:integer;
end;
var
EditOrg: TEditOrg;
implementation
{$R *.dfm}
procedure TEditOrg.Button1Click(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('UPDATE Оргтехника SET Название=:n, Тип=:t,
Месторасположение=:m WHERE Код=:k');
ADOQuery1.Parameters.ParamByName('n').Value:=eNaz.Text;
ADOQuery1.Parameters.ParamByName('t').Value:=eTip.Text;
ADOQuery1.Parameters.ParamByName('m').Value:=eMesto.Text;
ADOQuery1.Parameters.ParamByName('k').Value:=id;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные сохранены!','Уведомление');
end;
procedure TEditOrg.cbCodeChange(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * FROM Оргтехника WHERE Код=:id');
ADOQuery1.Parameters.ParamByName('id').Value:=cbCode.Text;
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
eNaz.Text:=FieldByName('Название').AsString;
eTip.Text:=FieldByName('Тип').AsString;
eMesto.Text:=FieldByName('Месторасположение').AsString;
end;
end;
procedure TEditOrg.FormCreate(Sender: TObject);
begin
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Код FROM Оргтехника');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbCode.Items.Clear;
while not eof do
begin
cbCode.Items.Add(FieldByName('Код').AsString);
Next;
114
end;
end;
finally
end;
end;
procedure TEditOrg.FormShow(Sender: TObject);
begin
if id>0 then
begin
try
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Код FROM Оргтехника');
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbCode.Items.Clear;
while not eof do
begin
cbCode.Items.Add(FieldByName('Код').AsString);
Next;
end;
end;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * FROM Оргтехника WHERE Код=:id');
ADOQuery1.Parameters.ParamByName('id').Value:=id;
ADOQuery1.Open;
with ADOQuery1 do
begin
First;
cbCode.ItemIndex := cbCode.Items.IndexOF(FieldByName('Код').AsString);
eNaz.Text:=FieldByName('Название').AsString;
eTip.Text:=FieldByName('Тип').AsString;
eMesto.Text:=FieldByName('Месторасположение').AsString;
end;
finally
end;
end;
end;
end.