Разработка информационно-справочной системы "Аптека"
Разработка базы данных "Аптека" в Microsoft Access, построение ее визуальной части в Delphi. Технологии связывания Microsoft Access со средой программирования Delphi. Создание запросов поисков. Реализация таблиц: продавцы, товары, чеки, поставка, счета.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | русский |
| Дата добавления | 04.03.2014 |
| Размер файла | 3,7 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru/
Курсовая работа
по дисциплине
"Визуальное программирование"
Тема курсовой работы:
"Разработка информационно-справочной системы "Аптека"
Содержание
- Введение
- Глава I. Теория
- Построение базы данных в MS Access
- Построение визуальной части в Delphi
- Глава II. Практика
- Построение базы данных в MS Access
- Соединение Базы Данных
- Создание запросов поисков и вывод таблиц
- Заключение
- Список использованной литературы
- Приложения
Введение
В данной курсовой работе будет приведен пример приложения, показывающею базу данных товаров Аптеки. Приложение было разработано в среде Delphi7. В приложении будет реализован показ таблиц: продавцы, товары, чеки, поставка, счета. А также защита паролем и система поиска.
Глава I. Теория
Построение базы данных в MS Access
Основные компоненты MS Access:
· Таблицы
· Запросы
· Отчеты
· Формы
MS Access поддерживает реляционную модель данных, т.е. база данных состоит из множества взаимосвязанных отношений, каждому отношению соответствует отдельная таблица.
Таблицы состоят из строк и столбцов. Столбцы таблицы отражают общие свойства или характеристики объектов реального мира, которые моделируются с использованием данной таблицы. Для каждого свойства пользователь выделяет один столбец. Строки таблицы соответствуют различным экземплярам реальных объектов и называются записям.
Желательно для каждой таблицы определить первичный ключ - столбец или набор столбцов однозначно определяющих строку таблицы. В интерфейсе пользователя Microsoft Access можно создать таблицу в базе данных, используя любой из трех методов:
1) Можно создать таблицу с помощью мастера таблиц.
2) Таблицу можно создать путем ввода данных в таблицу.
3) Можно создать таблицу в режиме конструктора.
Запрос-команда на выбор, просмотр, изменение, создание или удаление данных, необходим для решения задач анализа данных.
Основные функции запросов:
· поиск записи по условию
· сортировка записей в требуемом порядке
база информационная справочная программирование
· получение выборки записей таблицы, удовлетворяющей заданному условию, или задание фильтра для таблицы
Создается с помощью Мастера создания запросов, или с помощью Конструктора.
Отчет - это форматированное представление данных, которое выводится на экран, в печать или файл. Они позволяют извлечь из базы нужные сведения и представить их в виде, удобном для восприятия, а также предоставляют широкие возможности для обобщения и анализа данных.
В Microsoft Access можно создавать отчеты различными способами:
Конструктор
Мастер отчетов
Автоотчет: в столбец
Автоотчет: ленточный
Мастер диаграмм
Почтовые наклейки.
Форма в БД - это структурированное окно, которое можно представить так, чтобы оно повторяло форму бланка. Формы создаются из набора отдельных элементов управления.
Внешний вид формы выбирается в зависимости от того, с какой целью она создается. Формы Access позволяют выполнять задания, которые нельзя выполнить в режиме таблицы. Формы позволяют вычислять значения и выводить на экран результат. Источником данных для формы являются записи таблицы или запроса.
Форма предоставляет возможности для:
ввода и просмотра информации базы данных
изменения данных
печати
создания сообщений
Способы создания форм:
Конструктор форм (предназначен для создания формы любой сложности)
Мастер форм (позволяет создавать формы различные как по стилю, так и по содержанию)
Автоформа: в столбец (многостраничная - поля для записи выводятся в один столбец, в форме одновременно отображаются данные для одной записи)
Автоформа: ленточная (все поля записи выводятся в одну строку, в форме отображаются все записи)
Автоформа: табличная (отображение записей осуществляется в режиме таблица)
Автоформа: сводная таблица
Автоформа: сводная диаграмма
Диаграмма (создается форма с диаграммой, построенной Microsoft Graph)
Сводная таблица (создается форма Access, отображаемая в режиме сводной таблицы Excel)
Построение визуальной части в Delphi
Процесс создания простейшего оконного приложения можно разбить на два этапа: этап конструирования формы и этап программирования.
1. На этапе конструирования (создание формы приложения) выбираются необходимые компоненты из палитры компонентов и размещают их на форму: выполнить щелчок левой кнопкой мыши на компоненте, затем щелкнуть левой кнопкой мыши в то место формы, куда должен быть помещен компонент.
2. Вид компонента, его размер и поведение определяют значения свойств компонента. Чтобы придать компоненту нужные свойства, следует использовать страницу properties в окне Инспектора объектов. Эта страница состоит из двух колонок: левая содержит название свойства, а правая - конкретное значение свойства. Окно инспектора объектов отображает информацию для того компонента, который выделен щелчком мыши. Строки могут отображать простые и сложные свойства. К простым относятся свойства, которые определяются одним значением - числом, строкой символов и т.д. Сложные свойства определяются совокупностью значений. слева от имени таких свойств указывается символ "+".
В результате выполнения указанных операций будет сформирован внешний вид окна будущей программы. Для того чтобы программа выполняла какую-то работу, необходимо перейти ко второму этапу - этапу программирования.
Рассмотрим основные особенности этого этапа.
1. Каждый компонент может реагировать на определенный набор событий. Для того чтобы узнать, на какие именно события откликается компонент, необходимо выделить его щелчком мыши на форме, после чего перейти на страницу events инспектора объектов.
Страница содержит две колонки. В первой колонке перечислены имена событий, на которые откликается компонент, вторая заполняется программистом и содержит имена созданных обработчиков событий.
2. Обработчик события представляет собой процедуру и имеет имя, состоящее из двух частей, разделенных точкой. Первая часть представляет собой имя класса создаваемой формы. Вторая часть имени создается либо программистом, либо создается средой Delphi. Если Delphi автоматически формирует вторую часть имени для обработчика, то оно представляет собой объединение имени компонента и имени события без предлога Оn.
В Данной работе используются компоненты:
1. Label-текстовое поле.
2. Edit-текстовое поле с возможность изменения содержимого.
3. Button - командная кнопка.
4. Combobox - окно с выбором одного из нескольких вариантов.
5. MainMenu PopupMenu - набор именованных команд и других вложенных меню (подменю), которые сгруппированы в отдельные функциональные категории. В зависимости от уровня охвата функциональности различают главное меню и локальное меню
6. StatusBar для отображения дополнительной информации, например, текущей даты, текущего времени и так далее. Она может быть разбита на несколько отдельных панелей
7. Timer - позволяет отсчитывать время (программируемая).
8. StatusBar-Панель, которую можно разделить на несколько частей и в каждую из них вставить различный текст (так же можно поставить дату и время) располагается внизу формы
9. ADO Connection - Элемент соединяющий БД с программой
10. ADO Table - Компонент через который идет обращение к таблице расположенной в базе данных
11. Data Source - Связывает ADO Table с другими элементами (пример DBGrid и DBnavigation).
12. DBGrid - используют для отображения и редактирования содержимого таблиц
13. DBNavigator-набор кнопок, при щелчках на которых во время работы программы происходит перемещение указателя текущей записи к следующей, предыдущей, первой или последней записи базы данных, а также добавление к файлу данных новой записи, удаление текущей записи
А так же Message и MessageDlg.
Глава II. Практика
Построение базы данных в MS Access
Создаем таблицу в режиме конструктора. В окне конструктора необходимо вводить слева названия поля, а справа указывать тип данных. Крайний правый столбец - Описание, туда можно вписать подсказку, которая будет выходить при наводке указателя мыши на столбец. Так же необходимо указать ключевое поле, с помощью которого будут создаваться связи между таблицами. Создадим таблицу "Товары", и укажем поле "Код" как ключевой. (Смотри рисунок 1)
Рисунок 1
По аналогии создадим остальные таблицы:
1. Продавцы (Ключевое поле-Код продавца) Рисунок 2
2. Поставка (Ключевое поле-Код товара) Рисунок 3
3. Чек (Ключевое поле - Код) Рисунок 4
Рисунок 2
Рисунок 3
Рисунок 4
Теперь откроем таблицы в режиме таблиц и заполним их.
Рисунок 5 Таблица чеков
Рисунок 6 Таблица товаров
Рисунок 7 Таблица поставки
Рисунок 8 Таблица Продавцов
Построение визуальной части в Delphi
Создадим главную форму, в которой будут содержаться компоненты ADOConnection, ADOTable, DataSource, MainMenu, PopupMenu, StatusBar и кнопки открывающие другие формы, но перед этим создадим схему связей всех форм, которая в данном случае будет выглядеть так:
Размещено на http://www.allbest.ru/
Рисунок 9
Для начала расположим элементы на форму и дадим названия (Рисунок 10):
Рисунок 10
Элементы ADOTable и DataSource добавляются попарно на каждую таблицу. Для создания Главного и всплывающего меню делаем двойной щелчок мыши на элемент MainMenu Popupmenu и в появившемся окне добавляем кнопки и переименовываем их (смотри Рисунок 11 и 12). Для указания команд, необходимо щелкнуть мышью на созданную вами кнопку 2 раза в режиме добавления кнопок.
Рисунок 11 Создание кнопок в Главном меню
Рисунок 12 Создание кнопок в Всплывающем меню
Для того что бы кнопки открывали другие формы необходимо прописать formХ. show; где Х-это число от 2 до 7 обозначающее номер формы.
Для того что бы снова не писать повторяющиеся команды в кнопках расположенных на главном и всплывающем меню, укажем ссылки на кнопки уже созданные ранее. То есть для кнопки из меню напишем buttonХclick (buttonХ) где Х номер кнопки на которую мы ссылаемся.
Что бы создать кнопку выхода, которая будет спрашивать об уверенности пользователя закрыть программу необходимо поместить в кнопку данный код: "If MessageDlg ('Вы действительно хотите выйти? ',mtConfirmation, [mbYes,mbNo],0) = mrYes then Form1. Close; " Она будет находится на каждой форме. (Рисунок 13)
Рисунок 13
Для создания часов в StatusBar и краткой информаций о создателе. Разделим его на 3 раздела. Для этого щелкаем по параметру Panels и добавляем новые панели (Рисунок 14). Для того что бы создать часы и информацию в панель, нужно ввести в код для таймера:
"statusbar1. Panels [0]. Text: =datetostr (now);
statusbar1. Panels [1]. Text: =timetostr (now);
Statusbar1. panels [2]. text: ='Шарипов Есет Бау 11-6'"
Рисунок 14
Установка защиты паролем. В данной работе создана схема защиты паролем путем скрывания большинства кнопок и раскрыть их можно только вписав код и нажав "Вход" после чего должно выйти сообщение либо об ошибке либо о Входе в программу (или верном пароле) после чего поле ввода пароля и кнопка проверки становятся недоступны. Для создания такой защиты необходимо скрыть все нужные нам кнопки при создании формы путем вписывания кода в раздел "при создании формы Form Create. Скрытие кнопок делается двумя путями: либо устанавливается параметр visible false либо вписав команду X. hide где Х-кнопка которую мы скрываем. После ввода верного пароля мы указываем либо команду X. Show либо изменяем параметр visible true проверка пароля делается вот так: "if edit1. Text='240594"
Как выглядит работа защиты паролем:
Рисунок 15 До ввода пароля
Рисунок 16 Неверный пароль
Рисунок 17 Верный пароль
Соединение Базы Данных
ADOConnection: двойной щелчок по пиктограмме элемента выбираем параметр Microsoft Jet 4.0 OLE DB Provider и в следующей вкладке указываем путь к базе (Рисунок 18):
Рисунок 18
Создав пары ADOTable-DataSource, соединяем Table с Connection, Source с Table указав в Table имя нужной нам таблице как на рисунках 19 и 20.
Рисунок 19 Рисунок 20
Создание запросов поисков и вывод таблиц
Расставляем DBGrid, Edit, Button1-2,DBNavigation,Label на форму (Рисунок 20)
Рисунок 21 Таблица Продавцы
Соединяем DBGrrid и DBNavigation с DataSource
А в процедуру "при изменении Edit" впишем
"if edit1. text=''then showmessage ('необходимо ввести хотя бы 1 символ')
else begin
dbgrid1. visible: =true;
form1. Adotable2. active: =true;
form1. Adotable2. locate ('ФИО Продавца',Edit1. text, [loPartialKey]); "
Получится, что при вводе Фамилии начинается поиск в таблице, если есть совпадение то курсор автоматически наводится на искомую строку (Рисунок 22):
Рисунок 22
А в случае если после становится пустым (Рисунок 23)
Рисунок 23
по аналогии создаем другие формы с таблицами и поиском
Эта форма отличается тем, что в ней присутствует выбор между двумя параметрами поиска, который реализован через ComboBox
"if edit1. text=''then showmessage ('необходимо ввести хотя бы 1 символ')
else begin
dbgrid1. visible: =true;
form1. Adotable3. active: =true;
if combobox1. itemindex=0 then
form1. Adotable3. locate ('ФИО Продавца',Edit1. text, [loPartialKey])
else form1. Adotable3. locate ('Наименование',Edit1. text, [loPartialKey]); " (Рисунок 24)
Рисунок 24 Отчет по покупкам
Рисунок 25 Список товаров
Рисунок 26 Список Чеков
Отличие поставки в том, что дополнительно указывается количество и цена указанного товара, а так же суммы на которую он был закуплен (Рисунок29). Для создания подсчета суммы необходимо добавить 2 DBEdit и 1 Label соединить DBEdit с таблицей через DataSource Рисунок 27 и 28
Рисунок 27 Рисунок 28
И прописать "label2. Caption: =inttostr (strtoint (dbedit1. text) *strtoint (dbedit2. text)); " при изменении одного из DBEdit
Рисунок 29 Поставка
Рисунок 30. О программе
Заключение
В данной курсовой работе была разработана модель работы с базой данных Аптеки, которая позволяет легко ориентироваться, добавлять изменения в имеющие данные, удалять содержащиеся в ней данные.
При выполнении курсовой работы были изучены технологии связывания MS Access со средой программирования Delphi.
Список использованной литературы
1. Ешпанова М. Д, Ибрашева А.Т. Объектно-ориентированное программирование. Часть 1. Методические указания к выполнению лабораторных работ для студентов специальности 5В070200-"Автоматизация и управление"-Алматы: АУЭС, 2010-55с.
2. Культин Н.Б. Delphi в задачах и примерах. - СПб.: БХВ-Петербург, 2004. - 288 с.: ил.
3. Фленов М. Библия для программиста в среде Delphi. - СПб: БХВ-Петербург, 2008.
4. http://www.delphiplus.org/programirovanie-baz-dannih-v-delphi/prostoi-otchet.html
5. http://www.delphiplus.org/programirovanie-baz-dannih-v-delphi/ustanovka-quick-report.html
Приложения
Приложение А
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, StdCtrls, Grids, DBGrids, ADODB, ExtCtrls, DBCtrls, ComCtrls,
Menus;
type
TForm1 = class (TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
ADOConnection1: TADOConnection;
DataSource1: TDataSource;
ADOTable1: TADOTable;
DataSource3: TDataSource;
ADOTable3: TADOTable;
DataSource4: TDataSource;
ADOTable4: TADOTable;
DataSource5: TDataSource;
ADOTable5: TADOTable;
StatusBar1: TStatusBar;
MainMenu1: TMainMenu;
PopupMenu1: TPopupMenu;
N1: TMenuItem;
N2: TMenuItem;
N5: TMenuItem;
N4: TMenuItem;
N6: TMenuItem;
N7: TMenuItem;
N9: TMenuItem;
N3: TMenuItem;
N8: TMenuItem;
N10: TMenuItem;
Timer1: TTimer;
Button7: TButton;
Edit1: TEdit;
DataSource2: TDataSource;
ADOTable2: TADOTable;
procedure Button1Click (Sender: TObject);
procedure Button2Click (Sender: TObject);
procedure Button3Click (Sender: TObject);
procedure Button4Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Button6Click (Sender: TObject);
procedure N8Click (Sender: TObject);
procedure N1Click (Sender: TObject);
procedure Timer1Timer (Sender: TObject);
procedure N5Click (Sender: TObject);
procedure N4Click (Sender: TObject);
procedure N6Click (Sender: TObject);
procedure N7Click (Sender: TObject);
procedure N9Click (Sender: TObject);
procedure N10Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
procedure Button7Click (Sender: TObject);
procedure Button8Click (Sender: TObject);
procedure Edit1KeyPress (Sender: TObject; var Key: Char);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;
{$R *. dfm}
procedure TForm1. Button1Click (Sender: TObject);
begin
form2. show;
end;
procedure TForm1. Button2Click (Sender: TObject);
begin
form3. show;
end;
procedure TForm1. Button3Click (Sender: TObject);
begin
form4. show;
end;
procedure TForm1. Button4Click (Sender: TObject);
begin
form5. show;
end;
procedure TForm1. Button5Click (Sender: TObject);
begin
If MessageDlg ('Вы действительно хотите выйти? ',mtConfirmation, [mbYes,mbNo],0) = mrYes then Form1. Close;
end;
procedure TForm1. Button6Click (Sender: TObject);
begin
Form6. show;
end;
procedure TForm1. N8Click (Sender: TObject);
begin
Form7. show;
end;
procedure TForm1. N1Click (Sender: TObject);
begin
Form7. show;
end;
procedure TForm1. Timer1Timer (Sender: TObject);
begin
statusbar1. Panels [0]. Text: =datetostr (now);
statusbar1. Panels [1]. Text: =timetostr (now);
Statusbar1. panels [2]. text: ='Шарипов Есет Бау 11-6'
end;
procedure TForm1. N5Click (Sender: TObject);
begin
button3click (button3);
end;
procedure TForm1. N4Click (Sender: TObject);
begin
button1click (button1);
end;
procedure TForm1. N6Click (Sender: TObject);
begin
button4click (button4);
end;
procedure TForm1. N7Click (Sender: TObject);
begin
button6click (button6);
end;
procedure TForm1. N9Click (Sender: TObject);
begin
button2click (button2);
end;
procedure TForm1. N10Click (Sender: TObject);
begin
If MessageDlg ('Вы действительно хотите выйти? ',mtConfirmation, [mbYes,mbNo],0) = mrYes then Form1. Close;
end;
procedure TForm1. FormCreate (Sender: TObject);
begin
n4. Visible: =false; n5. Visible: =false; n6. Visible: =false;
n7. Visible: =false; n9. Visible: =false;
button1. Hide; button2. Hide; button3. Hide;
button4. Hide; button6. Hide;
end;
procedure TForm1. Button7Click (Sender: TObject);
begin
if edit1. Text='240594'then
begin
n4. Visible: =true; n5. Visible: =true; n6. Visible: =true;
n7. Visible: =true; n9. Visible: =true;
Button1. Show; Button2. Show; Button3. Show;
Button7. Hide; Edit1. Hide;
Button4. Show; Button6. Show; ShowMessage ('Добро Пожаловать! ');
Button7. Hide; Edit1. Hide;
end
else ShowMessage ('Непревильный Пароль! ');
end;
procedure TForm1. Button8Click (Sender: TObject);
begin
form8. show; form1. Hide;
end;
procedure TForm1. Edit1KeyPress (Sender: TObject; var Key: Char);
begin
If key=#13 then
Begin
button7. SetFocus;
End;
end;
end.
Приложение Б
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ADODB, DB, ExtCtrls, DBCtrls, StdCtrls;
type
TForm2 = class (TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button5: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Edit1Change (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *. dfm}
procedure TForm2. Button1Click (Sender: TObject);
begin
Form2. Hide; Form1. show;
end;
procedure TForm2. Button5Click (Sender: TObject);
begin
If MessageDlg ('Вы действительно хотите выйти? ',mtConfirmation, [mbYes,mbNo],0) = mrYes then Form1. Close;
end;
procedure TForm2. Edit1Change (Sender: TObject);
begin
if edit1. text=''then showmessage ('необходимо ввести хотя бы 1 символ')
else begin
dbgrid1. visible: =true;
form1. Adotable2. active: =true;
form1. Adotable2. locate ('ФИО Продавца',Edit1. text, [loPartialKey]); end; end;
end.
Приложение В
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, StdCtrls;
type
TForm3 = class (TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button5: TButton;
Edit1: TEdit;
ComboBox1: TComboBox;
Label1: TLabel;
procedure Button1Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Edit1Change (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form3: TForm3;
implementation
uses Unit1;
{$R *. dfm}
procedure TForm3. Button1Click (Sender: TObject);
begin Form3. Hide; Form1. show; end;
procedure TForm3. Button5Click (Sender: TObject);
begin If MessageDlg ('Вы действительно хотите выйти? ',mtConfirmation, [mbYes,mbNo],0) = mrYes then Form1. Close;
end;
procedure TForm3. Edit1Change (Sender: TObject);
begin if edit1. text=''then showmessage ('необходимо ввести хотя бы 1 символ')
else begin dbgrid1. visible: =true;
form1. Adotable3. active: =true;
if combobox1. itemindex=0 then
form1. Adotable3. locate ('ФИО Продавца',Edit1. text, [loPartialKey])
else form1. Adotable3. locate ('Наименование',Edit1. text, [loPartialKey]);
end;
end;
end.
Приложение Г
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, StdCtrls;
type
TForm4 = class (TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button5: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Edit1Change (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form4: TForm4;
implementation
uses Unit1;
{$R *. dfm}
procedure TForm4. Button1Click (Sender: TObject);
begin Form4. Hide; Form1. show; end;
procedure TForm4. Button5Click (Sender: TObject);
begin If MessageDlg ('Вы действительно хотите выйти? ',mtConfirmation, [mbYes,mbNo],0) = mrYes then Form1. Close; end;
procedure TForm4. Edit1Change (Sender: TObject);
begin if edit1. text=''then showmessage ('необходимо ввести хотя бы 1 символ')
else begin dbgrid1. visible: =true;
form1. Adotable4. active: =true;
form1. Adotable4. locate ('Наименование',Edit1. text, [loPartialKey]);
end;
end;
end.
Приложение Д
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, StdCtrls;
type
TForm5 = class (TForm)
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Button1: TButton;
Button5: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Edit1Change (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form5: TForm5;
implementation
uses Unit1;
{$R *. dfm}
procedure TForm5. Button1Click (Sender: TObject);
beginForm5. Hide; Form1. show; end;
procedure TForm5. Button5Click (Sender: TObject);
begin If MessageDlg ('Вы действительно хотите выйти? ',mtConfirmation, [mbYes,mbNo],0) = mrYes then Form1. Close; end;
procedure TForm5. Edit1Change (Sender: TObject);
begin
if edit1. text=''then showmessage ('необходимо ввести хотя бы 1 символ')
else begin
dbgrid1. visible: =true;
form1. Adotable5. active: =true;
form1. Adotable5. locate ('Код',Edit1. text, [loPartialKey]);
end;
end;
end.
Приложение Е
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, DBCtrls, DB, ADODB, Grids, DBGrids, StdCtrls, Mask;
type
TForm6 = class (TForm)
Button5: TButton;
Button1: TButton;
dbgrd1: TDBGrid;
tbl1: TADOTable;
ds1: TDataSource;
dbnvgr1: TDBNavigator;
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
procedure Button1Click (Sender: TObject);
procedure Button5Click (Sender: TObject);
procedure Edit1Change (Sender: TObject);
procedure Label2Click (Sender: TObject);
procedure DBEdit1Change (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form6: TForm6;
implementation
uses Unit5, Unit1;
{$R *. dfm}
procedure TForm6. Button1Click (Sender: TObject);
begin
Form6. Hide; Form1. show;
end;
procedure TForm6. Button5Click (Sender: TObject);
begin
If MessageDlg ('Вы действительно хотите выйти? ',mtConfirmation, [mbYes,mbNo],0) = mrYes then Form1. Close;
end;
procedure TForm6. Edit1Change (Sender: TObject);
begin
if edit1. text=''then showmessage ('необходимо ввести хотя бы 1 символ')
else begin
dbgrd1. visible: =true;
tbl1. active: =true;
tbl1. locate ('Наименование',Edit1. text, [loPartialKey]);
end;
end;
procedure TForm6. Label2Click (Sender: TObject);
begin
label2. Caption: =inttostr (strtoint (dbedit1. text) *strtoint (dbedit2. text));
end;
procedure TForm6. DBEdit1Change (Sender: TObject);
begin
label2. Caption: =inttostr (strtoint (dbedit1. text) *strtoint (dbedit2. text));
end;
end.
Приложение Ж
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm7 = class (TForm)
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click (Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form7: TForm7;
implementation
{$R *. dfm}
procedure TForm7. Button1Click (Sender: TObject);
begin
Form7. Hide;
end;
end.
Размещено на Allbest.ru
Подобные документы
Компоненты реляционной базы данных Microsoft Access. Создание структуры таблиц и определение связей между ними. Проектирование форм для сводных таблиц и запросов с помощью конструктора окон. Разработка и создание автоотчетов и запросов на выборку данных.
реферат [3,3 M], добавлен 29.01.2011Рассмотрение интерактивной реляционной системы управления базами данных Microsoft Access. Графические возможности программы; создание таблиц, запросов, формуляров, отчетов, макросов и модулей. Сравнительная характеристика баз данных Clipper и Access.
курсовая работа [1,1 M], добавлен 22.01.2013Создание моделей данных, основных таблиц с помощью конструктора таблиц, связей между таблицами, форм для заполнения таблиц, запросов на выборку данных, отчетов для вывода на печать и начальной кнопочной формы. Основные объекты Microsoft Access.
контрольная работа [4,5 M], добавлен 18.03.2012Характеристика Microsoft Access. Создание структуры базы данных. Определение основных тем таблиц базы данных и информации, которую будут содержать поля таблиц. Создание таблиц, запросов, форм и отчетов. Страницы доступа к данным. Макросы и модули.
курсовая работа [1,1 M], добавлен 09.12.2012Построение концептуальной модели. Создание таблиц, входящих в состав базы данных. Разработка основных запросов, отчетов о количестве учеников в данном классе и работе школы; форм для просмотра и редактирования данных в программе Microsoft Access.
курсовая работа [2,7 M], добавлен 08.05.2015Системы визуального объектно-ориентированного программирования. Среда разработки Delphi. Microsoft Access как система управления базами данных реляционного типа. Структурированный язык запросов SQL. Программирование базы данных Библиотечного фонда.
курсовая работа [2,5 M], добавлен 08.01.2012Роль автоматизированных систем в туристической сфере. Принципы проектирования баз данных в Microsoft Access. Проектирование и планирование в Microsoft Project. Реализация базы данных ООО "Акварели" в Microsoft Access. Создание запросов, форм и отчетов.
курсовая работа [3,5 M], добавлен 19.11.2012Анализ возможностей системы управления базами данных "Microsoft Access 2003". Создание базы данных, предназначенной для отражения деятельности аэропорта. Концептуальная и физическая модель базы данных. Создание таблиц, запросов, отчетов и главной формы.
курсовая работа [1,8 M], добавлен 26.06.2013Описание первичных и результатных документов, типа связи информационных объектов. Построение информационно-логической модели базы данных и её реализация в СУБД Access (создание таблиц, запросов, форм, отчётов). Разработка интерфейса пользователя.
курсовая работа [2,1 M], добавлен 14.11.2013Создание базы данных в Microsoft Access с помощью мастера шаблонов. Создание таблиц путём ввода данных, с помощью мастера таблиц или таблицы в режиме конструктора таблиц. Создание запросов в Microsoft Access, с помощью мастера или конструктора запросов.
реферат [27,3 K], добавлен 08.09.2010
