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

Скачать файл

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

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам

119

procedure ADOQuery1AfterPost(DataSet: TDataSet);

procedure ADOQuery1AfterCancel(DataSet: TDataSet);

procedure Label9Click(Sender: TObject);

procedure Label11Click(Sender: TObject);

procedure Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure cmdAppendClick(Sender: TObject);

procedure cmdSaveClick(Sender: TObject);

procedure cmdDeleteClick(Sender: TObject);

procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

procedure cmdDeleteKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure ADOQuery1BeforePost(DataSet: TDataSet);

procedure cmdSendClick(Sender: TObject);

procedure DBGrid2DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

procedure DBGrid2CellClick(Column: TColumn);

procedure txtSendClick(Sender: TObject);

procedure DBGrid1CellClick(Column: TColumn);

procedure DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);

private

{ Private declarations }

public

{ Public declarations }

end;

var

frmOperat: TfrmOperat;

120

procedure deactive_navig();

procedure active_navig();

implementation

uses mdi, message_, delete;

{$R *.dfm}

Procedure deactive_navig();

begin

frmOperat.cmdAppend.Enabled:=false;

end;

Procedure active_navig();

begin

frmOperat.cmdAppend.Enabled:=true;

end;

procedure TfrmOperat.Label_FindMouseMove(Sender: TObject; Shift:

TShiftState;

X, Y: Integer);

begin

Label_Find.Font.Color:=clAqua;

end;

procedure TfrmOperat.Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

121

Label_Find.Font.Color:=clBlue;

end;

procedure TfrmOperat.txtSendClick(Sender: TObject);

begin

ADOCommand2.CommandText:='UPDATE chat SET status_tehsupport="1"';

//Меняем во всех записях статус на 1, то есть прочитано

ADOCommand2.execute;

ADOQuery2.Requery(); //Обновляем измененный набор

ADOQuery2.Last; //Переходим в конец сообщений

end;

procedure TfrmOperat.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

Label_Find.Font.Color:=clBlue;

end;

procedure TfrmOperat.FormCreate(Sender: TObject);

begin

frmMDI.mnuLKklient.Enabled:=false;

txtFind.Text:='';

ADOQuery1.Parameters.ParamByName('kodsotr').Value:=ikodsotr;

ADOQuery1.Open;//Открываем набор данных

ADOQuery1.Last;

ADOQuery2.Open;

ADOQuery2.Last;

end;

122

procedure TfrmOperat.DataSource1DataChange(Sender: TObject; Field: TField);

var

sStatus: string;

begin

Label_Kol_Zap.Caption:='Запись '+inttostr(adoQuery1.Recno)+' из

'+inttostr(adoQuery1.RecordCount);

//Проверяем, если статус у записи "Открыта" или "Закрыта", то переписка в

чате не допускается,

//иначе можно писать сообщение

sStatus:=ADOQuery1.FieldByName('status').AsString;

if (sStatus='Открыта') or (sStatus='Закрыта') then

begin

txtSend.Enabled:=false;

cmdSend.Enabled:=false;

end else begin

txtSend.Enabled:=true;

cmdSend.Enabled:=true;

end;

procedure TfrmOperat.DataSource1StateChange(Sender: TObject);

begin

deactive_navig;

end;

procedure TfrmOperat.DBGrid1CellClick(Column: TColumn);

begin

ADOQuery2.Last;

123

end;

procedure TfrmOperat.DBGrid1DrawColumnCell(Sender: TObject; const Rect:

TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

// Красим нечетные строки

IF TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1

Then TDBGrid(Sender).Canvas.Brush.Color:=clGradientInactiveCaption;

// Восстанавливаем выделение текущей позиции курсора

IF gdSelected IN State

Then Begin

TDBGrid(Sender).Canvas.Brush.Color:= clHighLight;

TDBGrid(Sender).Canvas.Font.Color := clHighLightText;

End;

//Если в столбце important записано 1, то красим строку в красный цвет

if ADOQuery1.FieldByName('status').AsString='Открыта' then

DBGrid1.canvas.Font.Color := clRed;

//Если в столбце important записано 1, то красим строку в зеленый цвет

if ADOQuery1.FieldByName('status').AsString='В работе' then

DBGrid1.Canvas.Font.Color := clGreen;

//Если в столбце important записано 1, то красим строку в черный цвет

if ADOQuery1.FieldByName('status').AsString='Закрыта' then

DBGrid1.Canvas.Font.Color := clBlack;

Источник: https://baza.diplomsite.ru/previewfile/8703

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



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