Создание автоматизированной информационной системы

Министерство  образования и науки Украины 

Национальный  горный университет

 

Институт электроэнергетики 

Факультет информационных технологий Кафедра

Кафедра ПЗКС

 

 

 

КУРСОВОЙ ПРОЕКТ

 
по дисциплине «Организация баз  данных и знаний»

 

 

 

 

Работу выполнил:

 студент группы ПЗск-09

 Ткаченко А.А.

 

Работу проверили 

Преподаватели:

 Мацюк И.М.

 Васильев С.В.

 

 

Днепропетровск 2010

 

 

 

Министерство образования  Украины Национальная горная академия Украины

Факультет  Электротехнический Кафедра Электроники и вычислительной техники

ЗАДАНИЕ НА КУРСОВОЙ ПРОЕКТ (РАБОТУ)

по дисциплине «Организация баз данных и знаний»

Специальность 

Группа  Студент 

Дата  выдачи   Срок выполнения 

Название задания "Создание автоматизированной информационной системы

Входные данные

Разработать базу данных для автоматизации работы автосалона. Функцией базы данных является сбор сведений по принятым машинам, купленным машинам, оформление покупки машины, возможность печати чека на машину, так же очистку базы данных.

 Ежедневная порция вводимых  данных  не ограниченна в которых обновляется информация.

Хранимая в базе данных информация об машинах должна включать следующие сведения:

- название марки машины;

- Название машины, объём, год выпуска, цену, количество в наличие, состояние;

- Покупателя машины, дату покупки,  и цену заказа

- оперативная информация: что приобретается,  продается, кем приобретается и пр. Данные в базе данных не должны дублироваться.

База данных должна обеспечивать выборку  информации по различным машинам, например: "выдать список машин, указанной марки" и т.д.

 

Подпись руководителя проекта

 

 

 

 

 

 

 

СОДЕРЖАНИЕ

 

ВВЕДЕНИЕ	стр.
РАЗДЕЛ 1.ОБЩАЯ ЧАСТЬ	стр.
1.1 Спецификация требований	стр.
РАЗДЕЛ 2. СПЕЦИАЛЬНАЯ ЧАСТЬ	стр.
2.1 Моделирование ИС	стр.
2.1.1 Концептуальная модель базы данных	стр.
2.1.2 Логическая модель базы данных	стр.
2.1.3 Физическая модель базы данных	стр.
2.2 Программа базы данных	стр.
2.3 Реализация транзакций	стр.
ЗАКЛЮЧЕНИЕ	стр.
СПИСОК ЛИТЕРАТУРЫ	стр.

 

 

 

ВВЕДЕНИЕ

Научно-технический  прогресс закономерно привел к передаче ряда человеческих действий машинам  и другим средствам автоматизации. Этот процесс наблюдается во всех областях общественной практики людей.

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

Однако в  полный рост проблема автоматизации  возникла лишь во второй половине ХХ века в связи с бурным развитием  техники. Вот почему в развитии предпринимательской  деятельности можно выделить три  этапа. На первом работника должен был обеспечивать учетный процесс сам, не вдаваясь к помощи ни печатных материалах и технических средств. На втором этапе на помощь ему пришли разнообразные печатные материалы, а на третьем к этим материалам добавились машины, которые серьезно изменили привычный вид учетного процесса.

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

Использование баз данных и информационных систем на сегодняшний день является неотъемлемой частью при налаживании работы современного успешного предприятия или организации. В связи с этим стало необходимым освоение принципов построения и эффективного применения соответствующих информационных технологий и программных продуктов: систем управления базами данных, Case-средств автоматизации проектирования и других. Наиболее известными Case-средствами являются такие как ERWin и BPWin.. Главное преимущество этих программ -достаточно гибкий инструмент моделирования в условиях изменения требований к информационной системы, который уменьшает время ее разработки, увеличивает уровень автоматизации, а также имеет хорошее соотношение стоимость / эффективность.

Borland InterBase является высокопроизводительной кросс-платформенной, встраиваемой реляционной базой данных, сочетающей простую инсталляцию, автоматическое восстановление после сбоев, чрезвычайно низке системные требования и минимальную потребность в сопровождении, что очень важно для надежного функционирования распределенных высокопроизводительных критически важных бизнес-приложений. Среди возможностей базы данных InterBase - запатентованные обработчики оповещений о событиях, хранимые процедуры, триггеры, определяемые пользователем функции (UDF) и фильтры для работы с объектами BLOB.

