Готовые работы
Дипломная работа
- Дипломная работа
- Доклад
- Курсовая работа
- Ответы на билеты
- Реферат
- Эссе
Информационные технологии

Внедрение CRM систем для повышения эффективности деятельности компании на примере ЗАО Балтийская климатическая кампания

Заказать уникальную дипломную работу

Тип работы: Дипломная работа

Предмет: Информационные технологии

106 106 страниц
51 + 51 источник
Добавлена 18.07.2013

4 785 руб.

Содержание
Часть работы
Список литературы
Вопросы/Ответы

ВВЕДЕНИЕ
1 КОНСТРУКТОРСКИЙ РАЗДЕЛ
1.1 Анализ бизнес-процессов и характеристика предприятия
1.2 Анализ существующих разработок и выбор стратегии автоматизации
1.3 Описание алгоритмического обеспечения системы
1.4 Описание программного обеспечения системы
2 ТЕХНОЛОГИЧЕСКИЙ РАЗДЕЛ
2.1 Информационное обеспечение системы
2.2 Характеристика технологических процессов сбора, хранения и вывода
данных
2.3 Внедрение программной системы
2.4 Контрольный пример функционирования системы
3 ТЕХНИКО-ЭКОНОМИЧЕСКИЙ РАЗДЕЛ
3.1. Расчет затрат на разработку программных средств
3.1.1. Единицы измерения технико-экономических показателей процесса разработки программы
3.1.2. Составляющие затрат на разработку программных средств
3.1.3. Расчет затрат на непосредственную разработку программы
3.1.4 Расчет затрат на материалы
3.1.5 Затраты на использование ЭВМ
3.2. Обобщение затрат на разработку программных средств
4 БЕЗОПАСНОСТЬ ЖИЗНЕДЕЯТЕЛЬНОСТИ И ЭКОЛОГИЯ
4.1 Обеспечение безопасности при эксплуатации компьютерной техники
4.1.1 Электромагнитные поля и излучения
4.1.2 Неблагоприятный микроклимат рабочей зоны
4.1.3 Повышенный уровень шума
4.1.4 Повышенный уровень вибрации
4.1.5 Повышенное значение напряжения в электрической цепи
4.2 Расчет общей освещенности
4.3 Пожарная безопасность
ЗАКЛЮЧЕНИЕ
ЛИТЕРАТУРА
ПРИЛОЖЕНИЕ А ТЕКСТ ПРОГРАММЫ CRM СИСТЕМЫ

Фрагмент для ознакомления

