Вход

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

Рекомендуемая категория для самостоятельной подготовки:
Дипломная работа*
Код 179195
Дата создания 2013
Страниц 110
Источников 32
Мы сможем обработать ваш заказ 18 мая в 12:00 [мск]
Файлы будут доступны для скачивания только после обработки заказа.
4 830руб.
КУПИТЬ

Содержание

СПИСОК УСЛОВНЫХ ОБОЗНАЧЕНИЙ И СОКРАЩЕНИЙ
ВВЕДЕНИЕ
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.

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

1.Едронова В. Н., Хасянова С. Ю. Модели анализа кредитоспособности заемщиков. М.: Финансы и кредит, 2002, № 6. С. 9-15.
2.Финансово-кредитный энциклопедический словарь/под ред. А.Г. Грязновой.-М.: Финансы и статистика, 2002.
3.Банковское дело: учебник/под ред. О.И.Лаврушина. - М.:Финансы и статистика, 2005
4. Введение в анализ ассоциативных правил [Электрон. ресурс]. – Метод доступа: http://www.basegroup.ru/ rules/intro.htm.
5. Выявление обобщенных ассоциативных правил - описание алгоритма [Электрон. ресурс]. – Метод доступа: http://www.basegroup.ru/ rules/generalized.htm.
6.Архангельский А.Я. 100 компонентов общего назначения библиотеки Delphi 5. — М.: Бином, 1999. — 266 с.
7.Архангельский А.Я. Delphi 6. Справочное пособие. — М.: Бином, 2001. — 1024 с.
8.Архангельский А.Я. Программирование в Delphi 6. — М.: Бином, 2001. — 564 с.
9.Архангельский А.Я. Язык SQL в Delphi 5. — М.: Бином, 2000. — 205 с.
10.Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. –304с.
11.Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. – М.: Финансы и статистика, 1995. – 240с.
12.Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. - 654с.
13.Волков В. Ф. Экономика предприятия. – М.: Вита-Пресс, 1998. – 380с.
14.Галатенко В. Информационная безопасность // Открытые системы- 1996. – N 1-4.
15.Глушаков С.В., Ломотько Д.В. Базы данных .- Х.: Фолио, 2002. – 504 с.
16.Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Де¬ло, 1995. – 450с.
17.Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. – 280с.
18.Гофман В.Э. Хомоненко А.Д. Delphi 5. - СПб.: - Санки-Петербург, 2000. –800с.
19.Гофман В.Э. Хомоненко А.Д. Delphi 6. - СПб.: - Санки-Петербург, 2001. –1145с.
20.Дайан А. и др. Маркетинг. М., Экономика, 1993.
21.Жидецкий В. Ц. Охрана труда пользователей компьютеров. – К.: «Освгга», 1999.- 186с.
22.Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.
23.Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.
24.Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. – 1111 с.
25.Культин Н.Б. Delphi 6: Программирование на Object Pascal. — М.: Бином, 2001. — 526 с.
26.Культин Н.Б. Delphi 7: Программирование на Object Pascal. — М.: Бином, 2003. — 535 с.
27.Магнус Я.Р., Катышев П.К., Пересецкий А.А. Эконометрика. Начальный курс. М., Дело, 1997
28.Маклаков С.В. BPwin и ERwin. CASE-средства разработки информационных систем. — М.: Диалог-Мифи, 2001. — 304 с.
29.Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. –Харьков: Фактор, 2001. – 566с.
30.Турчин С. Обзор АСУП для малого бизнеса. Функциональные особенности // Компьютерное обозрение № 17 (286), 2001. с.22-27. // www.ITC-UA.COM
31.Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. – 1128с.
32.Черников А. Поздняков В. От бухгалтерии под Windows к открытым Unix-системам // Компьютерное обозрение № 34 (402), 2003. с.22-27. www.ITC-UA.COM
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала. Данный материал ни целиком, ни любая из его частей не является готовым научным трудом, выпускной квалификационной работой, научным докладом или иной работой, предусмотренной государственной системой научной аттестации или необходимой для прохождения промежуточной или итоговой аттестации. Данный материал представляет собой субъективный результат обработки, структурирования и форматирования собранной его автором информации и предназначен, прежде всего, для использования в качестве источника для самостоятельной подготовки работы указанной тематики.
© Рефератбанк, 2002 - 2022