Совершенствование документооборота в филиале СКБ Банка в г. Полевском

dfm}

function TMainClientsForm. IsMDIChildOpen (const AFormName: TForm; const AMDIChildName: string): Boolean;

var

i: Integer;

begin

Result := False;

for i := Pred (AFormName.MDIChildCount) DownTo 0 do

if (AFormName.MDIChildren[i]. Name = AMDIChildName) then

begin

Result := True;

AFormName.MDIChildren[i]. Free;

end;

end;

function TMainClientsForm. IsFormOpen (const FormName: string): Boolean;

var

i: Integer;

begin

Result := False;

for i := Screen. FormCount — 1 DownTo 0 do

if (Screen.Forms[i]. 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

MainClientsForm.Close;

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:='Способ выплат';

DirectoryForm.TableDBGrid.Fields[8]. DisplayLabel:='Валюта';

DirectoryForm.TableDBGrid.Fields[9].DisplayLabel:='ИД статуса';

DirectoryForm.TableDBGrid.Fields[10]. 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:='номер паспорта';

DirectoryForm.TableDBGrid.Fields[6]. DisplayLabel:='паспорт выдан';

DirectoryForm.TableDBGrid.Fields[7]. DisplayLabel:='место работы';

DirectoryForm.TableDBGrid.Fields[8]. DisplayLabel:='должность';

DirectoryForm.TableDBGrid.Fields[9].DisplayLabel:='адрес';

DirectoryForm.TableDBGrid.Fields[10].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:='emaile';

DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='Корреспондентский счет';

DirectoryForm.TableDBGrid.Fields[6]. DisplayLabel:=' Код ОКПО';

DirectoryForm.TableDBGrid.Fields[7]. DisplayLabel:='КОД ОКВЕД';

{DirectoryForm.TableDBGrid.Fields[8]. DisplayLabel:='ид. реж. работы';

DirectoryForm.TableDBGrid.Fields[9]. DisplayLabel:='пол';

DirectoryForm.TableDBGrid.Fields[10].DisplayLabel:='описание';

DirectoryForm.TableDBGrid.Fields[11].DisplayLabel:='обязанности';

DirectoryForm.TableDBGrid.Fields[12].DisplayLabel:='требования';

DirectoryForm.TableDBGrid.Fields[13].DisplayLabel:='образование';

DirectoryForm.TableDBGrid.Fields[14].DisplayLabel:='оклад';

DirectoryForm.TableDBGrid.Fields[15].DisplayLabel:='премия';

DirectoryForm.TableDBGrid.Fields[16].DisplayLabel:='мин. возраст';

DirectoryForm.TableDBGrid.Fields[17]. DisplayLabel:='макс. возраст';

DirectoryForm.TableDBGrid.Fields[18]. DisplayLabel:='примечание';

DirectoryForm.TableDBGrid.Fields[19].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.N4Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton2Click (Sender: TObject);

begin

MainClientsForm.N22Click (Sender);

end;

procedure TMainClientsForm. RzRapidFireButton3Click (Sender: TObject);

begin

MainClientsForm.N3Click (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:='Состояние';

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:='Ид сост. счета';

end;

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.DBNavigator1.Visible:=true;

mainflag:=true;

prosmForm.Show;

prosmForm.Button1.Visible:=false;

prosmForm.GroupBox1.Visible:=false;

prosmForm.GroupBox2.Visible:=false;

prosmForm.GroupBox3.Visible:=true;

MainClientsForm.DataSource1.DataSet.last

end;

procedure TMainClientsForm. FormCreate (Sender: TObject);

var NewConnection: Widestring;

begin

NewConnection := PromptDataSource (Handle, MainClientsForm. ADOConnection1.Connectionstring);

MainClientsForm.ADOConnection1.Connectionstring:=NewConnection;

MainClientsForm.ADOConnection1.Connected:=true;

MainClientsForm.ADOTable1.Active:=true;

MainClientsForm.ADOTable2.Active:=true;

MainClientsForm.ADOTable3.Active:=true;

MainClientsForm.ADOTable4.Active:=true;

MainClientsForm.ADOTable5.Active:=true;

MainClientsForm.ADOTable6.Active:=true;

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.GroupBox3.Visible:=false;

end;

procedure TMainClientsForm. DataSource1DataChange (Sender: TObject;

Field: TField);

var

sql_str, rez: string;

P11:Tparameter;

rezdate:tdatetime;

rezint:integer;

rezfloat:real;

Ayear, amonth, aday, ahour, aminute, asecond, amillisecond: word;

id_client, srok, id_history, id_rekvizit, id_type:integer;

summa, stavka: real;

valute, typedog, notes, uslovie, nazvanie, ur_adres, telefon, emaile, kor_schet:string;

okpo, okved, sposob: string;

data:tdatetime;

begin

if mainflag then

begin

prosmForm.edit5.text:='';

prosmForm.edit10.text:='';

prosmForm.edit8.text:='';

prosmForm.edit6.text:='';

prosmForm.edit52.text:='';

prosmForm.edit54.text:='';

prosmForm.edit50.text:='';

prosmForm.edit16.text:='';

prosmForm.edit53.text:='';

prosmForm.edit46.text:='';

prosmForm.edit51.text:='';

prosmForm.edit12.text:='';

prosmForm.edit49.text:='';

prosmForm.edit4.text:='';

prosmForm.edit44.text:='';

prosmForm.edit45.text:='';

id_client:= MainClientsForm. ADOTable1.FieldByName ('id_client').AsInteger;

id_type:= MainClientsForm. ADOTable1.FieldByName ('id_type').AsInteger;

data:= MainClientsForm. ADOTable1.FieldByName ('date').AsDateTime;

summa:= MainClientsForm. ADOTable1.FieldByName ('summa').AsFloat;

stavka:= MainClientsForm. ADOTable1.FieldByName ('stavka').AsFloat;

srok:= MainClientsForm. ADOTable1.FieldByName ('srok').AsInteger;

sposob:= MainClientsForm. ADOTable1.FieldByName ('sposob').AsString;

valute:=MainClientsForm.ADOTable1.FieldByName ('valute').AsString;

id_history:= MainClientsForm. ADOTable1.FieldByName ('id_history').AsInteger;

id_rekvizit:= MainClientsForm. ADOTable1.FieldByName ('id_rekvizit').AsInteger;

prosmForm.edit5.text:=inttostr (id_client);

prosmForm.edit10.text:=datetostr (data);

prosmForm.edit8.text:=floattostr (summa);

prosmForm.edit6.text:=valute;

prosmForm.edit52.text:=floattostr (stavka);

prosmForm.edit54.text:=inttostr (srok);

prosmForm.edit48.text:=sposob;

MainClientsForm.ADOTable4.Active;

if id_type<>0 then begin

if MainClientsForm. ADOTable4.Locate ('id_type', id_type,[]) then

begin

prosmForm.edit50.text:=MainClientsForm.ADOTable4.FieldByName ('type').AsString;

prosmForm.edit16.text:=MainClientsForm.ADOTable4.FieldByName ('notes').AsString;

prosmForm.edit53.text:=MainClientsForm.ADOTable4.FieldByName ('uslovie').AsString;

prosmForm.edit6.text:=MainClientsForm.ADOTable4.FieldByName ('valute').AsString;

end;

end;

MainClientsForm.ADOTable3.Active;

if id_rekvizit<>0 then begin

if MainClientsForm. ADOTable3.Locate ('id_rekvizit', id_rekvizit,[]) then

begin

prosmForm.edit46.text:=MainClientsForm.ADOTable3.FieldByName ('nazvanie').AsString;

prosmForm.edit51.text:=MainClientsForm.ADOTable3.FieldByName ('ur_adres').AsString;

prosmForm.edit12.text:=MainClientsForm.ADOTable3.FieldByName ('telefon').AsString;

prosmForm.edit49.text:=MainClientsForm.ADOTable3.FieldByName ('emaile').AsString;

prosmForm.edit4.text:=MainClientsForm.ADOTable3.FieldByName ('kor_schet').AsString;

prosmForm.edit12.text:=MainClientsForm.ADOTable3.FieldByName ('telefon').AsString;

prosmForm.edit44.text:=MainClientsForm.ADOTable3.FieldByName ('okpo').AsString;

prosmForm.edit45.text:=MainClientsForm.ADOTable3.FieldByName ('okved').AsString;

end;

end;

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.GroupBox2.Visible:=false;

zakForm.GroupBox3.Left:=2;

zakForm.GroupBox3.Top:=2;

// show;

end;

procedure TMainClientsForm. N14Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='поиск клиента';

nomer_poisk:=1;

poisk.Label2.Visible:=false;

poisk.Label3.Visible:=false;

poisk.Label7.Visible:=false;

poisk.Edit2.Visible:=false;

poisk.Edit3.Visible:=false;

poisk.Edit4.Visible:=false;

poisk.Edit5.Visible:=false;

poisk.Edit6.Visible:=false;

poisk.Edit7.Visible:=false;

poisk.UpDown1.Visible:=false;

poisk.UpDown2.Visible:=false;

poisk.UpDown3.Visible:=false;

poisk.UpDown4.Visible:=false;

end;

procedure TMainClientsForm. N15Click (Sender: TObject);

var poisk: Tparampoik;

begin

IsMDIChildOpen (MainClientsForm,'DBDirectoryTemplateForm');

IsMDIChildOpen (MainClientsForm,'addform');

IsMDIChildOpen (MainClientsForm,'parampoik');

poisk:=Tparampoik.Create (Owner);

poisk.Left:=530;

poisk.Top:=3;

poisk.Width:=300;

poisk.Caption:='поиск договора ';

nomer_poisk:=2;

poisk.Label1.Caption:='номер договора';

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. 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. N11Click (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.Label1.Visible:=false;

poisk.Edit1.Visible:=false;

poisk.Label7.Caption:='Платежи в период'

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:=5;

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;

poisk.Label1.Caption:='номер накладной';

poisk.Button1.Caption:='ПРОВОДКА'

end;

procedure TMainClientsForm. N1Click (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:='Примечание';

end;

procedure TMainClientsForm. N18Click (Sender: TObject);

begin

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:='курсы';

DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='закончен.'; }

end;

procedure TMainClientsForm. N23Click (Sender: TObject);

begin

mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable10;

mainclientsform.ADOTable10.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. Button1Click (Sender: TObject);

begin

MainClientsForm.N22Click (sender);

end;

end.

unit addsorce;

interface

uses

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)

Panel1: TPanel;

GroupBox3: TGroupBox;

GroupBox2: TGroupBox;

Button1: TButton;

Label32: TLabel;

Label30: TLabel;

Label27: TLabel;

Label23: TLabel;

Label18: TLabel;

Label15: TLabel;

Edit18: TEdit;

Edit21: TEdit;

Label19: TLabel;

Edit26: TEdit;

Label24: TLabel;

Edit27: TEdit;

Edit22: TEdit;

Label20: TLabel;

Label25: TLabel;

Label16: TLabel;

Edit19: TEdit;

Edit23: TEdit;

Edit28: TEdit;

Label17: TLabel;

Edit20: TEdit;

Label29: TLabel;

Edit32: TEdit;

Edit34: TEdit;

Label33: TLabel;

Label31: TLabel;

Edit36: TEdit;

Edit30: TEdit;

Edit35: TEdit;

Edit33: TEdit;

Label4: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Label11: TLabel;

Label12: TLabel;

Label14: TLabel;

Label42: TLabel;

Label43: TLabel;

Label45: TLabel;

Label47: TLabel;

Label48: TLabel;

Label50: TLabel;

Label51: TLabel;

Label53: TLabel;

Label54: TLabel;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit8: TEdit;

Edit10: TEdit;

Edit12: TEdit;

Edit16: TEdit;

Edit44: TEdit;

Edit45: TEdit;

Edit46: TEdit;

Edit48: TEdit;

Edit49: TEdit;

Edit50: TEdit;

Edit51: TEdit;

Edit52: TEdit;

Edit53: TEdit;

Edit54: TEdit;

Button2: TButton;

GroupBox1: TGroupBox;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label5: TLabel;

Edit7: TEdit;

Label10: TLabel;

Button3: TButton;

Edit9: TEdit;

DBNavigator1: TDBNavigator;

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;

implementation

uses MainClients;

{$R *.dfm}

procedure TaddForm. FormClose (Sender: TObject; var Action: TCloseAction);

begin

Action:=caFree;

end;

procedure TaddForm. Button1Click (Sender: TObject);

var seria, nomer_pasport, vudan, mesto_rab, dolgnost: string;

tel, adres, status: string;

valuta, notes, cel: string;

summa:real;

id_zayavka:integer;

begin

FIO:=edit18.Text;

rogd:=strtodate (edit19.Text);

gragdanstvo:=edit20.Text;

seria:=edit21.Text;

nomer_pasport:=edit22.Text;

vudan:=edit23.Text;

mesto_rab:= edit26. Text;

dolgnost:=edit27.Text;

tel:=edit28.Text;

adres:=edit30.Text;

status:= edit32. Text;

valuta:=edit36.Text;

notes:=edit35.Text;

summa:=strtofloat (edit33.Text);

cel:=edit34.Text;

MainClientsForm.ADOTable7.Active:=true;

MainClientsForm.ADOTable7.Insert;

MainClientsForm.ADOTable7.FieldByName ('summa').AsFloat:=summa;

MainClientsForm.ADOTable7.FieldByName ('cel').AsString:=cel;

MainClientsForm.ADOTable7.FieldByName ('notes').AsString:=notes;

MainClientsForm.ADOTable7.FieldByName ('valuta').AsString:= valuta;

MainClientsForm.ADOTable7.Post;

id_zayavka:= MainClientsForm. ADOTable7.FieldByName ('id_zayavka').AsInteger;

MainClientsForm.ADOTable2.Active:=true;

MainClientsForm.ADOTable2.Insert;

MainClientsForm.ADOTable2.FieldByName ('FIO').AsString:=fio;

MainClientsForm.ADOTable2.FieldByName ('gragdan').AsString:= gragdanstvo;

MainClientsForm.ADOTable2.FieldByName ('rogd').AsDateTime:=rogd;

MainClientsForm.ADOTable2.FieldByName ('ser_passport').AsString:= seria;

MainClientsForm.ADOTable2.FieldByName ('nomer_passport').AsString:= nomer_pasport;

MainClientsForm.ADOTable2.FieldByName ('passport_vudan').AsString:= vudan;

MainClientsForm.ADOTable2.FieldByName ('mesto_rab').AsString:= mesto_rab;

MainClientsForm.ADOTable2.FieldByName ('dolgnost').AsString:= dolgnost;

MainClientsForm.ADOTable2.FieldByName ('adres').AsString:= adres;

MainClientsForm.ADOTable2.FieldByName ('telefon').AsString:= tel;

MainClientsForm.ADOTable2.FieldByName ('respect').AsString:= status;

MainClientsForm.ADOTable2.FieldByName ('id_zayavka').AsInteger:= id_zayavka;

MainClientsForm.ADOTable2.Post;

end;

procedure TaddForm. Button2Click (Sender: TObject);

var tovar, srtkl, name_poisk, sqlwhere, stroka_SQL :string;

p1:tparameter;

end;

procedure TaddForm. Button3Click (Sender: TObject);

var srtkl, name_poisk, sqlwhere, stroka_SQL :string;

p1:tparameter;

data:tdatetime;

id_dogovor, id_rekvizit, id_history:integer;

schet, filial: string;

summa:real;

begin

data:=strtodate (edit1.Text);

id_dogovor:=strtoint (edit2.Text);

summa:=strtofloat (edit3.Text);

schet:=edit7.Text;

filial:=edit9.Text;

if id_dogovor<>0 then begin

MainClientsForm.ADOTable1.Active:=true;

if MainClientsForm. ADOTable1.Locate ('id_dogovor', id_dogovor,[]) then

begin

id_history:= MainClientsForm. adotable1.FieldByName ('id_history').asinteger;

if id_history<>0 then begin

MainClientsForm.ADOTable5.Active:=true;

if MainClientsForm. ADOTable5.Locate ('id_history', id_history,[]) then begin

MainClientsForm.ADOTable5.edit;

MainClientsForm.ADOTable5.FieldByName ('balance').asfloat:= MainClientsForm. ADOTable5.FieldByName ('balance').asfloat+summa;

MainClientsForm.ADOTable5.post;

end;

end;

end;

MainClientsForm.ADOTable6.Active:=true;

MainClientsForm.ADOTable6.Insert;

MainClientsForm.ADOTable6.FieldByName ('date').AsDateTime:=data;

MainClientsForm.ADOTable6.FieldByName ('sum').AsFloat:=summa;

MainClientsForm.ADOTable6.FieldByName ('mesto').AsString:=filial;

MainClientsForm.ADOTable6.FieldByName ('schet').AsString:=schet;

MainClientsForm.ADOTable6.FieldByName ('id_history').AsInteger:=id_history;

MainClientsForm.ADOTable6.Post;

end;

end;

procedure TaddForm. FormCreate (Sender: TObject);

begin

edit19.Text:=datetostr (now);

end;

end.

unit parampoisk;

interface

uses

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 RzBitBtn1Click (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;

implementation

uses mainclients;

{$R *.dfm}

procedure Tparampoik. FormClose (Sender: TObject; var Action: TCloseAction);

begin

Action:=caFree;

end;

procedure Tparampoik. RzBitBtn1Click (Sender: TObject);

begin

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;

end;

mainclientsform.ADOTable3.Next;

end;

end;

end;

end

else showmessage ('проводка накладной не требуется')

end;

end;

end;

end;

end.

unit DBDirectoryTemplate;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids;

type

TDBDirectoryTemplateForm = class (TForm)

TableDBGrid: TDBGrid;

procedure FormClose (Sender: TObject; var Action: TCloseAction);

private

{ Private declarations }

public

{ Public declarations }

end;

var

DBDirectoryTemplateForm: TDBDirectoryTemplateForm;

implementation

{$R *.dfm}

procedure TDBDirectoryTemplateForm. FormClose (Sender: TObject;

var Action: TCloseAction);

begin

Action:=caFree;

end;

end.

unit ChildTemplate;

interface

uses

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);

begin

Action:=caFree;

end;

procedure TChildTemplateForm. RzToolbarButton1Click (Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Insert;

end;

procedure TChildTemplateForm. RzToolbarButton2Click (Sender: TObject);

begin

dbgrid1.DataSource.DataSet.Edit;

end;

end.

Отдел обслуживания юр. лиц

Управляющий

Ст. бухгалтер

Зам. управляющего

Касса

Отдел розничного бизнеса

Хоз. блок

Сектор кредитования юр. лиц

Кредитование корпоративных клиентов

Кредитование малого и среднего бизнеса

Сектор информирования населения

Сектор кредитования населения

Программист

Начальник отдела безопасности

Проект

Главная форма приложения MainClients

childTemplate.pas

DbdDirectoryTemplate

AddSource.pas

ParamPoisk.pas