dfm}function TMainClientsForm.IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; var i: Integer; begin Result := False; for i := Pred(AFormName.MDIChildCount) DownTo 0 do if (AFormName.MDIChildren[i].Name = AMDIChildName) then begin Result := True; AFormName.MDIChildren[i].Free; end; end; function TMainClientsForm.IsFormOpen(const FormName : string): Boolean; var i: Integer; begin Result := False; for i := Screen.FormCount - 1 DownTo 0 do if (Screen.Forms[i].Name = FormName) then begin Result := True; Break; end; end; procedure TMainClientsForm.BuildGridDatabaseDirectoryItem(sCaption:String; ds:TDataSource); begin //создаем форму DirectoryForm:=TDBDirectoryTemplateForm.Create(Owner); DirectoryForm.TableDBGrid.DataSource:=ds; DirectoryForm.Top:=0; DirectoryForm.Left:=0; DirectoryForm.Caption:=sCaption; end; procedure TMainClientsForm.N12Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable9;mainclientsform.ADOTable9.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('Тарифы', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='Ид. ';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' Работы ';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' Тариф ';end;procedure TMainClientsForm.N6Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable1; mainclientsform.ADOTable1.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('Работы', mainclientsform.DataSource1);end;procedure TMainClientsForm.N7Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable2;mainclientsform.ADOTable2.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('Договоры', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='Ид. договора';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' Номер ';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' Дата ';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='ИД. фирм';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='ИД клиент';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='дата поставки'; end; procedure TMainClientsForm.N8Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable3;mainclientsform.ADOTable3.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('Клиенты', mainclientsform.DataSource1);directoryForm.TableDBGrid.Fields[0].DisplayLabel:=' ИД. ';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:=' Фамилия ';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:=' Имя';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Отчество';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='телефон';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='адрес';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='банк';DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='реквизит';end;procedure TMainClientsForm.N9Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable4;mainclientsform.ADOTable4.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Строительные фирмы', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='Ид. ';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Название';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Телефон';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='Адрес';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='Контактное лицо';end;procedure TMainClientsForm.RzRapidFireButton1Click(Sender: TObject);begin MainClientsForm.N3Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton2Click(Sender: TObject);begin MainClientsForm.N4Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton3Click(Sender: TObject);beginMainClientsForm.N15Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton4Click(Sender: TObject);begin MainClientsForm.N14Click(Sender);end;procedure TMainClientsForm.RzRapidFireButton5Click(Sender: TObject);begin MainClientsForm.Close;end;procedure TMainClientsForm.N10Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable5;mainclientsform.ADOTable5.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Информация о стенде', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Информация';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='назначение';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='Примечание ';end;procedure TMainClientsForm.N20Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable6;mainclientsform.ADOTable6.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Размеры', mainclientsform.DataSource1);end;procedure TMainClientsForm.N21Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable7;mainclientsform.ADOTable7.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Смета', mainclientsform.DataSource1);end;procedure TMainClientsForm.N22Click(Sender: TObject); begin IsMDIChildOpen(MainClientsForm,'addForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; MainClientsForm.N6Click(sender); prosmForm:=Taddform.Create(Owner); prosmForm.Top:=230; prosmForm.Left:=0; prosmForm.Width:=500; prosmForm.Height:=200; prosmForm.Caption:='просмотр записей'; prosmForm.DBNavigator2.Visible:=true; mainflag:=true; prosmForm.Show; prosmForm.Button1.Visible:=false; prosmForm.GroupBox3.Visible:=true; prosmForm.GroupBox1.Visible:=false; prosmForm.GroupBox2.Visible:=false; prosmForm.GroupBox4.Visible:=false; MainClientsForm.DataSource1.DataSet.last;end;procedure TMainClientsForm.FormCreate(Sender: TObject); var NewConnection: Widestring;beginNewConnection := PromptDataSource(Handle, MainClientsForm.ADOConnection1.Connectionstring);MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;MainClientsForm.ADOConnection1.Connected:=true;MainClientsForm.ADOTable1.Active:=true;MainClientsForm.ADOTable2.Active:=true;MainClientsForm.ADOTable3.Active:=true;MainClientsForm.ADOTable4.Active:=true;MainClientsForm.ADOTable5.Active:=true;MainClientsForm.ADOTable6.Active:=true;MainClientsForm.ADOTable7.Active:=true;MainClientsForm.ADOTable8.Active:=true;end;procedure TMainClientsForm.N3Click(Sender: TObject);var dobForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'addForm'); dobForm:=Taddform.Create(Owner); dobForm.Top:=240; dobForm.Left:=3; dobForm.Caption:='добавление клиента'; dobForm.Show; dobForm.Button1.Visible:=true; dobForm.GroupBox1.Visible:=false; dobForm.GroupBox3.Visible:=false; dobForm.GroupBox4.Visible:=false;end;procedure TMainClientsForm.DataSource1DataChange(Sender: TObject; Field: TField);beginif mainflag thenbegin prosmForm.edit5.text:=''; prosmForm.edit50.text:=''; prosmForm.edit51.text:=''; prosmForm.edit47.text:=''; prosmForm.edit17.text:=''; prosmForm.edit4.text:=''; prosmForm.edit3.text:=''; prosmForm.edit53.text:=''; prosmForm.edit55.text:=''; prosmForm.edit49.text:=''; prosmForm.edit54.text:=''; prosmForm.edit7.text:=''; prosmForm.edit47.text:=''; prosmForm.edit44.text:=''; prosmForm.edit39.text:=''; prosmForm.edit37.text:=''; prosmForm.edit41.text:=''; prosmForm.edit35.text:=''; prosmForm.edit20.text:=''; prosmForm.edit41.text:=''; prosmForm.edit45.text:=''; prosmForm.edit46.text:=''; prosmForm.edit48.text:=''; id_inform:=MainClientsForm.ADOTable1.FieldByName('id_inform').AsInteger; id_dogovor:=MainClientsForm.ADOTable1.FieldByName('id_dogovor').AsInteger; id_razmer:=MainClientsForm.ADOTable1.FieldByName('id_razmer').AsInteger; id_smeta:=MainClientsForm.ADOTable1.FieldByName('id_smeta').AsInteger; status:=MainClientsForm.ADOTable1.FieldByName('status').asstring; pokrut1:=MainClientsForm.ADOTable1.FieldByName('pokrut').asstring; id_stroit_mat:=MainClientsForm.ADOTable1.FieldByName('id_stroit_mat').AsInteger; prosmForm.edit41.text:=inttostr(id_inform); prosmForm.edit45.text:=inttostr(id_stroit_mat); prosmForm.edit48.text:=status; prosmForm.edit46.text:=pokrut1; sql_str:='SELECT * from informac where id_inform= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_inform; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; inform:=MainClientsForm.ADOQuery1.FieldByName('inform').AsString; prosmForm.Edit5.Text:=inform; naznach:=MainClientsForm.ADOQuery1.FieldByName('naznach').AsString; prosmForm.Edit50.Text:=naznach; notes:=MainClientsForm.ADOQuery1.FieldByName('notes').AsString; prosmForm.Edit51.Text:=notes; sql_str:='SELECT * from razmer where id_ramer= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_razmer; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; dlina:=MainClientsForm.ADOQuery1.FieldByName('dlina').Asfloat; prosmForm.Edit47.Text:=floattostr(dlina); shirina:=MainClientsForm.ADOQuery1.FieldByName('shirina').Asfloat; prosmForm.Edit17.Text:=floattostr(shirina); tolshina:=MainClientsForm.ADOQuery1.FieldByName('tolshina').Asfloat; prosmForm.Edit4.Text:=floattostr(tolshina); vusota_kreplen:=MainClientsForm.ADOQuery1.FieldByName('tolshina').Asfloat; prosmForm.Edit3.Text:=floattostr(vusota_kreplen); ploshad:=MainClientsForm.ADOQuery1.FieldByName('ploshad').Asfloat; prosmForm.Edit49.Text:=floattostr(ploshad); dop_razmer_zn1:=MainClientsForm.ADOQuery1.FieldByName('dop_razmer_zn1').Asfloat; prosmForm.Edit53.Text:=floattostr(dop_razmer_zn1); dop_razmer_zn2:=MainClientsForm.ADOQuery1.FieldByName('dop_razmer_zn2').Asfloat; prosmForm.Edit55.Text:=floattostr(dop_razmer_zn2); dop_razmer1:=MainClientsForm.ADOQuery1.FieldByName('dop_razmer1').AsString; prosmForm.Edit54.Text:=dop_razmer1; dop_razmer2:=MainClientsForm.ADOQuery1.FieldByName('dop_razmer2').AsString; prosmForm.Edit7.Text:=dop_razmer2; sql_str:='SELECT * from smeta where id_smeta= :P11'; MainClientsForm.ADOQuery1.Active:=false; MainClientsForm.ADOQuery1.SQL.Clear; P11 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P11.Name:='P11'; p11.DataType := ftinteger; P11.Value:=id_smeta; P11.Size:=4; MainClientsForm.ADOQuery1.SQL.Add(sql_str); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; smeta:=MainClientsForm.ADOQuery1.FieldByName('smeta').Asfloat; prosmForm.Edit38.Text:=floattostr(smeta); mater:=MainClientsForm.ADOQuery1.FieldByName('mater').Asfloat; prosmForm.Edit44.Text:=floattostr(mater); rabot:=MainClientsForm.ADOQuery1.FieldByName('rabot').Asfloat; prosmForm.Edit39.Text:=floattostr(rabot); id_tarif:=MainClientsForm.ADOQuery1.FieldByName('id_tarif').AsInteger; prosmForm.Edit20.Text:=inttostr(id_tarif); pokrut:=MainClientsForm.ADOQuery1.FieldByName('pokrut').Asfloat; prosmForm.Edit37.Text:=floattostr(pokrut); osnova:=MainClientsForm.ADOQuery1.FieldByName('osnova').Asfloat; prosmForm.Edit31.Text:=floattostr(osnova); kreplen:=MainClientsForm.ADOQuery1.FieldByName('kreplen').Asfloat; prosmForm.Edit35.Text:=floattostr(kreplen);end;end;procedure TMainClientsForm.DataSource2DataChange(Sender: TObject; Field: TField);beginif mainflag thenbeginend;end;procedure TMainClientsForm.N4Click(Sender: TObject);var zakForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'zakForm'); IsMDIChildOpen(MainClientsForm,'addForm'); zakForm:=Taddform.Create(Owner); zakForm.Top:=240; zakForm.Left:=3; zakForm.Caption:='новый макет'; zakForm.Show; zakForm.Button1.Visible:=true; zakForm.GroupBox1.Visible:=false; zakForm.GroupBox2.Visible:=false; zakForm.GroupBox4.Visible:=false; zakForm.GroupBox3.Visible:=true; zakForm.GroupBox3.Left:=2; zakForm.GroupBox3.Top:=2; // show;end;procedure TMainClientsForm.N14Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск макета'; nomer_poisk:=1; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false;end;procedure TMainClientsForm.N15Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск клиента '; nomer_poisk:=2; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.Label1.Caption:='Фамилия'; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false;end;procedure TMainClientsForm.N16Click(Sender: TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск клиента'; nomer_poisk:=3; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; end;procedure TMainClientsForm.N17Click(Sender: TObject);var poisk:Tparampoik;begin end;procedure TMainClientsForm.N11Click(Sender: TObject);var naklForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'naklForm'); IsMDIChildOpen(MainClientsForm,'addForm'); naklForm:=Taddform.Create(Owner); naklForm.Top:=240; naklForm.Left:=3; naklForm.Show; naklForm.GroupBox1.Visible:=false; naklForm.GroupBox2.Visible:=false; naklForm.GroupBox3.Visible:=false; naklform.GroupBox4.Visible:=true;end;procedure TMainClientsForm.N19Click(Sender: TObject);var poisk:Tparampoik;begin end;procedure TMainClientsForm.N1Click(Sender: TObject);var dobForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'addForm'); dobForm:=Taddform.Create(Owner); dobForm.Top:=240; dobForm.Left:=3; dobForm.Caption:='добавление записи'; dobForm.Show; dobForm.Button1.Visible:=false; dobForm.GroupBox1.Visible:=true; dobForm.GroupBox3.Visible:=false; dobForm.GroupBox2.Visible:=false; dobForm.GroupBox4.Visible:=false;end;procedure TMainClientsForm.N18Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;mainclientsform.ADOTable8.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('строительные материалы ', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='ИД.';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Наименование';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ед. измерения';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='производитель ';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='примечание';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='стоимость';end;procedure TMainClientsForm.N23Click(Sender: TObject);beginend;procedure TMainClientsForm.N24Click(Sender: TObject);beginend;procedure TMainClientsForm.Button1Click(Sender: TObject);begin MainClientsForm.N22Click(sender);end;end.unit addsorce;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids, StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls, DBCtrls, comobj;type TaddForm = class(TForm) Panel1: TPanel; GroupBox3: TGroupBox; GroupBox2: TGroupBox; Button1: TButton; Label30: TLabel; Label27: TLabel; Label23: TLabel; Label18: TLabel; Label15: TLabel; Edit18: TEdit; Edit21: TEdit; Edit26: TEdit; Label25: TLabel; Edit28: TEdit; Label33: TLabel; Edit36: TEdit; Edit30: TEdit; Edit33: TEdit; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Label9: TLabel; Label12: TLabel; Label42: TLabel; Label45: TLabel; Label48: TLabel; Label49: TLabel; Label50: TLabel; Label51: TLabel; Label54: TLabel; Edit4: TEdit; Edit5: TEdit; Edit17: TEdit; Edit44: TEdit; Edit45: TEdit; Edit46: TEdit; Edit47: TEdit; Edit48: TEdit; Edit49: TEdit; Edit50: TEdit; Edit51: TEdit; Edit53: TEdit; Edit54: TEdit; Edit55: TEdit; Label55: TLabel; Button2: TButton; Label3: TLabel; Edit3: TEdit; Label10: TLabel; Edit7: TEdit; GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; Label13: TLabel; Label17: TLabel; Label19: TLabel; Button3: TButton; Edit1: TEdit; Edit2: TEdit; Edit9: TEdit; Edit11: TEdit; Edit14: TEdit; GroupBox4: TGroupBox; Label8: TLabel; Edit6: TEdit; Label11: TLabel; Edit8: TEdit; Label14: TLabel; Edit10: TEdit; Label20: TLabel; Edit12: TEdit; Label22: TLabel; Edit13: TEdit; Edit15: TEdit; Label26: TLabel; Edit16: TEdit; Button4: TButton; Label24: TLabel; DBNavigator2: TDBNavigator; Button5: TButton; Label16: TLabel; Edit19: TEdit; Label21: TLabel; Edit24: TEdit; Label29: TLabel; Edit27: TEdit; Label28: TLabel; Edit20: TEdit; Label32: TLabel; Label34: TLabel; Edit31: TEdit; Label35: TLabel; Edit35: TEdit; Label36: TLabel; Label41: TLabel; Edit37: TEdit; Edit38: TEdit; Label43: TLabel; Edit39: TEdit; Label52: TLabel; Edit41: TEdit; procedure Button5Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end;var addForm: TaddForm; naim:string;ed_izm:string;kolvo:integer;cena:real;nomerpartiya:string;sernum:string;srok_godnost:tdate;data_postavka:tdate;postavchik:string;description:string; location:string; location_part:string; primech:string; Ayear, amonth,aday:word; razmer_part,kol:integer; id_part,idaddional,idlocation,idzapas:integer; idtov,id_proffesiya:integer; Familiya, imya, otchestvo, pasportnomer, pasportvudan:string; dogovor_nomer:string; data_dog,okonch: tdatetime; id_operac:integer;implementationuses MainClients;{$R *.dfm}procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure TaddForm.Button1Click(Sender: TObject); var bank,revizit:string;begin Familiya:=edit18.Text; imya:=edit21.Text; otchestvo:=edit26.Text; // pasportnomer:=edit19.Text; //pasportvudan:=edit19.Text; adres:=edit30.Text; bank:=edit33.Text; revizit:=edit36.Text; dom_tel:=edit28.Text; MainClientsForm.ADOTable3.Active:=true; MainClientsForm.ADOTable3.Insert; MainClientsForm.ADOTable3.FieldByName('fam').AsString:=Familiya; MainClientsForm.ADOTable3.FieldByName('nam').AsString:=imya; MainClientsForm.ADOTable3.FieldByName('sec_nam').AsString:=otchestvo; MainClientsForm.ADOTable3.FieldByName('adres').AsString:=adres; MainClientsForm.ADOTable3.FieldByName('telefon').AsString:=dom_tel; MainClientsForm.ADOTable3.FieldByName('bank').AsString:=bank; MainClientsForm.ADOTable3.FieldByName('rekvizit').AsString:=revizit; MainClientsForm.ADOTable3.Post; id_client:=MainClientsForm.ADOTable3.FieldByName('id_client').AsInteger; {dogovor_nomer:=Edit33.text; data_dog:=strtodate(edit36.Text); okonch:=strtodate(edit37.Text); id_operac:=strtoint(edit39.Text); notes:= Edit38.text; MainClientsForm.ADOTable7.Active:=true; MainClientsForm.ADOTable7.Insert; MainClientsForm.ADOTable7.FieldByName('id_client').AsInteger:=id_client; MainClientsForm.ADOTable7.FieldByName('nomer').AsString:=dogovor_nomer; MainClientsForm.ADOTable7.FieldByName('date').AsDateTime:=data_dog; MainClientsForm.ADOTable7.FieldByName('konec').AsDateTime:=okonch; MainClientsForm.ADOTable7.FieldByName('id_operacyia').AsInteger:=id_operac; MainClientsForm.ADOTable7.FieldByName('notes').AsString:=notes; MainClientsForm.ADOTable7.Post;}end;procedure TaddForm.Button2Click(Sender: TObject);begininform:= edit5.text; ;naznach:=edit50.text;;notes:=edit51.text;; MainClientsForm.ADOTable5.Active:=true; MainClientsForm.ADOTable5.Insert; MainClientsForm.ADOTable5.FieldByName('inform').AsString:= inform; MainClientsForm.ADOTable5.FieldByName('naznach').AsString:= naznach; MainClientsForm.ADOTable5.FieldByName('notes').AsString:= notes; MainClientsForm.ADOTable5.Post; id_inform:=MainClientsForm.ADOTable5.FieldByName('id_inform').AsInteger; dlina:=strtofloat(edit47.Text); shirina:=strtofloat(edit17.Text); tolshina:=strtofloat(edit4.Text); vusota_kreplen:=strtofloat(edit3.Text); dop_raz_zn1:=strtofloat(edit53.Text); dop_raz_zn2:=strtofloat(edit55.Text); ploshad:=strtofloat(edit49.Text); dop_razmer1:=edit54.Text; dop_razmer2:=edit7.Text; MainClientsForm.ADOTable6.Active:=true; MainClientsForm.ADOTable6.Insert; MainClientsForm.ADOTable6.FieldByName('dop_razmer1').AsString:= dop_razmer1; MainClientsForm.ADOTable6.FieldByName('dop_razmer2').AsString:= dop_razmer2; MainClientsForm.ADOTable6.FieldByName('dlina').AsFloat:=dlina; MainClientsForm.ADOTable6.FieldByName('shirina').AsFloat:=shirina; MainClientsForm.ADOTable6.FieldByName('tolshina').AsFloat:= tolshina; MainClientsForm.ADOTable6.FieldByName('vusota_kreplen').AsFloat:=vusota_kreplen; MainClientsForm.ADOTable6.FieldByName('dop_razmer_zn1').AsFloat:=dop_raz_zn1; MainClientsForm.ADOTable6.FieldByName('dop_razmer_zn2').AsFloat:=dop_raz_zn2; MainClientsForm.ADOTable6.FieldByName('ploshad').AsFloat:=dlina; MainClientsForm.ADOTable6.Post; id_razmer:= MainClientsForm.ADOTable6.FieldByName('id_ramer').AsInteger; smeta:= strtofloat(edit47.Text); mater:=strtofloat(edit44.Text); rabot:=strtofloat(edit39.Text); pokrut:=strtofloat(edit37.Text); osnova:=strtofloat(edit31.Text); kreplen:=strtofloat(edit35.Text); id_tarif:=strtoint(edit20.Text); MainClientsForm.ADOTable7.Active:=true; MainClientsForm.ADOTable7.Insert; MainClientsForm.ADOTable7.FieldByName('id_tarif').AsInteger:= id_tarif; MainClientsForm.ADOTable7.FieldByName('smeta').AsFloat:=smeta; MainClientsForm.ADOTable7.FieldByName('mater').AsFloat:=mater; MainClientsForm.ADOTable7.FieldByName('rabot').AsFloat:=rabot; MainClientsForm.ADOTable7.FieldByName('pokrut').AsFloat:=pokrut; MainClientsForm.ADOTable7.FieldByName('osnova').AsFloat:=osnova; MainClientsForm.ADOTable7.FieldByName('kreplen').AsFloat:=kreplen; MainClientsForm.ADOTable7.Post;id_smeta:=MainClientsForm.ADOTable7.FieldByName('id_smeta').AsInteger;id_dogovor:=strtoint(edit41.Text);id_stroit_mat:=strtoint(edit45.Text);status:=edit48.Text;pokrut1:=edit46.Text; MainClientsForm.ADOTable1.Active:=true; MainClientsForm.ADOTable1.Insert; MainClientsForm.ADOTable1.FieldByName('id_inform').AsInteger:= id_inform; MainClientsForm.ADOTable1.FieldByName('id_dogovor').AsInteger:= id_dogovor; MainClientsForm.ADOTable1.FieldByName('id_razmer').AsInteger:= id_razmer; MainClientsForm.ADOTable1.FieldByName('id_smeta').AsInteger:= id_smeta; MainClientsForm.ADOTable1.FieldByName('status').asstring:=status; MainClientsForm.ADOTable1.FieldByName('pokrut').asstring:=pokrut1; MainClientsForm.ADOTable1.FieldByName('id_stroit_mat').AsInteger:= id_stroit_mat; MainClientsForm.ADOTable1.Post;end;procedure TaddForm.Button3Click(Sender: TObject);var tovar, srtkl,name_poisk,sqlwhere,stroka_SQL :string;p1:tparameter;firm1:string; kontakt,nomer_dog:string; id_firm:integer; datad,datak:tdatetime;begin firm1:=edit1.Text; kontakt:=edit2.Text; adres:=edit11.Text; dom_tel:=edit14.Text; MainClientsForm.ADOTable4.Active:=true; MainClientsForm.ADOTable4.Insert; MainClientsForm.ADOTable4.FieldByName('firm').AsString:=Firm1; MainClientsForm.ADOTable4.FieldByName('adres').AsString:=adres; MainClientsForm.ADOTable4.FieldByName('telefon').AsString:=dom_tel; MainClientsForm.ADOTable4.FieldByName('konakt').AsString:=kontakt; MainClientsForm.ADOTable4.Post; id_firm:= MainClientsForm.ADOTable4.FieldByName('id_firm').AsInteger; nomer_dog:=edit1.Text; datad:=strtodate(edit19.Text); id_client:=strtoint(edit24.Text); datak:=strtodate(edit27.Text); MainClientsForm.ADOTable2.Active:=true; MainClientsForm.ADOTable2.Insert; MainClientsForm.ADOTable2.FieldByName('nomer').AsString:=nomer_dog; MainClientsForm.ADOTable2.FieldByName('data').AsDateTime:=datad; MainClientsForm.ADOTable2.FieldByName('id_firm').AsInteger:= id_firm; MainClientsForm.ADOTable2.FieldByName('id_client').AsInteger:= id_client; MainClientsForm.ADOTable2.FieldByName('data_k').AsDateTime:=datak; MainClientsForm.ADOTable2.Post;end;procedure TaddForm.Button4Click(Sender: TObject);var data_sd:tdatetime;id_object:integer;stoimz:real;tarif:real;dog1,dog2:integer;id_operac:integer;data_prim:tdatetime; naimen,edinica,proizvod,notes,rabot:string;begin naimen:=(edit6.text); edinica:=(edit13.text); proizvod:=(edit8.text); notes:=(edit10.text); stoimz:=strtofloat(edit12.text); tarif:=strtofloat(edit16.text); rabot:=edit15.text; MainClientsForm.ADOTable8.Active:=true; MainClientsForm.ADOTable8.Insert; MainClientsForm.ADOTable8.FieldByName('naimen').AsString:= naimen; MainClientsForm.ADOTable8.FieldByName('edinica').AsString:= edinica; MainClientsForm.ADOTable8.FieldByName('proizvod').AsString:= proizvod; MainClientsForm.ADOTable8.FieldByName('notes').AsString:= notes; MainClientsForm.ADOTable8.FieldByName('stoimz').AsFloat:=stoimz; MainClientsForm.ADOTable8.Post; MainClientsForm.ADOTable9.Active:=true; MainClientsForm.ADOTable9.Insert; MainClientsForm.ADOTable9.FieldByName('rabot').AsString:= rabot; MainClientsForm.ADOTable9.FieldByName('tarif').AsFloat:=tarif; MainClientsForm.ADOTable9.Post;end;procedure TaddForm.Button5Click(Sender: TObject);var XlApplication: OleVariant; XLWorkSheet: OleVariant; stoim:real;begin try XlApplication := GetActiveOleObject('Excel.Application'); except XlApplication := CreateOleObject('Excel.Application'); end; XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'act.xlt', 0, true]; XlApplication.Visible := true; XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet; //xlWorkSheet.Range['B1:F1']; XLWorkSheet.cells[3,3]:=inform; XLWorkSheet.cells[4,3]:=naznach; XLWorkSheet.cells[5,3]:=notes; XLWorkSheet.cells[6,3]:=status; XLWorkSheet.cells[7,3]:=pokrut; XLWorkSheet.cells[9,3]:=floattostr(dlina); XLWorkSheet.cells[10,3]:=floattostr(shirina); XLWorkSheet.cells[11,3]:=floattostr(tolshina); XLWorkSheet.cells[12,2]:=dop_razmer1; XLWorkSheet.cells[13,2]:=dop_razmer2; XLWorkSheet.cells[12,3]:=floattostr(dop_raz_zn1); XLWorkSheet.cells[13,3]:=floattostr(dop_raz_zn2); XLWorkSheet.cells[14,3]:=floattostr(ploshad); XLWorkSheet.cells[17,3]:=floattostr(mater); XLWorkSheet.cells[18,3]:=floattostr(osnova); XLWorkSheet.cells[19,3]:=floattostr(pokrut); XLWorkSheet.cells[20,3]:=floattostr(kreplen); XLWorkSheet.cells[21,3]:=floattostr(rabot); stoim:=(mater+osnova+pokrut)*ploshad+kreplen+rabot; XLWorkSheet.cells[22,3]:=floattostr(stoim);end;end.unit DBDirectoryTemplate;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, DBGrids;type TDBDirectoryTemplateForm = class(TForm) TableDBGrid: TDBGrid; procedure FormClose(Sender: TObject; var Action: TCloseAction); private { Private declarations } public { Public declarations } end;var DBDirectoryTemplateForm: TDBDirectoryTemplateForm;implementation{$R *.dfm}procedure TDBDirectoryTemplateForm.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;end.

