Диплом: Автоматизация приема и обработки заявок отделом техподдержки ООО "РУТОЛЛ"

Поиск по базе
Скачать
Заказать новую работу
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
117
117
view_comment_zakaz(); end;//if length(form_zakaz_work.Memo_comment_add.Text) <> 0 then
end;
procedure TForm_zakaz_work.Button_addClick(Sender: TObject);
var buf_zapros,buf_kav : string;
myYear, myMonth, myDay : Word; date_sql : string;
myHour, myMin, mySec, myMilli : Word;
begin
buf_kav := '''';
buf_zapros := 'UPDATE zakaz SET id_status = 3, date_end = Null, tabel_nomer =
'+buf_kav+form_main.Label_tabel_nomer.Caption+buf_kav
+' WHERE id_zakaz = '+form_zakaz_work.Label_zakaz.Caption+';';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.ExecSQL;
datamodule1.Query_add.Close;
DecodeDate(Now(), myYear, myMonth, myDay); DecodeTime(Now(), myHour, myMin, mySec, myMilli);
date_sql := inttostr(myYear)+'-'+inttostr(myMonth)+'-'+inttostr(myDay)+'-'+inttostr(myHour)+'-
'+inttostr(myMin)+'-'+inttostr(mySec);
buf_zapros := 'INSERT INTO
comment_zakaz(tabel_nomer,datetime_comment,text_comment,id_zakaz,id_gruppa) VALUES ('
+buf_kav+form_main.Label_tabel_nomer.Caption+buf_kav+','
+buf_kav+date_sql+buf_kav+','
+buf_kav+'Обращение взято в работу '+buf_kav+','
+form_zakaz_work.Label_zakaz.Caption+','
+form_main.Label_gruppa.Caption+');';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.ExecSQL;
datamodule1.Query_add.Close;
//узнаю статус заказа
buf_zapros := 'SELECT name_status from zakaz,status WHERE zakaz.id_status = status.id_status AND id_zakaz
='
+form_zakaz_work.Label_zakaz.Caption+';';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.Open;
datamodule1.Query_add.First;
form_zakaz_work.Edit_status.Text :=datamodule1.Query_add.Fields[0].AsString;
datamodule1.Query_add.Close;
datamodule1.Query_view_zakaz.Active := False; datamodule1.Query_view_zakaz.Active := True;
form_view_zakaz.DBGrid_zakaz.Columns[2].Width := 300;
form_view_zakaz.DBGrid_zakaz.Columns[4].Width := 300;
118
118
form_view_zakaz.DBGrid_zakaz.Columns[5].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[6].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[7].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[8].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[9].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[10].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[11].Visible := False;
view_comment_zakaz(); view_usluga;
//отображаю клавиши
form_zakaz_work.Button_add.Visible := False; form_zakaz_work.Button_pause.Visible := True;
form_zakaz_work.Button_close.Visible := True; form_zakaz_work.Button_perenaznach.Visible := True
end;
procedure TForm_zakaz_work.Button_closeClick(Sender: TObject);
var buf_zapros,buf_kav : string;
myYear, myMonth, myDay : Word; date_sql : string;
myHour, myMin, mySec, myMilli : Word; run_procedure : boolean;
begin
buf_kav := '''';
run_procedure := True;
form_zakaz_work.Label_vid.Caption := ''; form_zakaz_work.Label_usluga.Caption := '';
form_zakaz_work.Label14.Caption := '';
///проверяю введенные данные
if length(form_zakaz_work.Edit_id_vid.Text) = 0 then
begin
run_procedure := False; form_zakaz_work.Label_vid.Caption := 'Не введено название вида деятельности';
end;
if length(form_zakaz_work.Edit_usluga.Text) = 0 then
begin
run_procedure := False; form_zakaz_work.Label_usluga.Caption := 'Не введено название типа работ';
end;
if length(form_zakaz_work.Edit_time.Text) = 0 then
begin
run_procedure := False; form_zakaz_work.Label14.Caption := 'Не введено время выполнения работ';
end;
if run_procedure then
begin
DecodeDate(Now(), myYear, myMonth, myDay); date_sql := inttostr(myYear)+'-'+inttostr(myMonth)+'-
'+inttostr(myDay);
buf_zapros := 'UPDATE zakaz SET id_status = 5, date_end = '+buf_kav+date_sql+buf_kav
+' , tabel_nomer = '+buf_kav+form_main.Label_tabel_nomer.Caption+buf_kav
119
119
+' , time_zakaz = '+form_zakaz_work.Edit_time.Text
+' WHERE id_zakaz = '+form_zakaz_work.Label_zakaz.Caption+';';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.ExecSQL;
datamodule1.Query_add.Close;
DecodeDate(Now(), myYear, myMonth, myDay);
DecodeTime(Now(), myHour, myMin, mySec, myMilli);
date_sql := inttostr(myYear)+'-'+inttostr(myMonth)+'-'+inttostr(myDay)+'-'+inttostr(myHour)+'-
'+inttostr(myMin)+'-'+inttostr(mySec);
buf_zapros := 'INSERT INTO
comment_zakaz(tabel_nomer,datetime_comment,text_comment,id_zakaz,id_gruppa) VALUES ('
+buf_kav+form_main.Label_tabel_nomer.Caption+buf_kav+','
+buf_kav+date_sql+buf_kav+','
+buf_kav+'Обращение выполнено '+buf_kav+','
+form_zakaz_work.Label_zakaz.Caption+','
+form_main.Label_gruppa.Caption+');';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.ExecSQL;
datamodule1.Query_add.Close;
//узнаю статус заказа
buf_zapros := 'SELECT name_status from zakaz,status WHERE zakaz.id_status = status.id_status AND
id_zakaz ='
+form_zakaz_work.Label_zakaz.Caption+';';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.Open;
datamodule1.Query_add.First; form_zakaz_work.Edit_status.Text
:=datamodule1.Query_add.Fields[0].AsString;
datamodule1.Query_add.Close;
datamodule1.Query_view_zakaz.Active := False;
datamodule1.Query_view_zakaz.Active := True; form_view_zakaz.DBGrid_zakaz.Columns[2].Width :=
300;
form_view_zakaz.DBGrid_zakaz.Columns[4].Width := 300;
form_view_zakaz.DBGrid_zakaz.Columns[5].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[6].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[7].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[8].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[9].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[10].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[11].Visible := False; view_comment_zakaz();
120
120
//отображаю клавиши
form_zakaz_work.Button_add.Visible := False; form_zakaz_work.Button_pause.Visible := False;
form_zakaz_work.Button_close.Visible := False; form_zakaz_work.Button_perenaznach.Visible := False;
form_zakaz_work.Button_close_zakaz.Visible := True end;//if run_procedure then
end;
procedure TForm_zakaz_work.Button_close_zakazClick(Sender: TObject);
var buf_zapros : string;
begin
buf_zapros := 'UPDATE zakaz SET id_status = 6 WHERE id_zakaz =
'+form_zakaz_work.Label_zakaz.Caption+';';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.ExecSQL;
datamodule1.Query_add.Close;
//обновляю заказы на форме
datamodule1.Query_view_zakaz.Active := False;
datamodule1.Query_view_zakaz.Active := True;
form_view_zakaz.DBGrid_zakaz.Columns[2].Width := 300;
form_view_zakaz.DBGrid_zakaz.Columns[4].Width := 300;
form_view_zakaz.DBGrid_zakaz.Columns[5].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[6].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[7].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[8].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[9].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[10].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[11].Visible := False;
//закрываю форму работы с заказом
form_zakaz_work.Close;
end;
procedure TForm_zakaz_work.Button_pauseClick(Sender: TObject);
var buf_zapros,buf_kav : string;
myYear, myMonth, myDay : Word; date_sql : string;
myHour, myMin, mySec, myMilli : Word;
begin
buf_kav := '''';
buf_zapros := 'UPDATE zakaz SET id_status = 4, date_end = Null, tabel_nomer =
'+buf_kav+form_main.Label_tabel_nomer.Caption+buf_kav
+' WHERE id_zakaz = '+form_zakaz_work.Label_zakaz.Caption+';';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
121
121
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.ExecSQL;
datamodule1.Query_add.Close;
DecodeDate(Now(), myYear, myMonth, myDay); DecodeTime(Now(), myHour, myMin, mySec, myMilli);
date_sql := inttostr(myYear)+'-'+inttostr(myMonth)+'-'+inttostr(myDay)+'-'+inttostr(myHour)+'-
'+inttostr(myMin)+'-'+inttostr(mySec);
buf_zapros := 'INSERT INTO
comment_zakaz(tabel_nomer,datetime_comment,text_comment,id_zakaz,id_gruppa) VALUES ('
+buf_kav+form_main.Label_tabel_nomer.Caption+buf_kav+','
+buf_kav+date_sql+buf_kav+','
+buf_kav+'Обращение приостановленно '+buf_kav+','
+form_zakaz_work.Label_zakaz.Caption+','
+form_main.Label_gruppa.Caption+');';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.ExecSQL;
datamodule1.Query_add.Close;
//узнаю статус заказа
buf_zapros := 'SELECT name_status from zakaz,status WHERE zakaz.id_status = status.id_status AND id_zakaz
='
+form_zakaz_work.Label_zakaz.Caption+';';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.Open;
datamodule1.Query_add.First; form_zakaz_work.Edit_status.Text
:=datamodule1.Query_add.Fields[0].AsString; datamodule1.Query_add.Close;
datamodule1.Query_view_zakaz.Active := False datamodule1.Query_view_zakaz.Active := True;
form_view_zakaz.DBGrid_zakaz.Columns[2].Width := 300;
form_view_zakaz.DBGrid_zakaz.Columns[4].Width := 300;
form_view_zakaz.DBGrid_zakaz.Columns[5].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[6].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[7].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[8].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[9].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[10].Visible := False;
form_view_zakaz.DBGrid_zakaz.Columns[11].Visible := False;
//отображаю клавиши
form_zakaz_work.Button_add.Visible := True; form_zakaz_work.Button_pause.Visible := False;
form_zakaz_work.Button_close.Visible := True; form_zakaz_work.Button_perenaznach.Visible := True;
view_comment_zakaz();
end;
procedure TForm_zakaz_work.Button_perenaznachClick(Sender: TObject);
begin form_change_gruppa.ShowModal;end;
122
122
procedure TForm_zakaz_work.Edit_timeKeyPress(Sender: TObject; var Key: Char);
begin if Key in ['0'..'9',#8] then else key :=#0end;
procedure TForm_zakaz_work.FormCreate(Sender: TObject);
begin
form_zakaz_work.Label_vid.Caption := ''; form_zakaz_work.Label_usluga.Caption := '';
form_zakaz_work.Label14.Caption := '';end;
procedure TForm_zakaz_work.FormShow(Sender: TObject);
begin view_comment_zakaz(); view_usluga;end;
procedure TForm_zakaz_work.SpeedButton1Click(Sender: TObject);
begin form_add_usluga.ShowModal;end;
procedure TForm_zakaz_work.view_comment_zakaz;
var buf_zapros : string;
begin
//узнаю комменты по заказу
buf_zapros := 'SELECT datetime_comment,family,first_name,second_name,name_gruppa,text_comment FROM
comment_zakaz,gruppa,sotrudnik WHERE comment_zakaz.id_gruppa = gruppa.id_gruppa AND
sotrudnik.tabel_nomer = comment_zakaz.tabel_nomer AND '
+' comment_zakaz.id_zakaz = '+form_zakaz_work.Label_zakaz.Caption+';';
datamodule1.Query_view_comment.Close; datamodule1.Query_view_comment.SQL.Clear;
datamodule1.Query_view_comment.SQL.Text := buf_zapros;
datamodule1.Query_view_comment.Open; datamodule1.Query_view_comment.First;
form_zakaz_work.Memo_comment.Text := '';
while not datamodule1.Query_view_comment.Eof do
begin
form_zakaz_work.Memo_comment.Lines.Add(datamodule1.Query_view_comment.Fields[0].asstring+' -
'+datamodule1.Query_view_comment.Fields[1].asstring+'
'+datamodule1.Query_view_comment.Fields[2].asstring+' '+datamodule1.Query_view_comment.Fields[3].asstring
+ ' - '+datamodule1.Query_view_comment.Fields[4].asstring);
form_zakaz_work.Memo_comment.Lines.Add(datamodule1.Query_view_comment.Fields[5].asstring);
form_zakaz_work.Memo_comment.Lines.Add(' ');
datamodule1.Query_view_comment.Next;
end;
end;
end.
Form__Sotrudnik.pas
unit Form__sotrudnik;
interface
uses
123
123
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.DB, Vcl.StdCtrls, Vcl.Grids,
Vcl.DBGrids;
type
TForm_sotrudnik = class(TForm)
Label_tabel_nomer: TLabel;
Label1: TLabel;
DBGrid_sotrudnik: TDBGrid;
Button_update: TButton;
Button_delete: TButton;
GroupBox1: TGroupBox;
DBGrid_dostup: TDBGrid;
Edit_family: TEdit;
Edit_login: TEdit;
Edit_pasword: TEdit;
Edit_name: TEdit;
Edit_second_name: TEdit;
Edit_phone: TEdit;
Button_add: TButton;
Edit_tabel_nomer: TEdit;
procedure update_sotrudnik();
procedure add_sotrudnik();
procedure Button_addClick(Sender: TObject);
procedure Button_updateClick(Sender: TObject);
procedure Button_deleteClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form_sotrudnik: TForm_sotrudnik;
implementation
uses datamodule;
{$R *.dfm}
procedure TForm_sotrudnik.Button_addClick(Sender: TObject);
var buf_zapros : string;
buf_kav : string;
124
124
run_procedure : boolean;
begin
buf_kav := ''''; run_procedure := True;
//чищу сообщение об ошибке
Form_sotrudnik.Label7.Caption := ''; Form_sotrudnik.Label12.Caption := '';
Form_sotrudnik.Label13.Caption := ''; Form_sotrudnik.Label14.Caption := '';
Form_sotrudnik.Label16.Caption := ''; Form_sotrudnik.Label10.Caption := '';
Form_sotrudnik.Label11.Caption := '';
//проверяю введенные данные
if length(Form_sotrudnik.Edit_family.Text) = 0 then
begin
run_procedure := False; Form_sotrudnik.Label7.Caption := 'Не введена фамилия';
end;
if length(Form_sotrudnik.Edit_second_name.Text) = 0 then
begin
run_procedure := False; Form_sotrudnik.Label13.Caption := 'Не введено отчество';
end;
if length(Form_sotrudnik.Edit_name.Text) = 0 then
begin
run_procedure := False; Form_sotrudnik.Label12.Caption := 'Не введено имя';
end;
if length(Form_sotrudnik.Edit_phone.Text) = 0 then
begin
run_procedure := False; Form_sotrudnik.Label14.Caption := 'Не введен телефон';
end;
if length(Form_sotrudnik.Edit_login.Text) = 0 then
begin
run_procedure := False; Form_sotrudnik.Label10.Caption := 'Не введен логин';
end
else
begin
//узнаю ест ьтакой таб номер в БД или нет
buf_zapros := 'SELECT login FROM login where login =
'+buf_kav+Form_sotrudnik.Edit_login.Text+buf_kav+';';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.Open;
if (datamodule1.Query_add.RecordCount <> 0) and (Form_sotrudnik.Button_add.Caption <> 'Обновить') then
begin
run_procedure := False; Form_sotrudnik.Label10.Caption := 'Такой логин уже есть в БД';
end;
125
125
datamodule1.Query_add.Close;
end;
if length(Form_sotrudnik.Edit_pasword.Text) < 8 then
begin
run_procedure := False; Form_sotrudnik.Label11.Caption := 'Не введен пароль или длина меньше 8
символов';
end;
if length(Form_sotrudnik.Edit_tabel_nomer.Text) = 0 then
begin
run_procedure := False; Form_sotrudnik.Label16.Caption := 'Не введен табельный номер';
end
else begin
//узнаю есть такой таб номер в БД или нет
buf_zapros := 'SELECT tabel_nomer FROM sotrudnik where tabel_nomer =
'+buf_kav+Form_sotrudnik.Edit_tabel_nomer.Text+buf_kav+';';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.Open;
if (datamodule1.Query_add.RecordCount <> 0) and (Form_sotrudnik.Button_add.Caption <> 'Обновить') then
begin
run_procedure := False;
Form_sotrudnik.Label16.Caption := 'Такой табельный номер есть в БД';
end;
datamodule1.Query_add.Close;
end;
if run_procedure then
begin
if Form_sotrudnik.Button_add.Caption = 'Добавить' then add_sotrudnik()
else update_sotrudnik();
//чищу поля ввода
Form_sotrudnik.Edit_family.Text := ''; Form_sotrudnik.Edit_login.Text := '';
Form_sotrudnik.Edit_pasword.Text := ''; Form_sotrudnik.Edit_name.Text := '';
Form_sotrudnik.Edit_second_name.Text := ''; Form_sotrudnik.Edit_phone.Text := '';
Form_sotrudnik.Edit_tabel_nomer.Text := '';
//обновляю данные на форме
datamodule1.Query_view_sotrudnik.Active := False;
datamodule1.Query_view_sotrudnik.Active := True;
form_sotrudnik.DBGrid_sotrudnik.Columns[1].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[2].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[3].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[4].Width := 180;
126
126
form_sotrudnik.DBGrid_sotrudnik.Columns[5].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[6].Width := 180;
end;
end;
procedure TForm_sotrudnik.Button_deleteClick(Sender: TObject);
var buf_zapros, buf_kav : string;
begin
buf_kav := '''';
if form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.RecordCount <> 0 then
begin
buf_zapros := 'DELETE FROM sotrudnik WHERE tabel_nomer =
'+buf_kav+form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.Fields[0].AsString+buf_kav+';';
datamodule1.Query_add.Close; datamodule1.Query_add.SQL.Clear;
datamodule1.Query_add.SQL.Text := buf_zapros; datamodule1.Query_add.ExecSQL;
datamodule1.Query_add.Close;
//обновляю данные на форме
datamodule1.Query_view_sotrudnik.Active := False; datamodule1.Query_view_sotrudnik.Active := True;
form_sotrudnik.DBGrid_sotrudnik.Columns[1].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[2].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[3].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[4].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[5].Width := 180;
form_sotrudnik.DBGrid_sotrudnik.Columns[6].Width := 180;
end;//if form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.RecordCount <> 0 then
end;
procedure TForm_sotrudnik.Button_updateClick(Sender: TObject);
var buf_zapros : string;
buf_kav : string;
begin
if form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.RecordCount <> 0 then
begin
form_sotrudnik.Edit_tabel_nomer.Text :=
form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.Fields[0].AsString;
form_sotrudnik.Edit_family.Text := form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.Fields[1].AsString;
form_sotrudnik.Edit_name.Text := form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.Fields[2].AsString;
form_sotrudnik.Edit_second_name.Text :=
form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.Fields[3].AsString;
form_sotrudnik.Edit_phone.Text := form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.Fields[4].AsString;
form_sotrudnik.Edit_login.Text := form_sotrudnik.DBGrid_sotrudnik.DataSource.DataSet.Fields[5].AsString;
form_sotrudnik.Button_add.Caption := 'Обновить';

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

"Автоматизация обработки заявок ООО "Проектно-Строительная Компания"
"Автоматизация процесса аттестации персонала для ООО "Нэт Бай Нэт Холдинг"
"Анализ интернет-активности конкурентов ( на примере конкурентов "Газпром нефть")
"Бухгалтерский учёт и аудит расчётов с подотчётними лицами в организации на примере ООО "ЛОЦ 10""
«Психологическое сопровождение персонала в организации на примере ООО «Крокус»
Cовершенствование деловой оценки персонала в организации (на примере ООО "Даймонд кейтеринг развитие")
IPO - инструмент финансирования деятельности организации. На примере ПАО «Нефтяная компания «Лукойл»
PR как средство продвижения организации (на примере ПАО "Тамбовский завод "Комсомолец им. Н.С. Артемова")
PR-коммуникации в сфере общественного питания (на примере кафе-кондитерской «Cream Cheese»)
SMM как средство повышения эффективности работы учреждений социокультурной сферы (на примере Малого театра)