Розробка програмних засобів автоматизації валютних операцій в фінансово-кредитних установах

Рис. 8.4

- Кнопок для внеску інформації (див.рис. 8.5)



Рис. 8.5

- Компонентів, для відображення клієнтів банку (див.рис. 8.6)

Рис. 8.6

8.2 Рекомендовані технічні засоби

Дана програма виконана на комп'ютері з параметрами:

Процесор - AMD Duron 1400MГц

Оперативна память - 256Мб

Відеопамять - 32Мб

Принтер - Hewlett-Paccard 656 Series

Монітор - Samtron 76E

CD-ROM - Teac 52x24x52

Операційна система Windows XP

Для роботи програми достатньо мати комп'ютер з наступними параметрами:

Процесор - будь-які моделі з частотою більше 133Гц.

Оперативна память - 32Мб

Відеопамять - 4Мб

Операційна система Windows 95 і більше

ВИСНОВОК

У ході практичної роботи було розроблено програму, яка автоматизує функції валютних операцій в фінансово-кредитних установах. Вона забезпечує щоденний оперативний контроль за грошовими коштами на підприємстві. В процесі роботи, програма виконує такі функції, як обчислювальна - для своєчасного та якісного ведення обліку валютних операцій; запам'ятовуюча - для забезпечення неперервного накопичення, систематизації, зберігання й оновлення потрібної інформації; комунікаційна - для забезпечення передачі інформації про зареєстровані валютні операції на автоматизованому робочому місці і зведеного обліку та формування звітів; інформуюча - для реалізації швидкого доступу, пошуку й видачі бухгалтеру необхідної інформації; аналізуюча - для визначення стану грошових коштів на підприємстві; документуюча - для забезпечення формування всіх вихідних документів обліку і звітів.

Використання програми як структурного елемента обліку на підприємстві забезпечує:

- інформаційно-довідкове обслуговування користувачів;

- розвинений діалог між бухгалтером і ПЕОМ при розв'язувані різних задач обліку й у процесі прийняття управлінських рішень;

- формування та ведення локальної БД і використання інформації спільної БД;

- надання різних сервісних послуг бухгалтеру на його робочому місці.

СПИСОК ВИКОРИСТАНОЇ ЛІТЕРАТУРИ

1. ”Про порядок здійснення розрахунків в іноземній валюті”, Закон України № 187\94-ВР, 23.09.94 Київ,Верховна Рада\\Відомості Верховної ради.

2. “Про зовнішньоекономічну діяльність”, Закон України № 351- ХІІ 16.01.91., Київ Верховна Рада\\Відомості Верховної ради.

3. ”Про організацію бухгалтерського обліку та звітності в Україні “ Положення, № 250, 03.04.93, затверджене постановою Кабінету Міністрів України\ \Урядовий кур”єр, № 54, 12.05.93.

4. Білуха М.Т. “Курс аудиту” Київ: Вища школа\\ 1998.

5. Завгородній В.П. “Автоматизація бухгалтерського обліку, аналізу, контролю та аудиту”. Київ: А.С.К.\\ 1998.

6. Кравчук Н.А. “Валютне регулювання” Київ:Вища школа\\1997.

7. Міщенко І.В. “Шляхи удосконалення валютного контролю”, \\журнал Баланс, № 54, 1997.

8. Український науково-дослідницький центр. Валютне регулювання. Київ: Екобуд\\1996.

Додаток А

ТЕКСТ ГОЛОВНОГО МОДУЛЯ ПРОГРАМИ

unit MainUnit;

interface

uses

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

Dialogs, Menus, XPMan, ImgList;

type

TMain = class(TForm)

MainMenu: TMainMenu;

XPManifest1: TXPManifest;

Menu21: TMenuItem;

Item12: TMenuItem;

Item22: TMenuItem;

Item32: TMenuItem;

Menu31: TMenuItem;

Item23: TMenuItem;

Item33: TMenuItem;

C1: TMenuItem;

N1: TMenuItem;

N2: TMenuItem;

ImageList1: TImageList;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

procedure N1Click(Sender: TObject); //Вывод справки «О программе»

procedure N2Click(Sender: TObject); //Вывод справки «Об авторе»

procedure N3Click(Sender: TObject); //Вызов формы для изменения курсов валют

