№
|
Название
этапа
|
Срок
|
Отчетность
|
1
|
Закрепление
тем КП
|
01.11.2010
|
|
2
|
Анализ
объекта автоматизации
|
01.11.2010
- 08.11.2010
|
Отчет
|
3
|
Системный
анализ предметной области
|
08.11.2010
- 15.11.2010
|
Отчет
|
4
|
ERD
- анализ
|
15.11.2010
- 22.11.2010
|
Отчет
|
5
|
Физическое
проектирование БД
|
22.11.2010
- 13.12.2010
|
|
6
|
Написание
общей части
|
13.12.2010
- 10.01.2011
|
Отчет
|
7
|
Проектирование
структуры приложения
|
10.01.2011
- 17.01.2011
|
|
8
|
Программирование
информационных процедур
|
10.01.2011
- 31.01.2011
|
|
9
|
Тестирование
программного продукта
|
31.01.2011
- 07.02.2011
|
|
10
|
Написание
специальной части
|
07.02.2011
- 14.02.2011
|
Отчет
|
11
|
Написание
технологической части
|
14.02.2011
- 21.02.2011
|
Отчет
|
12
|
Компоновка
пояснительной записки
|
21.02.2011
- 28.02.2011
|
Отчет
|
13
|
Представление
программы и записки на рецензирование и проверку
|
28.02.2011
|
|
14
|
Исправление
ошибок и недочетов
|
28.02.2011
- 14.03.2011
|
|
15
|
Защита
проекта
|
14.03.2011
- 27.03.2011
|
|
2.
Специальная часть
2.1 Разработка
таблиц базы данных
Физическое создание таблиц производилось с
использованием известной утилиты DataBase
Desktop, входящей в пакет Borland
Delphi. Таблицы БД
получили следующие соответствующие физические имена (имена файлов таблиц
формата Paradox):
1) T_klient;
2) T_postav;
) T_mebel;
4) T_oplata;
5) T_zakaz;
Для разработки и отладки программных модулей,
работающих с базой данных, в таблицы были введены отладочные записи, которые
потом были дополнены и отредактированы непосредственно самой программой
"Виртуальный магазин по продаже мебели".
Ниже приведены фрагменты таблиц БД "Магазин
мебели", раскрытых в окне программы Database
Desktop.
Рисунок 5 - Структура таблицы
"Клиенты"
Рисунок 6 - Структура таблицы
"Поставщики"
Рисунок 7 - Структура таблицы "Мебель"
Рисунок 8 - Структура таблицы "Тип
оплаты"
Рисунок 9 - Структура таблицы "Заказ"
.2 Структура прикладной программы
Прикладная программа АИС "Виртуальный
магазин по продаже мебели" состоит из модуля проекта, шести функциональных
модулей и шести экранных форм. Вызов форм (обращение к модулям экранных форм)
осуществляется через кнопки в меню. На схеме 3. отражена модульная структура
программы.
Схема 3 - Структура программы "Виртуальный
магазин по продаже мебели"
.3 Создание интерфейса приложения
Для создания программного приложения была
выбрана интегрированная среда разработки Delphi
7
В создаваемом приложении будет создано 6 форм:
) Главная форма "Виртуальный магазин
по продаже мебели" (Form_Glavn)
- содержит меню для перехода в другую форму.
) Форма "Сущность - Поставщики"
(Form_Postav)
- содержит информацию обо всех поставщиках мебели.
) Форма "Сущность - Клиенты" (Form_Klient)
- позволяет вносить в базу, данные о новых клиентах магазина.
) Форма "Сущность - Мебель" (Form_Mebel)
- позволяет вносить в базу, данные о мебели.
) Форма "Сущность - Тип оплаты"
(Form_Oplata)
- позволяет посмотреть информацию, по типу возможности оплатить товар.
) Форма "Сущность - Заказ" (Form_Zakaz)
- позволяет вносить в базу, данные о заказе, предоставляет возможность поиска,
редактирования данных, вывод отчета.
.4 Проектирование формы "Виртуальный
магазин по продаже мебели"
Форма "Виртуальный магазин по продаже
мебели" является главной формой проекта. Эта форма выполняет управляющие
функции. При щелчке мышью по одной из кнопок программа передает управление и
визуализирует соответствующее функциональное окно.
Рисунок 10 - Главная форма "Виртуальный
магазин по продаже мебели"
Для реализации данных функций необходимо
добавить на форму следующие компоненты:
) Один компонент MainMenu - меню навигации;
) Пять компонентов Table - для обновления данных
в таблицах;
) Один компонент XPManifest - это компонент,
который из обычной темы (в программе) сделает в XP;
2.5 Проектирование формы "Поставщики"
Форма "Поставщики" - на ней
представлена информация обо всех поставщиках, которые сотрудничают с магазином.
Рисунок 11 - Форма "Поставщики"
Для реализации данных функций необходимо
добавить на форму следующие компоненты:
) Один компонент DataSource
- для связи компонентов Table
с другими компонентами;
) Один компонент DBGrid
- для отображения информации о ценностях на экране;
) Один компонента Edit
-ввод для поиска;
) Три компонента Image
- осуществляют функции кнопок;
) Шесть компонентов Label
- для отображения надписи;
6) Один компонент Table
- для вывода информации из таблицы;
7) Пять компонентов DBEdit
- для ввода и редактирования данных;
) Один компонент RadioGroup - для
фильтрации по полям;
) Один компонент MainMenu
- меню навигации;
2.6 Проектирование формы "Клиенты"
Форма "Клиенты" - на ней представлена
информация обо всех клиентах, которые осуществляли заказы в магазине.
Рисунок 12 - Форма "Клиенты"
Для реализации данных функций необходимо
добавить на форму следующие компоненты:
1) Один компонент DBGrid
- для отображения информации о ценностях на экране;
2) Один компонента Edit
-ввод для поиска;
) Три компонента Image
- осуществляют функции кнопок;
) Шесть компонентов Label
- для отображения надписи;
5) Один компонент Table
- для вывода информации из таблицы;
6) Пять компонентов DBEdit
- для ввода и редактирования данных;
) Один компонент RadioGroup - для
фильтрации по полям;
8) Один компонент MainMenu
- меню навигации;
.7 Проектирование формы
"Мебель"
Форма "Мебель" - на ней представлена
информация обо всей мебели, который продает магазин.
Рисунок 13 - Форма "Мебель"
Для реализации данных функций необходимо
добавить на форму следующие компоненты:
1) Один компонент DataSource
- для связи компонентов Table
с другими компонентами;
2) Один компонент DBGrid
- для отображения информации о ценностях на экране;
) Один компонента Edit
-ввод для поиска;
) Три компонента Image
- осуществляют функции кнопок;
) Шесть компонентов Label
- для отображения надписи;
) Один компонент Table
- для вывода информации из таблицы;
) Пять компонентов DBEdit
- для ввода и редактирования данных;
) Один компонент RadioGroup - для
фильтрации по полям;
) Один компонент MainMenu
- меню навигации;
.8 Проектирование формы
"Тип оплаты"
Форма "Тип оплаты" - на ней
представлена информация по способу оплаты, которой клиент может воспользоваться
и оплатить выбранный товар заказанный в магазине.
Рисунок 14 - Форма "Тип оплаты"
Для реализации данных функций необходимо
добавить на форму следующие компоненты:
1) Один компонент DataSource
- для связи компонентов Table
с другими компонентами;
2) Один компонент DBGrid
- для отображения информации о ценностях на экране;
) Один компонента Edit
-ввод для поиска;
) Три компонента Image
- осуществляют функции кнопок;
) Один компонент Label
- для отображения надписи;
) Один компонент Table
- для вывода информации из таблицы;
) Два компонента DBEdit
- для ввода и редактирования данных;
) Один компонент RadioGroup - для
фильтрации по полям;
) Один компонент MainMenu
- меню навигации;
.9 Проектирование формы
"Заказ"
Форма "Заказ" является основой формой
проекта. На ней представлена информация обо всех имеющихся заказов.
Рисунок 15 - Форма "Заказ"
Для реализации данных функций необходимо
добавить на форму следующие компоненты:
1) Пять компонентов DataSource
- для связи компонентов Table
с другими компонентами;
2) Пять компонентов DBGrid
- для отображения информации о ценностях на экране;
) Семь компонентов Edit
-ввод для поиска;
) Девять компонентов Label
- для отображения надписи;
) Пять компонент Table
- для вывода информации из таблицы;
) Один компонент RadioGroup - для
фильтрации по полям;
) Один компонент MainMenu
- меню навигации;
) Один компонент Query
- для вывода информации;
) Четыре компонента Button
- кнопки;
) Два компонента DateTimePicker - для ввода
даты;
3. Эксплуатационная
часть
.1 Требования
к аппаратно-программному обеспечению
Система должна работать на IBM совместимых
персональных компьютерах.
Минимальная конфигурация:
1) Процессор 500 MHz
2) Оперативная память 128 Мб RAM
) Видеоадаптер и монитор VGA (800 x 600)
) Свободное место на HDD 25 Мб
) Устройства взаимодействия с
пользователем клавиатура и мышь.
Минимальные требования к информационной и
программной совместимости:
Операционной система Win32
.2 Инструкция
по установке ПП
Установка программного продукта
"Виртуальный магазин по продаже мебели" осуществляется в два этапа:
1) Скопировать папку с
программой в корень диска "C:\", для того чтобы без ошибок
функционировала функция отчета.
2) Открытие Файла Project.exe
в папке с программой.
.3 Инструкция
по тестированию ПП
программный интерфейс база данные
После завершения проектирования системы
наступает этап ввода системы в эксплуатацию. Перед вводом в эксплуатацию
необходимо убедиться в правильности работы созданного программного продукта,
т.е. провести его тестирование.
После запуска exe
файла появляется главное окно программы, где следует перейти в меню на основную
форму программы "Заказ", которая выглядит следующим образом:
Рисунок 16 - Форма - Заказ
В появившейся форме мы видим четыре кнопки:
удалить, добавит, редактирование, обновить. Кнопка удалить служит для того,
чтобы удалить запись из таблицы. Кнопка добавить служит для того, чтобы
добавить запись в таблицу. Кнопка редактирование служит для того, чтобы
отредактировать имеющиеся записи в таблице. Кнопка обновить служит для того,
чтобы обновлять таблицу, после редактирования записей. Также есть поле для
ввода записи, чтобы искать необходимые данные в базе. Если не заполнить все
поля и нажать добавить программа выдаст сообщение "введите все
записи", это выглядит следующим образом:
Рисунок 17 - Форма - Заказ
Проверим поиск в базе данных. Для этого в поле
"Введите запись для поиска" введем запись, например, из поля
поставщик введем запись "Кедр". После того как ввели запись, нажимаем
на кружок с надписью "Поставщик". После данных действий должна
появится одна строчка в базе с таким именем. Это будет выглядит следующим
образом:
Рисунок 18 - Форма - Заказ
Остальные формы программы работают аналогичным
способом, как представлено выше. Из представленных скриншотов видно, что
программа работает правильно без ошибок и сбоев. Программу можно вводить в
эксплуатацию.
3.4 Инструкция
по эксплуатации ПП
Полученная АИС "Виртуальный магазин по
продаже мебели" предназначена для автоматизации деятельности средних и
крупных организаций.
База данных системы размещается на жестких
дисках сервера базы данных в локальной вычислительной сети под управлением
операционной системы.
Клиентское программное обеспечение функционирует
на IBM-совместимых
рабочих станциях под управлением операционной системы Windows
98/2000/XP.
Запускаем исполняемый файл приложения.
Появляется главное окно программы.
При запуске программы открывается главная форма.
Рисунок 19 - Главная форма
Меню содержит восемь пунктов:
"Поставщики", "Клиенты", "Мебель", "Тип
оплаты", "Заказ", "Выход", "Справка",
"Свернуть".
1) Меню "Поставщики" содержит
информацию о поставщиках.
2) Меню "Клиенты" содержит
информацию о клиентах.
) Меню "Мебель" содержит
информацию о мебели.
) Меню "Тип оплаты" содержит
информацию по способу оплаты заказанного товара .
) Меню "Выход" данная кнопка
позволяет выйти из приложения.
) Меню "Справка" позволяет
пользователи подробней ознакомится с данным приложением.
) Меню "Свернуть" позволяет
пользователи свернуть и развернуть приложение.
Заключение
В результате выполнения данной курсовой работы
мною было разработано программное приложение "Виртуальный магазин по продаже
мебели".
Данное программное приложение позволяет
осуществлять все основные функции по заказу мебели, регистрации клиентов,
сотрудничество с поставщиками, возможность работать с разными банками.
Разработанная программа может быть использована
в работе любой организации, чья деятельность связана с реализацией мебели. Ее
основными преимуществами являются:
) Простой и понятный интерфейс,
позволяющий работать с программой любому пользователю вне зависимости от
навыков работы с ПК;
) Разработанная программа довольно проста
в использовании;
) Данная программа является
отказоустойчивой;
) Разработанное программное приложение
содержит огромное количество информации и при этом потребляет минимум ресурсов
компьютера;
) Реализация широких возможностей по
учету вычислительной техники, с возможностью автоматизированного сбора
информации об используемых технических средствах с рабочих мест;
) Эргономичный и интуитивно понятный
интерфейс;
Курсовая работа содержит: страниц - 67; рисунков
- 19; схем - 3; таблиц - 11; приложений - 1;
Список источников
1. Астахова И.Ф. SQL
в примерах и задачах: Учеб. пособие. Мн.: Новое знание, 2008.-176с.
2. Базы данных: Учебник для вузов/ Под ред.
А.Д. Хомоненко. - СП.: Корона принт, 2007.-416с.
. Гайдамакин Н.А. Автоматизированные
информационные системы, базы и банки данных. Вводный курс: Учеб. пособие.- М.:
Гелиос
. Глушаков С.В., Ломотько Д.В. Базы
данных: Учеб. курс. - Харьков: Фолио, 2009.-540с.
. Грабер М. Введение в SQL.-М.:
ЛОРИ, 2009.-376 с.
. Грофф Дж., Вайнберг П. Энциклопедия SQL.
- СПб.: Питер
. Дунаев В.В. Базы данных. Язык SQL.-
СПб.: БХВ - Петербург
. Карпова Т.С. Базы данных: модели,
разработка, реализация. - СПб.: Питер,2007.-304с.:ил.
. Конноли Т. и др. Базы данных:
Проектирование, реализация и сопровождение. Теория и практика. - М.: Вильямс,
2007.-1120с.
. Лебедев А.Н. Visual
FoxPro 9.0. - М.: НТ
Пресс, 2009. - 328с.
. Малыхина М.П. Базы данных: основы,
проектирование, использование. - СПб.: БХВ-Петербург, 2006.-512 с.
. Мирошниченко Г.А. Реляционные базы
данных: практические приемы оптимальных решений. - СПб.: БХВ - Петербург,
2007.- 400с.
. Рудикова Л.В. Базы данных. Разработка
приложений. - СПб.: БХВ - Петербург, 2009.- 496с.
. Советов Б.Я. Базы данных: теория и
практика: Учебник для вузов / Б.Я. Советов, В.В. Цехановский, В.Д. Чертовский.
- М.: Высш.шк., 2008
. Форта Б. Освой самостоятельно SQL.
10 минут на урок, 3-е издание.: Пер. с англ. - М.: Вильямс, 2007.-288с.
Приложения
Форма 1 - Виртуальный магазин по продаже мебели
unit Unit1;, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,, StdCtrls, Menus, jpeg, ExtCtrls,
XPMan, ComObj, DB, DBTables;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;:
TMenuItem;: TMenuItem;: TMenuItem;: TMenuItem;: TXPManifest;_klient: TTable;:
TMenuItem;_postav: TTable;_mebel: TTable;_oplata: TTable;_zakaz: TTable;:
TMenuItem;N1Click(Sender: TObject);N2Click(Sender: TObject);N3Click(Sender:
TObject);N4Click(Sender: TObject);N5Click(Sender: TObject);N6Click(Sender:
TObject);FormCreate(Sender: TObject);FormPaint(Sender: TObject);N7Click(Sender:
TObject);FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X,
Y: Integer);N8Click(Sender: TObject);
{ Private declarations }
{ Public declarations };:
TGlavn;Unit2, Unit3, Unit4, Unit5, Unit6;
{$R *.dfm}TGlavn.N1Click(Sender:
TObject);.Show;;TGlavn.N2Click(Sender: TObject);.Show;;TGlavn.N3Click(Sender:
TObject);.Show;;TGlavn.N4Click(Sender: TObject);.Show;;TGlavn.N5Click(Sender:
TObject);.Show;;TGlavn.N6Click(Sender: TObject);.Close;;TGlavn.FormCreate(Sender:
TObject);.BorderStyle := bsToolWindow;;TGlavn.FormPaint(Sender:
TObject);:TBitMap;:=TBitMap.Create;.Loadfromfile('1.bmp');.Canvas.Draw(0,0,bm);;TGlavn.N7Click(Sender:
TObject);(Glavn.Handle,'help.hlp',HELP_CONTEXT,1);;TGlavn.FormMouseDown(Sender:
TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);;( WM_SYSCOMMAND,
SC_MOVE+2, 0 );;TGlavn.N8Click(Sender: TObject);.WindowState := wsMinimized;;
end.
Форма 2 - КлиентыUnit3;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB,
ExtCtrls, DBCtrls, Grids, DBGrids, DBTables, Menus, StdCtrls,, jpeg, RpCon,
RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj;= class(TForm): TTable;:
TDBGrid;: TDataSource;: TMainMenu;: TMenuItem;: TMenuItem;: TLabel;: TLabel;:
TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;:
TRadioGroup;: TEdit;: TImage;: TDBEdit;: TImage;: TImage;: TLabel;: TMenuItem;:
TMenuItem;: TXPManifest;N1Click(Sender: TObject);N2Click(Sender:
TObject);RadioGroup1Click(Sender: TObject);Image1Click(Sender:
TObject);Image4Click(Sender: TObject);Image5Click(Sender:
TObject);DBGrid1CellClick(Column: TColumn);FormCreate(Sender:
TObject);FormPaint(Sender: TObject);N3Click(Sender:
TObject);FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X,
Y: Integer);N4Click(Sender: TObject);:short; t:integer; nz:short;
{ Private declarations }
{ Public declarations };:
TKlient;Unit1;
{$R *.dfm}TKlient.N1Click(Sender:
TObject);.Show;;TKlient.N2Click(Sender:
TObject);.Close;;TKlient.RadioGroup1Click(Sender:
TObject);.Filtered:=true;RadioGroup1.ItemIndex
:Table1.Filtered:=false;
:Table1.Filter:='Fam='+
QuotedStr(Edit1.text);
:Table1.Filter:='Im='+
QuotedStr(Edit1.text);
:Table1.Filter:='Otch='+
QuotedStr(Edit1.text);
:Table1.Filter:='Adres_k='+
QuotedStr(Edit1.text);
:Table1.Filter:='Tel_k='+
QuotedStr(Edit1.text);; end;TKlient.Image1Click(Sender:
TObject);.Last;:=Table1.Fields[0].Value+1;.Insert;.Append;.Fields[0].Value:=R;
;TKlient.Image4Click(Sender: TObject);.FindKey
([nz]);.Delete;.Close;.Open;;TKlient.Image5Click(Sender:
TObject);.Refresh;;TKlient.DBGrid1CellClick(Column:
TColumn);:=Table1.fields[0].value;;TKlient.FormCreate(Sender:
TObject);.BorderStyle := bsToolWindow;;TKlient.FormPaint(Sender:
TObject);:TBitMap;:=TBitMap.Create;.Loadfromfile('2.bmp');.Canvas.Draw(0,0,bm);;TKlient.N3Click(Sender:
TObject);,Sheet,Colum:Variant;,i:integer;
//Uses модуль
ComObj:=0;.Close;.Open;:=CreateOLEObject('Excel.Application');.visible:=true;.WorkBooks.add('F:\BD_Kursovik\klient.xls');.workbooks[1].worksheets[1].Name:='клиенты'
;:=XL.workbooks[1].worksheets['клиенты'].columns;:=XL.workbooks[1].worksheets['клиенты'].Rows;:=XL.workbooks[1].worksheets['клиенты'];:=4;.First;i:=0
to table1.RecordCount-1
do:=t+1;.cells[index,1]:=t;.cells[index,2]:=table1.Fields[0].AsString;.cells[index,3]:=table1.Fields[1].AsString;.cells[index,4]:=table1.Fields[2].AsString;.cells[index,5]:=table1.Fields[3].AsString;.cells[index,6]:=table1.Fields[4].AsString;.cells[index,7]:=table1.Fields[5].AsString;(index);.Next;;
end;TKlient.FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState;
X, Y: Integer);;( WM_SYSCOMMAND, SC_MOVE+2, 0 );;TKlient.N4Click(Sender:
TObject);.WindowState := wsMinimized;; end.
Форма 3 - МебельUnit4;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB,
DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus,, Mask, jpeg, RpCon,
RpConDS, RpConBDE, RpDefine, RpRave, XPMan, ComObj;= class(TForm): TDBGrid;:
TTable;: TDataSource;: TMainMenu;: TMenuItem;: TMenuItem;: TDBEdit;: TDBEdit;:
TDBEdit;: TDBEdit;: TDBEdit;: TDBEdit;: TLabel;: TLabel;: TLabel;: TLabel;:
TLabel;: TLabel;: TRadioGroup;: TEdit;: TImage;: TImage;: TImage;: TLabel;:
TMenuItem;: TMenuItem;: TXPManifest;N1Click(Sender: TObject);N2Click(Sender:
TObject);RadioGroup1Click(Sender: TObject);Image1Click(Sender:
TObject);Image4Click(Sender: TObject);Image5Click(Sender:
TObject);DBGrid1CellClick(Column: TColumn);FormCreate(Sender:
TObject);FormPaint(Sender: TObject);N3Click(Sender:
TObject);FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X,
Y: Integer);N4Click(Sender: TObject);:short; nz:short; t:integer;
{ Private declarations }
{ Public declarations };:
TMebel;Unit1;
{$R *.dfm}TMebel.N1Click(Sender:
TObject);.Show;;TMebel.N2Click(Sender: TObject);.Close;;TMebel.RadioGroup1Click(Sender:
TObject);.Filtered:=true;RadioGroup1.ItemIndex
:Table1.Filtered:=false;
:Table1.Filter:='Name_m='+
QuotedStr(Edit1.text);
:Table1.Filter:='Srok='+
QuotedStr(Edit1.text);
:Table1.Filter:='Cvet='+
QuotedStr(Edit1.text);
:Table1.Filter:='Ves='+
QuotedStr(Edit1.text);
:Table1.Filter:='Material='+
QuotedStr(Edit1.text);
:Table1.Filter:='Cena='+
QuotedStr(Edit1.text);; end;TMebel.Image1Click(Sender:
TObject);.Last;:=Table1.Fields[0].Value+1;.Insert;.Append;.Fields[0].Value:=M;;TMebel.Image4Click(Sender:
TObject);.FindKey([nz]);.Delete;.Close;.Open;;TMebel.Image5Click(Sender:
TObject);.Refresh;;TMebel.DBGrid1CellClick(Column:
TColumn);:=Table1.fields[0].value;;TMebel.FormCreate(Sender:
TObject);.BorderStyle := bsToolWindow;;TMebel.FormPaint(Sender:
TObject);:TBitMap;:=TBitMap.Create;.Loadfromfile('3.bmp');.Canvas.Draw(0,0,bm);;TMebel.N3Click(Sender:
TObject);,Sheet,Colum:Variant;,i:integer;
//Uses модуль
ComObj:=0;.Close;.Open;:=CreateOLEObject('Excel.Application');.visible:=true;.WorkBooks.add('F:\BD_Kursovik\mebel.xls');.workbooks[1].worksheets[1].Name:='мебель'
;:=XL.workbooks[1].worksheets['мебель'].columns;:=XL.workbooks[1].worksheets['мебель'].Rows;:=XL.workbooks[1].worksheets['мебель'];:=4;.First;i:=0
to table1.RecordCount-1
do:=t+1;.cells[index,1]:=t;.cells[index,2]:=table1.Fields[0].AsString;.cells[index,3]:=table1.Fields[1].AsString;.cells[index,4]:=table1.Fields[2].AsString;.cells[index,5]:=table1.Fields[3].AsString;.cells[index,6]:=table1.Fields[4].AsString;.cells[index,7]:=table1.Fields[5].AsString;.cells[index,8]:=table1.Fields[6].AsString;(index);.Next;;
end;TMebel.FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState;
X, Y: Integer);;( WM_SYSCOMMAND, SC_MOVE+2, 0 );;TMebel.N4Click(Sender:
TObject);.WindowState := wsMinimized;; end.
Форма 4 - Тип оплаты
unit
Unit5;
interface, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,, DB, DBTables, ExtCtrls, DBCtrls,
Grids, DBGrids, Menus, StdCtrls,, jpeg, RpCon, RpConDS, RpConBDE, RpDefine,
RpRave, XPMan, ComObj;= class(TForm): TTable;: TDataSource;: TMainMenu;:
TMenuItem;: TMenuItem;: TDBGrid;: TLabel;: TLabel;: TDBEdit;: TDBEdit;:
TImage;: TImage;: TImage;: TRadioGroup;: TEdit;: TLabel;: TMenuItem;:
TMenuItem;: TXPManifest;N1Click(Sender: TObject);N2Click(Sender:
TObject);FormCreate(Sender: TObject);DBGrid1CellClick(Column:
TColumn);Image1Click(Sender: TObject);Image2Click(Sender:
TObject);Image3Click(Sender: TObject);RadioGroup1Click(Sender:
TObject);FormPaint(Sender: TObject);N3Click(Sender: TObject);FormMouseDown(Sender:
TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);N4Click(Sender:
TObject);O:short; K:short; KK:short; t:integer;
{ Private declarations }
{ Public declarations };:
TOplata;Unit1;
{$R *.dfm}TOplata.N1Click(Sender:
TObject);.Show;;TOplata.N2Click(Sender:
TObject);.Close;;TOplata.FormCreate(Sender: TObject);.BorderStyle :=
bsToolWindow;;TOplata.DBGrid1CellClick(Column:
TColumn);:=Table1.fields[0].value;;TOplata.Image1Click(Sender:
TObject);.FindKey ([K]);.Delete;.Close;.Open;;TOplata.Image2Click(Sender:
TObject);.Last;:=Table1.Fields[0].Value+1;.Insert;.Append;.Fields[0].Value:=KK;;TOplata.Image3Click(Sender:
TObject);.Refresh;;TOplata.RadioGroup1Click(Sender:
TObject);.Filtered:=true;RadioGroup1.ItemIndex
:Table1.Filtered:=false;
:Table1.Filter:='Name_b='+
QuotedStr(Edit1.text);
:Table1.Filter:='Nomer_s='+
QuotedStr(Edit1.text);; end;TOplata.FormPaint(Sender:
TObject);:TBitMap;:=TBitMap.Create;.Loadfromfile('4.bmp');.Canvas.Draw(0,0,bm);;TOplata.N3Click(Sender:
TObject);,Sheet,Colum:Variant;,i:integer;
//Uses модуль
ComObj:=0;.Close;.Open;:=CreateOLEObject('Excel.Application');.visible:=true;.WorkBooks.add('F:\BD_Kursovik\oplata.xls');.workbooks[1].worksheets[1].Name:='Поставщик'
;:=XL.workbooks[1].worksheets['Поставщик'].columns;:=XL.workbooks[1].worksheets['Поставщик'].Rows;:=XL.workbooks[1].worksheets['Поставщик'];:=4;.First;i:=0
to table1.RecordCount-1
do:=t+1;.cells[index,1]:=t;.cells[index,2]:=table1.Fields[0].AsString;.cells[index,3]:=table1.Fields[1].AsString;.cells[index,4]:=table1.Fields[2].AsString;(index);.Next;;
end;TOplata.FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState;
X, Y: Integer);;( WM_SYSCOMMAND, SC_MOVE+2, 0 );;TOplata.N4Click(Sender:
TObject);.WindowState := wsMinimized;; end.
Форма 5 - ПоставщикиUnit2;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, ExtCtrls,
DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls, Mask,, jpeg, RpCon, RpConDS,
RpConBDE, RpDefine, RpRave, XPMan, ComObj;= class(TForm): TDBGrid;: TTable;:
TDataSource;: TLabel;: TLabel;: TLabel;: TLabel;: TLabel;: TDBEdit;: TDBEdit;:
TDBEdit;: TDBEdit;: TDBEdit;: TMainMenu;: TMenuItem;: TMenuItem;: TEdit;:
TRadioGroup;: TImage;: TImage;: TImage;: TLabel;: TMenuItem;: TMenuItem;:
TXPManifest;Button2Click(Sender: TObject);Button3Click(Sender:
TObject);N1Click(Sender: TObject);N2Click(Sender:
TObject);RadioGroup1Click(Sender: TObject);Image1Click(Sender:
TObject);Image4Click(Sender: TObject);Image5Click(Sender:
TObject);DBGrid1CellClick(Column: TColumn);FormCreate(Sender:
TObject);FormPaint(Sender: TObject);N3Click(Sender:
TObject);FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X,
Y: Integer);N4Click(Sender: TObject);:short; nz:short; t:integer;
{ Private declarations }
{ Public declarations };: TPostav;Unit1;
{$R
*.dfm}TPostav.Button2Click(Sender: TObject);not
Table1.Locate('Name_p',Edit1.text,[LoCaseInsensitive,LoPartialKey])begin('Не
найдено');.SetFocus;.AutoSelect:=true;;
end;TPostav.Button3Click(Sender: TObject);.Cancel;;TPostav.N1Click(Sender:
TObject);.Show;;TPostav.N2Click(Sender:
TObject);.Close;;TPostav.RadioGroup1Click(Sender:
TObject);.Filtered:=true;RadioGroup1.ItemIndex
:Table1.Filtered:=false;
:Table1.Filter:='Name_p='+
QuotedStr(Edit1.text);
:Table1.Filter:='Inn='+
QuotedStr(Edit1.text);
:Table1.Filter:='Adres_p='+
QuotedStr(Edit1.text);
:Table1.Filter:='Tel_p='+
QuotedStr(Edit1.text);
:Table1.Filter:='Ruck='+
QuotedStr(Edit1.text);; end;TPostav.Image1Click(Sender:
TObject);.Last;:=Table1.Fields[0].Value+1;.Insert;.Append;.Fields[0].Value:=P;;TPostav.Image4Click(Sender:
TObject);.FindKey([nz]);.Delete;.Close;.Open;;TPostav.Image5Click(Sender:
TObject);.Refresh;;TPostav.DBGrid1CellClick(Column:
TColumn);:=Table1.fields[0].value;;TPostav.FormCreate(Sender:
TObject);.BorderStyle := bsToolWindow;;TPostav.FormPaint(Sender:
TObject);:TBitMap;:=TBitMap.Create;.Loadfromfile('6.bmp');.Canvas.Draw(0,0,bm);;TPostav.N3Click(Sender:
TObject);,Sheet,Colum:Variant;,i:integer;
//Uses модуль
ComObj:=0;.Close;.Open;:=CreateOLEObject('Excel.Application');.visible:=true;.WorkBooks.add('F:\BD_Kursovik\postav.xls');.workbooks[1].worksheets[1].Name:='поставщик'
;:=XL.workbooks[1].worksheets['поставщик'].columns;:=XL.workbooks[1].worksheets['поставщик'].Rows;:=XL.workbooks[1].worksheets['поставщик'];:=4;.First;i:=0
to table1.RecordCount-1
do:=t+1;.cells[index,1]:=t;.cells[index,2]:=table1.Fields[0].AsString;.cells[index,3]:=table1.Fields[1].AsString;.cells[index,4]:=table1.Fields[2].AsString;.cells[index,5]:=table1.Fields[3].AsString;.cells[index,6]:=table1.Fields[4].AsString;.cells[index,7]:=table1.Fields[5].AsString;(index);.Next;;
end;TPostav.FormMouseDown(Sender: TObject; Button: TMouseButton;: TShiftState;
X, Y: Integer);;( WM_SYSCOMMAND, SC_MOVE+2, 0 );;TPostav.N4Click(Sender:
TObject);.WindowState := wsMinimized; end; end.
Форма 6 - ЗаказUnit6;,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, DB,
DBTables, ExtCtrls, DBCtrls, Grids, DBGrids, Menus, StdCtrls,, ComCtrls, jpeg,
RpCon, RpConDS, RpDefine, RpRave, XPMan, ComObj;= class(TForm): TDataSource;:
TMainMenu;: TMenuItem;: TMenuItem;: TDBGrid;: TQuery;: TLabel;: TLabel;:
TLabel;: TLabel;: TLabel;: TLabel;: TRadioGroup;: TEdit;: TEdit;: TEdit;:
TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TDataSource;:
TDBGrid;_postav: TTable;_zakaz: TTable;_klient: TTable;: TDataSource;:
TDBGrid;_mebel: TTable;: TDataSource;: TDBGrid;_oplata: TTable;: TDataSource;:
TDBGrid;: TButton;: TButton;: TButton;: TButton;: TDateTimePicker;:
TDateTimePicker;: TMenuItem;: TMenuItem;: TXPManifest;_id: TSmallintField;_zakaza:
TDateField;_ispol: TDateField;_id: TSmallintField;_id: TSmallintField;_id:
TSmallintField;_id: TSmallintField;_p: TStringField;: TStringField;_m:
TStringField;_b: TStringField;_s: TStringField;: TStringField;_zakazZakaz_id:
TSmallintField;_zakazData_zakaza: TDateField;_zakazData_ispol:
TDateField;_zakazPostav_id: TSmallintField;_zakazKlient_id:
TSmallintField;_zakazMeb_id: TSmallintField;_zakazOplata_id:
TSmallintField;N1Click(Sender: TObject);N2Click(Sender:
TObject);FormCreate(Sender: TObject);DBGrid1CellClick(Column:
TColumn);DBGpostavCellClick(Column: TColumn);Edit2MouseDown(Sender: TObject;
Button: TMouseButton;: TShiftState; X, Y: Integer);FormMouseDown(Sender:
TObject; Button: TMouseButton;: TShiftState; X, Y: Integer);DBGklientCellClick(Column:
TColumn);Edit3MouseDown(Sender: TObject; Button: TMouseButton;: TShiftState; X,
Y: Integer);DBGmebelCellClick(Column: TColumn);Edit4MouseDown(Sender: TObject;
Button: TMouseButton;: TShiftState; X, Y: Integer);DBGoplataCellClick(Column: TColumn);Edit5MouseDown(Sender:
TObject; Button: TMouseButton;: TShiftState; X, Y:
Integer);RadioGroup1Click(Sender: TObject);Button1Click(Sender:
TObject);Button2Click(Sender: TObject);Button3Click(Sender:
TObject);Button4Click(Sender: TObject);FormPaint(Sender:
TObject);DateTimePicker1Click(Sender: TObject);DateTimePicker2Click(Sender:
TObject);N3Click(Sender: TObject);N4Click(Sender:
TObject);,n,postav,oplata,meb,klient:short; a:integer; t:integer;
{ Private declarations }
{ Public declarations };: TZakaz;Unit1,
Unit3, Unit5;
{$R *.dfm}TZakaz.N1Click(Sender:
TObject);.Show;;TZakaz.N2Click(Sender:
TObject);.Close;;TZakaz.FormCreate(Sender: TObject);.BorderStyle :=
bsToolWindow;
//edit0.Text:=datetostr(date);
//edit1.Text:=datetostr(date);.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';;TZakaz.DBGrid1CellClick(Column:
TColumn);:=qzakaz.Fields[0].Value;;TZakaz.DBGpostavCellClick(Column:
TColumn);:=t_postav.Fields[0].Value;.Text:=t_postav.Fields[1].Value;.Visible:=false;;TZakaz.Edit2MouseDown(Sender:
TObject; Button: TMouseButton;: TShiftState; X, Y:
Integer);.Visible:=true;;TZakaz.FormMouseDown(Sender: TObject; Button:
TMouseButton;: TShiftState; X, Y: Integer);;( WM_SYSCOMMAND, SC_MOVE+2, 0
);.Visible:=false;.Visible:=false;.Visible:=false;.Visible:=false;;TZakaz.DBGklientCellClick(Column:
TColumn);:=t_klient.Fields[0].Value;.Text:=t_klient.Fields[1].Value;.Visible:=false;;TZakaz.Edit3MouseDown(Sender:
TObject; Button: TMouseButton;: TShiftState; X, Y:
Integer);.Visible:=true;;TZakaz.DBGmebelCellClick(Column:
TColumn);:=t_mebel.Fields[0].Value;.Text:=t_mebel.Fields[1].Value;.Text:=t_mebel.Fields[6].Value+'
руб';.Visible:=false;;TZakaz.Edit4MouseDown(Sender:
TObject; Button: TMouseButton;: TShiftState; X, Y:
Integer);.Visible:=true;;TZakaz.DBGoplataCellClick(Column:
TColumn);:=t_oplata.Fields[0].Value;.Text:=t_oplata.Fields[1].Value;.Text:=t_oplata.Fields[2].Value;.Visible:=false;;TZakaz.Edit5MouseDown(Sender:
TObject; Button: TMouseButton;: TShiftState; X, Y:
Integer);.Visible:=true;;TZakaz.RadioGroup1Click(Sender:
TObject);.Filtered:=true;RadioGroup1.ItemIndex
:Qzakaz.Filtered:=false;
:Qzakaz.Filter:='name_p='+
QuotedStr(Edit22.text);
:Qzakaz.Filter:='fam='+
QuotedStr(Edit22.text);
:Qzakaz.Filter:='name_m='+
QuotedStr(Edit22.text);
:Qzakaz.Filter:='name_b='+
QuotedStr(Edit22.text);
:Qzakaz.Filter:='nomer_s='+
QuotedStr(Edit22.text);
:Qzakaz.Filter:='cena='+
QuotedStr(Edit22.text);; end;TZakaz.Button1Click(Sender: TObject);:=2;
//edit0.Text:=qzakaz.Fields[1].Value;
//edit1.Text:=qzakaz.Fields[2].Value;.Text:=qzakaz.Fields[7].Value;.Text:=qzakaz.Fields[8].Value;.Text:=qzakaz.Fields[9].Value;.Text:=qzakaz.Fields[10].Value;.Text:=qzakaz.Fields[11].Value;.Text:=qzakaz.Fields[12].Value;:=qzakaz.Fields[3].AsInteger;:=qzakaz.Fields[4].AsInteger;:=qzakaz.Fields[5].AsInteger;:=qzakaz.Fields[6].AsInteger;;TZakaz.Button2Click(Sender:
TObject);(edit2.Text='') or (edit3.Text='')(edit4.Text='') or (edit5.Text='')
or (edit6.Text='') or (edit7.Text='')
then showmessage('Введите все записи!')
elsea=2 then_zakaz.FindKey([nz]);_zakaz.Edit;_zakaz.Fields[0].Value:=nz;_zakaz.Fields[1].Value:=DateTimePicker1.Date;
//t_zakaz.Fields[1].Value:=strtodate(edit0.Text);
//t_zakaz.Fields[2].Value:=strtodate(edit1.Text);_zakaz.Fields[2].Value:=DateTimePicker2.Date;_zakaz.Fields[3].Value:=postav;_zakaz.Fields[4].Value:=klient;_zakaz.Fields[5].Value:=meb;_zakaz.Fields[6].Value:=oplata;_zakaz.Post;_zakaz.Close;_zakaz.Open;.Close;.Open;:=0;_zakaz.Last;:=t_zakaz.Fields[0].Value;_zakaz.Append;_zakaz.Fields[0].Value:=n+1;_zakaz.Fields[1].Value:=DateTimePicker1.Date;
//t_zakaz.Fields[1].Value:=strtodate(edit0.Text);_zakaz.Fields[2].Value:=DateTimePicker2.Date;
//t_zakaz.Fields[2].Value:=strtodate(edit1.Text);_zakaz.Fields[3].Value:=postav;_zakaz.Fields[4].Value:=klient;_zakaz.Fields[5].Value:=meb;_zakaz.Fields[6].Value:=oplata;_zakaz.Post;_zakaz.Close;_zakaz.Open;.Close;.Open;;
//edit0.Text:='';
//edit1.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';;TZakaz.Button3Click(Sender:
TObject);(edit2.Text='') or (edit3.Text='')(edit4.Text='') or (edit5.Text='')
or (edit6.Text='') or (edit7.Text='')
then showmessage('Введите все записи!')
elsea=2
then_zakaz.FindKey([nz]);_zakaz.Edit;_zakaz.Fields[0].Value:=nz;_zakaz.Fields[1].Value:=DateTimePicker1.Date;
//t_zakaz.Fields[1].Value:=strtodate(edit0.Text);_zakaz.Fields[2].Value:=DateTimePicker2.Date;
//t_zakaz.Fields[2].Value:=strtodate(edit1.Text);_zakaz.Fields[3].Value:=postav;_zakaz.Fields[4].Value:=klient;_zakaz.Fields[5].Value:=meb;_zakaz.Fields[6].Value:=oplata;_zakaz.Post;_zakaz.Close;_zakaz.Open;.Close;.Open;:=0;_zakaz.Last;:=t_zakaz.Fields[0].Value;_zakaz.Append;_zakaz.Fields[0].Value:=n+1;_zakaz.Fields[1].Value:=DateTimePicker1.Date;
//t_zakaz.Fields[1].Value:=strtodate(edit0.Text);_zakaz.Fields[2].Value:=DateTimePicker2.Date;
//t_zakaz.Fields[2].Value:=strtodate(edit1.Text);_zakaz.Fields[3].Value:=postav;_zakaz.Fields[4].Value:=klient;_zakaz.Fields[5].Value:=meb;_zakaz.Fields[6].Value:=oplata;_zakaz.Post;_zakaz.Close;_zakaz.Open;.Close;.Open;;
//edit0.Text:='';
//edit1.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';;TZakaz.Button4Click(Sender:
TObject);_zakaz.FindKey([nz]);_zakaz.Delete;_zakaz.Close;_zakaz.Open;.Close;.Open;;TZakaz.FormPaint(Sender:
TObject);:TBitMap;:=TBitMap.Create;.Loadfromfile('5.bmp');.Canvas.Draw(0,0,bm);;TZakaz.DateTimePicker1Click(Sender:
TObject);.Visible:=true;;TZakaz.DateTimePicker2Click(Sender:
TObject);.Visible:=true;;TZakaz.N3Click(Sender:
TObject);,Sheet,Colum:Variant;,i:integer;
//Uses модуль
ComObj:=0;.Close;.Open;:=CreateOLEObject('Excel.Application');.visible:=true;.WorkBooks.add('F:\BD_Kursovik\zakaz.xls');.workbooks[1].worksheets[1].Name:='заказ'
;:=XL.workbooks[1].worksheets['заказ'].columns;:=XL.workbooks[1].worksheets['заказ'].Rows;:=XL.workbooks[1].worksheets['заказ'];:=4;.First;i:=0
to qzakaz.RecordCount-1
do:=t+1;.cells[index,1]:=t;.cells[index,2]:=qzakaz.Fields[0].AsString;.cells[index,3]:=qzakaz.Fields[1].AsString;.cells[index,4]:=qzakaz.Fields[2].AsString;.cells[index,5]:=qzakaz.Fields[3].AsString;.cells[index,6]:=qzakaz.Fields[4].AsString;.cells[index,7]:=qzakaz.Fields[5].AsString;.cells[index,8]:=qzakaz.Fields[6].AsString;.cells[index,9]:=qzakaz.Fields[7].AsString;.cells[index,10]:=qzakaz.Fields[8].AsString;(index);.Next;;
end;TZakaz.N4Click(Sender: TObject);.WindowState := wsMinimized;;
end.