Система управления работой банка с пластиковыми карточками (бухгалтерии и вируального банкомата)

Рис. 21

Форма не предназначена  для ввода данных, она служит только для просмотра информации. Существует возможность найти клиента по его фамилии, введя в поле поиска фамилию и нажав поиск. В форме присутствуют вкладки “Место жительства” и “Финансовая карта”. Нажав на кнопку “Выход” мы попадаем на форму “Форма_Операции_с_клиентами”.

 

Нажав на кнопку “Добавление  нового клиента” мы попадаем на форму  “Форма_Добавить_Клиента” (рис. 22):

Рис. 22

После ввода данных на нового клиента и нажатия на кнопку “Добавить нового клиента”, будет  выдано сообщение (рис. 23) и распечатан договор (рис. 24).

Поле “Пол”- это поле со списком, поэтому надо выбрать  из списка мужской или женский (тогда оно станет черным). Если мы не введем соответствующих данных, будет выдано сообщение (рис. 25). Нажав на кнопку “Выход” мы попадем на форму “Форма_Операции_с_клиентами”.

Рис. 23

 

 

Рис. 24

Рис. 25

 

Нажав на кнопку “Добавление  карты” мы попадаем на форму “Форма_Добавить_Карту” (рис. 26):

Рис. 26

Введя соответствующие  данные и нажав “Добавить карту” будет выдано сообщение (рис. 27) и  соответствующему клиенту добавлена  новая карта. Если соответствующего клиента не существует, будет выдано сообщение (рис. 28) и выполнен переход на форму “Форма_Добавить_Клиента”. Нажав на кнопку “Выход” мы попадем на форму “Форма_Операции_с_клиентами”.

Рис. 27

Рис. 28

Нажав на кнопку “Удаление  карты” мы попадаем на форму “Форма_Удаление_Карты” (рис. 29):

Рис. 29

Введя номер карты  и секретное слово (девичью фамилию  матери) и нажав на кнопку “Удалить карту”, получим сообщение (рис. 30):

Рис. 30

Если карты с введенным  номером не существует, будет выдано сообщение (рис. 31). Если мы не ввели  данных в поля, будет выдано сообщение (рис. 32). Нажав на копку “Выход” мы попадем на форму “Форма_Операции_с_клиентами”.

Рис. 31

Рис. 32

 

Нажав на кнопку “Редактирование  данных о клиенте” мы попадаем на форму  “Форма_Редактирование_Клиента” (рис. 33):

Рис. 33

Эта форма содержит все записи о клиентах, даже если у клиента в данный момент нет карты. Она позволяет редактировать любые данные о любом клиенте, кроме полей “Код Клиента” и “Текущий Счет”. Тут бухгалтер может разблокировать карту, сняв галочку с поля “Состояние”. Как и в форме “Форма_Общая_Инфо” присутствует функция поиска клиента по фамилии. Также на форме присутствует элемент ActiveX “Calendar”, связанный с полем “Дата Рождения”. Нажав на копку “Выход” мы попадем на форму “Форма_Операции_с_клиентами”.

Нажав на кнопку “Начисление денег на карту” мы попадаем на форму “Форма_начисление_денег” (рис. 34):

Рис. 34

После ввода номера карты  и суммы и нажатия на кнопку “Начислить деньги”, получим сообщение (рис. 35):

Рис. 35

Если карты с введенным  номером не существует, будет выдано сообщение (рис. 36). Если мы не ввели данных в поля, будет выдано сообщение (рис. 37). Нажав на копку “Выход” мы попадем на форму “Форма_Операции_с_клиентами”.

Рис. 36

Рис. 37

Нажав на кнопку “Транзакции  с картой” мы попадаем на форму  “Форма_транзакции ” (рис. 38):

Рис. 38

Введя номер карты, начальную  и конечные даты, а также выбрав тип отчета и нажав на кнопку “Распечатать транзакции”, мы получим соответствующий  отчет, например (рис. 39). Если мы не ввели  данных в поля, будет выдано сообщение (рис. 40). Если мы не выбрали тип отчета, будет выдано сообщение (рис. 41). Нажав на кнопку “Отмена”, мы отменим ввод наших данных. Нажав на копку “Выход” мы попадем на форму “Форма_Операции_с_клиентами”.

Рис. 39

Рис. 40

Рис. 41

 

Нажав на кнопку “Задать курсы валют” мы попадаем на форму “Форма_Курсы_Валют” (рис. 42):

Рис. 42

После ввода в соответствующие  поля данных и нажатия на кнопку “Установить курс”, будет выдано соответствующее сообщение (рис. 43) и установлен новый курс:

Рис. 43

