Внедрение 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. N ame = AMDIChildName) then begin Result := True; AFormName. MDIChildren. F ree; end; end; function TMainClientsForm. IsFormOpen (const FormName: string): Boolean; var i… Читать ещё >

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

Содержание

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]. N ame = AMDIChildName) then begin Result := True; AFormName. MDIChildren[i]. F ree; 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]. N ame = 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]. D

isplayLabel:='Ид. &# 39;;DirectoryForm.TableDBGrid.Fields[1]. D isplayLabel:=' Работы ';DirectoryForm.TableDBGrid.Fields[2]. D isplayLabel:=' Тариф ';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].

D isplayLabel:='Ид. договора&# 39;;DirectoryForm.TableDBGrid.Fields[1]. D

isplayLabel:=' Номер ';DirectoryForm.TableDBGrid.Fields[2]. D isplayLabel:=' Дата ';DirectoryForm.TableDBGrid.Fields[3]. D isplayLabel:='ИД.

фирм&# 39;;DirectoryForm.TableDBGrid.Fields[4]. D isplayLabel:='ИД клиент';DirectoryForm.TableDBGrid.Fields[5]. D isplayLabel:='дата поставки'; 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].

D isplayLabel:=' ИД. &# 39;;DirectoryForm.TableDBGrid.Fields[1]. D isplayLabel:=' Фамилия ';DirectoryForm.TableDBGrid.Fields[2]. D

isplayLabel:=' Имя';DirectoryForm.TableDBGrid.Fields[3]. D isplayLabel:='Отчество';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]. D isplayLabel:='Ид.

&# 39;;DirectoryForm.TableDBGrid.Fields[1]. D isplayLabel:='Название';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].

D isplayLabel:='ИД';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]. D isplayLabel:='ИД.';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='Наименование';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='ед. измерения&# 39;;DirectoryForm.TableDBGrid.Fields[3]. D

isplayLabel:='производитель ';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.

Показать весь текст

Список литературы

Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.
Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.
Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.
Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.
Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. -304с.
Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. — М.: Финансы и статистика, 1995. — 240с.
Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. — 654с.
Волков В. Ф. Экономика предприятия. — М.: Вита-Пресс, 1998. — 380с.
Галатенко В. Информационная безопасность // Открытые системы- 1996. — N 1−4.
Глушаков С.В., Ломотько Д. В. Базы данных .- Х.: Фолио, 2002. — 504 с.
Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. — 450с.
Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. — 280с.
Гофман В.Э. Хомоненко А.Д. Delphi 5. — СПб.: — Санки-Петербург, 2000. -800с.
Гофман В.Э. Хомоненко А.Д. Delphi 6. — СПб.: — Санки-Петербург, 2001. -1145с.
Дайан А. и др. Маркетинг. М., Экономика, 1993.
Жидецкий В. Ц. Охрана труда пользователей компьютеров. — К.: «Освгга», 1999.- 186с.
Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.
Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.
Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. — 1111 с.
Культин Н.Б. Delphi 6: Программирование на OBJECT PASCAL. — М.: Бином, 2001. — 526 с.
Культин Н.Б. Delphi 7: Программирование на OBJECT PASCAL. — М.: Бином, 2003. — 535 с.
Магнус Я.Р., Катышев П. К., Пересецкий А. А. Эконометрика. Начальный курс. М., Дело, 1997
Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. -Харьков: Фактор, 2001. — 566с.
Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22−27. // www. ITC-UA.COM
Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. — 1128с.
Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22−27. www. ITC-UA.COM
Шумаков П.В., Фаронов В.В. Delphi 5. Руководство разработчика баз данных. — М.: Нолидж, 2000. — 635 с. Белов А. Н. Бухгалтерский учет в учреждениях непроизводственной сферы. — М.: Финансы и статистика, 1995. — 240с.
Берзин И. Э. Экономика фирмы. М.: Институт международного права и экономики, 1997. — 405 с.
Волков В. Ф. Экономика предприятия. — М.: Вита-Пресс, 1998. — 380с.
Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. — 450с.
Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. — 280с.
Дайан А. и др. Маркетинг. М., Экономика, 1993.
Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.
Кирьянова З.В. Теория бухгалтерского учета: Учебник для вузов. — 2-е изд., перераб. и доп. — М.: Финансы и статистика, 1998. — С. 265.
Малькова Г. Н. Международные бухгалтерские стандарты (МБС): Учебное пособие. — СПб.: 1997. — С. 147.
Савицкая Г. В. Анализ хозяйственной деятельности предприятий: Учебное пособие. — 2-е изд., перераб. и доп. — Минск: Экоперспектива, 1998. — С. 165.
Савицкая Г. В. Анализ хозяйственной деятельности предприятия: Учебное пособие. — 7-е изд., испр. — Минск.: Новое знание, 2002. — С.
Табурчак П.П. Анализ и диагностика финансово-хозяйственной деятельности предприятия. — СПб.: Химиздат, 2001. — С. 288.
Астахова И. Ф. SQL в примерах и задачах/ И. Ф. Астахова, А. П. Толстобров, В. М. Мельников.- М.: Новое знание, 2002.- 176 с.
Виейра Р. Программирование баз данных Microsoft SQL Server 2005 для профессионалов.: Пер. с англ. — М.: ООО «И.Д. Вильямс», 2008. — 1072 с.: ил.
Грабер М. SQL. Справочное руководство.- М.: Лори, 2001.-354 с.
Грабер М. Понимание SQL.- М.: Лори, 1993.-420 с.
Грабер М. Справочное руководство по SQL.- М.: Лори, 1997.- 291 с.
Грофф Дж., Вайнберг Пол Н. SQL: Полное руководство.-Киев: Издательская группа BHV, McGraw-Hill Companies, 2001.-816 с.
Грофф Дж. Энциклопедия SQL.- 3-е изд.- СПб: Питер, 2003.-896 с.
Дворжецкий А. SQL: Structured Query Language. Руководство пользователя.-М.: Познавательная Книга Плюс, 2001.-416 с.
Дейт, К. Введение в системы баз данных, 7-е издание.: Пер. с англ. — М.: Издательский дом «Вильяме», 2001. — 1072 с.: ил. — Парал. тит. англ.
Кириллов В. В,. Громов Г. Ю. Структуризированный язык запросов / Кузнецов С. Д. // Санкт-Петербургский Государственный институт точной механики и оптики (технический университет) Кафедра вычислительной техники — «К». — (http://www.citforum.ru/database/sql_kg/index.shtml)
Кириллов В.В. Структурированный язык запросов (SQL).- СПб.: ИТМО, 1994.- 80 с.
Коннолли, Томас, Бегг, Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. 3-е издание.: Пер. с англ. — М.: Издательский дом «Вильяме», 2003. — 1440 с.: с ил. — Парал. Тит. Англ.

Заполнить форму текущей работой

Купить готовую работу