Одной из основных особенностей InterBase (в отличие от MSSQL), пожалуй, можно считать версионную архитектуру (Multi-Generational), которая обеспечивает уникальные возможности при многопользовательской работе - пишущие пользователи никогда не блокируют читающих! Помимо этого, версионная архитектура, позволяет отказаться (в отличие от ORACLE) от использования протокола транзакций для восстановления базы данных после сбоев, поэтому InterBase обладает очень высокой надежностью и устойчивостью. Также в InterBase реализован механизм оптимистической блокировки на уровне записи, т.е. сервер блокирует только те записи, которые реально были изменены пользователем, а не блокирует всю страницу данных целиком (в отличие от MSSQL). Эта особенность еще больше снижает вероятность конфликтов при многопользовательской работе.

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

Мощность, простота использования, поддержка  платформ Windows, Linux и Solaris - наряду с поддержкой сред разработки Borland Delphi, Kylix и других - выводят InterBase в фавориты среди разработчиков и делают ее наиболее приемлемым ценовым решением среди корпораций.

 

 

 

 

 

РАЗДЕЛ 1.ОБЩАЯ  ЧАСТЬ

 

1.1 Спецификация требований пользователей для проекта "Автосалон"

Представление Автосалон в проекте "Автосалон "

1. Требования к данным

 

Машины

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

 

Тип машины

Каждая  марка машины имеет множество  моделей с различными параметрами  название, объем двигателя, цену машины, год выпуска, количество машин в  наличии и состояние каждой. У  каждой марки имеется уникальный порядковый номер, таким образом  возможно оформление купли/продажи  машины на какого либо покупателя.

 

Заказ

Каждая машина может быть продана  кому либо. При оформлении покупки  в таблицу оформляется заказ  с атрибутами: имя, фамилия, дата оформления, количество покупаемых машин и печатается чек, в свою очередь при печати чека из таблицы типов машин с  гаража списывается количество купленных  машин.

 

 

1.1.2 Требования к транзакциям

Ввод данных

Ввести сведенья о новой марке машин.

Ввести сведенья о новой моделе машин.

Ввести сведенья о покупатели машины.

 

Обновление/Удаление данных

Обновить/удалить сведенья о марке машины.

 Обновить/удалить сведенья о моделях машины.

Очистить все таблицы  .

Запросы к данным

Транзакция А. Просмотр списка  данных по общему наличию машин в гараже.

Транзакция B. Просмотр списка  данных по общему наличию моделей машин в гараже.

Транзакция C. Просмотр и вывод на печать чека на покупку машины.

Транзакция D. Просмотр информации о покупателях автосалона.

 

 

 

 

 

 

 

 

 

 

 

 

 

РАЗДЕЛ 2. СПЕЦИАЛЬНАЯ  ЧАСТЬ

2.1 Моделирование ИС

2.1.1 Концептуальная модель базы данных

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

   - таблица

 

 - связь 

 

(1:n) – один ко многим

(n:1) –многие к одному

 

 

 

 

 

 

 

 

 

 

2.1.2 Логическая модель базы данных

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

2.1.3 Физическая модель базы данных

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Таблица МАШИНЫ, поля (КОД МАШИНЫ, МАРКА).

 

Таблица ТИП МАШИНЫ, поля (НОМЕР ПО ПОРЯДКУ, КОД МАШИНЫ, НАЗВАНИЕ, ОБЪЁМ, ЦЕНА, ГОД ИЗГОТОВЛЕНИЯ, КОЛИЧЕСТВО НА СКЛАДЕ, СОСТОЯНИЕ).

 

Таблица ЗАКАЗ, поля (КОД ЗАКАЗА, КОД НАЗВАНИЯ, ИМЯ, ФАМИЛИЯ, ДАТА, КОЛИЧЕСТВО, ЦЕНА ЗАКАЗА).

 

 

 

 

 

 

 

 

 

2.2 Текст программы

 

unit glavnaya;

 

interface

 

uses

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

  Dialogs, StdCtrls;

 

type

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button6: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

 

implementation

 

uses vvod, datamodule, oformlenie, prosmotr_dannih;

 