1.Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.
2.Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.
3.Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.
4.Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.
5.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.
6.Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. – М.: Финансы и статистика, 1995. – 240с.
7.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.
8.Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.
9.Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.
10.Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с.
11.Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Де¬ло, 1995. – 450с.
12.Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с.
13.Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.
14.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.
15.Дайан А. и др. Маркетинг. М., Экономика, 1993.
16.Жидецкий В. Ц. Охрана труда пользователей компьютеров. – К.: «Освгга», 1999.- 186с.
17.Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.
18.Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.
19.Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111 с.
20.Культин Н.Б. Delphi 6: Программирование на OBJECT PASCAL. — М.: Бином, 2001. — 526 с.
21.Культин Н.Б. Delphi 7: Программирование на OBJECT PASCAL. — М.: Бином, 2003. — 535 с.
22.Магнус Я.Р., Катышев П.К., Пересецкий А.А. Эконометрика. Начальный курс. М., Дело, 1997
23.Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
24.Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. –Харьков: Фактор, 2001. – 566с.
25.Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22-27. // www.ITC-UA.COM
26.Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. – 1128с.
27.Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22-27. www.ITC-UA.COM
28.Шумаков П.В., Фаронов В.В. Delphi 5. Руководство разработчика баз данных. — М.: Нолидж, 2000. — 635 с.Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. – М.: Финансы и статистика, 1995. – 240с.
29.Берзин И. Э. Экономика фирмы. М.: Институт международного права и экономики, 1997. - 405 с.
30.Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.
31.Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Де¬ло, 1995. – 450с.
32.Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с.
33.Дайан А. и др. Маркетинг. М., Экономика, 1993.
34.Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.
35.Кирьянова З.В. Теория бухгалтерского учета: Учебник для вузов. — 2-е изд., перераб. и доп. — М.: Финансы и статистика, 1998. — С. 265.
36.Малькова Г.Н. Международные бухгалтерские стандарты (МБС): Учебное пособие. — СПб.: 1997. — С. 147.
37.Савицкая Г.В. Анализ хозяйственной деятельности предприятий: Учебное пособие. — 2-е изд., перераб. и доп. — Минск: Экоперспектива, 1998. — С. 165.
38.Савицкая Г.В. Анализ хозяйственной деятельности предприятия: Учебное пособие. — 7-е изд., испр. — Минск.: Новое знание, 2002. — С.
39.Табурчак П.П. Анализ и диагностика финансово-хозяйственной деятельности предприятия. — СПб.: Химиздат, 2001. — С. 288.
40.Астахова И. Ф. SQL в примерах и задачах/ И. Ф. Астахова, А. П. Толстобров, В.М. Мельников.– М.: Новое знание, 2002.– 176 с.
41.Виейра Р. Программирование баз данных Microsoft SQL Server 2005 для профессионалов.: Пер. с англ. – М.: ООО «И.Д. Вильямс», 2008. – 1072 с.: ил.
42.Грабер М. SQL. Справочное руководство.– М.: Лори, 2001.–354 с.
43.Грабер М. Понимание SQL.– М.: Лори, 1993.–420 с.
44.Грабер М. Справочное руководство по SQL.– М.: Лори, 1997.– 291 с.
45.Грофф Дж., Вайнберг Пол Н. SQL: Полное руководство.–Киев: Издательская группа BHV, McGraw–Hill Companies, 2001.–816 с.
46.Грофф Дж. Энциклопедия SQL.– 3-е изд.– СПб: Питер, 2003.–896 с.
47.Дворжецкий А. SQL: Structured Query Language. Руководство пользователя.–М.: Познавательная Книга Плюс, 2001.–416 с.
48.Дейт, К. Введение в системы баз данных, 7-е издание.: Пер. с англ. — М. : Издательский дом "Вильяме", 2001. — 1072 с. : ил. — Парал. тит. англ..
49.Кириллов В.В,. Громов Г.Ю. Структуризированный язык запросов / Кузнецов С.Д. // Санкт-Петербургский Государственный институт точной механики и оптики (технический университет) Кафедра вычислительной техники – “К”. – (http://www.citforum.ru/database/sql_kg/index.shtml)
50.Кириллов В.В. Структурированный язык запросов (SQL).– СПб.: ИТМО, 1994.– 80 с.
51.Коннолли, Томас, Бегг, Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. 3-е издание.: Пер. с англ. – М.: Издательский дом «Вильяме», 2003. – 1440 с.: с ил. – Парал. Тит. Англ.

