Дипломная работа: Исследование и разработка информационной системы приема и анализа заявок технической поддержки на примере Администрации г. Новый Уренгой

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
104
end;
var
frmSotr: TfrmSotr;
procedure deactive_navig();
procedure active_navig();
procedure deactive_navig_2();
procedure active_navig_2();
procedure if_empty_adoQuery1(); //Процедура проверяет, есть ли значения в
наборе1. если нет, то блокируем доступ к набору 2
implementation
uses mdi, message_, delete;
{$R *.dfm}
procedure if_empty_adoQuery1();
begin
//Если в наборе 1 нет отделов, то нельзя ввести сотрудников (блокируем всю
панель с эл. управления)
if frmSotr.ADOQuery1.RecordCount=0 then frmSotr.Panel2.Enabled:=false else
frmSotr.Panel2.Enabled:=true;
end;
Procedure deactive_navig();
begin
frmSotr.cmdFirst.Enabled:=false;
frmSotr.cmdPrior.Enabled:=false;
frmSotr.cmdNext.Enabled:=false;
frmSotr.cmdLast.Enabled:=false;
105
frmSotr.cmdAppend.Enabled:=false;
end;
Procedure active_navig();
begin
frmSotr.cmdFirst.Enabled:=true;
frmSotr.cmdPrior.Enabled:=true;
frmSotr.cmdNext.Enabled:=true;
frmSotr.cmdLast.Enabled:=true;
frmSotr.cmdAppend.Enabled:=true;
end;
Procedure deactive_navig_2();
begin
frmSotr.cmdFirst2.Enabled:=false;
frmSotr.cmdPrior2.Enabled:=false;
frmSotr.cmdNext2.Enabled:=false;
frmSotr.cmdLast2.Enabled:=false;
frmSotr.cmdAppend2.Enabled:=false;
end;
Procedure active_navig_2();
begin
frmSotr.cmdFirst2.Enabled:=true;
frmSotr.cmdPrior2.Enabled:=true;
frmSotr.cmdNext2.Enabled:=true;
frmSotr.cmdLast2.Enabled:=true;
frmSotr.cmdAppend2.Enabled:=true;
end;
106
procedure TfrmSotr.Label_FindMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
Label_Find.Font.Color:=clAqua;
end;
procedure TfrmSotr.Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label_Find.Font.Color:=clBlue;
end;
procedure TfrmSotr.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label_Find.Font.Color:=clBlue;
end;
procedure TfrmSotr.FormCreate(Sender: TObject);
begin
frmMDI.mnuSotr.Enabled:=false;
txtFind.Text:='';
ADOQuery1.Open;//Открываем набор данных
ADOQuery2.Open;
if_empty_adoQuery1();
end;
procedure TfrmSotr.cmdAppend2Click(Sender: TObject);
107
begin
ADOQuery2.Append;
txtFio.SetFocus;
end;
procedure TfrmSotr.cmdAppendClick(Sender: TObject);
begin
ADOQuery1.Append;
txtNameOtdela.SetFocus;
end;
procedure TfrmSotr.cmdDelete2Click(Sender: TObject);
begin
Application.CreateForm(TfrmDelete,frmDelete);
frmDelete.Visible:=false;
frmDelete.Left:=Round(frmSotr.Left +(frmSotr.Width-frmDelete.Width)/2);
frmDelete.Top:=Round(frmSotr.Top +(frmSotr.height-frmDelete.height)/2+20);
frmDelete.ShowModal();
if BooleanModal=true then
begin
if ADOQuery2.RecordCount>0 then ADOQuery2.Delete;
BooleanModal:=false;
end else
begin
;
end;
end;
procedure TfrmSotr.cmdDeleteClick(Sender: TObject);
108
begin
Application.CreateForm(TfrmDelete,frmDelete);
frmDelete.Visible:=false;
frmDelete.Left:=Round(frmSotr.Left +(frmSotr.Width-frmDelete.Width)/2);
frmDelete.Top:=Round(frmSotr.Top +(frmSotr.height-frmDelete.height)/2+20);
frmDelete.ShowModal();
if BooleanModal=true then
begin
if ADOQuery1.RecordCount>0 then ADOQuery1.Delete;
BooleanModal:=false;
if_empty_adoQuery1();
end else
begin
;
end;
end;
procedure TfrmSotr.cmdFirst2Click(Sender: TObject);
begin
ADOQuery2.First;
end;
procedure TfrmSotr.cmdFirstClick(Sender: TObject);
begin
ADOQuery1.First;
end;
procedure TfrmSotr.cmdLast2Click(Sender: TObject);
begin
Источник: https://baza.diplomsite.ru/previewfile/8703

Смотрите также:

_Rezonans_napryazheniy
_Ugolov_Process_05
'Fratres' Арво Пярта - молитва в музыке
'Миссия университета' как научно-педагогический концепт эпохи постиндустриального развития
«Досрочные страховые пенсии»
«Характеристика объектов коммерческой деятельности в торговле»
(никита)KUL_T_KL_EKZAMEN
[1 курс] БЖД