Автоматизация поддержки принятия решений при рассмотрении кредитных заявок физических лиц на примере банка "Кватро-Банк"

Содержание
ВВЕДЕНИЕ
1. АНАЛИТИЧЕСКАЯ ЧАСТЬ
1.1 Технико-экономическая характеристика предметной области
1.1.1 Характеристика предприятия
1.1.2 Краткая характеристика подразделения или видов его деятельности
1.2 Экономическая сущность задачи
1.3 Обоснование необходимости и цели использования вычислительной техники для решения задачи
1.4 Постановка задачи
1.4.1 Цель и назначение автоматизированного варианта решения задачи
1.4.2 Общая характеристика организации решения задачи на ЭВМ
1.4.3 Формализация расчетов
1.5 Анализ существующих разработок и обоснование выбора технологии проектирования
1.6 Обоснование проектных решений по видам обеспечения:
1.6.1 по техническому обеспечению (ТО)
1.6.2. по информационному обеспечению (ИО)
1.6.3. по программному обеспечению (ПО)
2 ПРОЕКТНАЯ ЧАСТЬ
2.1 Информационное обеспечение задачи (комплекса задач, АРМ)
2.1.1 Информационная модель и ее описание
2.1.2 Используемые классификаторы и системы кодирования
2.1.3 Характеристика первичных документов с нормативно-справочной и входной оперативной информацией
2.1.4 Характеристика базы данных
2.1.5 Характеристика результатной информации
2.2 Программное обеспечение задачи (комплекса задач, АРМ)
2.2.1 Общие положения (дерево функций и сценарий диалога)
2.2.2 Структурная схема пакета (дерево вызова процедур и программ)
2.2.3 Описание программных модулей
2.3 Технологическое обеспечение задачи (комплекса задач, АРМ)
2.4 Описание контрольного примера реализации проекта
3. ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ ПРОЕКТА
3.1 Выбор и обоснование методики расчёта экономической эффективности
3.2 Расчёт показателей экономической эффективности проекта
ЗАКЛЮЧЕНИЕ
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ
Приложени А Листинг разработанного программного обеспечения

