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;
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;
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;