Разработка базы данных для хранения информации данных характеристик товара

Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

Содержание

Введение

1. Анализ предметной области

2. Описание входной и выходной информации

2.1 Входная информация

2.2 Выходная информация

3. Обоснование выбора среды реализации

3.1 Выбор среды реализации

3.2 Выбор состава и параметров технических средств

4. Построение реляционной базы данных

4.1 Разработка логической и физической модели базы данных

5. Проектирование и реализация интерфейса программы

Заключение

Список использованных источников

Приложение

Введение

В курсовой работе будет разработана программа, которая автоматизирует работу кассира, позволяет автоматически генерировать отчеты в разрезе материально-ответственных лиц, также будут получены навыки по созданию баз данных с использованием Database Desktop.

Разработка программы будет вестись Delphi 7- это среда быстрой разработки, в которой в качестве языка программирования используется строго типизированный объектно-ориентированный язык Delphi.

1. Анализ предметной области

Касса - это подразделение организации, выполняющее кассовые операции с наличными деньгами и денежными ценностями. Для обеспечения надежной сохранности наличных денежных средств и ценностей помещение кассы должно отвечать требованиям по технической укрепленности и оборудованию сигнализацией помещений.

Кассовые операции -- операции с физическими и юридическими лицами по приёму и выдаче наличных денежных средств (банкноты и монеты), осуществляемые предприятиями, организациями, банками. Представляют собой совокупность материально-технических процедур, заключающихся в приёме (инкассация), хранении и выдаче наличных денег. Кассовые операции регулируются нормами финансового права.

2. Описание входной и выходной информации

2.1 Входная информация

Входная информация - это информация, поступающая извне и используемая для её решения.

В качестве входной информации используются 2 базы данных, которые мы создали на Database Deckopt:

- Kassir.db

-Tovar.db

В базе данных Kassir.db входными информациями служат:

-Код кассира

- ФИО

- Адрес

- Оклад

В базе данных Tovar.db входными информациями служат:

- Код товара

- Товар

- Характеристика

2.2 Выходная информация

Выходная информация - это информация, полученная на основе входной информации. Выходной информацией является база данных GurOper1.db.

В нем мы заносим те данные, которые мы используем для подготовки отчета. В результате БД выглядит следующим образом:

Таблица 1

№

Ostatok na nachala

Kod kassira

Debet

DebetS

Kredit

KreditS

DataOper

Kolic

Ostatok na conec

Summa

Operac

3. Обоснование выбора среды реализации

3.1 Выбор среды реализации

Delphi 7 -- это среда быстрой разработки, в которой в качестве языка программирования используется строго типизированный объектно-ориентированный язык Delphi. Delphi 7 представляет собой полное решение для разработки приложений от проектирования до развертывания по архитектуре, управляемой моделью (MDA), которое позволяет интегрировать моделирование, разработку и развертывание приложений и систем электронного бизнеса для платформы Windows. Delphi 7 содержит развитые библиотеки и инструменты для создания приложений электронного бизнеса и веб-сервисов, полностью интегрирует соответствующие технологии и качественно повышает производительность разработчиков, предоставляя все необходимое для исследования вопросов перехода на Microsoft .NET. Визуальная среда web-разработки Delphi 7 позволяет визуально строить web-приложения и кардинально уменьшает обычные временные затраты, связанные с созданием серверной составляющей приложений, включая управление сессиями в многопользовательском режиме доступа. Включённая в состав Delphi 7 технология проектирования и моделирования приложений UML позволяет эффективно проектировать свои приложения при помощи средств визуального моделирования и реорганизации кода (refactoring). Возможности Delphi 7 по интеграции, реинжинирингу и мгновенной визуализации позволяют создавать высококачественные проекты и тексты программ, применяя готовые шаблоны проектирования и создавая более крупные модели.

Database Desktop - это утилита, во многом похожая на Paradox, которая поставляется вместе с Delphi для интерактивной работы с таблицами различных форматов локальных баз данных - Paradox и dBase, а также SQL-серверных баз данных InterBase, Oracle, Informix, Sybase (с использованием SQL Links).

3.2 Выбор состава и параметров технических средств

Для решения задачи необходим состав следующих технических средств:

- Процессор Pentium с частотой 1.8 ГГц и выше;

