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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
109
ADOQuery2.Last;
end;
procedure TfrmSotr.cmdLastClick(Sender: TObject);
begin
ADOQuery1.Last;
end;
procedure TfrmSotr.cmdNext2Click(Sender: TObject);
begin
ADOQuery2.Next;
end;
procedure TfrmSotr.cmdNextClick(Sender: TObject);
begin
ADOQuery1.Next;
end;
procedure TfrmSotr.cmdPrior2Click(Sender: TObject);
begin
ADOQuery2.Prior;
end;
procedure TfrmSotr.cmdPriorClick(Sender: TObject);
begin
ADOQuery1.Prior;
end;
procedure TfrmSotr.cmdSave2Click(Sender: TObject);
110
begin
if (ADOQuery2.State=dsinsert) or (ADOQuery2.State=dsEdit) then //Если набор
в режиме вставки или редактирования,
begin
if (txtFIO.text<>'') and (txtDolgnost.text<>'') and (txtLogin.text<>'') and
(cbStatusSotr.text<>'') then //То делаем проверку, если обязательное поле не
пустое,
ADOQuery2.post //то сохраняем данные
else // Иначе вызываем окно и говорим, что нужно заполнить обязательные
поля
begin
Application.CreateForm(TfrmMessage,frmMessage);
frmMessage.Visible:=false;
frmMessage.Left:=Round(frmSotr.Left +(frmSotr.Width-frmMessage.Width)/2);
frmMessage.Top:=Round(frmSotr.Top +(frmSotr.height-
frmMessage.height)/2+20);
frmMessage.lblMessage.Caption:='Необходимо заполнить обязательные
поля!';
frmMessage.ShowModal;
end;
end;
end;
procedure TfrmSotr.cmdSaveClick(Sender: TObject);
begin
if (ADOQuery1.State=dsinsert) or (ADOQuery1.State=dsEdit) then //Если набор
в режиме вставки или редактирования,
begin
111
if txtNameOtdela.text<>'' then //То делаем проверку, если обязательное поле
не пустое,
ADOQuery1.post //то сохраняем данные
else // Иначе вызываем окно и говорим, что нужно заполнить обязательные
поля
begin
Application.CreateForm(TfrmMessage,frmMessage);
frmMessage.Visible:=false;
frmMessage.Left:=Round(frmSotr.Left +(frmSotr.Width-frmMessage.Width)/2);
frmMessage.Top:=Round(frmSotr.Top +(frmSotr.height-
frmMessage.height)/2+20);
frmMessage.lblMessage.Caption:='Необходимо заполнить поле с
наименованием отдела!';
frmMessage.ShowModal;
end;
end;
end;
procedure TfrmSotr.DataSource1DataChange(Sender: TObject; Field: TField);
begin
Label_Kol_Zap.Caption:='Запись '+inttostr(adoQuery1.Recno)+' из
'+inttostr(adoQuery1.RecordCount);
end;
procedure TfrmSotr.DataSource1StateChange(Sender: TObject);
begin
deactive_navig;
end;
112
procedure TfrmSotr.DataSource2DataChange(Sender: TObject; Field: TField);
begin
Label_Kol_Zap_2.Caption:='Запись '+inttostr(adoQuery2.Recno)+' из
'+inttostr(adoQuery2.RecordCount);
end;
procedure TfrmSotr.DataSource2StateChange(Sender: TObject);
begin
deactive_navig_2;
end;
procedure TfrmSotr.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmMDI.mnuSotr.Enabled:=true;
ADOQuery2.Close;
ADOQuery1.Close;
action:=caFree;
end;
procedure TfrmSotr.Label10Click(Sender: TObject);
begin
RadioButton2.Checked:=true;
end;
procedure TfrmSotr.Label11Click(Sender: TObject);
begin
RadioButton3.Checked:=true;
end;
113
procedure TfrmSotr.Label9Click(Sender: TObject);
begin
RadioButton1.Checked:=true;
end;
procedure TfrmSotr.Label_FindClick(Sender: TObject);
begin
if Label_Find.Caption='Найти' then
begin
if RadioButton1.Checked then
if txtFind.Text<>'' then
begin
adoQuery1.Filtered:=false;
adoQuery1.Filter:='name_otdela '+ ' LIKE ' + #39 + '%' + txtFind.Text + '%' +
#39;
adoQuery1.Filtered:=true;
Label_Find.Caption:='Отключить фильтр';
end;
if RadioButton2.Checked then
if txtFind.Text<>'' then
begin
adoQuery2.Filtered:=false;
adoQuery2.Close;
adoQuery2.DataSource:=nil;
adoQuery2.SQL.Clear;
adoQuery2.SQL.Add('SELECT * from sotr where fio like ''%'+txtFind.Text+'%''');
adoQuery2.Open;
Label_Find.Caption:='Отключить фильтр';
Источник: https://baza.diplomsite.ru/previewfile/8703

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

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