Вход

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

Рекомендуемая категория для самостоятельной подготовки:
Дипломная работа*
Код 175901
Дата создания 2013
Страниц 106
Источников 51
Мы сможем обработать ваш заказ (!) 29 марта в 18:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
4 570руб.
КУПИТЬ

Содержание

ВВЕДЕНИЕ
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.

Список литературы [ всего 51]

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 с.: с ил. – Парал. Тит. Англ.

Очень похожие работы
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
bmt: 0.00535
© Рефератбанк, 2002 - 2024