Если мы не ввели данных в поля, будет выдано сообщение (рис. 44). Нажав на копку “Выход” мы попадем на форму “Форма_Операции_с_клиентами”.

 

Рис. 44

 

Наконец, нажав на кнопку “Выход”, мы возвратимся на форму  “Основа”. Таким образом, приложение реализует все поставленные задачи, касающиеся бухгалтерских операций с клиентами и пластиковыми картами.

Б) ВИРТУАЛЬНЫЙ  БАНКОМАТ

 

Рассмотрим работу с  виртуальным банкоматом.

Выбрав тип операции “Клиент” и введя пароль (номер  карты), мы перейдем на форму “Форма_Пин” (рис. 45). Если номер карты введен неправильно, будет выдано сообщение (рис. 46).

Рис. 45

Рис. 46

Введя пин-код и нажав  на кнопку “Далее”, мы попадем на форму  “Форма_Тип_Операции” (рис. 47). Если пин  введен неправильно, будет выдано сообщение (рис. 48) и будет осуществлен переход на форму “Форма_Пин_2” или на форму “Форма_Пин_3”, где мы вновь должны будем ввести пин-код. Если три раза будет введен неправильный пин-код, будет выдано сообщение (рис. 49) и карта заблокируется. Если пин введен правильно, но срок действия карты истек, будет выдано сообщение (рис. 50). Если пин введен правильно, но карта заблокирована, будет выдано сообщение (рис. 51). Нажав на кнопку “Отмена”, мы попадем на форму “Форма_Основа”.

Рис. 47

Рис. 48

Рис. 49

Рис. 50

Рис. 51

Форма “Форма_Тип_Операции”:

Нажав на кнопку “Выдача наличных”, мы попадем на форму “Форма_Снятие_Денег” (рис. 52). Выбрав тип валюты, указав сумму денежных средств и нажав на кнопку “Далее”, мы осуществим транзакцию и перейдем на форму “Форма_Чек_Деньги” (рис. 53), где нам будет предложено распечатать чек об операции. Если мы не выберем тип валюты, будет выдано сообщение (рис. 54). Если мы не укажем суммы, будет выдано сообщение (рис. 55). Если мы укажем сумму, которая превышает остаток денежных средств на карте, будет выдано сообщение (рис. 56). Если будет нажата кнопка “Выход”, будет осуществлен переход на форму “Форма_Тип_Операции”.

Нажав “Да” на форме  “Форма_Чек_Деньги”, будет распечатан чек об успешной транзакции (рис. 57) и осуществлен переход на форму  “Форма_Транзакция” (рис. 58). Нажав на ней “Да”, мы возвратимся к форме “Форма_Тип_Операции”. Нажав на “Нет”, мы перейдем на форму “Форма_Основа”.

Рис. 52

 

Рис. 53

 

Рис. 54

Рис. 55

Рис. 56

Рис. 57

Рис. 58

 

Нажав на кнопку “Остаток на счете”, мы перейдем на форму “Форма_Текущий_Счет” (рис. 59), где будет отражен остаток денежных средств на карте. Нажав на кнопку “Да”, мы возвратимся на форму “Форма_Тип_Операции”, на “Нет”- на форму “Форма_Основа”.

 

Рис. 59

Нажав на кнопку “Телефон”, мы попадем на форму “Форма_операции_с_телефоном” (рис. 60). Указав номер телефона, сумму денежных средств и нажав на кнопку “Далее”, мы осуществим транзакцию и перейдем на форму “Форма_Чек_Телефон”, где нам будет предложено распечатать чек об операции. Если мы не укажем номер телефона или сумму денежных средств, будет выдано сообщение (рис. 61). Если мы укажем сумму, которая превышает остаток денежных средств на карте, будет выдано сообщение (рис. 62). Если будет нажата кнопка “Выход”, будет осуществлен переход на форму “Форма_Тип_Операции”.

Нажав “Да” на форме  “Форма_Чек_Телефон” (рис. 63), будет  распечатан чек об успешной транзакции (рис. 64) и осуществлен переход  на форму “Форма_Транзакция”. Нажав  на ней “Да”, мы возвратимся к  форме “Форма_Тип_Операции”. Нажав  на “Нет”, мы перейдем на форму “Форма_Основа”.

Рис. 60

Рис. 61

Рис. 62

Рис. 63

Рис. 64

Нажав на кнопку “Выход”, мы попадем на форму “Форма_Основа”.

Таким образом, приложение реализует все поставленные задачи, касающиеся операций с виртуальным  банкоматом и клиентами, по обслуживанию пластиковых карт.

Текст всех программ форм на VBA находится в приложении 1.

