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

Дипломная Купить готовую Узнать стоимостьмоей работы

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… Читать ещё >

Автоматизация поддержки принятия решений при рассмотрении кредитных заявок физических лиц на примере банка «Кватро-Банк» (реферат, курсовая, диплом, контрольная)

Содержание

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, Адрес.

город, Адрес.

улица, Адрес.

дом, Адрес.

квартира, История.

статус)<>" разрешен"));'; 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.

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

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

Едронова В. Н., Хасянова С. Ю. Модели анализа кредитоспособности заемщиков. М.: Финансы и кредит, 2002, № 6. С. 9−15.
Финансово-кредитный энциклопедический словарь/под ред. А. Г. Грязновой.-М.: Финансы и статистика, 2002.
Банковское дело: учебник/под ред. О. И. Лаврушина. — М.:Финансы и статистика, 2005
Введение в анализ ассоциативных правил [Электрон. ресурс]. — Метод доступа: http://www.basegroup.ru/ rules/intro.htm.
Выявление обобщенных ассоциативных правил — описание алгоритма [Электрон. ресурс]. — Метод доступа: http://www.basegroup.ru/ rules/generalized.htm.
Базы данных: модели, разработка, реализация / Карпова Т.- СПб.: Питер, 2001. -304с.
Белов А.Н. Бухгалтерский учет в учреждениях непроизводственной сферы. — М.: Финансы и статистика, 1995. — 240с.
Буч Г. Объектно-ориентированное проектирование с примерами применения. М., 1992. — 654с.
Волков В. Ф. Экономика предприятия. — М.: Вита-Пресс, 1998. — 380с.
Галатенко В. Информационная безопасность // Открытые системы- 1996. — N 1−4.
Глушаков С.В., Ломотько Д. В. Базы данных .- Х.: Фолио, 2002. — 504 с.
Голубков Е.П. Маркетинг: стратегии, планы, структуры. М., Дело, 1995. — 450с.
Голубков Е.П. Маркетинговые исследования: теория, методология и практика. М., Финпресс, 1998. — 280с.
Дайан А. и др. Маркетинг. М., Экономика, 1993.
Жидецкий В. Ц. Охрана труда пользователей компьютеров. — К.: «Освгга», 1999.- 186с.
Жутова З.У. Бюджетный учет и отчетность. М.: Финансы, 1970.-215с.
Ковалев А. И., Войленко В. В. Маркетинговый анализ. М., Центр экономики и маркетинга, 1996.
Конноли Томас, Бегг Каролин. Базы данных. Проектирование, реализация и сопровождение. Теория и практика. — М.: Вильямс, 2000. — 1111 с.
Культин Н.Б. Delphi 6: Программирование на Object Pascal. — М.: Бином, 2001. — 526 с.
Культин Н.Б. Delphi 7: Программирование на Object Pascal. — М.: Бином, 2003. — 535 с.
Матвеева В.О. Бюджетные организации: бухгалтерский учет и налогооблажение. -Харьков: Фактор, 2001. — 566с.
Фатрелл Р., Шафер Д. Шафер Л. Управление программными проектами: достижение оптимального качества при минимуме затрат. М.: «Вильямс», 2003. — 1128с.

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

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