Автоматизация рабочего места кассира-операциониста
Разработка автоматизированного рабочего места кассира-операциониста автоматизированных банковских систем. Документы, применяемые при оформлении операции по вкладам. Построение и нормализация инфологической модели. Разработка интерфейса пользователя.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 12.11.2015 |
| Размер файла | 1,1 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Содержание
Введение
1. Операции по вкладам физических лиц
1.1 Расчетно-кассовые операции банков
1.2 Порядок оформления вкладов
1.3 Документы, применяемые при оформлении операции по вкладам
2. Проектирование информационной системы
2.1 Построение и нормализация инфологической модели
2.2 Построение даталогической модели
3. Разработка интерфейса пользователя
3.1 Запросы
3.2 Формы
3.3 Основной интерфейс базы данных
Заключение
Список использованной литературы
Приложения
интерфейс автоматизированный кассир банковский
Введение
В данной работе в качестве предметной области рассматривается деятельность кассиров-операционнистов Сберегательного банка России.
База данных решает следующие задачи:
· учёт приходно-кассовых ордеров, выдача данных о клиентах и их кредитах, вычисляет суммы оплаты
· реализует запросы упорядочения по полям: клиенты, кредиты. Осуществляет поиск сведений о клиенте.
Банковский кассир-операционист -- специалист, осуществляющий в банке операции с денежными средствами частных и юридических лиц. Работа техническая, требует исполнения должностных обязанностей согласно строго установленным инструкциям и правилам оформления документов. Кассиры-операционисты в банке могут оформлять перечисление денежных средств, вносить вклады, выдавать наличные, осуществлять обмен валюты. Принятые денежные знаки кассир-операционист должен сдавать в установленный срок, оформив операционную документацию дня и отразив проведенные операции в кассовой книге.
Его основная работа состоит в общении с частными клиентами, решении их вопросов, консультировании и оказании им всевозможной помощи в связи с услугами и продуктами банка
Очень большую часть работы кассира-операциониста образует работа с бумагами и различными компьютерными программами.
Обоснование необходимости и цели использования вычислительной техники данной задачи состоит из трех этапов.
· Целью первого этапа является сбор, регистрация, передача данных для дальнейшей обработки. Результатом является составление документа.
· Цель второго этапа - перенос данных на машинные носители и первоначальное формирование информационной базы.
· Третий этап включает операции накопления, сортировки, корректировки, обработки данных и выдачи результатов.
При этом требуется учитывать следующие требования:
- обеспечение достоверности обрабатываемой информации;
- решение задач в установленные сроки;
- обеспечение минимальных трудовых и стоимостных затрат на обработку данных;
- наличие возможности обработки данных на ЭВМ;
- возможность решения задачи в различных режимах.
Эти требования могут быть выполнены за счет нескольких факторов:
- сокращение числа операций, особенно ручных;
- разработка системы жесткого контроля вводимой информации;
- снижение объема обрабатываемых данных;
- повышение квалификации пользователей, улучшение условий труда и, как следствие, повышение производительности.
Актуальность автоматизации информационной системы банка включается в том, что использование СУБД при построении системы банковского обслуживания позволяет не только организовать хранение данных в рамках единой базы данных, но и управлять потоками информации и данных в системе, основываясь на единых принципах и методах, обеспечивающих реализацию конкретных предметно- ориентированных алгоритмов обработки.
Объектом исследования в данной курсовой работе явилась деятельность кассиров-операционистов автоматизированных банковских систем.
Предметом исследования в данной работе было создание автоматизированного рабочего места кассира-операциониста АБС.
Целью данной работы явилась разработка автоматизированного рабочего места кассира-операциониста автоматизированных банковских систем (АБС).
Задачами, которые следует решить для раскрытия выбранной темы, являются:
- системный анализ предметной области;
- построение инфологической модели;
- моделирование связей между ними;
- разработка интерфейса пользователя.
1. Операции по вкладам физических лиц
1.1 Расчетно-кассовые операции банков
Обязанность кассиров - получать наличные деньги в банках (приходные операции) и выдавать их в соответствии с хозяйственными целями (расходные операции) данного предприятия. Перечень расходов утверждается руководством предприятий. Расход денег по усмотрению кассиров запрещен. Банкоматы используются для круглосуточного обслуживания клиентов при получении наличных денег с их счетов в банках. Все приходные и расходные операции кассиров фиксируются в бухгалтерском документе, который называется кассовой книгой. Операции по получению денег оформляются приходными, а по выдаче - расходными кассовыми ордерами
Для удовлетворения потребностей клиентов в наличных деньгах в каждом коммерческом банке создаются приходные и расходные кассы. В приходных кассах производится прием денежной выручки клиентов. Расходные кассы предназначены для обеспечения потребностей банковских клиентов в наличных деньгах. В этих кассах клиенты банков с помощью чеков получают наличные деньги в пределах сумм, отраженных в кассовых заявках. Обязательное условие получения наличных денег - их наличие на счете клиента в банке.
1.2 Порядок оформления вкладов
Вкладчиками могут быть граждане Российской Федерации, иностранные граждане и лица без гражданства, как резиденты, так и нерезиденты.
Вкладчики свободны в выборе банка для размещения во вклады принадлежащих им денежных средств и могут иметь вклады в одном или нескольких банках.
Банки принимают на условиях выдачи по первому требованию (до востребования) либо на условиях возврата по истечении определенного договором срока (срочные вклады).
Вкладчик вправе иметь в структурном подразделении банка любое количество счетов по вкладам. Время нахождения не ограничено.
Выплата вклада любого вида производится по первому требованию вкладчика.
Вклады принимаются только на имя определенного лица. Открытие одного счета по вкладу на имя двух и более лиц не допускается.
Вклады принимается без ограничения максимального размера вносимой суммы. Минимальные размеры первоначального и дополнительных взносов, а также остатка по вкладу могут устанавливаться в зависимости от вида вкладов.
Банк выплачивает по вкладам доход в виде процентов, размер которых зависит от вида вкладов и устанавливается правлением банка.
По всем видам вкладов можно оформить доверенность и составить завещательное распоряжение.
Операции по открытию счетов, выдаче сумм ( в том числе с закрытием счетов) и внесение сумм в пользу третьих лиц по вкладам в рублях, а также операции по вкладам в иностранной валюте оформляются по предъявлении клиентами своих паспортов или иных документов, удостоверяющих личность.
1.3 Документы, применяемые при оформлении операции по вкладам
Документом, который устанавливает взаимоотношения между вкладчиком и банком, а также основные условия вклада, является договор банковского вклада. Договор оформляется при открытии счета по вкладу наличными деньгами.
Вкладчик заполняет необходимые реквизиты договора банковского вклада и подписывает его.
Договор оформляется в двух экземплярах, один из которых выдаются вкладчику, а второй хранится в банке. В договорах по вкладам, вносимым на определенный срок, указывается дата окончания основного счета хранения и дата возврата вклада.
Утрата вкладчиком договора не лишает его права распоряжаться вкладом, в этом случае при закрытии счета на расходном ордере делается отметка о том, что договор не предъявлен.
По каждому счету вкладчику выдается сберегательная книжка, в которой так же, как и в карточке лицевого счета, отражаются все операции по вкладу. В случае проведения операции по вкладу в безналичном порядке она отображается в сберегательной книжке при первой явки вкладчика в банк.
На каждую приходную или расходную операцию по вкладу наличными деньгами составляется соответственно кассовый приходной ордер или кассовый расходный ордер. При поступлении денег на счет по вкладу в безналичном порядке составляется ордер на зачисление, а при списании денежных средств со счета - ордер на списание.
Все произведенные за день операции по вкладам отражаются в операционном дневнике. Операционные дневники по вкладам ведутся отдельно от других операций и формируются по видам валют.
Операционным дневникам каждый рабочий день присваивается порядковый номер, при этом нумерация начинается с первого рабочего дня календарного года и должна быть сквозной.
2. Проектирование информационной системы
Процесс реализации БД представляет собой последовательность переходов от неформального словесного описания информационной структуры предметной области к формализованному описанию объектов предметной области в терминах некоторой модели.
С точки зрения реализации БД в рамках системного анализа, необходимо осуществить первый этап, то есть провести подробное словесное описание объектов предметной области и реальных связей, которые присутствуют между описываемыми объектами. Описание позволяло корректно определять все взаимосвязи между объектами предметной области.
2.1 Построение и нормализация инфологической модели
Процесс построения инфологической модели состоит из следующих шагов:
- определение сущностей;
- определение зависимостей между сущностями;
- задание первичных и альтернативных ключей;
- определение атрибутов сущностей;
- приведение модели к требуемому уровню нормальной формы
Для построения схему данных сначала необходимо выделить основные конструктивные элементы инфологических моделей: сущности, связи между ними, идентификаторы (ключи) и свойства (атрибуты).
Руководствуясь анализом предметной области можно сформировать следующие сущности: Регистрация, счет, карта, клиент, кредит, операции, работники.
рис. 1 Инфологическая модель базы данных
При использовании не нормализованной инфологической модели возникает несколько проблем:
1. Избыточность.
2. Потенциальная противоречивость (аномалии обновления).
3. Аномалии включения.
4. Аномалии удаления.
Цель нормализации состоит в уменьшении потенциальной противоречивости хранимой в базе данных информации, а также сокращение времени обработки данных и уменьшение вероятности ошибок при обновлении таблицы.
Чтобы таблицы соответствовали в 1НФ, для этого было предпринято разбить информацию разнородного плана таблицы «Клиент» на отдельные таблицы «Регистрация», «Счет», «Карты».
рис. 2 Преобразование инфологической модели
Для взаимной связи между таблицами необходимо установить первичные и внешние ключи.
В таблице «регистрация» устанавливаем первичный ключ для поля ID, а для полях ID в таблицах «счета», «операции», «карты», «клиенты», устанавливаем внешние ключи.
В таблице «клиент» устанавливаем первичный ключ для поля ID, а для поля ID в таблице «получение кредита» устанавливаем внешний ключ.
В таблице «счета» устанавливаем первичный ключ для поля NSH, а для полях NSH в таблицах «операции», «клиент» устанавливаем внешние ключи.
В таблице «карты» устанавливаем первичный ключ для поля NKART, а для поля NKART в таблице «клиент» устанавливаем внешний ключ.
В таблице «работник» устанавливаем первичный ключ для поля ID, а для поля OBSL в таблице «операции» устанавливаем внешний ключ.
Созданные нами таблицы удовлетворяет вышеизложенным требованиям:
· Выполняются ограничения 1НФ, и каждый не ключевой атрибут функционально полно зависит от составного первичного ключа.
· Все неключевые атрибуты отношения взаимно независимы и полностью зависят от первичного ключа.
Результатом процесса преобразования отношений, к виду отвечающего нормальным формам выглядит в следующей схеме данных:
рис. 3 Построение схемы данных
2.2 Построение даталогической модели
Таблица 1
REGISTR (Содержит историю изменения заработной платы сотрудников)
|
Ключ, непустое, Уникальное |
Наименование поля |
Тип поля / Домен |
Описание |
Значение по умолчанию |
Логическое выражение проверки |
|
|
П.К., непуст., уникально. |
ID |
INTEGER |
Первичный ключ |
автоинкремент |
- |
|
|
непустое |
FAM |
VARCHAR(16) |
Фамилия клиента |
- |
||
|
IM |
VARCHAR(16) |
Имя клиента |
- |
- |
||
|
OTV |
VARCHAR(16) |
Отчество |
- |
- |
||
|
DR |
DATE |
Дата рождения |
- |
- |
||
|
NPAS |
CHAR(15) |
Номер паспорта |
- |
- |
||
|
KV |
VARCHAR(25) |
Кем выдан |
- |
- |
||
|
MZH |
VARCHAR(40) |
Место жительства |
- |
- |
||
|
INN |
CHAR(15) |
ИНН |
- |
- |
||
|
SNILS |
CHAR(10) |
СНИЛС |
- |
- |
||
|
MRAB |
VARCHAR(40) |
Место работы |
- |
- |
||
|
SRAB |
INTEGER |
Стаж работы |
- |
- |
||
|
Индексы |
||||||
|
уникальность |
Порядок сортировки |
Поля индекса (включая выражения для вычисляемых индексов) |
||||
|
уникален |
По возрастанию |
ID |
Таблица 2
SCHET (Содержит - данные о счетах)
|
Ключ, непустое, Уникальное |
Наименование поля |
Тип поля / Домен |
Описание |
Значение по умолчанию |
Логическое выражение проверки |
|
|
В.К., непуст., |
ID |
INTEGER |
Код счета |
- |
- |
|
|
П.К.,непустое, уникален |
NSH |
INTEGER |
Первичный ключ |
автоинкремент |
- |
|
|
VSH |
VARCHAR(10) |
Валюта счета |
- |
- |
||
|
DATOT |
DATE |
Дата открытия |
- |
- |
||
|
DATZK |
DATE |
Дата закрытия |
- |
- |
||
|
BALANS |
INTEGER |
Баланс счета |
- |
- |
||
|
Связи с другими таблицами, правила контроля ссылочной целостности |
||||||
|
Тип связи, обязательн. |
Целевая таблица |
Поля внешнего ключа |
Поля первичного ключа целевой таблицы |
Правило удаления |
Правило обновления |
|
|
1:1 |
REGISTR |
ID |
ID |
каскадирование |
каскадирование |
|
|
Индексы |
||||||
|
уникальность |
Порядок сортировки |
Поля индекса (включая выражения для вычисляемых индексов) |
||||
|
уникален |
По возрастанию |
NSH |
||||
|
По возрастанию |
ID |
Таблица 3
KARTY (Содержит - данные о пластиковых картах)
|
Ключ, непустое, Уникальное |
Наименование поля |
Тип поля / Домен |
Описание |
Значение по умолчанию |
Логическое выражение проверки |
|
|
В.К., непуст., |
ID |
INTEGER |
Код клиента |
- |
- |
|
|
П.К., непуст., уникально. |
NKART |
NTEGER |
Первичный ключ |
автоинкремент |
- |
|
|
IMKART |
VARCHAR(10) |
Валюта счета |
- |
- |
||
|
DATOT |
DATE |
Дата открытия |
- |
- |
||
|
DATZK |
DATE |
Дата закрытия |
- |
- |
||
|
Связи с другими таблицами, правила контроля ссылочной целостности |
||||||
|
Тип связи, обязательн. |
Целевая таблица |
Поля внешнего ключа |
Поля первичного ключа целевой таблицы |
Правило удаления |
Правило обновления |
|
|
1:1 |
REGISTR |
ID |
ID |
каскадирование |
каскадирование |
|
|
Индексы |
||||||
|
уникальность |
Порядок сортировки |
Поля индекса (включая выражения для вычисляемых индексов) |
||||
|
По возрастанию |
ID |
|||||
|
уникален |
По возрастанию |
NKART |
Таблица 4
KLIENT (Содержит - данные о клиентах)
|
Ключ, непустое, Уникальное |
Наименование поля |
Тип поля / Домен |
Описание |
Значение по умолчанию |
Логическое выражение проверки |
|
|
П.К., непуст., уникально. |
ID |
INTEGER |
Первичный ключ, |
автоинкремент |
- |
|
|
B.K.,непустое |
NSH |
INTEGER |
Номер счета |
- |
- |
|
|
B.K., непустое |
NKART |
VARCHAR(10) |
Номер карты |
- |
- |
|
|
NTEL |
VARCHAR(10) |
Номер тел. |
- |
- |
||
|
|
VARCHAR(20) |
Эл. почта |
- |
- |
||
|
Связи с другими таблицами, правила контроля ссылочной целостности |
||||||
|
Тип связи, обязательн. |
Целевая таблица |
Поля внешнего ключа |
Поля первичного ключа целевой таблицы |
Правило удаления |
Правило обновления |
|
|
1:M |
SCHET |
NSH |
NSN |
каскадирование |
каскадирование |
|
|
1:M |
KARTY |
NKART |
NKART |
каскадирование |
каскадирование |
|
|
Индексы |
||||||
|
уникальность |
Порядок сортировки |
Поля индекса (включая выражения для вычисляемых индексов) |
||||
|
уникален |
По возрастанию |
ID |
||||
|
По возрастанию |
NSH |
|||||
|
По возрастанию |
NKART |
Таблица 5
POLKR (Содержит - данные о заемщиках)
|
Ключ, непустое, Уникальное |
Наименование поля |
Тип поля / Домен |
Описание |
Значение по умолчанию |
Логическое выражение проверки |
|
|
B.K.,непуст., |
ID |
INTEGER |
Код клиента |
- |
- |
|
|
непустое |
NSH |
INTEGER |
Номер счета |
- |
- |
|
|
непустое |
NKART |
VARCHAR(10) |
Номер карты |
- |
- |
|
|
непустое |
NTEL |
VARCHAR(10) |
Номер тел. |
- |
- |
|
|
П.К., непустое уникально. |
KRDOG |
INTEGER |
Первичный ключ |
автоинкремент |
- |
|
|
SUMMA |
INTEGER |
Сумма получаемого кредита |
- |
- |
||
|
PROS |
VARCHAR(3) |
Годовая процентная ставка |
- |
- |
||
|
SROK |
VARCHAR(3) |
Срок оплаты |
- |
- |
||
|
Связи с другими таблицами, правила контроля ссылочной целостности |
||||||
|
Тип связи, обязательн. |
Целевая таблица |
Поля внешнего ключа |
Поля первичного ключа целевой таблицы |
Правило удаления |
Правило обновления |
|
|
1:M |
KLIENT |
ID |
ID |
каскадирование |
каскадирование |
|
|
Индексы |
||||||
|
уникальность |
Порядок сортировки |
Поля индекса (включая выражения для вычисляемых индексов) |
||||
|
По возрастанию |
ID |
|||||
|
уникален |
По возрастанию |
KRDOG |
Таблица 6
OPERACII (Содержит - данные об операциях)
|
Ключ, непустое, Уникальное |
Наименование поля |
Тип поля / Домен |
Описание |
Значение по умолчанию |
Логическое выражение проверки |
|
|
П.К., непуст., |
ID |
INTEGER |
Первичный ключ |
автоинкремент |
- |
|
|
B.K.,непустое |
NSH |
INTEGER |
Номер счета |
- |
- |
|
|
DATPR |
DATE |
Дата прижода |
- |
- |
||
|
PRIXOD |
INTEGER |
Приход |
- |
- |
||
|
DATRAS |
DATE |
Дата расхода |
- |
- |
||
|
RASXOD |
INTEGER |
Расход |
- |
- |
||
|
OSTADOK |
INTEGER |
Остаток |
- |
- |
||
|
В.К., непустое |
OBSL |
INTEGER |
Обсуживал |
- |
- |
|
|
Связи с другими таблицами, правила контроля ссылочной целостности |
||||||
|
Тип связи, обязательн. |
Целевая таблица |
Поля внешнего ключа |
Поля первичного ключа целевой таблицы |
Правило удаления |
Правило обновления |
|
|
1:M |
SCHET |
NSH |
NSN |
каскадирование |
каскадирование |
|
|
1:M |
OPERACII |
OBSL |
ID |
каскадирование |
каскадирование |
|
|
Индексы |
||||||
|
уникальность |
Порядок сортировки |
Поля индекса (включая выражения для вычисляемых индексов) |
||||
|
По возрастанию |
ID |
|||||
|
По возрастанию |
NSH |
|||||
|
По возрастанию |
NKART |
Таблица 7
WORKMANS (Содержит - данные о работниках банка)
|
Ключ, непустое, Уникальное |
Наименование поля |
Тип поля / Домен |
Описание |
Значение по умолчанию |
Логическое выражение проверки |
|
|
П.К., непуст., уникально. |
ID |
INTEGER |
Первичный ключ |
автоинкремент |
- |
|
|
FAM |
INTEGER |
Фамилия |
- |
- |
||
|
IM |
DATE |
Имя |
- |
- |
||
|
OTV |
INTEGER |
Отчество |
- |
- |
||
|
OBRAZ |
DATE |
Образование |
- |
- |
||
|
NDIPLOMA |
INTEGER |
№ диплома |
- |
- |
||
|
DOLZH |
INTEGER |
Должность |
- |
- |
||
|
STAZH |
INTEGER |
Стаж |
- |
- |
||
|
ZARPL |
CHAR(10) |
Зарплата |
- |
- |
||
|
Индексы |
||||||
|
уникальность |
Порядок сортировки |
Поля индекса (включая выражения для вычисляемых индексов) |
||||
|
уникален |
По возрастанию |
ID |
3. Разработка пользовательского интерфейса
Для облегчения работы с базой данных конечным пользователем был разработан графический интерфейс пользователя.
Графический интерфейс был разработан и скомпилирован с помощью среды программы разработки высокоуровневого программирования Delphi 7.
Основными функциями конечной программы будет являться:
Ш Возможность добавления, удаления данных, связанных с учетом оборудования;
Ш Вывод полного перечня различных отношений.
В БД содержатся 13 запросов всех типов:
Запросы на поиск (по Фамилии, Имени, Отчеству, Коду клиента, Номеру счета, Номеру паспорта, Кредитного договора),
запрос на удаление записи из выбранной таблицы.
запрос на добавление.
запрос на редактирование.
3.1 Запросы
Запросы на «Поиск»
Данный запрос при выполнении вызывают функцию InputBox, которое выводит на экран окно ввода - стандартное диалоговое окно. Значением этой функции является строка, введённая с клавиатуры пользователем.
рис. 4 Запрос на поиск
Из дополнительного всплывающего меню выберем нужную опцию.
рис. 5 Запрос на поиск
Если во время работы программы пользователь введёт строку и щелкнет на кнопке ОК, то значением функции InputBox будет введённая строка, а если - на кнопке Cancel, то значением функции будет строка, переданная в качестве параметра.
рис. 6 Рабочее окно
Аналогично выводится все остальные запросы по поиску.
В режиме SQL запрос выглядит так:
1. Поиск по фамилии:
'select * from registr where fam like '''+ inputBox(' Поиск','Введите ФАМИЛИЮ:','Намажап') +'%'''
2. Поиск по имени:
'select registr.im, registr.otv, registr.fam, registr.id from registr where im like '''+inputBox('Поиск по ИМЮ','Введите ИМЮ:','Алексей') +'%'''
3. Поиск по отчеству:
'select * from registr where otv like '''+inputBox('Поиск по ОТЧЕСТВО','Введите ОТЧЕСТВО:','Владимировна')+'%'''
4. Поиск по коду клиента:
'select * from klient where id like '''+ inputBox('Поиск по коду','Введите КОД:','1119')+'%'''
5. Поиск по № счета:
'select*from schet where nsh like '''+ inputBox('Поиск по счету','Введите номер СЧЕТА:','10098') +'%'''
6. Поиск по № паспорта:
'select*from registr where npas like '''+ inputBox('Поиск по номеру паспорта','Введите № ПАСПОРТА:','9098987667') +'%''';
7. Поиск по кредитному договору:
'select * from polkr where krdog like '''+ inputBox('Поиск по № кредитного договора','Введите номер:','1232') +'%'''
Запрос на просмотр «Регистрация»
Данный запрос выводит на экран информацию о всех клиентах- Код клиента, фамилия, имя, отчество, дата рождения, номер паспорта, кем выдан, место жительства, ИНН, СНИЛС, место работы.
При выполнении запрос выглядит так:
рис. 7 Запрос на просмотр таблицы «Регистрации»
Данные для этого запроса берутся из таблицы Регистрация.
В режиме SQL запрос выглядит так:
'select * from registr';
Запрос на просмотр «Кредиторов»
Данный запрос выводит на экран информацию о заемщиках.
При выполнении запрос выглядит так:
рис. 8 Запрос на просмотр таблицы «Кредиторов»
Данные для создания запроса берутся из таблицы Регистрации и Получения кредита.
В режиме SQL запрос выглядит так:
'select registr.id, registr.fam, registr.im, registr.otv, polkr.krdog,polkr.summa, polkr.pros,polkr.srok from registr, polkr where registr.id = polkr.id';
Запрос на просмотр «Клиенты»
Данный запрос выводит на экран таблицу Клиенты, которое он берет дополнительную информацию из таблицы Регистрация.
При выполнении запрос выглядит так:
рис. 9 Запрос на просмотр таблицы «Клиенты»
В режиме SQL запрос выглядит так:
'select registr.id, registr.fam, registr.im, registr.otv, registr.dr, registr.npas, registr.mzh, klient.nsh, klient.nkart, klient.ntel, klient.email from registr, klient where registr.id = klient.id';
Запрос на просмотр «Карты»
Данный запрос при выполнении выводит данные о клиенте и карте. При выполнении запрос выглядит так:
рис. 10 Запрос на просмотр таблицы «Карты»
В режиме SQL запрос выглядит так:
'select registr.id, registr.fam, registr.im, registr.otv, registr.dr, registr.npas, registr.mzh, karty.nkart, karty.imkart, karty.datot, karty.datzk from registr, karty where registr.id = karty.id';
Запрос на просмотр «Счета»
В данном случае результатом выполнения запроса будет данные из таблиц Регистрация и Счет. При выполнении запрос выглядит так:
рис. 11 Запрос на просмотр таблицы «Счета»
В режиме SQL данный запрос выглядит так:
'select registr.id, registr.fam, registr.im, registr.otv, registr.dr, registr.npas, registr.mzh, schet.nsh, schet.vsh, schet.datot, schet.datzk, schet.balans from registr, schet where registr.id = schet.id';
3.2 Формы
Форма добавления «Операции»
При выполнении данного формы вызывается форма с полями заполнения. Данная форма добавляет значении в таблицу Операции. Форма вносит в эту таблицу следующие данные Код клиента, № счета Код работника, которые он берет из таблиц Регистрации, Счета, Работников.
рис. 12 Форма добавления таблицы «Операции»
В режиме SQL запрос выглядит так:
'Insert into operacii (id, nsh, datpr, prixod, datras, rasxod, ostadok, obsl) values (''' + Edit1.Text+''','''+ edit2.text+''', '''+ fa+''','''+ edit4.text+''','''+ op+''','''+ edit6.text+''','''+ edit7.text+''','''+ edit8.text+''')';
Форма добавления «Регистрации»
Данная форма добавляет информацию в таблицу Регистрации. При вызове форма выглядит так:
рис. 13 Форма добавления таблицы «Регистрации»
В режиме SQL запрос выглядит так:
'Insert into registr (id,fam,im,otv,dr, npas,kv,mzh,inn, snils, mrab, srab) values (''' + Edit1.Text+''','''+ edit2.text+''', '''+ edit3.text+''',''' edit4.text+''','''+ DateToStr(dateTimePicker1.Date) +''','''+ edit6.text+''','''+ edit7.text+''','''+ edit8.text+''','''+ edit9.text+''','''+ edit10.text+''','''+ edit11.text+''','''+ edit12.text+''')';
Форма добавления «Счета»
Это форма добавляет данные на таблицу «Счет». При вызове открывается форма, необходимо заполнить поля данными, затем нажать на клавишу сохранение.
рис. 14 Форма добавления таблицы «Счета»
При режиме SQL запрос выглядит так:
'Insert into schet (id,nsh,vsh,datot,datzk,balans) values (''' + Edit1.Text+''','''+ edit2.text+''', '''+ ComboBox1.Text+''','''+ DateToStr(DateTimePicker1.date)+''','''+ DateToStr (DateTimePicker2.date)+''','''+ edit6.text+''')';
Форма добавления «Карты»
Это форма позволяет добавить запись на таблицу Карты. Чтобы выдавать пластиковые карточки клиентам. При выполнении вызывается форма, которая необходимо заполнить некоторыми данными:
рис. 15 Форма добавления таблицы «Получения кредита»
В режиме SQL запрос выглядит так:
'Insert into karty (id,nkart,imkart,datot,datzk) values (''' + Edit1.Text+''','''+ edit2.text+''', '''+ combobox1.text+''','''+ DateToStr (DateTimePicker1.date)+''','''+ DateToStr (DateTimePicker2.date)+''')';
Форма добавления «Клиенты»
Данная форма добавляет банковские данные в таблицу Клиенты. Запрос вносит в эту таблицу следующие данные Код клиента, № счета и № карты, которые он берет из таблиц Регистрация, Счет и Карта.
рис. 16 Форма добавления таблицы «Клиенты»
В режиме SQL запрос выглядит так:
'Insert into klient (id,nsh,nkart,ntel,email) values (''' + Edit1.Text+''','''+ edit2.text+''', '''+ edit3.text+''','''+ edit4.text+''','''+ edit5.text+''')';
Форма добавления «Получения кредита»
Форма, позволяющий выдавать кредит клиентам. В форме вводятся нужные факты, у которых удовлетворяет желание клиента.
рис. 17 Форма добавления таблицы «Получения кредита»
В режиме SQL запрос выглядит так:
'Insert into polkr (id,nsh,nkart,ntel,krdog,summa,pros,srok) values (''' + Edit1.Text+''','''+ edit2.text+''', '''+ edit3.text+''','''+ edit4.text+''','''+ edit5.text+''','''+ edit6.text+''','''+ edit7.text+''','''+ edit8.text+''')';
Форма редактирования «Регистрации»
Форма делает редактирование из таблицы Регистрация по коду клиента.
При построении формы была использована кнопки присвоения данных из текущей таблицы. После того, как выбираем, отредактируем записи, потом нажимаем на кнопку сохранения.
рис. 18 Форма редактирования таблицы «Регистрации»
В режиме SQL запрос выглядит так:
'update registr set id='''+Edit1.Text+''', fam='''+Edit2.Text+''', im='''+Edit3.Text+''', otv='''+Edit4.Text+''',dr='''+ Edit5.Text+''',npas='''+Edit6.Text+''', kv='''+Edit7.Text+''', mzh='''+ edit8.text+''',inn='''+ edit9.text+''',snils='''+ edit10.text+''',mrab='''+ edit11.text+''',srab='''+ edit12.text+''' '+ 'where id= '+pk ;
Аналогично редактируется все остальные таблицы, ниже приведен рисунки и запросы редактирования таблиц.
Форма редактирования «Счета»
рис. 19 Форма редактирования таблицы «Счета »
В режиме SQL запрос выглядит так:
'update schet set id='''+Edit1.Text+''', nsh='''+Edit2.Text+''', vsh='''+edit3.Text+''', datot='''+edit4.text+''', datzk='''+edit5.text+''', balans='''+Edit6.Text+ ''' where nsh= '+ pk;
Форма редактирования «Карты»
рис. 20 Форма редактирования таблицы «Карты»
В режиме SQL запрос выглядит так:
'update karty set id='''+Edit1.Text+''', nkart='''+Edit2.Text+''', imkart='''+Edit3.Text+''',
datot='''+Edit4.Text+''',
datzk='''+Edit5.Text+''' '+ 'where id= '+' '''+Edit1.Text+'''' ;
Форма редактирования «Клиента»
рис. 21 Форма редактирования таблицы «Клиент »
В режиме SQL запрос выглядит так:
'update klient set id='''+Edit1.Text+''', nsh='''+Edit2.Text+''', nkart='''+Edit3.Text+''', ntel='''+Edit4.Text+''', email='''+Edit5.Text+''' '+ 'where id= '+' '''+Edit1.Text+'''' ;
Форма редактирования «Получение кредита»
рис. 22 Форма редактирования таблицы «Получение кредита»
В режиме SQL запрос выглядит так:
'update registr set id='''+Edit1.Text+''', nsh='''+Edit2.Text+''', nkart='''+Edit3.Text+''', ntel='''+Edit4.Text+''', dogkr='''+Edit5.Text+''', summa='''+Edit6.Text +''',pros='''+Edit7.Text+''', srok='''+Edit8.Text +''' '+ 'where id= '+pk ;
3.3 Основной интерфейс базы данных
Основным интерфейсом для базы данных служит главное рабочее окно. Для ее открытия надо зайти так:
Курсовая работа ? New BASE ? Project1.exe.
рис. 23 Основной интерфейс базы данных
При загрузке базы данных открывается Рабочее окно.
В ней можно:
Искать данные по коду, фамилии, имени, отчество, паспорту…
Добавлять на все существующие таблицы данные
Редактировать записи из таблиц
Удалять запись из текущей строки
Получить информацию обо всех клиентах
Заключение
Данная курсовая работа посвящена к работе оператора банка. В процессе ее написания был проведен анализ цели и задач, которые должен выполнять банковские операции по счетам клиентов.
В данной курсовой работе была рассмотрена сущность и основные принципы ведения банковских операций обслуживанию клиентов. Материалы данной работы могут служить пособием для освоения и подготовки к практической деятельности на банковской деятельности.
Расчетные операции являются важной задачей в деятельности банка, так как данный вид операций приносит доход банку. Автоматизированный процесс расчетных операций, во-первых, облегчить работу кассирам-операторам и вырастит ее эффективность, что увеличит прибыль. Разработанная система соответствует законодательству РФ, так как при ее разработке был проанализирован большой объем законодательных актов, в том числе федеральные законы, инструкции, указы и постановления различных федеральных органов. В соответствии с анализом были сделаны выводы и заключения, как проходит расчетные операции, какие законы должны соблюдаться в данной деятельности. При создании автоматизированного рабочего места в курсовой работе были решены следующие задачи, требуемые для достижения поставленной цели:
· изучение теоретических знаний по автоматизации рабочих мест;
· изучение методов и способов создания автоматизированных рабочих мест;
· изучение инструментов для создания автоматизированных рабочих мест;
· изучение теории реляционных баз данных;
· изучение схем и правил работы кассиров-операционистов;
· разработка АРМ кассира-операциониста.
Исследована предметная область с целью автоматизации рабочего места оператора валютно-обменных операций, определены функциональные требования к системе, проанализированы существующие разработки в данной области были выявлены их недостатки.
Выбрано средство разработки программного обеспечения, которое является важной задачей.
Выбрана структура базы данных и средства для ее реализации и СУБД, осуществлено проектирование структуры базы данных для хранения информации.
На основании всех проделанных проектных работ, с учетом поставленных требований и указаний законодательства РФ было разработано автоматизированное рабочее место оператора расчетных операций.
Список использованных источников
1. Aрапчор Т.А., Далаа С.М., Монгуш М.М. Основы программирования в Делфи. Кызыл, 2004. 3 с.
2. Богачев К.Ю.Основы параллельного программ. М.: Бином, 2001. 336 с.
3. Глушаков С. В., Клевцов А.Л., Теребилов С.А. Программирование на Delphi 5.0. Харьков: Фолио, 2002. 518 с.
4. Жукова Е.Ф. Банки и банковские операции: учеб. для вузов. М.: Банки и биржи: ЮНИТИ, 1997.
5. Жуков А. Изучаем Delphi.Спб.: Питер, 2001. 352 с.
6. Илюшечкин В. М. Основы использования и проектирования баз данных [Текст]: учеб. пособие для вузов. М.: Высшее образование, 2009. 214 с.: ил.. (Основы наук). Глоссарий: с. 208-211. ISBN 978-5-9692-0253-5.
7. Использование Oracle 8 тм/8 i тм [Текст] : пер. с англ. / В. Пейдж [и др.]. Спец. изд.. М.: Вильямс, 1999. 1024 с.: ил. Предм. указ.: с. 1019-1022.
8. Культин Н. Б. Delphi6. Программирование на Object Pascal.СПб.: БХВ-Питер, 2003. 528 с.
9. Наумова. А. Н. Системы управления базами данных и знаний: Справ.изд. М.: Финансы и статистика, 1991. 352 С: ил.
10. Петров В. Н. Информационные системы. СПб.: Питер, 2002. 688 с.
11. Полищук Ю.В., Сормов С. И., Черных Т.А. Проектирование реляционных баз данных [Текст]: учебное пособие для вузов. Оренбург: ГОУ ОГУ, 2008. 133 с. Библиогр.: с. 132. ISBN 978-5-7410-0816-4.
12. Попов А.А. Программирование в среде СУБД FoxPro 2.0 [Текст]: построение систем обработки данных - М.: МарТ, 1996. 352 с.: ил.
13. Рубенкинг Н. Программирование в Delphi для «чайников». Киев: «Диалектика», 1996. 304 с.
14. Сухарев М.В. Основы Delphi. Профессиональный подход. М.: Наука и техника, 2004. 623 с.
15. Фаронов В. В. Программирование баз данных в Delphi7/ -Питер: Реализация современных технологий баз данных средствами Delphi, 2005-458 с.
Приложение 1
Основной листинг
procedure TForm2.N9Click(Sender: TObject); // Поиск по фамилию
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
IBQuery1.SQL.Text:= 'select * from registr where fam like '''+ inputBox('Поиск','Введите ФАМИЛИЮ:','Намажап') +'%''';
IBQuery1.Active:= True;
end;
end;
procedure TForm2.N10Click(Sender: TObject); // Поиск по имю
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
IBQuery1.SQL.Text:= 'select registr.im, registr.otv, registr.fam, registr.id from registr where im like '''+inputBox('Поиск по ИМЮ','Введите ИМЮ:','Алексей') +'%''';
IBQuery1.Active:= true;
end;
end;
procedure TForm2.N11Click(Sender: TObject); // Поиск по отчечтву
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
IBQuery1.SQL.Text:= 'select * from registr where otv like '''+inputBox('Поиск по ОТЧЕСТВО','Введите ОТЧЕСТВО:','Владимировна')+'%''';
IBQuery1.Active:= true;
end;
end;
procedure TForm2.N12Click(Sender: TObject); // Поиск по коду
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
IBQuery1.SQL.Text:= 'select * from klient where id like '''+ inputBox('Поиск по коду','Введите КОД:','1119')+'%''';
IBQuery1.Active:= true;
end;
end;
procedure TForm2.N13Click(Sender: TObject); // Поиск по № счета
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
IBQuery1.SQL.Text:= 'select*from schet where nsh like '''+ inputBox('Поиск по счету','Введите номер СЧЕТА:','10098') +'%''';
IBQuery1.Active:= true;
end;
end;
procedure TForm2.N14Click(Sender: TObject); // Поиск по № паспорта
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
IBQuery1.SQL.Text:= 'select*from registr where npas like '''+ inputBox('Поиск по номеру паспорта','Введите № ПАСПОРТА:','9098987667') +'%''';
IBQuery1.Active:= true;
end;
end;
procedure TForm2.N15Click(Sender: TObject); // Поиск по кредитному договору
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.Text:= 'select * from polkr where krdog like '''+ inputBox('Поиск по № кредитного договора','Введите номер:','1232') +'%''';
IBQuery1.Active:= true;
end;
end;
procedure TForm2.N21Click(Sender: TObject); // Просмотр персональных данных
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from registr';
IBQuery1.Active:= true;
end;
Edit1.Text:= 'registr';
end;
procedure TForm2.N22Click(Sender: TObject); // Просмотр кредиторов
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select registr.id, registr.fam, registr.im, registr.otv, polkr.krdog,polkr.summa, polkr.pros,polkr.srok from registr, polkr where registr.id = polkr.id';
IBQuery1.Active:= true;
end;
Edit1.Text:='polkr';
end;
procedure TForm2.N39Click(Sender: TObject);
begin
form5.Show;
end;
procedure TForm2.N42Click(Sender: TObject);
begin
Close;
end;
procedure TForm2.N41Click(Sender: TObject); // О программе
begin
form18.show;
end;
procedure TForm2.N5Click(Sender: TObject);
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:= 'select registr.id, registr.fam, registr.im, registr.otv, registr.dr, registr.npas, registr.mzh, klient.nsh, klient.nkart, klient.ntel, klient.email from registr, klient where registr.id = klient.id';
IBQuery1.Active:= true;
end;
Edit1.Text:='klient';
end;
procedure TForm2.N25Click(Sender: TObject);
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select registr.id, registr.fam, registr.im, registr.otv, registr.dr, registr.npas, registr.mzh, karty.nkart, karty.imkart, karty.datot, karty.datzk from registr, karty where registr.id = karty.id';
IBQuery1.Active:= true;
end;
Edit1.Text:='karty';
end;
procedure TForm2.N26Click(Sender: TObject);
var t: string;
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
t:= 'select registr.id, registr.fam, registr.im, registr.otv, registr.dr, registr.npas, registr.mzh, schet.nsh, schet.vsh, schet.datot, schet.datzk, schet.balans from registr, schet where registr.id = schet.id';
ibquery1.SQL.text:= t;
IBQuery1.Active:= true;
end;
Edit1.Text:='schet';
end;
procedure TForm2.Button1Click(Sender: TObject);
var s, r: string;
begin
s:=DataModule3.IBQuery1.FieldByName('id').AsString;
DataModule3.IBQuery1.active:=false;
DataModule3.IBTransaction1.Active:=true;
DataModule3.IBQuery1.SQL.Text:='delete from '+ edit1.text + ' where id= '+ s;
DataModule3.IBQuery1.ExecSQL;
DataModule3.IBTransaction1.Commit;
DataModule3.IBQuery1.Active:= false;
DataModule3.IBQuery1.SQL.Text:='select * from '+ edit1.text + ' ';
DataModule3.IBQuery1.Active:= true;
end;
procedure TForm2.Button2Click(Sender: TObject);
var a, b, c: string;
begin
if edit1.Text ='registr' then begin Form4.Show; end;
if edit1.Text ='workmans' then begin Form5.Show; end;
if edit1.Text ='operacii' then begin with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from registr';
IBQuery1.Active:= true;
end;
form16.Show;
end;
if edit1.Text ='schet' then begin with DataModule3 do
begin
IBQuery1.active:=false;
IBQuery1.SQL.Text:='select * from registr';
IBQuery1.active:=true;
end;
Form7.show;
end;
if edit1.Text ='karty' then begin with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from registr';
IBQuery1.Active:= true;
end;
Form6.Show;
end;
if edit1.Text ='klient' then begin with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from registr';
IBQuery1.Active:= true;
end;
Form9.show;
end;
if edit1.Text ='polkr' then begin with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from klient ';
IBQuery1.Active:= true;
end;
Form10.show;
end;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
if edit1.Text ='registr' then begin Form11.Show; end;
if edit1.Text ='schet' then begin Form12.Show; end;
if edit1.Text ='karty' then begin Form13.Show; end;
if edit1.Text ='klient' then begin Form14.Show; end;
if edit1.Text ='polkr' then begin Form15.Show; end;
if edit1.Text ='workmans' then begin Form19.Show; end;
if edit1.Text ='operacii' then begin Form17.Show; end;
end;
procedure TForm2.N2Click(Sender: TObject);
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from operacii';
IBQuery1.Active:= true;
end;
Edit1.Text:= 'operacii';
end;
procedure TForm2.N4Click(Sender: TObject);
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from workmans';
IBQuery1.Active:= true;
end;
Edit1.Text:= 'workmans';
end; procedure TForm2.N9Click(Sender: TObject); // Поиск по фамилию
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
IBQuery1.SQL.Text:= 'select * from registr where fam like '''+ inputBox('Поиск','Введите ФАМИЛИЮ:','Намажап') +'%''';
IBQuery1.Active:= True;
end;
end;
procedure TForm2.N10Click(Sender: TObject); // Поиск по имю
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
IBQuery1.SQL.Text:= 'select registr.im, registr.otv, registr.fam, registr.id from registr where im like '''+inputBox('Поиск по ИМЮ','Введите ИМЮ:','Алексей') +'%''';
IBQuery1.Active:= true;
end;
end;
procedure TForm2.N11Click(Sender: TObject); // Поиск по отчечтву
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
IBQuery1.SQL.Text:= 'select * from registr where otv like '''+inputBox('Поиск по ОТЧЕСТВО','Введите ОТЧЕСТВО:','Владимировна')+'%''';
IBQuery1.Active:= true;
end;
end;
procedure TForm2.N12Click(Sender: TObject); // Поиск по коду
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
IBQuery1.SQL.Text:= 'select * from klient where id like '''+ inputBox('Поиск по коду','Введите КОД:','1119')+'%''';
IBQuery1.Active:= true;
end;
end;
procedure TForm2.N13Click(Sender: TObject); // Поиск по № счета
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
IBQuery1.SQL.Text:= 'select*from schet where nsh like '''+ inputBox('Поиск по счету','Введите номер СЧЕТА:','10098') +'%''';
IBQuery1.Active:= true;
end;
end;
procedure TForm2.N14Click(Sender: TObject); // Поиск по № паспорта
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
IBQuery1.SQL.Text:= 'select*from registr where npas like '''+ inputBox('Поиск по номеру паспорта','Введите № ПАСПОРТА:','9098987667') +'%''';
IBQuery1.Active:= true;
end;
end;
procedure TForm2.N15Click(Sender: TObject); // Поиск по кредитному договору
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.Text:= 'select * from polkr where krdog like '''+ inputBox('Поиск по № кредитного договора','Введите номер:','1232') +'%''';
IBQuery1.Active:= true;
end;
end;
procedure TForm2.N21Click(Sender: TObject); // Просмотр персональных данных
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from registr';
IBQuery1.Active:= true;
end;
Edit1.Text:= 'registr';
end;
procedure TForm2.N22Click(Sender: TObject); // Просмотр кредиторов
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select registr.id, registr.fam, registr.im, registr.otv, polkr.krdog,polkr.summa, polkr.pros,polkr.srok from registr, polkr where registr.id = polkr.id';
IBQuery1.Active:= true;
end;
Edit1.Text:='polkr';
end;
procedure TForm2.N39Click(Sender: TObject);
begin
form5.Show;
end;
procedure TForm2.N42Click(Sender: TObject);
begin
Close;
end;
procedure TForm2.N41Click(Sender: TObject); // О программе
begin
form18.show;
end;
procedure TForm2.N5Click(Sender: TObject);
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:= 'select registr.id, registr.fam, registr.im, registr.otv, registr.dr, registr.npas, registr.mzh, klient.nsh, klient.nkart, klient.ntel, klient.email from registr, klient where registr.id = klient.id';
IBQuery1.Active:= true;
end;
Edit1.Text:='klient';
end;
procedure TForm2.N25Click(Sender: TObject);
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select registr.id, registr.fam, registr.im, registr.otv, registr.dr, registr.npas, registr.mzh, karty.nkart, karty.imkart, karty.datot, karty.datzk from registr, karty where registr.id = karty.id';
IBQuery1.Active:= true;
end;
Edit1.Text:='karty';
end;
procedure TForm2.N26Click(Sender: TObject);
var t: string;
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
t:= 'select registr.id, registr.fam, registr.im, registr.otv, registr.dr, registr.npas, registr.mzh, schet.nsh, schet.vsh, schet.datot, schet.datzk, schet.balans from registr, schet where registr.id = schet.id';
ibquery1.SQL.text:= t;
IBQuery1.Active:= true;
end;
Edit1.Text:='schet';
end;
procedure TForm2.Button1Click(Sender: TObject);
var s, r: string;
begin
s:=DataModule3.IBQuery1.FieldByName('id').AsString;
DataModule3.IBQuery1.active:=false;
DataModule3.IBTransaction1.Active:=true;
DataModule3.IBQuery1.SQL.Text:='delete from '+ edit1.text + ' where id= '+ s;
DataModule3.IBQuery1.ExecSQL;
DataModule3.IBTransaction1.Commit;
DataModule3.IBQuery1.Active:= false;
DataModule3.IBQuery1.SQL.Text:='select * from '+ edit1.text + ' ';
DataModule3.IBQuery1.Active:= true;
end;
procedure TForm2.Button2Click(Sender: TObject);
var a, b, c: string;
begin
if edit1.Text ='registr' then begin Form4.Show; end;
if edit1.Text ='workmans' then begin Form5.Show; end;
if edit1.Text ='operacii' then begin with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from registr';
IBQuery1.Active:= true;
end;
form16.Show;
end;
if edit1.Text ='schet' then begin with DataModule3 do
begin
IBQuery1.active:=false;
IBQuery1.SQL.Text:='select * from registr';
IBQuery1.active:=true;
end;
Form7.show;
end;
if edit1.Text ='karty' then begin with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from registr';
IBQuery1.Active:= true;
end;
Form6.Show;
end;
if edit1.Text ='klient' then begin with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from registr';
IBQuery1.Active:= true;
end;
Form9.show;
end;
if edit1.Text ='polkr' then begin with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from klient ';
IBQuery1.Active:= true;
end;
Form10.show;
end;
end;
procedure TForm2.Button3Click(Sender: TObject);
begin
if edit1.Text ='registr' then begin Form11.Show; end;
if edit1.Text ='schet' then begin Form12.Show; end;
if edit1.Text ='karty' then begin Form13.Show; end;
if edit1.Text ='klient' then begin Form14.Show; end;
if edit1.Text ='polkr' then begin Form15.Show; end;
if edit1.Text ='workmans' then begin Form19.Show; end;
if edit1.Text ='operacii' then begin Form17.Show; end;
end;
procedure TForm2.N2Click(Sender: TObject);
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from operacii';
IBQuery1.Active:= true;
end;
Edit1.Text:= 'operacii';
end;
procedure TForm2.N4Click(Sender: TObject);
begin
with dataModule3 do
begin
IBQuery1.Active:= false;
ibquery1.SQL.text:='select * from workmans';
IBQuery1.Active:= true;
end;
Edit1.Text:= 'workmans';
end;
Размещено на Allbest.ru
Подобные документы
Технологический процесс сбора, передачи, обработки и выдачи информации. Назначение программного продукта. Анализ экономических показателей внедрения автоматизированного рабочего места кассира-операциониста. Организация рабочего места оператора ЭВМ.
дипломная работа [2,6 M], добавлен 08.12.2014Способы автоматизации рабочего места продавца-кассира. Подбор оптимальных периферийных устройств для конкретного рабочего места. Специализированные кассовые компьютер, монитор и клавиатура. Фискальный регистратор, денежный ящик, сканер штрих-кода.
реферат [83,1 K], добавлен 31.01.2014Понятие информации, информационных технологий и их виды. Анализ основных положений по автоматизации рабочего места оператора автотранспортного предприятия. Разработка модели автоматизированного рабочего места начальника отдела. Применение модели АРМ.
дипломная работа [4,0 M], добавлен 18.09.2010Анализ предметной области и описание основных функциональных подсистем автоматизированного рабочего места администратора кинотеатра "Мир". Разработка инфологической модели базы данных и заполнение форм данных. Обеспечение безопасности и доступа к данным.
курсовая работа [4,4 M], добавлен 27.12.2014Разработка автоматизированного рабочего места в виде Web-приложения "Платные образовательные услуги" для отделения дополнительного образования строительного техникума. Технология создания макета. Разработка программного кода, функции интерфейса.
дипломная работа [1,8 M], добавлен 10.06.2013Разработка на основе СУБД программы для автоматизации рабочего места технолога железнодорожной станции с применением Web-технологии и ее техническое обоснование. Алгоритм ввода поступающей информации. Защита от интерактивных ошибок пользователя.
курсовая работа [284,4 K], добавлен 14.11.2010Разработка инфологической модели базы данных "Рабочее место кассира", требования к ее функциональным характеристикам. Создание программы в Delphi. Описание компонентов для реализации графического интерфейса и интерфейса ввода справочника кассиров.
курсовая работа [2,2 M], добавлен 17.04.2014Общие принципы построения информационных систем и их реализации на языке программирования Паскаль. Разработка программного обеспечения для создания автоматизированного рабочего места "Склад" для ООО "Комторг". Основные требования к ресурсам компьютера.
дипломная работа [1,2 M], добавлен 13.01.2016Анализ аналогов-ресурсов системы "Бюро регистрации несчастных случаев", критерии выбор задач, подлежащих автоматизации. Проектирование автоматизированного рабочего места сотрудника оперативного учета. Разработка модели базы с использованием CASE-средств.
дипломная работа [7,8 M], добавлен 21.01.2012Разработка автоматизированного рабочего места (АРМ) главного энергетика ЭСХ ОФ ОАО "Шахта "Заречная" для сбора, просмотра и анализа данных показателей электроснабжения с объектов предприятия. Функциональная схема АРМ, модели функциональных отношений.
дипломная работа [1,2 M], добавлен 27.10.2013