Запросы и макрос autoexec в режиме конструктора находятся в приложении 2.

ЗАКЛЮЧЕНИЕ

При создании приложения на основе «настольной» базы данных Access выступает в роли СУРБД. Помимо этого Access может использоваться для создания файла проекта (с расширением .аdp), подключаемого к серверу SQL Server, что позволит совместно использовать данные сервера другими приложениями или пользователями по Сети.

Целью данной курсовой работы являлась разработка приложения, обеспечивающего  работу банка и его клиентов с  пластиковыми карточками (в частности, реализована идея работы виртуального банкомата, а также бухгалтерии). В ходе выполнения курсовой работы были закреплены навыки работы с объектами Access (таблицы, запросы, формы, отчеты, макросы), а также с универсальным языком приложений Microsoft Office – VBA.

Таким образом, на примере  данной курсовой работы были показаны некоторые возможности MS Access по разработке полнофункциональных приложений. В сочетании с языком Visual Basic была доказана гибкость и универсальность использования MS Access.

В ходе написания приложения было применено процессное проектирование приложения, при котором структура приложения базируется на функциях  или задачах, которые необходимо выполнить (проектирование сверху вниз). Также были учтены все этапы, которые должны предшествовать созданию приложения базы данных.

 

 

 

 

 

 

 

 

 

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Вейскас Дж. Эффективная работа: Microsoft Office Access 2003. – СПб.: Питер, 2005
2. Киммел, Пол. Освой самостоятельно программирование для Microsoft Access 2002 за 24 часа.: — М.: Издательский дом "Вильяме", 2003
3. Праг, Керри, Н., Ирвин, Майкл, Р. Access 2002. Библия пользователя. : -М. :Издательский дом “Вильямс”, 2004
4. Праг, Керри, Н., Рирдон, Дженнифер, Казевич, Лоренс, С., Рид, Дайана, Фэн, П. В. Интенсивный курс программирования в Access 2003 за выходные. :  — М. : Издательский дом "Вильяме", 2004
5. Чарльз Е. Браун, Рон Петруша Access VBA: Программирование в примерах. – М.: КУДИЦ-ОБРАЗ, 2006

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

ПРИЛОЖЕНИЕ 1 (ТЕКСТЫ ПРОГРАММ НА VBA)

1. “Форма_Основа”

Option Compare Database

'кнопка Отмена

Private Sub Кнопка23_Click()

[Forms]![Форма_Основа]![Группа1] = Null

[Forms]![Форма_Основа]![Пароль] = Null

DoCmd.RepaintObject acForm, "Форма_Основа"

End Sub

'------------------------------------------------------------

' Кнопка Далее

'

'------------------------------------------------------------

Private Sub Кнопка6_Click()

On Error GoTo Кнопка6_Click_Err

 

    If (Eval("[Forms]![Форма_Основа]![Группа1] Is Null")) Then

        Beep

        MsgBox "Выберите  тип операции", vbOKOnly, "Внимание"

        Exit Sub

    End If

    If (Eval("[Forms]![Форма_Основа]![Пароль] Is Null")) Then

        Beep

        MsgBox "Введите пароль", vbExclamation, "Внимание"

        Exit Sub

    End If

   

    Dim rec1 As DAO.Recordset

 

Set rec1 = CurrentDb.OpenRecordset("SELECT Клиент_Карта.НомерКарты " & _

"FROM Клиент_Карта " & _

" WHERE (Клиент_Карта.НомерКарты)=  " & Me![Пароль] & ";")

  

    If (Forms!Форма_Основа!Группа1 = 2 And rec1.EOF) Then

        Beep

        MsgBox "Вы ввели неправильный номер карты"

        [Forms]![Форма_Основа]![Группа1] = Null

        [Forms]![Форма_Основа]![Пароль] = Null

        DoCmd.RepaintObject acForm, "Форма_Основа"

        Exit Sub

    End If

   

    If (Forms!Форма_Основа!Группа1 = 1 And 321 <> Forms!Форма_Основа!Пароль) Then

        Beep

        MsgBox "Неправильный пароль для бухгалтерии", vbExclamation, ""

        [Forms]![Форма_Основа]![Группа1] = Null

        [Forms]![Форма_Основа]![Пароль] = Null

        DoCmd.RepaintObject acForm, "Форма_Основа"

        Exit Sub

    End If

   

    If (Forms!Форма_Основа!Группа1 = 2 And Not rec1.EOF) Then

        DoCmd.OpenForm "Форма_Пин", acNormal, "", "", , acNormal

        Forms![Форма_Пин]![НомерКарты] = Forms![Форма_Основа]![Пароль]