Разработка автоматизированной системы учета вкладов в банке - Программирование, компьютеры и кибернетика курсовая работа

Главная

Программирование, компьютеры и кибернетика
Разработка автоматизированной системы учета вкладов в банке

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


посмотреть текст работы


скачать работу можно здесь


полная информация о работе


весь список подобных работ


Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Современный мир информационных технологий трудно представить себе без использования баз данных. Практически все системы в той или иной степени связаны с функциями долговременного хранения и обработки информации. Фактически информация становится фактором, определяющим эффективность любой сферы деятельности. Увеличились информационные потоки и повысились требования к скорости обработки данных, и теперь уже большинство операций не может быть выполнено вручную, они требуют применения наиболее перспективных компьютерных технологий.
Базы данных создаются обычно не для решения какой-либо одной задачи для одного пользователя, а для многоцелевого использования. Базы данных отражают определенную часть реального мира. Эта информация должна по возможности фиксироваться в базе данных однократно, и все пользователи, которым эта информация нужна, должны иметь возможность работать с ней. Отсутствие централизованных методов управления доступом к информации послужило причиной разработки систем управления базой данных, а сами хранилища информации, которые работали под управлением данных систем, назывались базами или банками данных.
Автоматизированные информационные системы - это совокупность информации экономико-математических методов и моделей технических, программных, технологических средств и специалистов, предназначенных для автоматизации деятельности, связанной с хранением, передачей и обработкой информации. Классическими примерами автоматизированных информационных систем являются банковские системы, автоматизированные системы управления предприятиями, системы резервирования авиационных или железнодорожных билетов и т. д.
Целью данного дипломного проекта является разработка автоматизированной системы учета вкладов в банке.
Автоматизация позволит работникам избавиться от многих рутинных процессов, что обеспечит наиболее быстрое, полное и качественное обслуживание клиентов.
Требуется разработать информационную систему для ведения учета вкладов в банке. Система должна предусматривать проверки данных клиентов, учет вкладов.
В информационной системе необходимо хранить большое количество информации, вследствие чего разработка программного продукта начинается с создания базы данных, в которой хранится информация о клиентах.
- создать формы для работы с базой;
- организовать пользовательское меню;
Необходимо разработать базу данных, которая отвечает следующим показателям:
Перечень документов, необходимых для открытия счета в банке физическому лицу - резиденту, не являющемуся предпринимателем:
1. Заявление на открытие счета в соответствующей валюте (на бланке банка).
2. Паспорт или иной документ, удостоверяющий личность физического лица (предъявляется на обозрение).
3. Карточка с образцом подписи физического лица (удостоверенная нотариально или уполномоченным лицом банка).
Перечень документов, необходимых для открытия счета в Банке физическому лицу - нерезиденту:
1. Заявление на открытие счета в соответствующей валюте (на бланке банка).
2. Паспорт или иной действительный документ, удостоверяющий личность физического лица - нерезидента и признаваемый РФ в этом качестве, если иное не предусмотрено международными договорами РФ, содержащий въездную визу, выданную соответствующим дипломатическим представительством или консульским учреждением РФ за пределами территории РФ либо органом внутренних дел или Министерством иностранных дел РФ, если иное не предусмотрено международным договором РФ (если международным договором РФ предусмотрен безвизовый въезд физического лица - нерезидента, прибывающего из иностранного государства на территорию РФ, то въездная виза не требуется) (предъявляется на обозрение).
3. Разрешение (лицензия) национального банка иностранного государства на открытие физическому лицу - нерезиденту счетов в банках РФ, если наличие такого разрешения требуется в соответствии с международными договорами с участием РФ (нотариально удостоверенная копия, на обозрение предъявляется также оригинал).
4. Карточка с образцом подписи физического лица - нерезидента (удостоверенная нотариально или уполномоченным лицом банка).
Иностранные документы принимаются только с подлинными отметками о консульской легализации либо заверении апостилем (для стран - участниц Гаагской Конвенции 1961 г.), если освобождение от этих процедур не предусмотрено международными соглашениями РФ, вместе с удостоверенным нотариально либо в консульском загранучреждении переводом на русский язык.
1.2 Функциональная модель предметной области
Функциональная модель - это модель инфологического уровня представления, в которой акцентируется функциональный аспект моделирования предметной области.
Функциональная модель в виде иерархии функций способствует пониманию поведения субъекта моделирования.
В соответствии с методологией структурного анализа в первую очередь строится контекстная диаграмма - самое общее описание главной функции системы в целом и ее взаимодействия с внешней средой. Контекстная диаграмма представлена на рисунке 1.2.1.
Рисунок 1.2.1 - Контекстная диаграмма «Автоматизация учета вкладов
Последующая, функциональная декомпозиция сопровождается построением диаграмм декомпозиции, которые описывают каждый фрагмент декомпозиции и их взаимодействие. Детализация функциональной модели продолжается до достижения необходимой степени подробности. После каждого шага декомпозиции выполняется сеанс экспертизы с участием экспертов предметной области. Диаграмма декомпозиции представлена на рисунке 1.2.2.
Рисунок 1.2.2 - Диаграмма декомпозиции «Автоматизация учета вкладов в банке»
Схема данных отображает путь данных при решении задачи и определяет этапы обработки, информационные потоки и применяемые носители данных. Схема данных представлена на рисунке 1.3.1.
Входным документом для задачи «Автоматизация учета вкладов в банке» является заявление,паспорт от клиента. Описание входного документа показано в таблице 1.4.1.
Таблица 1.4.1 - Описание входных документов
1.5 Описание структуры базы данных
Описание структуры базы данных показано в таблице 1.5.1.
Таблица 1.5.1 - Описание структуры базы данных
Описание выходных документов показано в таблице 1.6.1
Таблица 1.6.1 - Описание выходных документов
Выходные документы и отчеты получаются на основании входных данных.
Выходной документ «Договор» приведен в приложении Б.
Контрольный пример является ручным вариантом просчета решения задачи и служит для проверки правильности решения задач на ЭВМ.
Формы «Добавление нового клиента» и «Список клиентов» показаны на рисунках 1.7.1 - 1.7.2
Рисунок 1.7.1 - Форма «Добавление нового клиента»
Рисунок 1.7.2 - Форма «Список клиентов»
1.8 Общие требования к программному продукту
Программный продукт должен обладать высокой степенью надежности. Во всем программном продукте должно использоваться ограничение ввода данных в поля таблиц. Перед занесением новых данных должна производиться проверка введенной информации на соответствие. Программный продукт должен обладать высоким быстродействием, производит все действия за короткий промежуток времени.
Создаваемый программный продукт позволяет:
- вести автоматизированный учет вкладов в банке;
Для корректной работы программы компьютер должен соответствовать следующим минимальным требованиям:
- 20 МБ свободного пространства на диске;
Также на компьютере необходимо наличие таких программных продуктов как:
2.1 Обоснование выбора языка программирования
Среди большого разнообразия продуктов для разработки приложений Delphi занимает одно из ведущих мест. Delphi отдают предпочтение разработчики с разным стажем, привычками, профессиональными интересами. С помощью Delphi написано колоссальное количество приложений, десятки фирм и тысячи программистов-одиночек разрабатывают для Delphi дополнительные компоненты.
В основе такой общепризнанной популярности лежит тот факт, что Delphi, как никакая другая система программирования, удовлетворяет изложенным выше требованиям. Действительно, приложения с помощью Delphi разрабатываются быстро, причем взаимодействие разработчика с интерактивной средой Delphi не вызывает внутреннего отторжения, а наоборот, оставляет ощущение комфорта. Delphi-приложения эффективны, если разработчик соблюдает определенные правила (и часто - если не соблюдает). Эти приложения надежны и при эксплуатации обладают предсказуемым поведением.
Интегрированная среда разработки Delphi с ее инструментами визуального редактирования, библиотекой компонент, механизмом баз данных и многим другим, идеально подходит для написания приложений Windows, используя свой диалект языка Object Pascal - Delphi Pascal, который является объектно-ориентированным.
В состав Delphi входят компоненты, позволяющие создавать программы работы с файлами данных, созданными различными системами: от dBASE до Infomix и Oracle. Delphi также позволяет программисту, используя утилиту Borland Database Desktop, создавать файлы баз данных в различных форматах.
В зависимости от расположения программы, использующей данные, и самих данных, а также способа разделения данных между несколькими пользователями различают локальные и удаленные базы данных.
Paradox - это локальная база данных. Данные локальной базы данных находятся на одном устройстве, в качестве которого может выступать диск компьютера или сетевой диск. Для обеспечения доступа к данным между несколькими пользовате-лями, в качестве которых выступают программы, работающие на одном или нескольких компьютерах, в локальных базах данных применяется метод, получивший название блокировка файлов. Суть этого метода заключается в том, что пока данные используются одним пользователем, другой пользователь не может работать с этими данными, т.е. данные для него закрыты, заблокированы.
Пакет Delphi - продолжение линии компиляторов языка Pascal корпорации Borland. Pascal как язык очень прост, а строгий контроль типов данных способствует раннему обнаружению ошибок и позволяет быстро создавать надежные и эффективные программы.
Обоснованием выбора служат следующие факторы:
- быстрота разработки. От быстрой разработки зависит, прежде всего, цена программного продукта. Для увеличения скорости написания Windows-приложений необходимо использовать средства визуального программирования. Delphi как нельзя более подходит для выполнения данной задачи, так как назначение Delphi - быстрая разработка приложений (RAD - Rapid Application Development). Разработка приложений интерфейса пользователя с помощью Delphi - в основном процесс проектирования, с весьма небольшим количеством фактического программирования, что существенно сокращает время на создание удобного интерфейса, отвечающего стандартам разработки Windows-приложений. Delphi может компилировать 32-битные программы, обеспечивая высокую скорость выполнения;
- характер задачи. Рассматриваемая в дипломном проекте задача относится к разряду с использованием баз данных. В состав Delphi входит высокоэффективный компилятор с языка Object Pascal, основанном на концепции объектно-ориентированного программирования. Данный компилятор генерирует оптимизированный код, позволяющий увеличить скорость выполнения программ, что немаловажно для данного программного продукта. Delphi создает действительно откомпилированные программы, готовые для исполнения;
- доступ к аппаратным средствам. Постановка задачи исключает необходимость доступа к аппаратным средствам ЭВМ, поэтому отсутствует надобность выбора языка низкого уровня для написания программы или ее частей.
Таким образом, среда программирования Delphi является оптимальным выбором для решения поставленной задачи, так как:
- обеспечивает простоту написания вычислительных частей приложения, высокую скорость вычисления скомпилированной программы;
- обладает широкими средствами визуального построения интерфейса;
- обладает обширными средствами поддержки баз данных.
Программа «Автоматизация учета вкладов в банке» имеет модульную структуру и состоит из 14 модулей. Код программы приведен в приложении А. Список модулей, и их связь представлены в модульной схеме (рисунок 2.2.1).
mainDataModuleUnit (Открытие модуля данных):
- procedure TmainDataModule.N8Click(Sender: TObject);- переход на форму «О программе»;
- Procedure TmainDataModule.N9Click(Sender:TObject);- создание резервной копии;
- procedure TmainDataModule.N14Click(Sender: TObject);- выполнение восстановления данных;
- procedure TmainDataModule.N5Click(Sender: TObject);- вызов справочной системы;
- procedure TmainDataModule.N6Click(Sender: TObject);- вызов помощи;
- procedure TmainDataModule.N13Click(Sender: TObject);- переход на форму «Диаграмма по видам вкладов»;
- procedure TmainDataModule.N3Click(Sender: TObject);- переход на форму «Диаграмма по месяцам»
- procedure TmainForm.SpeedButton2Click(Sender: TObject);- переход на форму «Счета»;
- procedure TmainForm.SpeedButton3Click(Sender: TObject); - переход на форму «Виды вкладов»;
- procedure TmainForm.SpeedButton1Click(Sender: TObject);- переход на форму «Сотрудники».
- procedure TForm1.Button6Click(Sender: TObject);- переход на главную форму;
- procedure TForm1.Button4Click(Sender: TObject);- переход на форму «Список клиентов»;
- procedure TForm1.Button2Click(Sender: TObject);- поиск по номеру счета;
- procedure TForm1.Button1Click(Sender: TObject);- очистка таблицы;
- procedure TForm1.Button5Click(Sender: TObject);- добавление суммы;
- procedure TForm1.Button7Click(Sender: TObject);- удаление счета;
- procedure TForm1.Button8Click(Sender: TObject);- экспорт в Excel.
- procedure TForm2.Button5Click(Sender: TObject);- переход на главную форму;
- procedure TForm2.Button1Click(Sender: TObject);- поиск по коду вклада и % ставке;
- procedure TForm2.Button3Click(Sender: TObject);- открытие отчета «Виды вкладов».
- procedure TForm3.Button4Click(Sender: TObject);- переход на главную форму;
- procedure TForm3.DBGrid1TitleClick(Column: TColumn);- сортировка;
- procedure TForm3.Button1Click(Sender: TObject);- сортировка по фамилии;
- procedure TForm3.Button2Click(Sender: TObject);- сортировка по дате рождения.
- procedure TForm3.Button3Click(Sender: TObject);- добавление нового сотрудника;
- procedure TForm3.Button5Click(Sender: TObject);- изменение данных сотрудника;
- procedure TForm3.Button6Click(Sender: TObject);- удаление сотрудника.
- procedure TForm5.BitBtn1Click(Sender: TObject);- сохранение данных.
- procedure TForm6.Button1Click(Sender: TObject); - добавление клиента;
- procedure TForm6.Button2Click(Sender: TObject);- изменение клиента;
- procedure TForm6.Button3Click(Sender: TObject);- удаление клиента;
- procedure TForm6.Button5Click(Sender: TObject);- переход на главную форму;
- procedure TForm6.Button4Click(Sender: TObject);- печать договора.
2.3 Протокол тестирования программного продукта
Тестирование программного продукта на некорректных данных:
- при входе в программу и вводе неправильного пароля выводится сообщение: «Неверный пароль;
- запрещается ввод и изменение данных представленных в табличном виде непосредственно в самой таблице, только через специальные формы
Данный программный продукт удовлетворяет всем функциональным требованиям, имеет дружественный интерфейс, исключает появлении системных ошибок.
При тестировании программного продукта на данных контрольного примера модификация данных, сортировка, поиск, подсчет статистики, экспорт в Excel, вывод отчетов происходит корректно. Результаты тестирования полностью совпадают с ожидаемыми результатами.
Для правильной работы нельзя перемещать файл базы данных из основной папки и переименовывать все файлы, находящиеся в ней во избежание ошибок.
Запуск программы осуществляется приложением Project.exe. После запуска приложения открывается окно авторизации пользователя (рисунок 2.4.1).
Выход из программы осуществляется нажатием кнопки «Выход». Для продолжения работы необходимо ввести логин и пароль. При введении неправильного логина или пароля система выдает ошибку (рисунок 2.4.2).
После успешной авторизации появится форма «Банк» (рисунок 2.4.3).
Примеры открытых таблиц показаны на рисунках 2.4.4 - 2.4.6.
Рисунок 2.4.4 - Таблица «Сотрудники»
Рисунок 2.4.6 - Таблица «Виды вкладов»
В каждой таблице осуществляется модификация данных. Чтобы добавить запись в таблицу нажмите на кнопку , после чего откроется форма «Добавление записи». Заполнив все поля, для сохранения нажмите на кнопку , для закрытия формы без сохранения - . Пример представлен на рисунке 2.4.7.
Рисунок 2.4.7 - Добавление записи в таблицу «Вклады»
Чтобы удалить запись выделите ее и нажмите на кнопку , после чего появится окно подтверждения удаления. Пример представлен на рисунке 2.4.8
Просмотр сформированного отчета осуществляется кнопкой (рисунок 2.4.9) в таблице «Виды вкладов». Пример представлен на рисунке 2.4.10.
Рисунок 2.4.9 - Пункт меню «Отчеты»
Рисунок 2.4.10 - Отчет «По видам вкладов»
Поиск записей возможен в двух таблицах. Поиск производится нажатием кнопки на форме с открытой таблицей, в которой Вы хотите осуществить поиск записей. На форме для поиска напишите значение по которому Вы хотите искать запись,затем нажмите кнопку .
Сортировка данных возможна в одной таблице.На форме для сортировки отметьте поле, по которому вы хотите сортировать записи. Пример показан на рисунке 2.4.11.
Рисунок 2.4.11 - Сортировка в таблице «Сотрудники»
Просмотр диаграмм осуществляется в главном меню,в форме «Банк». Примеры представлены на рисунках 2.4.12 - 2.4.13.
Рисунок 2.4.12 - Диаграмма по видам вкладов
Рисунок 2.4.13 - Диаграмма по месяцам
Экспорт данных в Excel возможен в одной таблице. Осуществляется нажатием кнопки на форме «Счета». Пример показан на рисунке 2.4.14.
Рисунок 2.4.14 - Экспорт в Excel таблицы «Счета»
Вызов справки осуществляется выбором пункта в форме главного меню. Пример вызова справки показан на рисунке 2.4.15.
Просмотр образца договора осуществляется нажатием кнопки . Пример представлен на рисунке 2.4.16.
Резервное копирование базы данных осуществляется выбором вкладки «Резервное копирование» в пункте меню «Сервис» (рисунок 2.4.17). После чего откроется окно сообщения «Резервное копирование» (рисунок 2.4.18). Затем нажа кнопку «ОК» происходит резервное копирование.
Восстановление базы данных осуществляется выбором вкладки «Восстановление базы данных» в пункте меню «Сервис» (рисунок 2.4.17). После чего откроется окно «Восстановление данных» (рисунок 2.4.19). Затем нажа кнопку «ОК» происходит восстановление данных.
Рисунок 2.4.17 - Пункт меню «Сервис»
Рисунок 2.4.18 - Резервное копирование
Рисунок 2.4.19 - Восстановление данных
Выход из приложения осуществляется выбором пункта меню .
3.1 Расчёт затрат на создание программного продукта
Расчет себестоимости машинного часа эксплуатации вычислительной и оргтехники (ВиОТ):
где С м.ч. - себестоимость машинного часа;
F п - годовой полезный фонд времени работы единицы оборудования;
К г =0,95 - коэффициент готовности;
З i -годовые затраты, связанные с эксплуатацией и обслуживанием ВиОТ.
где F Н =1944 - номинальный годовой фонд рабочего времени в часах в 2014 году;
р =(0,05…0,2) - коэффициент, учитывающий время, затраченное на ремонт, настройку, обслуживание ВиОТ.
Для расчета годовых затрат, необходимо определить балансовую стоимость условного комплекта С БАЛ :
Таблица 3.2 - Состав условного комплекта.
где Р Д - дополнительные расходы на доставку, установку, первоначальную наладку и пр.
Р Д = 0,1*(24650*1+5600*1+280*1+180*1+3690*1) = 3440 (руб.).
С БАЛ = 24650*1+5600*1+280*1+180*1+3690*1+3440 = 37840 (руб.).
Основная и дополнительная заработная плата персонала, обслуживающего ВиОТ. Предусмотрен 1 человек.
гдеО i =6000 - оклад i-го работника, обслуживающего ВиОТ,
К д = 0,1 - коэффициент дополнительной заработной платы,
Начисления на заработную плату Н З/П составляет 30,2%.
Федеральный фонд обязательного медицинского страхования
Страховой налог от несчастного случая на производстве для служащих
где = 0,2 - норма амортизационных начислений.
АО ОБОР = 37840 * 0,2 = 7568 (руб.).
Условный комплект обладает следующими необходимыми программными продуктами:
Таблица 3.3 - Используемые программные средства
Амортизационные отчисления программных продуктов - АО пп
где = 0,65 - норма амортизационных начислений.
= 75895 руб. - суммарная стоимость программных продуктов.
АО ПП = 75895 * 0,65 = 49331,7 (руб.).
Расходы на содержание и эксплуатацию оборудования.
Расходы на содержание и эксплуатацию оборудования состоят из:
- затрат на ремонт и специальное обслуживание
Расходы на содержание и эксплуатацию оборудования
Так как используется один тип техники и количество обслуживающего персонала не превышает трех человек, следовательно:
Себестоимость машинного часа, из формулы (1), составляет:
3.2 Расчет цены предложения и минимального количества копий тиражирования
Т О = 2 месяца - общее время работы над программным продуктом.
Т М = 1,5 месяца - машинное время работы над программным продуктом.
Фонд оплаты труда за время работы над программным продуктом.
где К д = 0,15 - коэффициент дополнительной заработной платы.
О = 5000 руб. - оклад, работающего над продуктом.
ФОТ =5000*2*(1+0,15)*(1+0,15) = 13225 (руб.).
Н З/П = 13225 * 0,302 = 3993,95 (руб.).
Затраты, связанные с эксплуатацией и обслуживанием ВиОТ:
где ЧР М = 162 - число рабочих часов в месяце;
К И = 0,9 - коэффициент использования оборудования.
N = 1 - количество условных комплектов.
З ОВТ = 1,5*162*0,9*1*12 = 2624,4 (руб.).
Затраты на хозяйственные операции и нужды (З ХН ):
Таблица 3.4 - Затраты на хозяйственные нужды.
Полные затраты на разработку программного продукта:
З ПОЛ = 19440 + 3314,3 + 2624,4 + 0 + 406 + 5060= 60506 (руб.).
где R У = 20 % - установочная рентабельность.
ПР У = 60506* 0,2 = 12101,26 (руб.).
Расчет величины налога на добавленную стоимость (НДС):
НДС = (60506+12101) * 0,18 = 13069 (руб.).
Цена предложения разработанного программного продукта:
Ц ПР = 60506 + 12101 + 13069= 85676,93 (руб.).
Расчет минимального количества копий, необходимых для реализации, для получения установочной прибыли:
где Ц СПР - цена на рынке одной копии программного продукта;
З ТИРАЖ -затраты на тиражирование одной копии программного продукта.
В процессе выполнения дипломного проекта были разработаны структура и алгоритм работы приложения «Автоматизация учета вкладов в банке». При этом были учтены особенности реализации других компонентов информационной системы.
Результатом работы стало создание программного обеспечения. Программа Project.exe написана на языке Object Pascal в среде программирования Delphi 7.0. с использованием СУБД Paradox 7, предназначена для работы в операционной системе MS Windows XP и отлажена на данных контрольного примера.
В процессе разработки дипломного проекта были приобретены навыки в области построения баз данных, а также их программной защиты. Кроме того, был разработан дружественный интерфейс.
Были написаны руководство пользователя. Приложение было выполнено на данных контрольного примера.
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
procedure OKBtnClick(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure TPasswordDlg.OKBtnClick(Sender: TObject);
Application.MessageBox('Неверный пароль','Неверный пароль');
procedure TPasswordDlg.Button1Click(Sender: TObject);
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, Buttons, jpeg, ExtCtrls;
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
uses Sotrudniki, Unit2, Unit3, Unit4, Unit9, Unit10;
procedure TmainForm.SpeedButton2Click(Sender: TObject);
procedure TmainForm.SpeedButton3Click(Sender: TObject);
procedure TmainForm.SpeedButton1Click(Sender: TObject);
procedure TmainForm.SpeedButton4Click(Sender: TObject);
procedure TmainForm.FormCreate(Sender: TObject);
HelpFile := ExtractFilePath(Application.ExeName) + 'help\sber.chm';
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, ShellAPI, ComObj;
procedure Button6Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
uses mainDataModuleUnit, mainUnit, Unit5, Unit4, Unit11, Unit6;
procedure TForm1.Button6Click(Sender: TObject);
procedure TForm1.Button3Click(Sender: TObject);
mainDataModule.Query1.SQL.Add('SELECT (SELECT SUM(Prixod) FROM Vkladu WHERE N_cheta = '''+form1.ComboBox1.Text + ''')-(SELECT SUM(Rasxod) FROM Vkladu WHERE N_cheta = '''+form1.ComboBox1.Text + ''') FROM Vkladu');
label5.Caption:=mainDataModule.Query1.Fields[0].AsString + ' руб.';
mainDataModule.Query1.SQL.Add('SELECT * FROM Vkladu');
mainDataModule.Query1.SQL.Add('WHERE N_cheta = '''+form1.ComboBox1.Text + '''');
Self.DBGrid1.DataSource:= mainDataModule.DataSource5;
Form5.Edit1.Text:=mainDataModule.Query1.Fields[1].AsString;
procedure TForm1.Button4Click(Sender: TObject);
procedure TForm1.Button2Click(Sender: TObject);
mainDataModule.Query2.Active:=False;
mainDataModule.Query2.SQL.Add('SELECT * FROM Klientu');
mainDataModule.Query2.SQL.Add('WHERE N_cheta = '''+ComboBox1.Text + '''');
Self.DBGrid1.DataSource:= mainDataModule.DataSource6;
procedure TForm1.FormShow(Sender: TObject);
while not mainDataModule.Query2.Eof do
ComboBox1.Items.Add(mainDataModule.Query2.Fields.FieldByName('N_cheta').AsString);
procedure TForm1.Button1Click(Sender: TObject);
procedure TForm1.Button5Click(Sender: TObject);
procedure TForm1.Button7Click(Sender: TObject);
mtConfirmation, [mbYes,mbNo], 0)=mrYes then mainDataModule.Table5.Delete;
procedure TForm1.Button8Click(Sender: TObject);
ExcelApp:=createOleObject('Excel.Application');
ExcelApp.WorkBooks[1].WorkSheets[1].Name:='счета';
sheet:=ExcelApp.WorkBooks[1].WorkSheets['счета'];
form1.dbgrid1.DataSource.DataSet.First;
for i:=1 to form1.dbgrid1.DataSource.DataSet.RecordCount do begin
for j:=1 to form1.dbgrid1.FieldCount do
sheet.cells[index, j]:=form1.dbgrid1.Fields[j-1].AsString;
form1.dbgrid1.DataSource.DataSet.Next;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls, DB, DBTables,
procedure Button5Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
uses mainUnit, mainDataModuleUnit, Unit6, Unit9;
procedure TForm2.Button5Click(Sender: TObject);
procedure TForm2.Button1Click(Sender: TObject);
if not (CheckBox1.Checked or CheckBox2.Checked) then
MessageDlg('Не заданы условия поиска!',mtInformation, [mbOK],0);
if CheckBox1.Checked and CheckBox2.Checked then
KeyValues:=VarArrayOf([Edit1.Text, Edit2.Text]);
Options:=[loCaseInsensitive, loPartialKey];
if not mainDataModule.Table4.Locate(KeyFields,KeyValues,Options) then
MessageDlg('Запись не найдена!',mtInformation, [mbOK],0);
procedure TForm2.Button3Click(Sender: TObject);
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, ExcelXP, ComObj,
TeEngine, Series, TeeProcs, Chart, DbChart;
procedure Button4Click(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
uses mainDataModuleUnit, Unit7, mainUnit, Unit12;
procedure TForm3.Button4Click(Sender: TObject);
procedure TForm3.DBGrid1TitleClick(Column: TColumn);
mainDataModule.table2.IndexFieldNames:=Column.FieldName;
procedure TForm3.Button1Click(Sender: TObject);
mainDataModule.Table2.IndexFieldNames:='FIO';
procedure TForm3.Button2Click(Sender: TObject);
mainDataModule.Table2.IndexFieldNames:='Stash';
procedure TForm3.Button3Click(Sender: TObject);
procedure TForm3.Button5Click(Sender: TObject);
procedure TForm3.Button6Click(Sender: TObject);
mtConfirmation, [mbYes,mbNo], 0)=mrYes then mainDataModule.Table2.Delete;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, TeeProcs, TeEngine, Chart, DbChart, Series;
procedure FormCreate(Sender: TObject);
procedure TForm4.FormCreate(Sender: TObject);
mainDataModule.Query4.Active:=true;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons, ComCtrls;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
uses mainDataModuleUnit, mainUnit, Unit4, Sotrudniki;
procedure TForm5.BitBtn1Click(Sender: TObject);
if DateTimePicker1.Date < Date then
ShowMessage('Вы пытаетесь добавить задним числом!')
if (Edit1.Text = '01360179') or (Edit1.Text = '02369899') or (Edit1.Text = '59207788') then
ShowMessage('Недопустимый номер счета!')
FieldByName('N_cheta').AsString:=Edit1.Text;
FieldByName('Data').AsString:=DateToStr(DateTimePicker1.Date);
FieldByName('Prixod').AsString:=Edit2.Text;
FieldByName('Rasxod').AsString:=Edit3.Text;
FieldByName('Tab_N_sotr').AsString:='3';
mainDataModule.Query1.Active:=false;
mainDataModule.Query1.Active:=true;
procedure TForm5.BitBtn2Click(Sender: TObject);
procedure TForm5.FormCreate(Sender: TObject);
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables, shellapi, ComObj;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click
Разработка автоматизированной системы учета вкладов в банке курсовая работа. Программирование, компьютеры и кибернетика.
Курсовая работа: Дезинфицирующие и антисептические средства в ветеринарии
Реферат по теме Общая характеристика итальянского дизайна в различных отраслях производства (мебель, автомобили, костюм)
Курсовая Работа Образец Заключения
Характеристики По Педагогической Практике
Дипломная работа по теме Нахождение оптимальных условий для протекания производственных процессов, экономии сырья и материалов
Отчет О Прохождении Практики В Воинской Части
Азиатско-американская раса
Мой Любимый Колледж Эссе
Образовательная Воспитательная И Развивающая Функции Обучения Реферат
Эссе На Тему Мастерство
Сочинение Отдых На Море 5
Сочинение На Тему Время Всегда Хорошее
9кл Контрольные Работы По Алгебре Макарычев
Реферат по теме Почвы, их происхождение, свойства и их роль в жизни
Курсовая работа по теме Катаризм как социокультурный феномен эпохи Высокого Средневековья
Курсовая На Тему Уголовное Право
Реферат по теме Арабская литература и поэзия
Реферат: Александр Сергеевич Пушкин 8
Курсовая работа: Электронные справочники на уроках информатики и требования к ним
Доклад по теме Созвездие Треугольник
Учет приемки товаров - Бухгалтерский учет и аудит контрольная работа
Защита права собственности от посягательств - Государство и право курсовая работа
Мальта - География и экономическая география презентация