95
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Data.Win.ADODB, Vcl.StdCtrls,
Vcl.ExtCtrls;
type
TTOKomp = class(TForm)
Panel1: TPanel;
Label1: TLabel;
cbSotr: TComboBox;
Label2: TLabel;
cbIm: TComboBox;
Label3: TLabel;
cbRab: TComboBox;
Дата: TLabel;
eData: TEdit;
btnAdd: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
procedure FormCreate(Sender: TObject);
procedure btnAddClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
TOKomp: TTOKomp;
implementation
{$R *.dfm}
procedure TTOKomp.btnAddClick(Sender: TObject);
var
tempQuery:TADOQuery;
s,im,rab:integer;
begin
try
tempQuery:=TADOQuery.Create(self);
tempQuery.Connection:=ADOConnection1;
tempQuery.SQL.Clear;
tempQuery.SQL.Add('Select Код FROM Сотрудники WHERE ФИО=:fio');
tempQuery.Parameters.ParamByName('fio').Value:=cbSotr.Text;
tempQuery.Open;
with tempQuery do
begin
First;
s:=FieldByName('Код').AsInteger;
end;
tempQuery.SQL.Clear;
tempQuery.SQL.Add('Select Код FROM Комп_техника WHERE Сетевое_имя=:n');
tempQuery.Parameters.ParamByName('n').Value:=cbIm.Text;
tempQuery.Open;
with tempQuery do
begin
First;
im:=FieldByName('Код').AsInteger;
end;
tempQuery.SQL.Clear;
96
tempQuery.SQL.Add('Select Код FROM Виды_ТО WHERE Наименование=:n');
tempQuery.Parameters.ParamByName('n').Value:=cbRab.Text;
tempQuery.Open;
with tempQuery do
begin
First;
rab:=FieldByName('Код').AsInteger;
end;
finally
tempQuery.Active:=False;
tempQuery.Free;
end;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO
ТО_Комп(Код_сотрудника,Код_техники,Код_работы,Дата)
VALUES(:sotr,:teh,:rab,:data)');
ADOQuery1.Parameters.ParamByName('sotr').Value:=s;
ADOQuery1.Parameters.ParamByName('teh').Value:=im;
ADOQuery1.Parameters.ParamByName('rab').Value:=rab;
ADOQuery1.Parameters.ParamByName('data').Value:=eData.Text;
ADOQuery1.ExecSQL;
Application.MessageBox('Данные сохранены!','Уведомление');
end;
procedure TTOKomp.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;
//-----------------
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
97
begin
First;
cbRab.Items.Clear;
while not eof do
begin
cbRab.Items.Add(FieldByName('Наименование').AsString);
Next;
end;
end;
finally
end;
end;
end.
unit Unit6;
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.Grids,
Vcl.DBGrids, Vcl.StdCtrls, Vcl.ExtCtrls, Unit7, Unit1, Unit2, Unit3, Unit4,
Unit5, Unit8, Unit9, Unit10, Unit11, Unit12, Unit13, Unit14, Unit15,
Vcl.Imaging.jpeg, MyWord;
type
TMainForm = class(TForm)
Panel1: TPanel;
btnSotrudniki: TButton;
btnOrg: TButton;
btnKomp: TButton;
btnPO: TButton;
btnTOOrg: TButton;
btnTOKomp: TButton;
btnAbout: TButton;
DBGrid1: TDBGrid;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Panel2: TPanel;
btnAdd: TButton;
btnEdit: TButton;
btnDel: TButton;
btnInstall: TButton;
btnTOl3: TButton;
btnTOg3: TButton;
GroupBox1: TGroupBox;
GroupBox2: TGroupBox;
Label1: TLabel;
cbIm: TComboBox;
btnSearch: TButton;
Image1: TImage;
Button1: TButton;
Button2: TButton;
RadioGroup1: TRadioGroup;
rb1: TRadioButton;
rb2: TRadioButton;
rg2: TRadioGroup;
98
rb0: TRadioButton;
rb7: TRadioButton;
rb30: TRadioButton;
rb180: TRadioButton;
rb360: TRadioButton;
cbSotr: TComboBox;
Button3: TButton;
rg3: TRadioGroup;
cbT: TComboBox;
procedure btnSotrudnikiClick(Sender: TObject);
procedure LoadSotrudnik();
procedure LoadOrg();
procedure LoadKomp();
procedure LoadPO();
procedure LoadTOOrg();
procedure LoadTOKomp();
procedure LoadInstall();
procedure btnOrgClick(Sender: TObject);
procedure btnKompClick(Sender: TObject);
procedure btnPOClick(Sender: TObject);
procedure btnTOOrgClick(Sender: TObject);
procedure btnTOKompClick(Sender: TObject);
procedure btnAddClick(Sender: TObject);
procedure btnEditClick(Sender: TObject);
procedure DBGrid1DblClick(Sender: TObject);
procedure btnDelClick(Sender: TObject);
procedure btnInstallClick(Sender: TObject);
procedure btnTOl3Click(Sender: TObject);
procedure btnTOg3Click(Sender: TObject);
procedure btnAboutClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure btnSearchClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
end;
var
MainForm: TMainForm;
t:integer;
implementation
{$R *.dfm}
procedure TMainForm.LoadSotrudnik();
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Сотрудники');
ADOQuery1.Active:=True;
DBGrid1.Columns[0].Width:=30;
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=100;
end;
procedure TMainForm.LoadOrg();
99
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Оргтехника');
ADOQuery1.Active:=True;
DBGrid1.Columns[0].Width:=30;
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=100;
DBGrid1.Columns[3].Width:=120;
end;
procedure TMainForm.LoadKomp();
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Комп_техника');
ADOQuery1.Active:=True;
DBGrid1.Columns[0].Width:=30;
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=120;
DBGrid1.Columns[3].Width:=100;
end;
procedure TMainForm.LoadPO();
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM ПО');
ADOQuery1.Active:=True;
DBGrid1.Columns[0].Width:=30;
DBGrid1.Columns[1].Width:=70;
DBGrid1.Columns[2].Width:=100;
DBGrid1.Columns[3].Width:=100;
DBGrid1.Columns[4].Alignment:=TAlignment.taLeftJustify;
DBGrid1.Columns[4].Width:=150;
end;
procedure TMainForm.LoadTOOrg();
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Данные_орг');
ADOQuery1.Active:=True;
DBGrid1.Columns[0].Width:=30;
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=100;
DBGrid1.Columns[3].Width:=100;
DBGrid1.Columns[4].Width:=60;
end;
procedure TMainForm.LoadTOKomp();
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Данные_комп');
ADOQuery1.Active:=True;
DBGrid1.Columns[0].Width:=30;
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=100;
DBGrid1.Columns[3].Width:=100;
DBGrid1.Columns[4].Width:=60;
end;
procedure TMainForm.LoadInstall();
100
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Install');
ADOQuery1.Active:=True;
DBGrid1.Columns[0].Width:=30;
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=100;
DBGrid1.Columns[3].Width:=90;
DBGrid1.Columns[4].Width:=90;
end;
procedure TMainForm.btnSearchClick(Sender: TObject);
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Данные_комп WHERE Сетевое_имя=:im');
ADOQuery1.Parameters.ParamByName('im').Value:=cbIm.Text;
ADOQuery1.Active:=True;
DBGrid1.Columns[0].Width:=30;
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=100;
DBGrid1.Columns[3].Width:=100;
DBGrid1.Columns[4].Width:=60;
end;
procedure TMainForm.btnSotrudnikiClick(Sender: TObject);
begin
t:=0;
LoadSotrudnik();
end;
procedure TMainForm.btnOrgClick(Sender: TObject);
begin
t:=1;
LoadOrg();
end;
procedure TMainForm.btnKompClick(Sender: TObject);
begin
t:=2;
LoadKomp();
end;
procedure TMainForm.btnPOClick(Sender: TObject);
begin
t:=3;
LoadPO();
end;
procedure TMainForm.btnTOOrgClick(Sender: TObject);
begin
t:=4;
LoadTOOrg();
end;
procedure TMainForm.btnTOKompClick(Sender: TObject);
begin
t:=5;
LoadTOKomp();
end;
101
procedure TMainForm.Button1Click(Sender: TObject);
begin
t:=9;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Истекает');
ADOQuery1.Active:=True;
DBGrid1.Columns[0].Width:=100;
DBGrid1.Columns[1].Width:=100;
end;
procedure TMainForm.Button2Click(Sender: TObject);
var a:integer;
name:String;
begin
case t of
0:
name:='Сотрудники';
1:
name:='Оргтехника';
2:
name:='Компьютерная техника';
3:
name:='Программное обеспечение';
4:
name:='ТО оргтехники';
5:
name:='ТО компьютерной техники';
6:
name:='Установленное ПО';
7:
name:='ТО комп.техника';
8:
name:='ТО орг.техника';
9:
name:='Истекает лицензия';
10:
name:='Работы';
end;
a:=1;
if CreateWord then
begin
VisibleWord(false);
AddDoc;
WordTableAddFromDBGrid(DBGrid1,true,a,name);
VisibleWord(true);
end;
end;
procedure TMainForm.Button3Click(Sender: TObject);
begin
t:=10;
if (rb0.Checked=false) and (rb7.Checked=false) and (rb30.Checked=false) and
(rb180.Checked=false) and (rb360.Checked=false) then
rb0.Checked:=true;
ADOQuery1.SQL.Clear;
if rb0.Checked then
begin
102
if cbT.ItemIndex=0 then
ADOQuery1.SQL.Add('SELECT * FROM Сотрудники_Комп WHERE ФИО = :s')
else
ADOQuery1.SQL.Add('SELECT * FROM Сотрудники_Орг WHERE ФИО = :s');
end;
if rb7.Checked then
begin
if cbT.ItemIndex=0 then
ADOQuery1.SQL.Add('SELECT * FROM Сотрудники_Комп7 WHERE ФИО = :s')
else
ADOQuery1.SQL.Add('SELECT * FROM Сотрудники_Орг7 WHERE ФИО = :s');
end;
if rb30.Checked then
begin
if cbT.ItemIndex=0 then
ADOQuery1.SQL.Add('SELECT * FROM Сотрудники_Комп30 WHERE ФИО = :s')
else
ADOQuery1.SQL.Add('SELECT * FROM Сотрудники_Орг30 WHERE ФИО = :s');
end;
if rb180.Checked then
begin
if cbT.ItemIndex=0 then
ADOQuery1.SQL.Add('SELECT * FROM Сотрудники_Комп180 WHERE ФИО = :s')
else
ADOQuery1.SQL.Add('SELECT * FROM Сотрудники_Орг180 WHERE ФИО = :s');
end;
if rb360.Checked then
begin
if cbT.ItemIndex=0 then
ADOQuery1.SQL.Add('SELECT * FROM Сотрудники_Комп360 WHERE ФИО = :s')
else
ADOQuery1.SQL.Add('SELECT * FROM Сотрудники_Орг360 WHERE ФИО = :s');
end;
ADOQuery1.Parameters.ParamByName('s').Value:=cbSotr.Text;
ADOQuery1.Active:=True;
DBGrid1.Columns[0].Width:=100;
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=100;
DBGrid1.Columns[3].Width:=100;
end;
procedure TMainForm.btnTOl3Click(Sender: TObject);
begin
t:=7;
if (rb1.Checked=false) and (rb2.Checked=false) then
rb1.Checked:=true;
if rb1.Checked then
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Последние3мес');
ADOQuery1.Active:=True;
end
else
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM Более3мес');
ADOQuery1.Active:=True;
end;
DBGrid1.Columns[0].Width:=30;
103
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=100;
DBGrid1.Columns[3].Width:=100;
DBGrid1.Columns[4].Width:=60;
end;
procedure TMainForm.btnTOg3Click(Sender: TObject);
begin
t:=8;
if (rb1.Checked=false) and (rb2.Checked=false) then
rb1.Checked:=true;
if rb1.Checked then
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM ОргПоследние3мес');
ADOQuery1.Active:=True;
end
else
begin
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM ОргБолее3мес');
ADOQuery1.Active:=True;
end;
DBGrid1.Columns[0].Width:=30;
DBGrid1.Columns[1].Width:=100;
DBGrid1.Columns[2].Width:=100;
DBGrid1.Columns[3].Width:=100;
DBGrid1.Columns[4].Width:=60;
end;
procedure TMainForm.btnInstallClick(Sender: TObject);
begin
t:=6;
LoadInstall();
end;
procedure Loading();
var
cr: TCursor;
begin
cr:=Screen.Cursor;
Screen.Cursor:=crHourGlass;
sleep(2000);
Screen.Cursor:=cr;
end;
procedure TMainForm.DBGrid1DblClick(Sender: TObject);
var
n:integer;
fSotr:TEditSotr;
fOrg:TEditOrg;
fKomp:TEditKomp;
fPO:TEditPO;
fTOOrg:TEditTOOrg;
fTOKomp:TEditTOKomp;
fInstall:TEditInstallPO;
begin
n:=StrToInt(DBGrid1.DataSource.DataSet.FieldByName('Код').value);
case t of
104
0:
begin
fSotr:=TEditSotr.Create(self);
fSotr.id:=n;
fSotr.ShowModal;
Loading();
LoadSotrudnik();
end;
1:
begin
fOrg:=TEditOrg.Create(self);
fOrg.id:=n;
fOrg.ShowModal;
Loading();
LoadOrg();
end;
2:
begin
fKomp:=TEditKomp.Create(self);
fKomp.id:=n;
fKomp.ShowModal;
Loading();
LoadKomp();
end;
3:
begin
fPO:=TEditPO.Create(self);
fPO.id:=n;
fPO.ShowModal;
Loading();
LoadPO();
end;
4:
begin
fTOOrg:=TEditTOOrg.Create(self);
fTOOrg.id:=n;
fTOOrg.ShowModal;
Loading();
LoadTOOrg();
end;
5:
begin
fTOKomp:=TEditTOKomp.Create(self);
fTOKomp.id:=n;
fTOKomp.ShowModal;
Loading();
LoadTOKomp();
end;
6:
begin
fInstall:=TEditInstallPO.Create(self);
fInstall.id:=n;
fInstall.ShowModal;
Loading();
LoadInstall();
end;
end;
end;