1. Нейгел, К. C# и платформа.NET 3.5 для профессионалов / К. Нейгел [и др.]. – М.: ООО «И. Д. Вильямс», 2009. – 1392 с.
2. Васильев, А. Н. Объектно-ориентированное программирование для магистров и бакалавров: базовый курс по объектно-ориентированному программированию / А. Н. Васильев. - СПб: Питер, 2012. - 396 с.: ил.
3. Клиент-банк [Электронный ресурс]. Режим доступа: https://www.bps-sberbank.by/bank/ru.business.distancobslyzh.bankklient.html — Дата доступа: 12.17.2017.
4. Топологии локальных сетей [Электронный ресурс] — Режим доступа: www.lessons-tva.info/edu/telecom-loc/m1t4_loc.html — Дата доступа: 13.12.2017.
5. Кватрани, Терри. RationalRose 2000 и UML. Визуальное моделирование / Терри Кватрани. – М.: Изд. Дом «Вильямс», 2003
6. Диаграммы UML [Электронный ресурс] — Режим доступа: https://citforum.ru/database/dblearn/dblearn06.shtmhttps://www.maksakov-sa.ru/ModelUML/DiagrVarIsp/index.html — Дата доступа: 17.12.2017.
ПРИЛОЖЕНИЕ
Код формы Form1:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Form1->ADOTable1->Edit();
Form1->ADOTable1->FieldByName("Debet")->AsString = Edit2->Text;
Form1->ADOTable1->Post();
Edit2->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
if(Edit1->Text.IsEmpty())
{
ADOTable1->Filtered = false;
} else
{
ADOTable1->Filtered = false;
Form1->ADOTable1->Filter="(Nazv like '%" + Edit1->Text + "%')";
ADOTable1->Filtered = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Form1->ADOTable1->Edit();
Form1->ADOTable1->FieldByName("Credit")->AsString = Edit3->Text;
Form1->ADOTable1->Post();
Edit3->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
if(Edit2->Text.IsEmpty())
{
Button1->Enabled=false;
} else
{
Button1->Enabled=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit3KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
if(Edit3->Text.IsEmpty())
{
Button2->Enabled=false;
} else
{
Button2->Enabled=true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit2KeyPress(TObject *Sender, System::WideChar &Key)
{
if((Key!=VK_BACK)&&(Key!=',')&&(Key<'0'||Key>'9'))Key=0;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
String a;
a="Удалить предприятие "+ DBText2->Caption;
if (MessageDlg(a, mtConfirmation, TMsgDlgButtons() << mbYes << mbNo,0) == mrYes)
{
ADOTable1->Delete();
ADOTable1->Refresh();
ADOTable1->Filtered = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
String WayToBase=ExtractFilePath(Application->ExeName)+"sklad.mdb";
ADOConnection1->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+WayToBase+";Persist Security Info=True";
ADOConnection1->Connected = true;
ADOTable1->Active=true;
ADOTable2->Active=true;
DBGrid1->Columns->Items[0]->FieldName="N_dog";
DBGrid1->Columns->Items[0]->Title->Caption="№";
DBGrid1->Columns->Items[1]->Title->Caption="Название предприятия или ИП";
DBGrid1->Columns->Items[2]->Title->Caption="Прейскурант";
DBGrid1->Columns->Items[3]->Title->Caption="Объём";
DBGrid1->Columns->Items[4]->Title->Caption="Дебет";
DBGrid1->Columns->Items[5]->Title->Caption="Кредит";
DBGrid2->Columns->Items[0]->FieldName="N";
DBGrid2->Columns->Items[0]->Title->Caption="№";
DBGrid2->Columns->Items[1]->Title->Caption="ЖПК";
DBGrid2->Columns->Items[2]->Title->Caption="Договор";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N3Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N5Click(TObject *Sender)
{
Form3->Show();
Form3->DBGrid1->DataSource=Form3->DataSource1;
Form3->ADOTable1->Active=false;
Form3->ADOTable1->Active=true;
Form3->DBGrid1->Columns->Items[0]->FieldName="ID";
Form3-> DBGrid1->Columns->Items[0]->Title->Caption="ID";
Form3->DBGrid1->Columns->Items[1]->Title->Caption="Наименование товара";
Form3-> DBGrid1->Columns->Items[2]->Title->Caption="Количество";
Form3->DBGrid1->Columns->Items[3]->Title->Caption="Цена";
Form3->Button4->Visible=false;
Form3->Button3->Visible=true;
Form3->Panel1->Visible=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N6Click(TObject *Sender)
{
Form3->Show();
Form3->DBGrid1->DataSource=Form3->DataSource2;
Form3->ADOTable2->Active=false;
Form3->ADOTable2->Active=true;
Form3->DBGrid1->Columns->Items[0]->FieldName="ID";
Form3-> DBGrid1->Columns->Items[0]->Title->Caption="ID";
Form3->DBGrid1->Columns->Items[1]->Title->Caption="Наименование услуги";
Form3->DBGrid1->Columns->Items[2]->Title->Caption="Стоимость услуги";
Form3->Button4->Visible=true;
Form3->Button3->Visible=false;
Form3->Panel1->Visible=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N7Click(TObject *Sender)
{
Form4->Show();
Form4->ADOTable1->Active=false;
Form4->ADOTable1->Active=true;
Form4->DBGrid1->Columns->Items[0]->FieldName="Nomer";
Form4-> DBGrid1->Columns->Items[0]->Title->Caption="N";
Form4->DBGrid1->Columns->Items[1]->Title->Caption="ФИО";
Form4->DBGrid1->Columns->Items[2]->Title->Caption="Должность";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N8Click(TObject *Sender)
{
Form5->Show();
Form5->ADOQuery1->Active=false;
Form5->ADOQuery1->Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit4KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
if(Edit4->Text.IsEmpty())
{
ADOTable2->Filtered = false;
} else
{
ADOTable2->Filtered = false;
Form1->ADOTable2->Filter="(Naim like '%" + Edit4->Text + "%')";
ADOTable2->Filtered = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N10Click(TObject *Sender)
{
Form6->Show();
ADOTable2->Append();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
String s;
s="Удалить ЖПК "+ DBText2->Caption;
if (MessageDlg(s, mtConfirmation, TMsgDlgButtons() << mbYes << mbNo,0) == mrYes)
{
ADOTable2->Delete();
ADOTable2->Refresh();
ADOTable2->Filtered = false;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
ADOTable1->Post();
}
//---------------------------------------------------------------------------
Код формы Form2:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit2.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormShow(TObject *Sender)
{
Form1->ADOTable1->Append();
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Form1->ADOTable1->Post();
Form1->ADOTable1->Refresh();
Form1->ADOTable1->Append();
}
//---------------------------------------------------------------------------
Код формы Form3:
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Edit2KeyUp(TObject *Sender, WORD &Key, TShiftState Shift)
{
if(Edit2->Text.IsEmpty())
{
ADOTable1->Filtered = false;
} else
{
ADOTable1->Filtered = false;
ADOTable1->Filter="(Naim like '%" + Edit2->Text + "%')";
ADOTable1->Filtered = true;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
int a;
a=StrToInt(DBEdit1->Text)-StrToInt(Edit1->Text);
ADOTable1->Edit();
ADOTable1->FieldByName("kol")->AsString = IntToStr(a);
ADOTable1->Post();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
int a;
a=StrToInt(DBEdit1->Text)+StrToInt(Edit1->Text);
ADOTable1->Edit();
ADOTable1->FieldByName("kol")->AsString = IntToStr(a);
ADOTable1->Post();
Edit1->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button3Click(TObject *Sender)
{
ADOTable1->Append();
ADOTable1->FieldByName("ID")->AsString = Edit3->Text;
ADOTable1->FieldByName("naim")->AsString = Edit4->Text;
ADOTable1->FieldByName("cena")->AsString = Edit5->Text;
ADOTable1->Post();
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button4Click(TObject *Sender)
{
ADOTable2->Append();
ADOTable2->FieldByName("ID")->AsString = Edit3->Text;
ADOTable2->FieldByName("Usluga")->AsString = Edit4->Text;
ADOTable2->FieldByName("Stoim")->AsString = Edit5->Text;
ADOTable2->Post();
}
//---------------------------------------------------------------------------