- Минимальный объем оперативной памяти - 256 Мбайт. Рекомендуемый - 1 Гбайт и выше;

- Жесткий диск с объемом свободного пространства не менее 10 Гбайт при минимальной конфигурации и до 20 Гбайт при полной установке;

- Операционная система Microsoft Windows XP SP2 (или выше);

- Разрешение 1024x768 или 1280х1024;

- Устройство для чтения компакт-дисков.

4. Построение реляционной базы данных

4.1 Разработка логической и физической модели базы данных

Построение логической модели осуществим с помощью программного средства ERWin 4.0.

Программа ERWin- средство концептуального моделирования БД.

Выберем тип модели Logical/Physical, и на логическом уровне определим:

- сущности,

- связи между ними,

Результат построения Логической модели представлен на рис.1, а Физическая модель изображена на рис.2.

Рис.1. Логическая модель

В построенной модели используется следующий вид связи - не идентифицирующая связь, типа «один ко многим». Значит, что один экземпляр одной сущности связан с множеством экземпляров другой сущности.

Рис. 2. Физическая модель

5. Проектирование и реализация интерфейса программы

Представленный курсовой проект содержит следующий перечень форм:

- Form1;

- Data Module;

Data Module- это средство для эффективной работы с базами данных.На форме Data Module установлены компоненты для работы с базами данных.В данном случаи это компоненты:

- Table(контейнеры для размещения БД)

- DataSource(связующие компоненты)

В результате мы получаем следующий вид для формы Data Module:

Рис. 3. Форма Data Module

На Form 1 будут находиться основные элементы, а Data Module предназначен для эффективной работы с БД.

На Form1 представлены следующие компоненты:

- DBGrid (специальная таблица для базы данных)

-Button (командная кнопка для реализации в программе команд)

-Edit (основной компонент для ввода)