dfm}function TMainClientsForm.IsMDIChildOpen(const AFormName: TForm; const AMDIChildName : string): Boolean;var i: Integer; beginResult := False; for i := Pred(AFormName.MDIChildCount) DownTo 0 do if (AFormName.MDIChildren[i].Name = AMDIChildName) thenbegin Result := True; AFormName.MDIChildren[i].Free; end; end;function TMainClientsForm.IsFormOpen(const FormName : string): Boolean;var i: Integer; beginResult := False; for i := Screen.FormCount - 1 DownTo 0 do if (Screen.Forms[i].Name = FormName) thenbegin 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);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.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false; Poisk.GroupBox3.Visible:=false;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); 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); 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);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);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.N23Click(Sender: TObject);begin mainclientsform.N3Click(Sender); mainflag:=true; flag1:=true;flag2:=false; IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox5.Visible:=false; ProsmForm.Height:=800; mainclientsform.DataSource1.DataSet.Last();end;procedure TMainClientsForm.N24Click(Sender: TObject);begin mainclientsform.N6Click(Sender); mainflag:=true; flag1:=false; flag2:=true; IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox5.Visible:=false; ProsmForm.GroupBox7.Visible:=true; ProsmForm.Height:=500; ProsmForm.Width:=800; mainclientsform.DataSource1.DataSet.Last();end;procedure TMainClientsForm.N25Click(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:=7; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false; Poisk.GroupBox3.Visible:=true; Poisk.Button1.Caption:='Подготовить данные'; end;procedure TMainClientsForm.N26Click(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:=8; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false; Poisk.GroupBox3.Visible:=false; Poisk.Button1.Caption:='Подготовить данные'; end;procedure TMainClientsForm.FormCreate(Sender: TObject);var NewConnection: Widestring;begin ADOConnection1.Close;ADOConnection1.ConnectionString :='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='+GetCurrentDir+'\baza.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.hClick(Sender: TObject);begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'Резолюция '); IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox3.Visible:=true; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox5.Visible:=false; ProsmForm.GroupBox7.Visible:=false; ProsmForm.Caption:='Кредит / запрос'; ProsmForm.Height:=400;end;procedure TMainClientsForm.N3Click(Sender: TObject);begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'Кредитная история'); IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox5.Visible:=true; ProsmForm.GroupBox7.Visible:=false; ProsmForm.Caption:='Кредитная история'; ProsmForm.Height:=400; end;procedure TMainClientsForm.DataSource1DataChange(Sender: TObject;Field: TField); var kodistorii,kodclient,kodfact,kodkred:integer; datanach:tdatetime; status:string; beginif mainflag thenbeginkodistorii:=mainclientsform.DataSource1.DataSet.FieldByName('Код истории').AsInteger;ProsmForm.Edit70.Text:=inttostr(kodistorii);kodclient:=mainclientsform.DataSource1.DataSet.FieldByName('Код клиента').AsInteger;ProsmForm.Edit71.Text:=inttostr(kodclient); datanach:=mainclientsform.DataSource1.DataSet.FieldByName('дата начала').AsDateTime;ProsmForm.Edit83.Text:=Datetostr(datanach);kodfact:=mainclientsform.DataSource1.DataSet.FieldByName('Код факта').AsInteger;status:=mainclientsform.DataSource1.DataSet.FieldByName('статус').AsString; mainclientsform.ADOTable3.Active:=true; if mainclientsform.ADOTable3.Locate('Код клиента',kodclient , [loCaseInsensitive,loPartialKey]) then begin ProsmForm.Edit72.Text:=mainclientsform.ADOTable3.FieldByName('Фамилия').AsString; ProsmForm.Edit73.Text:=mainclientsform.ADOTable3.FieldByName('Имя').AsString; ProsmForm.Edit76.Text:=mainclientsform.ADOTable3.FieldByName('Отчество').AsString; ProsmForm.Edit74.Text:=mainclientsform.ADOTable3.FieldByName('ИНН').AsString; ProsmForm.Edit75.Text:=mainclientsform.ADOTable3.FieldByName('доход').AsString;ProsmForm.Edit77.Text:=mainclientsform.ADOTable3.FieldByName('телефон1').AsString;end; if mainclientsform.ADOTable8.Locate('Код факта',kodfact , [loCaseInsensitive,loPartialKey]) then beginProsmForm.Edit81.Text:=DateToStr(mainclientsform.ADOTable8.FieldByName('сроквозврата').AsDateTime); ProsmForm.Edit84.Text:=mainclientsform.ADOTable8.FieldByName('нарушение').AsString; ProsmForm.Edit85.Text:=inttostr(mainclientsform.ADOTable8.FieldByName('%своеврем').AsInteger); ProsmForm.Edit86.Text:=mainclientsform.ADOTable8.FieldByName('штрафныесанкции').AsString; ProsmForm.Edit82.Text:=mainclientsform.ADOTable8.FieldByName('закрытие').AsString;end; mainclientsform.ADOTable7.Active:=true; if mainclientsform.ADOTable7.Locate('Код истории',kodistorii , [loCaseInsensitive,loPartialKey]) then beginProsmForm.Edit87.Text:=DateToStr(mainclientsform.ADOTable7.FieldByName('дата').AsDateTime);kodkred:=mainclientsform.ADOTable7.FieldByName('Код кредита').AsInteger; end; mainclientsform.ADOTable6.Active:=true; if mainclientsform.ADOTable6.Locate('Код кредита',kodkred , [loCaseInsensitive,loPartialKey]) then beginProsmForm.Edit88.Text:=inttostr(mainclientsform.ADOTable6.FieldByName('сумма').AsInteger);ProsmForm.Edit69.Text:=inttostr(mainclientsform.ADOTable6.FieldByName('срок').AsInteger);ProsmForm.Edit66.Text:=inttostr(mainclientsform.ADOTable6.FieldByName('ежемесячныйплатеж').AsInteger);ProsmForm.Edit79.Text:=mainclientsform.ADOTable6.FieldByName('цель').AsString;ProsmForm.Edit64.Text:=DateToStr(mainclientsform.ADOTable6.FieldByName('датапогашения').AsDateTime);end; mainclientsform.DataSource2.DataSet:=mainclientsform.ADOQuery1; mainclientsform.ADOQuery1.Active:=false; mainclientsform.ADOQuery1.SQL.Clear();P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter;P1.Name:='P1'; p1.DataType := ftinteger; P1.Value:=kodistorii;stroka_SQL:='SELECT обязательства.* FROM обязательства WHERE (обязательства.[код истории]=:P1) ;' ; MainClientsForm.ADOQuery1.SQL.Add(stroka_SQL); MainClientsForm.ADOQuery1.Active:=true; MainClientsForm.ADOQuery1.ExecSQL; end;end;procedure TMainClientsForm.N4Click(Sender: TObject);begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'Клиент'); IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=true; ProsmForm.GroupBox5.Visible:=false; ProsmForm.GroupBox7.Visible:=false; ProsmForm.Caption:='Нового клиента'; ProsmForm.Height:=400;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.GroupBox1.Visible:=true; Poisk.GroupBox2.Visible:=false; Poisk.GroupBox3.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.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false; Poisk.GroupBox3.Visible:=true; 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:=4; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=true; Poisk.GroupBox3.Visible:=false;end;procedure TMainClientsForm.N17Click(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:=5; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false; Poisk.GroupBox3.Visible:=false; Poisk.Button1.Caption:='Подготовить данные'; end;procedure TMainClientsForm.N18Click(Sender: TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;mainclientsform.ADOTable8.Active:=true; MainClientsForm.BuildGridDatabaseDirectoryItem('Фактическое выполнение', mainclientsform.DataSource1);end;procedure TMainClientsForm.N11Click(Sender: TObject);begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'Исполнитель /отдел '); IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); ProsmForm:=Taddform.Create(Owner); ProsmForm.GroupBox3.Visible:=false; ProsmForm.GroupBox1.Visible:=false; ProsmForm.GroupBox5.Visible:=false; ProsmForm.GroupBox7.Visible:=false; ProsmForm.Caption:='Новый исполнитель / отдел'; ProsmForm.Height:=400;end;procedure TMainClientsForm.N19Click(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:=6; Poisk.GroupBox1.Visible:=false; Poisk.GroupBox2.Visible:=false; Poisk.GroupBox3.Visible:=false; Poisk.Button1.Caption:='Подготовить данные'; 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 ;type TaddForm = class(TForm) GroupBox1: TGroupBox; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Button1: TButton; Edit7: TEdit; GroupBox3: TGroupBox; Label14: TLabel; Label15: TLabel; Label16: TLabel; Edit14: TEdit; Edit15: TEdit; Edit16: TEdit; Button3: TButton; GroupBox5: TGroupBox; Label29: TLabel; Label31: TLabel; Label32: TLabel; Label33: TLabel; Label34: TLabel; Label35: TLabel; Label37: TLabel; Label19: TLabel; Label20: TLabel; Label21: TLabel; Label22: TLabel; Label23: TLabel; Label17: TLabel; Edit29: TEdit; Edit31: TEdit; Edit32: TEdit; Edit33: TEdit; Edit34: TEdit; Edit35: TEdit; Edit37: TEdit; Button5: TButton; Edit19: TEdit; Edit20: TEdit; Edit21: TEdit; Edit22: TEdit; Edit23: TEdit; Edit17: TEdit; Label85: TLabel; Edit89: TEdit; Label86: TLabel; Edit90: TEdit; Label87: TLabel; Label88: TLabel; Edit91: TEdit; Label89: TLabel; Edit92: TEdit; Label90: TLabel; Edit93: TEdit; Label91: TLabel; Edit94: TEdit; Label92: TLabel; Label93: TLabel; Edit95: TEdit; Label94: TLabel; Edit96: TEdit; Label95: TLabel; Edit97: TEdit; Label96: TLabel; Edit98: TEdit; Label18: TLabel; Label27: TLabel; Edit18: TEdit; Label30: TLabel; Edit27: TEdit; Label36: TLabel; Edit30: TEdit; Label38: TLabel; Edit36: TEdit; Label97: TLabel; Edit38: TEdit; Label99: TLabel; Edit99: TEdit; GroupBox7: TGroupBox; Label62: TLabel; Label63: TLabel; Label64: TLabel; Label65: TLabel; Label66: TLabel; Label67: TLabel; Label70: TLabel; Label71: TLabel; Label73: TLabel; Label74: TLabel; Label75: TLabel; Label77: TLabel; Label79: TLabel; Label80: TLabel; Label81: TLabel; Label82: TLabel; Label83: TLabel; Label84: TLabel; Label78: TLabel; Edit64: TEdit; Edit66: TEdit; Edit69: TEdit; Edit70: TEdit; DBNavigator2: TDBNavigator; Edit71: TEdit; Edit72: TEdit; Edit73: TEdit; Edit74: TEdit; Edit75: TEdit; Edit76: TEdit; Edit77: TEdit; Edit79: TEdit; Edit81: TEdit; Edit82: TEdit; Edit83: TEdit; Edit84: TEdit; Edit85: TEdit; Edit86: TEdit; Edit87: TEdit; Edit88: TEdit;DBGrid1: TDBGrid; procedure Button5Click(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure Button1Click(Sender: TObject); procedure Button3Click(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;implementationuses MainClients;{$R *.dfm}procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure TaddForm.Button1Click(Sender: TObject);varFam, Name1, Sec_Name, Dep, Dolg, Tel1, tel2, INN :string;kodadr,koddok,dohod:integer; oblast,gorod, street, dom, kvartira:string; naimenovan, nomer, kem:string; datadok,datarogd:tdate;begin oblast:=Edit90.Text; gorod:= Edit91.Text; street:=Edit92.Text; dom:=Edit93.Text; kvartira:=Edit94.Text; mainclientsform.ADOTable4.Active:=true; mainclientsform.ADOTable4.Insert(); mainclientsform.ADOTable4.FieldByName('область').AsString:= oblast; mainclientsform.ADOTable4.FieldByName('город').AsString:= gorod; mainclientsform.ADOTable4.FieldByName('улица').AsString:= street; mainclientsform.ADOTable4.FieldByName('дом').AsString:= dom; mainclientsform.ADOTable4.FieldByName('квартира').AsString:= kvartira; mainclientsform.ADOTable4.Post(); kodadr:=mainclientsform.ADOTable4.FieldByName('Код адреса').AsInteger; naimenovan:=Edit95.Text; nomer:=Edit96.Text; kem:=Edit98.Text;; datadok:=strtodate(Edit97.Text); mainclientsform.ADOTable5.Active:=true; mainclientsform.ADOTable5.Insert(); mainclientsform.ADOTable5.FieldByName('наименование').AsString:= naimenovan; mainclientsform.ADOTable5.FieldByName('номер').AsString:= nomer; mainclientsform.ADOTable5.FieldByName('дата выдачи').AsDateTime:=datadok; mainclientsform.ADOTable5.FieldByName('учреждение').AsString:= kem; mainclientsform.ADOTable5.Post(); koddok:=mainclientsform.ADOTable5.FieldByName('Код документа').AsInteger; Fam:= Edit1.Text; Name1:= Edit2.Text; Sec_Name:= Edit3.Text; datarogd:=strtodate(Edit4.Text); Tel1:= Edit7.Text; Tel2:= Edit89.Text; INN:= Edit5.Text; dohod:= strtoint(Edit6.Text); // добавление данных клиент mainclientsform.ADOTable3.Active:=true; mainclientsform.ADOTable3.Insert(); mainclientsform.ADOTable3.FieldByName('Фамилия').AsString:= Fam; mainclientsform.ADOTable3.FieldByName('Имя').AsString:= Name1; mainclientsform.ADOTable3.FieldByName('Отчество').AsString:= Sec_Name; mainclientsform.ADOTable3.FieldByName('Дата рождения').AsDateTime:=datarogd;mainclientsform.ADOTable3.FieldByName('Телефон1').AsString:= Tel1; mainclientsform.ADOTable3.FieldByName('Телефон2').AsString:= Tel2; mainclientsform.ADOTable3.FieldByName('ИНН').AsString:= INN; mainclientsform.ADOTable3.FieldByName('доход').AsInteger:= dohod;mainclientsform.ADOTable3.FieldByName('Код адреса').AsInteger:= kodadr; mainclientsform.ADOTable3.FieldByName('Код документа').AsInteger:= koddok; mainclientsform.ADOTable3.Post();end;procedure TaddForm.Button3Click(Sender: TObject); var summa, egplat,srok,procent, kodkred,kodistorii:integer;target:string; datapogash:tdatetime;begin // добавление данных резолюцияtarget:= Edit15.Text;datapogash:=StrToDate(Edit36.Text);summa:=strtoint(Edit16.Text);egplat:=strtoint(Edit14.Text);srok:=strtoint(Edit30.Text);procent:=strtoint(Edit38.Text);kodistorii:= strtoint(Edit99.Text); mainclientsform.ADOTable6.Active:=true; mainclientsform.ADOTable6.Insert(); mainclientsform.ADOTable6.FieldByName('цель').AsString:= target; mainclientsform.ADOTable6.FieldByName('дата погашения').AsDateTime:=datapogash; mainclientsform.ADOTable6.FieldByName('сумма').AsInteger:=summa; mainclientsform.ADOTable6.FieldByName('ежемесячный платеж').AsInteger:=egplat; mainclientsform.ADOTable6.FieldByName('срок').AsInteger:=srok; mainclientsform.ADOTable6.FieldByName('Процент').AsInteger:=procent; mainclientsform.ADOTable6.Post(); kodkred:= mainclientsform.ADOTable6.FieldByName('Код кредита').AsInteger; mainclientsform.ADOTable7.Active:=true; mainclientsform.ADOTable7.Insert(); mainclientsform.ADOTable7.FieldByName('Код истории').AsInteger:=kodistorii; mainclientsform.ADOTable7.FieldByName('Код кредита').AsInteger:=kodkred; mainclientsform.ADOTable7.FieldByName('дата').AsDateTime:=now; mainclientsform.ADOTable7.FieldByName('решение').AsString:='Не принято'; mainclientsform.ADOTable7.Post(); end;procedure TaddForm.Button5Click(Sender: TObject);var srokvoz, datenach:tdatetime; narush,sankcii,zakrut,status:string; procentsv, kodclient, kodfakt, kodistorii, summa:integer; bank,vidob,nomdog,notes:string; datadog,srokup:tdatetime;begin srokvoz:=StrToDate(Edit21.Text); narush:=Edit37.Text; procentsv:=strtoint(Edit32.Text); sankcii:=Edit29.Text; zakrut:=Edit31.Text; mainclientsform.ADOTable8.Active:=true; mainclientsform.ADOTable8.Insert(); mainclientsform.ADOTable8.FieldByName('срок возврата').AsDateTime:= srokvoz; mainclientsform.ADOTable8.FieldByName('нарушение').AsString:= narush; mainclientsform.ADOTable8.FieldByName('%своеврем').AsInteger:=procentsv; mainclientsform.ADOTable8.FieldByName('штрафные санкции').AsString:= sankcii; mainclientsform.ADOTable8.FieldByName('закрытие').AsString:= zakrut; mainclientsform.ADOTable8.Post(); kodfakt:= mainclientsform.ADOTable8.FieldByName('Код факта').AsInteger; status:=Edit34.Text; datenach:=StrToDate(Edit35.Text); kodclient:=strtoint(Edit33.Text); mainclientsform.ADOTable1.Active:=true; mainclientsform.ADOTable1.Insert(); MainClientsForm.ADOTable1.FieldByName('Код клиента').AsInteger:=kodclient; MainClientsForm.ADOTable1.FieldByName('Код факта').AsInteger:=kodfakt; mainclientsform.ADOTable1.FieldByName('дата начала').AsDateTime:=datenach; mainclientsform.ADOTable1.FieldByName('статус').AsString:= status; mainclientsform.ADOTable1.Post(); kodistorii:= mainclientsform.ADOTable1.FieldByName('Код истории').AsInteger; bank:=Edit19.Text; vidob:=Edit20.Text; nomdog:=Edit23.Text; notes:=Edit27.Text; summa:=STRToint(Edit17.Text); datadog:= StrToDate(Edit22.Text); srokup:=StrToDate(Edit18.Text); mainclientsform.ADOTable2.Active:=true; mainclientsform.ADOTable2.Insert(); mainclientsform.ADOTable2.FieldByName('банк').AsString:=bank; mainclientsform.ADOTable2.FieldByName('вид обязательств').AsString:= vidob; mainclientsform.ADOTable2.FieldByName('дата договора').AsDateTime:=datadog; mainclientsform.ADOTable2.FieldByName('номер договора').AsString:=nomdog; MainClientsForm.ADOTable2.FieldByName('сумма').AsInteger:=summa; mainclientsform.ADOTable2.FieldByName('срок уплаты%').AsDateTime:=srokup; mainclientsform.ADOTable2.FieldByName('примечание').AsString:=notes; MainClientsForm.ADOTable2.FieldByName('Код истории').AsInteger:=kodistorii; mainclientsform.ADOTable2.Post(); end;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; Edit3: TEdit; GroupBox2: TGroupBox; Label2: TLabel; Edit1: TEdit; GroupBox3: TGroupBox; Label3: TLabel; Edit2: TEdit; Label4: TLabel; Edit4: TEdit; Label5: TLabel;Edit5: TEdit; 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; data:tdatetime; summa,srok:integer;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.ADOQuery2; mainclientsform.ADOQuery2.Active:=false; mainclientsform.ADOQuery2.SQL.Clear;if nomer_poisk=1 then begin childTemplateForm.Button1.Visible:=false;P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;P1.Name:='P1'; p1.DataType := ftstring; S:=Edit3.Text; P1.Name:='P1'; P1.DataType:=ftString; P1.Value:=S; stroka_SQL:='SELECT История.[Код истории], История.[дата начала], История.статус, Фактвыполнения.* FROM Фактвыполнения INNER JOIN История ON Фактвыполнения.[Код факта] = История.[Код факта] WHERE (((История.[Код истории])=:P1));'; if (stroka_SQL<>'') then begin mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL(); end; end; if nomer_poisk=4 then begin childTemplateForm.Button1.Visible:=false; S:=Edit1.Text;P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;P1.Name:='P1'; p1.DataType := ftstring; P1.Name:='P1'; P1.DataType:=ftString; P1.Value:=S; stroka_SQL:='SELECT Клиент.* FROM Клиент WHERE (((Клиент.Фамилия) = :P1))' ; if (stroka_SQL<>'') then begin mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL(); end; end; if nomer_poisk=5 then begin childTemplateForm.Button1.Visible:=true; P1:=mainclientsform.ADOQuery2.Parameters.AddParameter(); P1.Name:='P1'; P1.DataType:=ftInteger; P1.Value:=1; stroka_SQL:='SELECT История.[Код истории], История.[дата начала], Клиент.Фамилия, Клиент.Имя, Клиент.Отчество, Клиент.телефон1, Адрес.город, Адрес.улица, Адрес.дом, Адрес.квартира, История.статус'; stroka_SQL:=stroka_SQL+' FROM (Адрес INNER JOIN Клиент ON Адрес.[Код адреса] = Клиент.[Код адреса])';stroka_SQL:=stroka_SQL+'INNER JOIN История ON Клиент.[Код клиента] = История.[Код клиента] WHERE (((История.статус)="разрешен"));'; if (stroka_SQL<>'') then begin mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL(); end; end; if nomer_poisk=6 then begin childTemplateForm.Button1.Visible:=true; P1:=mainclientsform.ADOQuery2.Parameters.AddParameter(); P1.Name:='P1'; P1.DataType:=ftInteger; P1.Value:=1; stroka_SQL:='SELECT История.[Код истории], История.[дата начала], Клиент.Фамилия, Клиент.Имя, Клиент.Отчество, Клиент.телефон1, Адрес.город, Адрес.улица, Адрес.дом, Адрес.квартира, История.статус'; stroka_SQL:=stroka_SQL+' FROM (Адрес INNER JOIN Клиент ON Адрес.[Код адреса] = Клиент.[Код адреса])';stroka_SQL:=stroka_SQL+'INNER JOIN История ON Клиент.[Код клиента] = История.[Код клиента] WHERE (((История.статус)<>"разрешен"));'; if (stroka_SQL<>'') then begin mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL(); end; end; if nomer_poisk=7 then begin childTemplateForm.Button1.Visible:=false; S:=Edit2.Text; summa:=STRTOINT(Edit4.Text); srok:=STRTOINT(Edit5.Text);P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter;P1.Name:='P1'; P1.DataType:=ftString; P1.Value:=S;P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter;P2.Name:='P2'; P2.DataType:=ftinteger; P2.Value:=round(0.5*summa/srok); stroka_SQL:='SELECT Клиент.Фамилия, Клиент.Имя, Клиент.Отчество, Клиент.ИНН, Клиент.доход, Фактвыполнения.нарушение, Фактвыполнения.[%своеврем], Фактвыполнения.[штрафные санкции], Фактвыполнения.закрытие ';stroka_SQL:=stroka_SQL+'FROM Фактвыполнения INNER JOIN (Клиент INNER JOIN История ON Клиент.[Код клиента] = История.[Код клиента]) ON Фактвыполнения.[Код факта] = История.[Код факта]';stroka_SQL:=stroka_SQL+'WHERE ( (Клиент.доход>:P2) and (Клиент.ИНН=:P1) AND((Фактвыполнения.нарушение)="нет") AND ((Фактвыполнения.[%своеврем])>90) AND ((Фактвыполнения.[штрафные санкции])="нет") AND ((Фактвыполнения.закрытие)="норма"));'; if (stroka_SQL<>'') then begin mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL(); if mainclientsform.ADOQuery2.RecordCount>0 then begin childTemplateForm.Label1.Caption:='Заявка будет удовлетворена!!!!' end else childTemplateForm.Label1.Caption:='Заявка будет отклонена' end; end; end;end.unit ChildTemplate;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Buttons, Grids, DBGrids, ExtCtrls, Menus, StdCtrls, OleServer, ExcelXP, OleCtnrs, ComObj;type TChildTemplateForm = class(TForm) DBGrid1: TDBGrid; Button1: TButton;Label1: TLabel; procedure Button1Click(Sender: TObject); 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.Button1Click(Sender: TObject);var put,asFileName:string; var XlApplication: OleVariant; XLWorkSheet: OleVariant;var vVarApp,vVarBooks,vVarBook, vVarSheets,vVarSheet,vVarCell,ws: Variant; i,j:integer; a:string;begin if mainclientsform.ADOQuery2.RecordCount>0 then begin try XlApplication := GetActiveOleObject('Excel.Application'); except XlApplication := CreateOleObject('Excel.Application'); end; XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'zayavka.xlt', 0, true];XlApplication.Visible := true; XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet;if nomer_poisk<>8 then XLWorkSheet.cells[3,3]:='Белый' else XLWorkSheet.cells[3,3]:='Черный'; mainclientsform.ADOQuery2.First; for i:=1 to mainclientsform.ADOQuery2.RecordCount do begin j:= 0; A:= mainclientsform.ADOQuery2.FieldByName('Фамилия').AsString; XLWorkSheet.cells[i+5,2]:=A ; A:= mainclientsform.ADOQuery2.FieldByName('Имя').AsString; XLWorkSheet.cells[i+5,3]:=A ; A:= mainclientsform.ADOQuery2.FieldByName('Отчество').AsString;XLWorkSheet.cells[i+5,4]:=A ; A:= mainclientsform.ADOQuery2.FieldByName('телефон1').AsString;XLWorkSheet.cells[i+5,5]:=A ; A:= mainclientsform.ADOQuery2.FieldByName('город').AsString; XLWorkSheet.cells[i+5,6]:=A ; A:= mainclientsform.ADOQuery2.FieldByName('улица').AsString; XLWorkSheet.cells[i+5,7]:=A ; A:= mainclientsform.ADOQuery2.FieldByName('дом').AsString; XLWorkSheet.cells[i+5,8]:=A ; A:= mainclientsform.ADOQuery2.FieldByName('квартира').AsString; XLWorkSheet.cells[i+5,9]:=A ; mainclientsform.ADOQuery2.Next; end ; end;end;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.