procedure FormCreate(Sender: TObject); //Ассоциации файлов, анализ файлов баз данных

procedure Item33Click(Sender: TObject); //Демонстрация информации о счетах клиентов

procedure N5Click(Sender: TObject); //Вызов окна смены информации о банке

procedure Item22Click(Sender: TObject); //Вызов бланка открытия счёта

procedure Item12Click(Sender: TObject); //Просмотр личной информации о клиентах

procedure N6Click(Sender: TObject); //Вызов формы перевода с одного счёта на другой

procedure N7Click(Sender: TObject); //Вызов формы перевода валют на счету

procedure Item32Click(Sender: TObject); //Вызов формы закрытия счёта

procedure N8Click(Sender: TObject); {Подсчитывает и отображает полное содержание всех счетов (В гривнах)}

procedure Item23Click(Sender: TObject); {Вызывает форму смены процентных ставок клиентов}

private

{ Private declarations }

public

{ Public declarations }

end;

TDataBaseRecord = record {Запись для базы данных по содержанию денег на счетах}

UserFirstName: String[20];

UserLastName: String[20];

UserFatherName: String[14];

UserIdentifier: String[10];

UserMoneyHrv: Double;

UserMoneyRub: Double;

UserMoneyUSD: Double;

UserMoneyPutDate: String[20];

UserMoneyGetDate: String[20];

end;

TDocNumbersRecord = record {Запись для контроля за изменениями, вызванными связанной внешней программой кассовых операций}

InPut: LongInt;

OutPut: LongInt;

BankName: String[50];

end;

TUsersInformationRecord = record {Запись для хранения личной информации клиентов}

UserIdentifier: String[10];

UserAdressOblRayon: String[50];

UserAdressCity: String[30];

UserAdressStreet: String[20];

UserAdressHouse: String[10];

UserTel: String[20];

UserPasportNumber: String[10];

UserPasportGived: String[80];

UserIdentifierNumber: String[10];

UserPercent: Byte;

UserFirstInput: Double;

UserContractNumber: LongInt;

UserDocDate: String[10];

end;

TBankInfoRecord = record {Запись для хранения информации о банке}

BankName: String[50];

BankObl: String[30];

BankCity: String[30];

BankStreet: String[30];

BankTel: String[20];

BankCode: String[50];

UserContractNumber: LongInt;

end;

TUsersProcRecord = record {Запись для хранения процентных ставок клиентов банка}

UserIdentifier: String[10];

UserHrvProc: Byte;

UserRubProc: Byte;

UserUSDProc: Byte;

end;

var

Main: TMain;

RubKurs, USDKurs: Double;

DataBaseFile, TempDBF: file of TDataBaseRecord;

NewRecord: TDataBaseRecord;

NumbersFile: file of TDocNumbersRecord;

BankCreate, KassaInit: Boolean;

BankInfoFile: file of TBankInfoRecord;

UsersInfoFile, TempUIF: file of TUsersInformationRecord;

UsersInfoRecord: TUsersInformationRecord;

BankInfoRecord: TBankInfoRecord;

NumbRecord: TDocNumbersRecord;

UsersProcFile: file of TUsersProcRecord;

UsersProcRecord: TUsersProcRecord;

LastLaunchFile: file of TDate;

implementation

uses KursesUnitValuta, KlientsMoneyView, RachetDokum, BankChangerUnit,

UsersInfoUnit, ExchangeUnit, MoneyTypeExchangeUnit;

{$R *.dfm}

procedure TMain.N1Click(Sender: TObject); //Вывод справки «О программе»

begin