-BitBtn (пиктографическая кнопка представляющая собой один из вариантов стандартной кнопки Button.

-DBNavigator (для навигации в таблице DBGrid)

-Label (надпись)

-RadioButton ("радиокнопка" служит для "переключения каналов")

-Date Time Picker(поле ввода даты и времени)

В результате мы получаем следующий вид для формы Form1:

Рис. 4. Форма Form1

После запуска программы мы из базы данных Kassir.db выбираем кассира, выбираем из БД Tovar любой товар, при этом цена автоматически заполняет компонент Edit:

Далее в ручную заполняем Дебет, Кол-во, Кредит, устанавливаем дату, из групп операций выбираем операцию, которую нужно провести и нажимаем на кнопку ОК.



Рис. 5. Выбор товара из БД Tovar на форме Form1

Рис. 6. Заполнение оставшихся компонентов на форме Form1

Кнопка ОК предназначена для добавление операций в журнал операций, которая представляет собой базу данных GurOper1.db, а также получение результата для выполненного процесса.

В результате мы имеем следующий вид:



Рис. 7. Выполнение процесса при нажатии кнопки ОК на форме Form1

Кнопка Отчет кассира предназначен для вывода в excel формат отчет кассира. Этот отчет строится на основе выборке из журнала операции GurOper1. Для вывода мы указываем дату операции и выбираем из базы данных Kassir.db кассира, и если такие есть в журнале операций GurOper1.db, то они выводятся в excel формате.

Рис. 8. Отчет кассира

Кнопка Close предназначена для выхода из программы.

Заключение

В рамках курсового проектирования был разработан проект, который автоматизирует рабочее место кассира.

Разработана база данных для хранения информации данных характеристик товара.

В результате изучены информационные потоки данных, определена технология обработки данных, вид входных и выходных документов.

Внедрение разработанной информационной системы позволит предприятию вести централизованный учет расходов на товары и оперативно формировать отчеты по кассирам.

интерфейс программа database desktop

Список использованных источников

1. Фленов М.Е. Библия Delphi: 2004. - 668с.

2. Петров В.Н. Информационные системы. - СПб.: Питер, 2008.

3. Фаронов В.В. Программирование баз данных в Delphi 7: Учебный курс. - СПб.: Питер, 2004 - 464 с.

4. Карпова Т.С. Базы данных: модели, разработка, реализация. - СПб.: Питер, 2005. - 304с.

5. Ульман Дж., Уидом Дж. Введение в системы баз данных. - М.: Лори, 2006. - 374с.

6. Карпова Т.С. Базы данных: модели, разработка. - СПб.: Питер, 2009, 304 с.

Приложение

Листинг кода главной формы проекта:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Buttons, StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids,ComObj, ComCtrls;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBGrid2: TDBGrid;

DBNavigator2: TDBNavigator;

DBGrid3: TDBGrid;

DBNavigator3: TDBNavigator;

GroupBox1: TGroupBox;

Label1: TLabel;

Edit1: TEdit;

Label2: TLabel;

Edit2: TEdit;

Label3: TLabel;

Edit3: TEdit;

Label4: TLabel;

Edit4: TEdit;

Label5: TLabel;

Edit5: TEdit;

GroupBox2: TGroupBox;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

RadioButton3: TRadioButton;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Label6: TLabel;

Label7: TLabel;

BitBtn1: TBitBtn;

BitBtn2: TBitBtn;

DateTimePicker1: TDateTimePicker;

RadioButton4: TRadioButton;

RadioButton5: TRadioButton;

RadioButton6: TRadioButton;

Button2: TButton;

procedure DBGrid1CellClick(Column: TColumn);

procedure BitBtn1Click(Sender: TObject);

procedure RadioButton3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a0:string;

flag :boolean;

n1 : integer;

implementation

uses LAV,Modul1;

{$R *.dfm}

procedure TForm1.DBGrid1CellClick(Column: TColumn);

begin

Edit1.Text:=Ligidov.Tovar.FieldByName('Cena').AsString;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

Var

a0:string;

a1:string;

a2:string;

// stoim, naz,nar:string;

begin

Ligidov.GurOper1.Insert;

Ligidov.GurOper1.FieldByName('Debet').AsString:= Edit3.Text;

Ligidov.GurOper1.FieldByName('Kredit').AsString:= Edit4.Text;

Ligidov.GurOper1.FieldByName('DatOper').AsString:=DateToStr(DateTimePicker1.Date);

Ligidov.GurOper1.FieldByName('KodKassira').AsString:=Ligidov.Kassir.FieldByName('KodKassira').AsString;

Ligidov.GurOper1.FieldByName('Kolic').AsString:=Edit2.Text;

a0:=CalKuljator(Edit1.Text,Edit2.Text,'*',2);

a0:=ZnakZamena(a0,'.',',');

Ligidov.GurOper1.FieldByName('summa').AsString:=a0;

edit5.Text:=a0;

if radiobutton1.Checked then

begin

Edit7.Text:=a0;

Edit8.Text:=inttostr(0);

a1:='продажа ';

a2:=a1+Ligidov.Tovar.FieldByName('Tovar').AsString;

Ligidov.GurOper1.FieldByName('Operac').AsString:=a2;

end;

if radiobutton2.Checked then

begin

Edit7.Text:=inttostr(0);

Edit8.Text:=a0;

a1:='возврат ';

a2:=a1+Ligidov.Tovar.FieldByName('Tovar').AsString;

Ligidov.GurOper1.FieldByName('Operac').AsString:=a2;

end;

if radiobutton3.Checked then

begin

a2:=edit6.text;

Ligidov.GurOper1.FieldByName('Operac').AsString:=a2;

end;

if radiobutton4.Checked then

begin

Edit7.Text:=inttostr(0);

Edit8.Text:=a0;

a1:='Оклад';

a2:=a1+Ligidov.Kassir.FieldByName('FIO').AsString;

Ligidov.GurOper1.FieldByName('Operac').AsString:=a2;

end;

if radiobutton5.Checked then

begin

Edit7.Text:=inttostr(0);

Edit8.Text:=a0;

a1:='наличка в Банк';

a2:=a1;

Ligidov.GurOper1.FieldByName('Operac').AsString:=a2;

end;

if radiobutton6.Checked then

begin

Edit7.Text:=a0;

Edit8.Text:=inttostr(0);

a1:='погасили долг';

a2:=a1;

Ligidov.GurOper1.FieldByName('Operac').AsString:=a2;

end;

Ligidov.GurOper1.FieldByName('DebetS').AsString:= Edit7.Text;

Ligidov.GurOper1.FieldByName('KreditS').AsString:= Edit8.Text;

Ligidov.GurOper1.Post;

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

begin

edit6.Text:='';

end;

procedure TForm1.Button2Click(Sender: TObject);

Var

dat0,dat1,dat2,G0,s0,k0, kodW,KodPr,a0,a01,a1,a2 :string;

Gir0,Gir1,SGir1,sum0,kol0,Sum1,kol1,Ssum1,Skol1:real;

code, n2,i1,i,s1,s2,s3:integer;

XLApp,Sheet,Colum:Variant;

skold1,skolk1,skold2, skolk2, skold3,skolk3, kold1,kolk1,kold2, kolk2, kold3,kolk3,

d1,sd1,k1,sk1,sk2,d2,k2,sd2,d3,sd3,k3,sk3:real;

begin

With Ligidov do begin

//KodPr1:=Kassir.fieldbyname('KodKassira').AsString;

dat0:='01.01.2000';

a0:=DateToStr(DateTimePicker1.Date);

dat1:=a0;

//a01:=DateToStr(DateTimePicker2.Date);

//dat2:=a01;

XLApp:=CreateOleObject('Excel.Application');

XLApp.Visible:=true;

XLApp.Workbooks.Add(-4167);

XLApp.Workbooks[1].WorkSheets[1].Name:='Оборотка';

Colum:=XLApp.Workbooks[1].WorkSheets['Оборотка'].Columns;

N2:=1;

Colum.Columns[1].ColumnWidth:=5;

Colum.Columns[2].ColumnWidth:=30;

Colum.Columns[3].ColumnWidth:=10;

Colum.Columns[4].ColumnWidth:=15;

Colum.Columns[5].ColumnWidth:=10;

Colum.Columns[6].ColumnWidth:=15;

Colum.Columns[7].ColumnWidth:=10;

Colum.Columns[8].ColumnWidth:=10;

Colum:=XLApp.Workbooks[1].WorkSheets['Оборотка'].Rows;

Colum.Rows[2].Font.Bold:=true;

Colum.Rows[1].Font.Bold:=true;

Colum.Rows[1].Font.Color:=clBlue;

Colum.Rows[1].Font.Size:=12;

Sheet:=XLApp.Workbooks[1].WorkSheets['Оборотка'];

//n2:=0;

Sheet.Cells[n2,1]:='Журнал операций за '+a0 +'+'+Kassir.fieldbyname('FIO').AsString;

iNC(n2);

Sheet.Cells[n2,2]:='Остаток на начала '+a0 ;

Ligidov.SetBase4('GurOper1.DB','DatOper','Debet','','','Summa','Summa','01.01.2000',a0,'50','','',kold1,d1);

Ligidov.SetBase4('GurOper1.DB','DatOper','Kredit','','','Summa','Summa','01.01.2000',a0,'50','','',kold1,d2);

d3:=d1-d2;

Str(d3:13:2,a1);

a1:=Trim(a1);

Sheet.Cells[n2,5]:=a1;

iNC(n2);

//Sheet.Cells[n2,0]:='?? ';

Sheet.Cells[n2,1]:='№№ ';

Sheet.Cells[n2,2]:='Наименование операции';

Sheet.Cells[n2,3]:='Дебет';

Sheet.Cells[n2,4]:=' суммаДебет';

Sheet.Cells[n2,5]:='Кредит';

Sheet.Cells[n2,6]:='суммаКредит';

Sheet.Cells[n2,7]:='Сумма ';

iNC(n2);

s1:=0; s2:=0;s3:=0;

With Ligidov do begin

SetBase4('GurOper1.DB','DatOper','','','','','Summa',a0,a0,'','','',kold1,d1);

Query1.First;

Repeat

//a1:=Query1.fieldbyname('KodTovara').AsString;

//KodPr:=Query1.fieldbyname('KodKassira').AsString;

Sheet.Cells[n2,2]:=Query1.fieldbyname('Operac').AsString;

Sheet.Cells[n2,3]:=Query1.fieldbyname('Debet').AsString;

Sheet.Cells[n2,4]:=Query1.fieldbyname('DebetS').AsString;

Sheet.Cells[n2,5]:=Query1.fieldbyname('Kredit').AsString;

Sheet.Cells[n2,6]:=Query1.fieldbyname('KreditS').AsString;

Sheet.Cells[n2,7]:=Query1.fieldbyname('Summa').AsString;

Sheet.Cells[n2,1]:=IntToStr(n2-2);

s2:=s2+Query1.fieldbyname('DebetS').AsInteger;

s3:=s3+Query1.fieldbyname('KreditS').AsInteger;

s1:=s2-s3;

Query1.Next;

iNC(n2);

until Query1.Eof;

Sheet.Cells[n2,2]:='Итого';

Sheet.Cells[n2,4]:=IntToStr(s2);

Sheet.Cells[n2,6]:=IntToStr(s3);

Sheet.Cells[n2,7]:=IntToStr(s1);

Sheet.Cells[n2+3,7]:='Подпись кассира ___________________________';

Sheet.Cells[n2+5,7]:='Подпись бугалтера _________________________';

end;

Листинг кода формы Data Module проекта:

unit LAV;

interface

uses

SysUtils, Classes, DBTables, DB;

type

TLigidov = class(TDataModule)

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

DataSource4: TDataSource;

Tovar: TTable;

Kassir: TTable;

GurOper1: TTable;

Query1: TQuery;

Procedure SetBase3(Fils,Datp,Buhp,KodWrkPl,ScetPl,DaTT1,DaTT2,szet,KodWrk,Korenscet:string);

Procedure SetBase4(Fils,Datp,Buhp,KodWrkPl,ScetPl,Kolp,Sump,DaTT1,DaTT2,szet,KodWrk,Korenscet:string; Var Kol1,Sum1:real);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Ligidov: TLigidov;

TekDir:string;

implementation

{$R *.dfm}

Procedure TLigidov.SetBase4(Fils,Datp,Buhp,KodWrkPl,ScetPl,Kolp,Sump,DaTT1,DaTT2,szet,KodWrk,Korenscet:string; Var Kol1,Sum1:real);

Var

TekDir,s,s1,s0,a1,a0:string;

i1:integer;

Koli1, summ1:real;

begin

SetBase3(Fils,Datp,Buhp,KodWrkPl,ScetPl,DaTT1,DaTT2,szet,KodWrk,Korenscet);

//SetBase3(Fils,Datp,KodWrkPl,ScetPl,DaTT1,DaTT2,KodWrk,Korenscet);

Koli1:=0; summ1:=0;

Query1.First;

For i1:=1 to Query1.RecordCount do begin

//Koli1:=Koli1+Query1.FieldByName(Kolp).AsFloat;

summ1:=summ1+Query1.FieldByName(Sump).AsFloat;

Query1.Next;

end;//i

Kol1:=Koli1;

Sum1:=summ1;

end;

Procedure TLigidov.SetBase3(Fils,Datp,Buhp,KodWrkPl,ScetPl,DaTT1,DaTT2,szet,KodWrk,Korenscet:string);

Var

TekDir,s,s1,s0,a1,a0:string;

begin

//TekDir:='C:\Scet60';

DataSource4.DataSet:=Query1;

//Dbgrid1.DataSource:=FDataSource4;

Query1.DatabaseName:=TekDir;

Query1.Close;

Query1.sql.Clear;

Query1.sql.Add('SELECT * FROM '+Fils);

a1:='WHERE ('+Datp+' BETWEEN "'+DaTT1+'" and "'+DaTT2+'")';

Query1.sql.Add(a1);

//if length(BuhP)>0 then Query1.sql.Add('and ('+BuhP+' LIKE "%" ||'+'"'+szet+'" || "%")');

if length(BuhP)>0 then Query1.sql.Add('and ('+BuhP+'="'+szet+'")');

if length(ScetPl)>0 then Query1.sql.Add('and ('+ScetPl+' LIKE "%" ||'+'"'+Korenscet+'" || "%")');

if length(KodWrkPl)>0 then Query1.sql.Add('and ('+KodWrkPl+'="'+KodWrk+'")');

{

a1:='and ('+Datp+' BETWEEN "'+DaTT1+'" and "'+DaTT2+'")';

Form11.Query1.sql.Add(a1);

}

Query1.sql.SaveToFile('sql11.txt');

Query1.open;

end;

Размещено на Allbest.ru