Розробка програмного комплексу ведення бази даних товарів продовольчого магазину
Теоретичні відомості про пакет ІЗВП Borland Delphi та СУБД MS Access, оцінка їх функціональних особливостей. Опис структури бази даних. Проектування інтерфейсу програми, опис її логічної структури та функцій. Контроль коректності вхідних, вихідних даних.
| Рубрика | Программирование, компьютеры и кибернетика |
| Вид | курсовая работа |
| Язык | украинский |
| Дата добавления | 03.01.2014 |
| Размер файла | 4,5 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
begin
Form4. Show;
end;
procedure TForm1.N8Click (Sender: TObject);
begin
Form5. Show;
end;
end.
Лістинг А.2 - код Form2
unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, DB, ADODB, jpeg, ExtCtrls;
type
TForm2 = class(TForm)
BitBtn1: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
ADOQuery1: TADOQuery;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
BitBtn2: TBitBtn;
procedure BitBtn1Click (Sender: TObject);
procedure BitBtn2Click (Sender: TObject);
procedure Edit3KeyPress (Sender: TObject; var Key: Char);
procedure Edit5KeyPress (Sender: TObject; var Key: Char);
procedure Edit7KeyPress (Sender: TObject; var Key: Char);
procedure FormCreate (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form2: TForm2;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm2. BitBtn1Click (Sender: TObject);
begin
FOrm1. AdoConnection1. BeginTrans;
try
AdoQuery1. Close;
AdoQuery1. Parameters. ParamByName('cod').Value:=Edit1. Text;
AdoQuery1. Parameters. ParamByName('Produ').Value:=Edit2. Text;
AdoQuery1. Parameters. ParamByName('Com').Value:=Edit3. Text;
AdoQuery1. Parameters. ParamByName('Manu').Value:=Edit4. Text;
AdoQuery1. Parameters. ParamByName('Shelf').Value:=Edit5. Text;
AdoQuery1. Parameters. ParamByName('Dep').Value:=Edit6. Text;
AdoQuery1. Parameters. ParamByName('Dis').Value:=Edit7. Text;
AdoQuery1. ExecSQL;
except
ShowMessage('Помилка');
Form1. AdoConnection1. RollbackTrans;
exit;
end;
Form1. AdoConnection1. CommitTrans;
Form1.ADOQuery1. Close;
Form1.ADOQuery1. Open;
Edit1. Clear;
Edit2. Clear;
Edit3. Clear;
Edit4. Clear;
Edit5. Clear;
Edit6. Clear;
Edit7. Clear;
end;
procedure TForm2. BitBtn2Click (Sender: TObject);
begin
Close;
end;
procedure TForm2. Edit3KeyPress (Sender: TObject; var Key: Char);
begin
case Key of
', ', '.', '0'..'9',#8,#13:
else Key:=chr(0);
end;
end;
procedure TForm2. Edit5KeyPress (Sender: TObject; var Key: Char);
begin
case Key of
', ', '.', '0'..'9',#8,#13:
else Key:=chr(0);
end;
end;
procedure TForm2. Edit7KeyPress (Sender: TObject; var Key: Char);
begin
case Key of
', ', '.', '0'..'9',#8,#13:
else Key:=chr(0);
end;
end;
procedure TForm2. FormCreate (Sender: TObject);
begin
end;
end.
Лістинг А.3 - код Form3
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, jpeg;
type
TForm3 = class(TForm)
Edit1: TEdit;
BitBtn1: TBitBtn;
Image1: TImage;
procedure Edit1Change (Sender: TObject);
procedure BitBtn1Click (Sender: TObject);
procedure Edit1KeyPress (Sender: TObject; var Key: Char);
procedure FormCreate (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form3: TForm3;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm3. Edit1Change (Sender: TObject);
begin
Form1.ADOQuery1. Filtered:=false;
if (Edit1. Text<>'') then
begin
Form1.ADOQuery1. Filter:=' (cod LIKE «%' + Edit1. Text + ' % «)';
Form1.ADOQuery1. Filtered:=true;
end;
end;
procedure TForm3. BitBtn1Click (Sender: TObject);
begin
Close;
end;
procedure TForm3. Edit1KeyPress (Sender: TObject; var Key: Char);
begin
case Key of
', ', '.', '0'..'9',#8,#13:
else Key:=chr(0);
end;
end;
procedure TForm3. FormCreate (Sender: TObject);
begin
end;
end.
Лістинг А.4 - код Form4
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, Mask, DBCtrls, jpeg, ExtCtrls;
type
TForm4 = class(TForm)
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBEdit7: TDBEdit;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure BitBtn1Click (Sender: TObject);
procedure BitBtn2Click (Sender: TObject);
procedure DBEdit3KeyPress (Sender: TObject; var Key: Char);
procedure DBEdit5KeyPress (Sender: TObject; var Key: Char);
procedure DBEdit7KeyPress (Sender: TObject; var Key: Char);
procedure FormCreate (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form4: TForm4;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm4. BitBtn1Click (Sender: TObject);
begin
case MessageDlg ('Ви дійсно хочете змінити дані?', mtCustom,
mbYesNoCancel, 0) of
mrYes: Form1.ADOQuery1. ExecSQL;
mrNo: Abort;
mrCancel: Abort;
end;
end;
procedure TForm4. BitBtn2Click (Sender: TObject);
begin
Close;
end;
procedure TForm4.DBEdit3KeyPress (Sender: TObject; var Key: Char);
begin
case Key of
', ', '.', '0'..'9',#8,#13:
else Key:=chr(0);
end;
end;
procedure TForm4.DBEdit5KeyPress (Sender: TObject; var Key: Char);
begin
case Key of
', ', '.', '0'..'9',#8,#13:
else Key:=chr(0);
end;
end;
procedure TForm4.DBEdit7KeyPress (Sender: TObject; var Key: Char);
begin
case Key of
', ', '.', '0'..'9',#8,#13:
else Key:=chr(0);
end;
end;
procedure TForm4. FormCreate (Sender: TObject);
begin
end;
end.
Лістинг А.5 - код Form5
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, jpeg, ExtCtrls;
type
TForm5 = class(TForm)
Image1: TImage;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
procedure FormCreate (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form5: TForm5;
implementation
{$R *.dfm}
procedure TForm5. FormCreate (Sender: TObject);
begin
end;
end.
Лістинг А.6 - код Form6
unit Unit6;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;
type
TForm6 = class(TForm)
Edit1: TEdit;
BitBtn1: TBitBtn;
Image1: TImage;
procedure Edit1Change (Sender: TObject);
procedure BitBtn1Click (Sender: TObject);
procedure FormCreate (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form6: TForm6;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm6. Edit1Change (Sender: TObject);
begin
Form1.ADOQuery1. Filtered:=false;
if (Edit1. Text<>'') then
begin
Form1.ADOQuery1. Filter:=' (Department_store LIKE «%' + Edit1. Text + ' % «)';
Form1.ADOQuery1. Filtered:=true;
end;
end;
procedure TForm6. BitBtn1Click (Sender: TObject);
begin
Close;
end;
procedure TForm6. FormCreate (Sender: TObject);
begin
end;
end.
Лістинг А.7 - код Form7
unit Unit7;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, DB, ADODB, jpeg;
type
TForm7 = class(TForm)
RadioGroup1: TRadioGroup;
Edit1: TEdit;
BitBtn1: TBitBtn;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
BitBtn2: TBitBtn;
Image1: TImage;
procedure BitBtn1Click (Sender: TObject);
procedure BitBtn2Click (Sender: TObject);
procedure Edit1KeyPress (Sender: TObject; var Key: Char);
procedure FormCreate (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var
Form7: TForm7;
implementation
uses Unit1;
{$R *.dfm}
procedure TForm7. BitBtn1Click (Sender: TObject);
begin
if RadioGroup1. ItemIndex=0 then begin
AdoQuery1. Close;
AdoQuery1.SQL. Clear;
AdoQuery1.SQL. Add ('SELECT * FROM Baza1 WHERE Commodity_price >:sum');
try
AdoQuery1. Close;
AdoQuery1. Parameters. ParamByName('sum').Value:=StrToFloat (Edit1. Text);
AdoQuery1. Open;
except
ShowMessage('Помилка');
exit;
end;
end
else
begin
AdoQuery1. Close;
AdoQuery1.SQL. Clear;
AdoQuery1.SQL. Add ('SELECT * FROM Baza1 WHERE Commodity_price <:sum');
try
AdoQuery1. Close;
AdoQuery1. Parameters. ParamByName('sum').Value:=StrToFloat (Edit1. Text);
AdoQuery1. Open;
except
ShowMessage('Помилка');
exit;
end;
end;
end;
procedure TForm7. BitBtn2Click (Sender: TObject);
begin
Close;
end;
procedure TForm7. Edit1KeyPress (Sender: TObject; var Key: Char);
begin
case Key of
', ', '.', '0'..'9',#8,#13:
else Key:=chr(0);
end;
end;
procedure TForm7. FormCreate (Sender: TObject);
begin
end;
end.
Додаток Б
Form1 BitButn1 Click/Додати запис
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
Form1 BitButn5 Click/Редагування інформації
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
Form1 BitBtn2Click/Обновити запис
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
Form1 BitBtn2Click/Вихід
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
Form3 Edit1Change/ Пошук за номером штрих-коду
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
Form1 BitBtn6 Click / Формування відомостей про всі товари, які мають дисконтну знижку
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
Form6 Edit1Change/ Формування відомостей про всі товари заданого відділу
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
Form7 BitBtn1 Click/ Формування відомостей про всі товари, ціна яких нижче / вище введеної
Размещено на http://www.allbest.ru/
Размещено на http://www.allbest.ru/
Размещено на Allbest.ru
Подобные документы
Проектування бази даних та інтерфейсу програми. Розробка бази даних за допомогою Firebird 2.5. Контроль коректності вхідних та вихідних даних. Додавання та редагування інформації. Вплив електронно-обчислювальних машин на стан здоров'я користувачів.
дипломная работа [4,7 M], добавлен 12.10.2015Опис вхідних та вихідних повідомлень, процедури перетворення даних. Розробка інфологічної моделі, інформаційні об’єкти та їх характеристика. Автоматизація даталогічного проектування. Опис структур таблиць бази даних на фізичному рівні, реалізація запитів.
курсовая работа [2,5 M], добавлен 02.01.2014Розробка бази даних в середовищі Microsoft SQL Server 2008 для обліку послуг фітнес-клубу. Таблиці для баз даних, їх властивості. Аналіз сукупності вхідних і вихідних параметрів, опис інформаційної бази, розробка логічної і фізичної моделі даних в ІС.
курсовая работа [449,9 K], добавлен 09.05.2016Проектування бази даних предметної області "Магазин будівельних матеріалів". Аналіз сукупності вхідних і вихідних даних, шляхи удосконалення інформаційної системи обліку товару. Організація інформаційної бази, розробка логічної і фізичної моделі.
курсовая работа [559,2 K], добавлен 09.05.2016Системний аналіз бази даних за вхідною та вихідною документацією, визначення сутностей, атрибутів, зв’язків. Створення логічної моделі бази даних із застосуванням нормалізації, алгоритм її роботи. Розробка програмного забезпечення та інтерфейсу СУБД.
курсовая работа [946,8 K], добавлен 02.07.2015Проектування бази даних (БД). Проектування логічної моделі БД. Реалізація БД та створення таблиць. Встановлення зв’язків, вибір мови та середовища програмування. Опис функціональних елементів та реалізація програми. Опис та тестовий приклад програми.
дипломная работа [1,6 M], добавлен 07.01.2017Проектування інтерфейсу програми. Вимоги до продукту. Вхідні дані на розробку автоматизованої системи. Вибір середовища програмування. Розробка структури бази даних. Функціональна та логічна структура програми. Розробка структури таблиць бази даних.
курсовая работа [43,1 K], добавлен 30.06.2015Побудова інформаційної системи "Магазин товарів для настільного тенісу" з автоматизації роботи магазину. Концептуальне моделювання бази даних. Обґрунтування вибору СУБД. Логічне проектування бази даних. Схема бази даних. Створення таблиць в конструкторі.
курсовая работа [8,8 M], добавлен 16.12.2015Розробка структури бази даних. ER-моделі предметної області. Проектування нормалізованих відношень. Розробка форм, запитів, звітів бази даних "Автосалон". Тестування роботи бази даних. Демонстрація коректної роботи форми "Додавання даних про покупців".
курсовая работа [4,0 M], добавлен 02.12.2014Загальна характеристика методів проектування та документації додатків. Розробка інтерфейсу програми для медичного діагностичного центру. Вибір архітектури. Описання логічної структури програми. Розробка структури бази даних проекту, полів таблиць.
курсовая работа [2,0 M], добавлен 21.08.2015
