Автоматизированная система учета деятельности строительной организации

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

dfm}function TMainClientsForm.IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean; var i: Integer; begin Result := False; for i := Pred(AFormName.MDIChildCount) DownTo 0 doif (AFormName.MDIChildren[i].Name = AMDIChildName) then begin Result := True; AFormName.MDIChildren[i].Free; // Break; end; end; function TMainClientsForm.IsFormOpen(const FormName : string): Boolean; var i: Integer; begin Result := False; for i := Screen.FormCount - 1 DownTo 0 doif (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);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.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);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:='Доп размер2';DirectoryForm.TableDBGrid.Fields[8].DisplayLabel:='Величина';DirectoryForm.TableDBGrid.Fields[9].DisplayLabel:='Площадь';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);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[4].DisplayLabel:='№ тариф';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Примечание';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='Покрытите';DirectoryForm.TableDBGrid.Fields[7].DisplayLabel:='Основа';DirectoryForm.TableDBGrid.Fields[8].DisplayLabel:='Крепление';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;beginADOConnection1.Close;ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+GetCurrentDir+'\stroit.mdb;'; ADOConnection1.Open;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; // dobForm.GroupBox5.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_razmer= :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;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;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.Caption:='создание сделки'; 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; 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;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;procedure TaddForm.FormCreate(Sender:TObject);beginend;end.unit parampoisk;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,addsorce, StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls ;type Tparampoik = class(TForm) Button1: TButton; GroupBox1: TGroupBox; Label1: TLabel; Edit1: TEdit; Label7: TLabel; Edit2: TEdit; UpDown1: TUpDown; Edit3: TEdit; Edit4: TEdit; UpDown2: TUpDown; Edit5: TEdit; UpDown3: TUpDown; Edit6: TEdit; UpDown4: TUpDown; Edit7: TEdit; Label2: TLabel; Label3: TLabel;procedure RzBitBtn4Click(Sender:TObject);procedure RzBitBtn3Click(Sender:TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure Button1Click(Sender:TObject); private { Private declarations } public { Public declarations } end;var parampoik: Tparampoik; ChildTemplateForm1: TChildTemplateForm; ff:string; flagpoisk:boolean; p1,p2:tparameter;all:boolean;ahour, aminute, asecond, amillisecond :word;priznak:string;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string;idnakl,idzapas,i,sravn,kolnakl,kolzapas, rezerv_kol:integer;implementationuses mainclients;{$R *.dfm}procedure Tparampoik.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure Tparampoik.RzBitBtn3Click(Sender:TObject);var ChildTemplateForm:TChildTemplateform;all:boolean;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string; fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;begin MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1; mainclientsform.ADOQuery1.Active:=false; mainclientsform.ADOQuery1.SQL.Clear; P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;end;procedure Tparampoik.RzBitBtn4Click(Sender:TObject);begin flagpoisk:=false; MainClientsForm.IsMDIChildOpen(MainClientsForm,'parampoik');end;procedure Tparampoik.Button1Click(Sender:TObject);var ChildTemplateForm:TChildTemplateform; timenach,timekon:tdatetime;begin{flagsort:=false;} MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2; mainclientsform.ADOQuery2.Active:=false; mainclientsform.ADOQuery2.SQL.Clear;if nomer_poisk=1 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; if edit1.Text<>'' then begin srtkl := edit1.Text; end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end; ChildTemplateForm.Label1.Caption:='Информация о строительном объекте: '+edit1.Text; stroka_SQL:='SELECT * from informac where informac.inform like :P1' ; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=2 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; if edit1.Text<>'' then begin srtkl := edit1.Text; end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end; ChildTemplateForm.Label1.Caption:='Информация о клиенте: '+edit1.Text;sqlwhere:= ' where client.fam like :P1'; stroka_SQL:='select * from client'+sqlwhere ; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=4 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftdatetime; ayear:= strtoint(Edit4.Text);amonth:=strtoint(Edit3.Text);aday:=strtoint(Edit2.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timenach:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); ayear:= strtoint(Edit7.Text);amonth:=strtoint(Edit6.Text);aday:=strtoint(Edit5.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timekon:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P2.Name:='P2'; p2.DataType := ftdatetime; P1.Value := timenach; P2.Value := timekon;sqlwhere:= ' where (Nakladnaya.vremya > :P1) and (nakladnaya.vremya < :P2)'; stroka_SQL:='select * from Nakladnaya'+ sqlwhere; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; end; end;end; end;end.unit ChildTemplate;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, Grids, DBGrids, ExtCtrls, Menus, StdCtrls;type TChildTemplateForm = class(TForm) DBGrid1: TDBGrid; Label1: TLabel;procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure RzToolbarButton2Click(Sender:TObject);procedure RzToolbarButton1Click(Sender:TObject); private { Private declarations } public { Public declarations } end;implementation{$R *.dfm}uses mainclients;procedure TChildTemplateForm.FormClose(Sender: TObject; var Action: TCloseAction);beginAction:=caFree;end;procedure TChildTemplateForm.RzToolbarButton1Click(Sender:TObject);begindbgrid1.DataSource.DataSet.Insert;end;procedure TChildTemplateForm.RzToolbarButton2Click(Sender:TObject);begindbgrid1.DataSource.DataSet.Edit;end;end.