{$R *.dfm}

 

procedure TForm1.Button1Click(Sender: TObject);

var

parol:String;

begin

parol:='0000';

parol:=inputbox('Введите пароль','parol',parol);

if parol=inttostr(1111) then

begin

Form2.Show;

Form1.hide;

end

else

begin

ShowMessage('пароль не верный  или ввод отменён');

Form2.hide;

Form1.Show;

end;

end;

 

procedure TForm1.Button3Click(Sender: TObject);

begin

Form1.Close;

end;

 

procedure TForm1.Button2Click(Sender: TObject);

begin

form3.Show;

Form1.Hide;

DataModule1.Query1.Close;

DataModule1.Query1.open;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

prosmotr.show;

Form1.Hide;

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

if Application.MessageBox('Хотите  ли вы очистить все таблицы?','Очистка',MB_OKCANCEL) =ID_OK then

begin

while not(DataModule1.mashina.Eof) do

begin

DataModule1.mashina.Edit;

DataModule1.mashina.Delete;

DataModule1.mashina.ApplyRange;

end;

while not(DataModule1.tip_mashini.Eof) do

begin

DataModule1.tip_mashini.Edit;

DataModule1.tip_mashini.Delete;

DataModule1.tip_mashini.ApplyRange;

end;

while not(DataModule1.zakaz.Eof) do

begin

DataModule1.zakaz.Edit;

DataModule1.zakaz.Delete;

DataModule1.zakaz.ApplyRange;

end;

Application.MessageBox('Таблицы очищены','Очистка',MB_OK);

end;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

        Form1.Hide;

    DataModule1.Query1.open;

end;

end.

 

unit datamodule;

 

interface

 

uses

  SysUtils, Classes, DBTables, DB, RpCon, RpConDS, RpDefine, RpRave;

type

  TDataModule1 = class(TDataModule)

    Tmashina: TDataSource;

    Ttip_mashini: TDataSource;

    Tzakaz: TDataSource;

    TQuery1: TDataSource;

    mashina: TTable;

    tip_mashini: TTable;

    zakaz: TTable;

    Query1: TQuery;

    mashinaKod_mashini: TAutoIncField;

    mashinaMarka: TStringField;

    tip_mashiniN_po_poryadku: TAutoIncField;

    tip_mashiniKod_mash: TIntegerField;

    tip_mashiniNazv: TStringField;

    tip_mashiniObem: TFloatField;

    tip_mashiniCena: TCurrencyField;

    tip_mashiniGod_izgot: TIntegerField;

    tip_mashiniKol_na_skl: TIntegerField;

    tip_mashiniSostoyanie: TStringField;

    Query1Marka: TStringField;

    Query1Kod_mashini: TIntegerField;

    Query1Nazv: TStringField;

    Query1Obem: TFloatField;

    Query1Cena: TCurrencyField;

    Query1God_izgot: TIntegerField;

    Query1Kol_na_skl: TIntegerField;

    Query1Sostoyanie: TStringField;

    zakazKod_zakaza: TAutoIncField;

    zakazKod_nazv: TIntegerField;

    zakazIm9: TStringField;

    zakazFamil: TStringField;

    zakazDate: TDateField;

    zakazKol: TIntegerField;

    zakazCena_zakaza: TCurrencyField;

    Query1N_po_poryadku: TIntegerField;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  DataModule1: TDataModule1;

implementation

{$R *.dfm}

end.

 

unit vvod;

 

interface

 

uses

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

  Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, jpeg;

 

type

  TForm2 = class(TForm)

    DBGrid1: TDBGrid;

    DBNavigator1: TDBNavigator;

    DBGrid2: TDBGrid;

    DBNavigator2: TDBNavigator;

    Button1: TButton;

    Image1: TImage;

    procedure Button1Click(Sender: TObject);

    procedure FormClose(Sender: TObject; var Action: TCloseAction);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

  type

  fill=file of record

    r:string[15];

   end;

var

  Form2: TForm2;

  p:string;

 

implementation

 

uses datamodule, glavnaya, oformlenie, Math;

 

{$R *.dfm}

 

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.hide;

Form1.Show;

 

end;

 

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

DataModule1.Query1.Close;

DataModule1.Query1.Refresh;

DataModule1.tip_mashini.Refresh;