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

Содержание

ВВЕДЕНИЕ
1 ТЕХНИКО-ЭКОНОМИЧЕСКАЯ ХАРАКТЕРИСТИКА ПРЕДПРИЯТИЯ ОАО «СКБ-БАНК»
1.1 Характеристика предприятия и его деятельности
1.2 Организационная структура управления банком
1.3 Характеристика комплекса задач и необходимости его автоматизации
1.4 Контекстная диаграмма модели информационной системы «как есть» предприятия ОАО «СКБ-Банк»
2 РАЗРАБОТКА ПРОЕКТА АВТОМАТИЗИРОВАННОЙ СИСТЕМЫ ДОКУМЕНТООБОРОТА ОАО «СКБ-БАНК»
2.1 Анализ существующей автоматизированной системы предприятия ОАО «СКБ-Банк»
2.2 Анализ существующих разработок и выбор стратегии автоматизации
2.2.1 Анализ существующих разработок для автоматизации задачи
2.2.2 Выбор и обоснование стратегии автоматизации задачи
2.2.3 Выбор и обоснование способа приобретения ИС для автоматизации комплекса
задач
2.3 Технико-коммерческое предложение совершенствование документооборота предприятия ОАО «СКБ-Банк»
3 АВТОМАТИЗИРОВАННАЯ СИСТЕМА ДОКУМЕНТООБОРОТА ОАО «СКБ-БАНК»
3.1 Информационное обеспечение автоматизированной системы
3.2 Программное обеспечение автоматизированной системы
3.3 Техническое и технологическое обеспечение системы
3.4 Руководство пользователя автоматизированной системы
ЗАКЛЮЧЕНИЕ
ЛИТЕРАТУРА
ПРИЛОЖЕНИЕ 1
ЛИСТИНГ ПРОГРАММЫ

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.
2
Отдел обслуживания
юр. лиц
Управляющий
Ст. бухгалтер
Зам. управляющего
Касса
Отдел розничного бизнеса
Хоз. блок
Сектор кредитования юр. лиц
Кредитование корпоративных клиентов
Кредитование малого и среднего бизнеса
Сектор информирования
населения
Сектор кредитования населения
Программист
Начальник отдела безопасности
Проект
Главная форма приложения MainClients
childTemplate.pas
DbdDirectoryTemplate
AddSource.pas
ParamPoisk.pas