96
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();
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;
97
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();
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
98
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;
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:='Компьютерная техника';
99
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
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');
100
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;
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;
101
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
0:
begin
fSotr:=TEditSotr.Create(self);
fSotr.id:=n;
fSotr.ShowModal;
Loading();
LoadSotrudnik();
end;
1:
begin
102
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;
procedure TMainForm.FormCreate(Sender: TObject);
begin
Application.Title:='Подтверждение';
rg3.Visible:=true;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select Сетевое_имя FROM Комп_техника');
103
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:
begin
fOrg:=TAddOrg.Create(self);
fOrg.ShowModal;
104
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,
105
[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();