Вопрос-ответ:

Что такое CRM система?

CRM система - это информационная система, которая позволяет организации эффективно управлять взаимодействием с клиентами, отслеживать все этапы их взаимодействия, а также улучшать качество обслуживания.

Какая конкретно CRM система рекомендуется для внедрения в ЗАО Балтийская климатическая компания?

Для внедрения в ЗАО Балтийская климатическая компания рекомендуется выбрать CRM систему, обладающую широким функционалом, включающую в себя модули для управления продажами, маркетингом и обслуживанием клиентов. Важно также учитывать требования и особенности компании при выборе CRM системы.

Какой эффект может принести внедрение CRM системы для ЗАО Балтийская климатическая компания?

Внедрение CRM системы может принести множество положительных эффектов для ЗАО Балтийская климатическая компания. Среди них улучшение процессов продаж, повышение уровня обслуживания клиентов, более точное прогнозирование спроса, оптимизация маркетинговых кампаний и увеличение общей эффективности деятельности компании.

Кто будет заниматься внедрением CRM системы в ЗАО Балтийская климатическая компания?

Внедрением CRM системы в ЗАО Балтийская климатическая компания будет заниматься команда специалистов, включающая в себя представителей ЗАО Балтийская климатическая компания и IT-специалистов, которые будут отвечать за настройку и поддержку системы.

