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

Скачать

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
124
// Просим GRID перерисоваться самому
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
procedure TfrmOperat.DBGrid1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
ADOQuery2.Last;
end;
procedure TfrmOperat.DBGrid2CellClick(Column: TColumn);
var
zaklad: TBookmark;
begin
zaklad:=ADOQuery2.GetBookmark;
ADOCommand2.CommandText:='UPDATE chat SET status_tehsupport="1"';
//Меняем во всех записях статус на 1, то есть прочитано
ADOCommand2.execute;
ADOQuery2.Requery(); //Обновляем измененный набор
ADOQuery2.GotoBookmark(zaklad);
end;
procedure TfrmOperat.DBGrid2DrawColumnCell(Sender: TObject; const Rect:
TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
//Если в столбце status_tehsupport записано 0, то красим строку в зеленый
цвет
125
if ADOQuery2.FieldByName('status_tehsupport').AsString='0' then
DBGrid2.Canvas.Font.Color := clGreen
else DBGrid2.Canvas.Font.Color := clBlack; //иначе в черный
// Просим GRID перерисоваться самому
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
procedure TfrmOperat.FormClose(Sender: TObject; var Action: TCloseAction);
begin
frmMDI.mnuLKklient.Enabled:=true;
ADOQuery1.Close;
ADOQuery2.Close;
action:=caFree;
end;
procedure TfrmOperat.Label11Click(Sender: TObject);
begin
RadioButton3.Checked:=true;
end;
procedure TfrmOperat.Label9Click(Sender: TObject);
begin
RadioButton1.Checked:=true;
end;
procedure TfrmOperat.Label_FindClick(Sender: TObject);
begin
126
if Label_Find.Caption='Найти' then
begin
if RadioButton1.Checked then
if txtFind.Text<>'' then
begin
adoQuery1.Filtered:=false;
adoQuery1.Filter:='krat_name '+ ' LIKE ' + #39 + '%' + txtFind.Text + '%' + #39;
adoQuery1.Filtered:=true;
Label_Find.Caption:='Отключить фильтр';
end;
if RadioButton3.Checked then
if txtFind.Text<>'' then
begin
adoQuery1.Filtered:=false;
adoQuery1.Filter:='status '+ ' LIKE ' + #39 + '%' + txtFind.Text + '%' + #39;
adoQuery1.Filtered:=true;
Label_Find.Caption:='Отключить фильтр';
end;
end else
begin
adoQuery1.Filtered:=false;
Label_Find.Caption:='Найти';;
end;
end;
procedure TfrmOperat.ADOQuery1AfterCancel(DataSet: TDataSet);
begin
active_navig;
127
end;
procedure TfrmOperat.ADOQuery1AfterDelete(DataSet: TDataSet);
begin
active_navig;
end;
procedure TfrmOperat.ADOQuery1AfterEdit(DataSet: TDataSet);
begin
deactive_navig;
end;
procedure TfrmOperat.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
active_navig;
end;
procedure TfrmOperat.ADOQuery1AfterPost(DataSet: TDataSet);
begin
active_navig;
end;
procedure TfrmOperat.ADOQuery1BeforePost(DataSet: TDataSet);
begin
ADOQuery1.FieldByName('date_open').AsString:=DateToStr(Now);
ADOQuery1.FieldByName('status').AsString:='Открыта';
ADOQuery1.FieldByName('kod_sotr').Asinteger:=iKodSotr;
end;
128
procedure TfrmOperat.cmdAppendClick(Sender: TObject);
begin
ADOQuery1.Append;
DBGrid1.SetFocus;
end;
procedure TfrmOperat.cmdDeleteClick(Sender: TObject);
begin
Application.CreateForm(TfrmDelete,frmDelete);
frmDelete.Visible:=false;
frmDelete.Left:=Round(frmOperat.Left +(frmOperat.Width-frmDelete.Width)/2);
frmDelete.Top:=Round(frmOperat.Top +(frmOperat.height-
frmDelete.height)/2+20);
frmDelete.ShowModal();
if BooleanModal=true then
begin
if ADOQuery1.RecordCount>0 then ADOQuery1.Delete;
BooleanModal:=false;
end else
begin
;
end;
end;
procedure TfrmOperat.cmdDeleteKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (KEY = VK_DELETE) and (Shift=[ssCtrl]) then Key := 0;
end;
Источник: https://baza.diplomsite.ru/previewfile/8703

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

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