MessageBox(Handle,'Программа предназначена для автоматизации, учёта и регулирования'+#13+'валютных операций в финансово-кредитных учреждениях','О программе',0);

end;

procedure TMain.N2Click(Sender: TObject); //Вывод справки «Об авторе»

begin

MessageBox(Handle,'Эта программа была создана студентом группы П02-1Д Костюком Олегом.'+#13+

' (Froska & K'+#176+')','Об авторе',0);

end;

procedure TMain.N3Click(Sender: TObject); //Вызов формы для изменения курсов валют

begin

Kurses.Show;

end;

procedure TMain.FormCreate(Sender: TObject); {Ассоциации файлов, анализ файлов баз данных}

var

Data: TDate;

Changing: Extended;

begin

AssignFile(DataBaseFile,'MainDataBase.kne');// Файл для хранения денег на счетах

AssignFile(NumbersFile,'DocNumbers.kne');// Файл для хранения количества документов

AssignFile(BankInfoFile,'BankInformation.kne'); // Файл для хранения информации о банке

AssignFile(UsersInfoFile,'ClientsDataBase.kne');{Файл для хранения информации о клиентах}

AssignFile(TempDBF,'TemporaryFile1.tmp');{Файл для удаления записей о клиентах со счета}

AssignFile(TempUIF,'TemporaryFile2.tmp');//Файл для удаления информации о клиентах

AssignFile(UsersProcFile,'PercentsDataBase.kne');{Файл, для хранения процентных ставок клиентов}

AssignFile(LastLaunchFile,'LastLaunch.dat');{Файл для хранения последней даты открытия программы}

if not FileExists('LastLaunch.dat') then

begin

Rewrite(LastLaunchFile);

Data:=Date;

Write(LastLaunchFile,Data);

CloseFile(LastLaunchFile);

end

else

begin

Reset(LastLaunchFile);

Read(LastLaunchFile,Data);

Changing:=Date-Data;

Reset(DataBaseFile);

Reset(UsersProcFile);

while not Eof(DataBaseFile) do

begin

Read(DataBaseFile,NewRecord);

Read(UsersProcFile,UsersProcRecord);

NewRecord.UserMoneyHrv:=NewRecord.UserMoneyHrv*(Changing/365)*(UsersProcRecord.UserHrvProc/100)+NewRecord.UserMoneyHrv;

NewRecord.UserMoneyRub:=NewRecord.UserMoneyRub*(Changing/365)*(UsersProcRecord.UserRubProc/100)+NewRecord.UserMoneyRub;

NewRecord.UserMoneyUSD:=NewRecord.UserMoneyUSD*(Changing/365)*(UsersProcRecord.UserUSDProc/100)+NewRecord.UserMoneyUSD;

Seek(DataBaseFile,FilePos(DataBaseFile)-1);

Write(DataBaseFile,NewRecord);

end;

CloseFile(UsersProcFile);

CloseFile(DataBaseFile);

Write(LastLaunchFile,Data);

CloseFile(LastLaunchFile);

end;

if not FileExists('BankInformation.kne') then

begin

BankCreate:=True;

if FileExists('DocNumbers.kne') then

KassaInit:=True

else

KassaInit:=False;

end

else

begin

BankCreate:=False;

KassaInit:=False;

end;

if not FileExists('DocNumbers.kne') then

begin

if FileExists('BankInformation.kne') then

begin

Reset(BankInfoFile);

Read(BankInfoFile,BankInfoRecord);

Rewrite(NumbersFile);

NumbRecord.BankName:=BankInfoRecord.BankName;

NumbRecord.InPut:=1;

NumbRecord.OutPut:=1;

Write(NumbersFile,NumbRecord);

CloseFile(NumbersFile);

CloseFile(BankInfoFile);

end;

end

else

begin

if FileExists('BankInformation.kne') then

begin

Reset(NumbersFile);

Read(NumbersFile,NumbRecord);

CloseFile(NumbersFile);

Reset(BankInfoFile);

Read(BankInfoFile,BankInfoRecord);

CloseFile(BankInfoFile);

if NumbRecord.BankName<>BankInfoRecord.BankName then

begin

BankCreate:=True;

KassaInit:=True;

end;

end;

end;

if (not FileExists('BankInformation.kne')) and (not FileExists('NumbersFile.kne')) then

begin

BankCreate:=True;

KassaInit:=False;

end;

end;

procedure TMain.Item33Click(Sender: TObject); {Демонстрация информации о счетах клиентов}

begin

with TKassa.Create(Application) do {Создание дочернего окна демонстрации счетов}

begin

Caption:='Просмотр клентов банка';

RemoveUserButton.Visible:=False;

Panel1.Visible:=False;

end;

end;

procedure TMain.N5Click(Sender: TObject); //Вызов окна смены информации о банке

Begin

KassaInit:=False;

ChangeBankForm.Show;

end;

procedure TMain.Item22Click(Sender: TObject); //Вызов бланка открытия счёта

begin

with TForma.Create(Application) do {Создание дочернего окна открытия счетов}

begin

Reset(BankInfoFile);

Read(BankInfoFile,BankInfoRecord);

DocNumberLabel.Caption:=IntToStr(BankInfoRecord.UserContractNumber);

BankInfoRecord.UserContractNumber:=BankInfoRecord.UserContractNumber+1;

Seek(BankInfoFile,0);

Write(BankInfoFile,BankInfoRecord);

Bname.Text:=BankInfoRecord.BankName;

Bstate.Text:=BankInfoRecord.BankObl;

Btown.Text:=BankInfoRecord.BankCity;

Bstreet.Text:=BankInfoRecord.BankStreet;

Btel.Text:=BankInfoRecord.BankTel;

Bnumb.Text:=BankInfoRecord.BankCode;

DateNow.Text:=DateToStr(Date);

CloseFile(BankInfoFile);

end; end;

procedure TMain.Item12Click(Sender: TObject); //Просмотр личной информации о клиентах

begin

with TUsersInfoForm.Create(Application) do {Создание дочернего окна демонстрации личной информации о клиентах}

begin

//Initialization

end;

end;

procedure TMain.N6Click(Sender: TObject); {Вызов формы перевода с одного счёта на другой}

begin

with TExchangeForm.Create(Application) do {Создание дочернего окна перевода с одного счёта на другой}

begin

if not FileExists('MainDataBase.kne') then

begin

MessageBox(Handle,'База данных отсутствует! Перевод невозможен.','Уведомление',0);

Close;

end;

Reset(DataBaseFile);

while not Eof(DataBaseFile) do

begin

Read(DataBaseFile,NewRecord);

Giver.Items.Add (NewRecord.UserLastName + ' '+NewRecord.UserFirstName + ' ' + NewRecord.UserFatherName);

Receiver.Items.Add (NewRecord.UserLastName + ' ' + NewRecord.UserFirstName + ' ' + NewRecord.UserFatherName);

end;

CloseFile(DataBaseFile);

end;

end;

procedure TMain.N7Click(Sender: TObject); //Вызов формы перевода валют на счету

begin

with TMoneyTypeExchange.Create(Application) do{Создание дочернего окна перевода валют на счету}

begin

if not FileExists('MainDataBase.kne') then

begin

MessageBox(Handle,'База данных отсутствует! Перевод невозможен.','Уведомление',0);

Close;

end;

Reset(DataBaseFile);

while not Eof(DataBaseFile) do

begin

Read(DataBaseFile,NewRecord);

User.Items.Add(NewRecord.UserLastName + ' ' + NewRecord.UserFirstName + ' ' + NewRecord.UserFatherName);

end;

CloseFile(DataBaseFile);

end;

end;

procedure TMain.Item32Click(Sender: TObject); //Вызов формы закрытия счёта

begin

with TKassa.Create(Application) do {Создание дочернего окна демонстрации счетов}

begin

Caption:='Закрытие счёта';

RemoveUserButton.Visible:=True;

Panel1.Visible:=False;

end;

end;

procedure TMain.N8Click(Sender: TObject); {Подсчитывает и отображает полное содержание всех счетов (В гривнах)}

var

Money: Double;

begin

if not FileExists('MainDataBase.kne') then

begin

exit;

end;

Money:=0;

Reset(DataBaseFile);

while not Eof(DataBaseFile) do

begin

Read(DataBaseFile,NewRecord);

Money:=Money+(NewRecord.UserMoneyRub*RubKurs)+NewRecord.UserMoneyHrv+(NewRecord.UserMoneyUSD*USDKurs);

end;

CloseFile(DataBaseFile);

MessageBox(Handle,PAnsiChar('Общее содержание счетов: '+FloatToStr(Money)+' грн.'),'Капитал банка',0);

end;

procedure TMain.Item23Click(Sender: TObject); {Вызывает форму смены процентных ставок клиентов}

begin

with TKassa.Create(Application) do {Создание дочернего окна демонстрации счетов}

begin

Panel1.Visible:=True;

RemoveUserButton.Visible:=False;

Caption:='Процентные ставки клиентов';

end;

end;

end.

Додаток Б

Екранні форми

Рис. 1 Головне вікно програми

Рис. 2 Вікно перегляду інформації про клієнтів банку

Рис. 3 Вікна відкриття та закриття рахунків

Размещено на Allbest.ru