Каковы основные этапы внедрения CRM системы?

Основные этапы внедрения CRM системы включают анализ бизнес-процессов и выбор стратегии автоматизации, разработку алгоритмического и программного обеспечения, информационное обеспечение системы, а также характеристику технологических процессов сбора, хранения и вывода данных. Каждый этап требует определенных усилий и ресурсов для успешной реализации проекта внедрения CRM системы.

Зачем нужно внедрение CRM систем для повышения эффективности деятельности компании?

Внедрение CRM систем позволяет компании оптимизировать работу с клиентами, улучшить взаимодействие и коммуникацию с ними, упростить процессы продаж и управления проектами, а также повысить общую эффективность и конкурентоспособность предприятия.

Какая CRM система была выбрана для внедрения в ЗАО Балтийская климатическая кампания?

В ЗАО Балтийская климатическая кампания была выбрана CRM система "1 КОНСТРУКТОРСКИЙ РАЗДЕЛ". Она была выбрана на основе анализа существующих разработок и соответствует потребностям и специфике компании.

Какие преимущества имеет выбранная CRM система?

Выбранная CRM система "1 КОНСТРУКТОРСКИЙ РАЗДЕЛ" имеет ряд преимуществ, включая возможность проводить анализ бизнес-процессов, управлять проектами, хранить и выводить информацию, автоматизировать технологические процессы и повышать эффективность работы компании в целом.

Какое программное обеспечение входит в состав CRM системы?

В состав CRM системы "1 КОНСТРУКТОРСКИЙ РАЗДЕЛ" входит программное обеспечение, позволяющее проводить анализ бизнес-процессов, управлять проектами, хранить и выводить информацию, автоматизировать технологические процессы, а также осуществлять коммуникацию с клиентами и управление отношениями с ними.

Какое информационное обеспечение предусмотрено в CRM системе?

CRM система "1 КОНСТРУКТОРСКИЙ РАЗДЕЛ" предусматривает информационное обеспечение, которое позволяет хранить и выводить информацию о клиентах, проектах, бизнес-процессах и других аспектах деятельности компании. Это позволяет сотрудникам быстро и удобно получать необходимую информацию для работы.