Создание базы данных "Автостоянка" в среде Delphi

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

МОРДОВСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ИМЕНИ Н.П.ОГАРЕВА

КУРСОВАЯ РАБОТА

Создание баз данных “Автостоянка” в среде Delphi

Саранск 2008

Содержание

Введение

1. Основные понятия Delphi

1.1 Компилятор в машинный код

1.2 Объектно-ориентированная модель программных компонент

1.3 Быстрая разработка работающего приложения из прототипов

1.4 Масштабируемые средства для построения баз данных

2. Алгоритм создания программы

2.1 Создание таблицы

2.2 Создание приложения

3. Описание программы

4. Листинг

Список использованной литературы

Введение

Написание программы производилось с использованием языка программирования Delphi. Немного о Delphi.

Delphi - это комбинация нескольких важнейших технологий:

Высокопроизводительный компилятор в машинный код

Объектно-ориентированная модель компонент

Визуальное (а, следовательно, и скоростное) построение приложений из программных прототипов

Масштабируемые средства для построения баз данных

1. Основные понятия Delphi

1.1 Компилятор в машинный код

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

Этот компилятор в настоящее время является самым быстрым в мире, его скорость компиляции составляет свыше 120 тысяч строк в минуту на компьютере 486DX33.

Он предлагает легкость разработки и быстрое время проверки готового программного блока, характерного для языков четвертого поколения (4GL) и в то же время обеспечивает качество кода, характерного для компилятора 3GL. Кроме того, Delphi обеспечивает быструю разработку без необходимости писать вставки на Си или ручного написания кода (хотя это возможно). компьютерный компилятор автостоянка

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

В этом смысле проектирование в Delphi мало чем отличается от проектирования в интерпретирующей среде, однако после выполнения компиляции мы получаем код, который исполняется в 10-20 раз быстрее, чем то же самое, сделанное при помощи интерпретатора.

Кроме того, компилятор компилятору рознь, в Delphi компиляция производится непосредственно в родной машинный код, в то время как существуют компиляторы, превращающие программу в так называемый p-код, который затем интерпретируется виртуальной p-машиной. Это не может не сказаться на фактическом быстродействии готового приложения.

1.2 Объектно-ориентированная модель программных компонент

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

Действительно, все в Delphi написано на нем же, поэтому разработчики имеют доступ к тем же объектам и инструментам, которые использовались для создания среды разработки. В результате нет никакой разницы между объектами, поставляемыми Borland или третьими фирмами, и объектами, которые вы можете создать.

В стандартную поставку Delphi входят основные объекты, которые образуют удачно подобранную иерархию из 270 базовых классов. Разработка интерфейса в Delphi является самой простой задачей для программиста.

1.3 Быстрая разработка работающего приложения из прототипов

Cреда Delphi включает в себя полный набор визуальных инструментов для скоростной разработки приложений (RAD - rapid application development), поддерживающей разработку пользовательского интерфейса и подключение к корпоративным базам данных. VCL - библиотека визуальных компонент, включает в себя стандартные объекты построения пользовательского интерфейса, объекты управления данными, графические объекты, объекты мультимедиа, диалоги и объекты управления файлами, управление DDE и OLE.

1.4 Масштабируемые средства для построения баз данных

Объекты БД в Delphi основаны на SQL и включают в себя полную мощь Borland Database Engine. В состав Delphi также включен Borland SQL Link, поэтому доступ к СУБД Oracle, Sybase, Informix и InterBase происходит с высокой эффективностью. Кроме того, Delphi включает в себя локальный сервер Interbase для того, чтобы можно было разработать расширяемые на любые внешние SQL-сервера приложения в офлайновом режиме.

Разработчик в среде Delphi, проектирующий информационную систему для локальной машины (к примеру, небольшую систему учета медицинских карточек для одного компьютера), может использовать для хранения информации файлы формата .dbf (как в dBase или Clipper) или .db (Paradox). Если же он будет использовать локальный InterBase for Windows 4.0 (это локальный SQL-сервер, входящий в поставку), то его приложение безо всяких изменений будет работать и в составе большой системы с архитектурой клиент-сервер.

2. Алгоритм создания программы

2.1 Создание таблицы

Для создания таблиц используется программа Database Desktop. Чтобы создать таблицу, нужно выполнить команду File-New-Table… После этого появляется окно конструктора таблиц. В него нужно ввести названия столбцов, тип данных этого столбца, размер строки и указать программе, является ли это поле ключевым.

Чтобы создать таблицу «Клиенты» я ввела следующие данные:

Field Name	Type	Size	Key
ФИО	A	30	*
Дата принятия машины	D
Срок_стоянки	S
Осталось	S
Скидка	A	3
Стоимость	$

После определения столбцов нужно сохранить таблицу, нажав кнопку Save. Затем в списке Table properties нужно выбрать свойство Table language. Здесь нужно задать соответствующий языковой драйвер для корректного отображения русского языка в таблице. Его название Pdox ANSI Cyrillic. После изменений сохранила таблицу и закрыла Database Desktop.

2.2 Создание приложения

Запускаем Delphi. Разместила на форме компоненты Table, DataSource и Dbgrid. Они нужны для визуального представления таблицы БД и для ее редактирования.

Чтобы сделать таблицу видимой, нужно связать эти компоненты в последовательности DBgrid->DataSource->Table. Делаем компонент Table активным. После этого добавим кнопки «Добавить» и «Удалить» для добавления или удаления данных. Для кнопки «Добавить» пишем код

table1.Insert;

для кнопки «Удалить»:

table1.Delete;

Затем я добавила компонент «Dbnavigator». Его можно использовать для сохранения или отмены изменений в таблице. Связываем его с компонентом DataSource. Дальше я разместила компоненты Label - 5 штук и Edit - 3 штуки. Компоненты Edit я использую для ввода данных о цене, условии скидки и размере скидки. А Label для подписи соответствующих Edit.

Следующим шагом было размещение кнопки «Вычислить». Ее код:

// проверка edit на ввод данных

if cenaed.Text <> '0' then

if skidkaed.Text <> '0' then

if skded.Text <> '0' then

/если данные введены

begin

/присваиваем переменным значения Edit

cena:=strtoint(cenaed.Text);

skid:=strtoint(skidkaed.Text);

skd:=strtoint(skded.Text);

переводим таблицу в режим редактирования

table1.Edit;

/ проверяем значение поля Срок_стоянки

if srok.Value > skid then

/ если оно больше условия скидки, пишем «Да», иначе «Нет»

skidka.value:= 'Да' else skidka.Value:='Нет';

/ если скидка есть, то вычисляем стоимость с учетом скидки

if skidka.Value = 'Да' then

stoimost.Value:= srok.Value*cena*(100-skd)/100

/ если скидки нет, просто вычисляем стоимость

else stoimost.Value:=srok.Value*cena;

/ вычисляем, сколько дней осталось до истечения договора

ostalos.Value:= round(data.Value+srok.Value-now);

/ сохраняем таблицу

table1.Post;

если требуемые данные не введены, то выводим сообщения об ошибке

end else

showmessage('Введите размер скидки!')

else

showmessage('Введите условия скидки!')

else

showmessage('Введите цену!');

end;

Далее размещаем кнопку «Пересчитать». Ее код:

/ проверка edit на ввод данных

if cenaed.Text <> '0' then

if skidkaed.Text <> '0' then

if skded.Text <> '0' then

/ если поля заполнены

begin

присваиваем переменным значения Edit

cena:=strtoint(cenaed.Text);

skid:=strtoint(skidkaed.Text);

skd:=strtoint(skded.Text);

/ узнаем количество записей в таблице

i:= table1.RecordCount;

/ обрабатываем каждую запись

for i:=1 to i do

begin

/ устанавливаем текущую запись

table1.RecNo:=i;

/ переводим таблицу в режим редактирования

table1.Edit;

/ узнаем сколько дней осталось до истечения срока договора

d:= round(data.Value+srok.Value-now) ;

/ если число неотрицательное вводим его в соответствующую ячейку таблицы

if d >= 0 then

ostalos.Value:=d;

/ если число оставшихся дне равно 0, выводим в поле MEMO сообщение

if d = 0 then

memo1.Lines.Add('Договор клиента '+fio.Value+' истек');

/ если число оставшихся дне равно 1, выводим в поле MEMO сообщение

if d=1 then

memo1.Lines.Add('Договор клиента '+fio.Value+' истекает завтра');

/ если число оставшихся дне равно 2, выводим в поле MEMO сообщение

if d = 2 then

memo1.Lines.Add('Договор клиента '+fio.Value+' истекает послезавтра');

/ проверяем на наличие скидки

if srok.Value > skid then

/ вводим в таблицу соответствующее значение

skidka.value:= 'Да' else skidka.Value:='Нет';

/ если скидка есть, вычисляем стоимость с ее учетом и вводим в ячейку таблицы

if skidka.Value = 'Да' then

stoimost.Value:= srok.Value*cena*(100-skd)/100 else

/ если скидки нет, вычисляем стоимость и вводим в ячейку таблицы

stoimost.Value:=srok.Value*cena;

/ сохраняем таблицу

table1.Post;

end;

end else

/ если требуемые данные не введены, выводим сообщения об ошибке

showmessage('Введите размер скидки!')

else

showmessage('Введите условия скидки!')

else

showmessage('Введите цену!');

/ переходим к первой записи в таблице

table1.RecNo:=1;

end;

Затем добавила кнопку «Поиск». Ее код:

PoiskFm.Show;

На форме «Поиск» разместила следующие компоненты: 2 Label, edit, Combobox и Button.

В свойстве Items Combobox'а вводим 3 строки: «ФИО», «Кол-во дней» и «Скидка».

В процедуре обработки события нажатия кнопки пишем:

/ если текст поля «Найти по» ФИО

if poiskcb.ItemIndex = 0 then

with form2.table1 do

begin

setkey;

/ задаем критерий поиска из поля «Текст»

fieldbyname('ФИО').AsString:=poisked.Text;

/ если запись не найдена, выводим сообщение об ошибке

if not gotokey then

showmessage('Запись не найдена');

end;

/ если текст поля «Найти по» Кол-во дней

if poiskcb.ItemIndex = 1 then

with form1.Query1 do

begin

close;

/ очищаем свойство SQL компонента Query

sql.Clear;

/ добавляем строку с SQL-запросом

sql.Add('Select * from klient where Срок_стоянки = :text');

prepare;

/ присваиваем значение параметру из поля «Текст»

params[0].AsInteger:= strtoint(poisked.Text);

open;

/ показываем форму с результатами поиска

form1.Show;

end;

// если текст поля «Найти по» Скидка

if poiskcb.ItemIndex = 2 then

with form1.Query1 do

begin

close;

/ очищаем свойство SQL компонента Query

sql.Clear;

/ добавляем строку с SQL-запросом

sql.Add('Select * from klient where Скидка = :text');

prepare;

/ присваиваем значение параметру из поля «Текст»

params[0].AsString:=poisked.Text;

open;

/ показываем форму с результатами поиска

form1.Show;

Для процедуры закрытия формы пишем следующий код:

form1.hide;

И наконец, создаем последнюю форму «Результаты поиска». На ней размещаем компоненты: Datasource, Query, Dbgrid. Связываем их следующим образом: Dbgrid-> Datasource-> Query. Вот программа и готова.

3. Описание программы

После запуска программы появляется ее главное окно:

В этом окне и предстоит работать пользователю. Здесь можно добавить или удалить клиентов автостоянки из списка. Для этого предназначены кнопки «Добавить» и «Удалить». Для сохранения сделанных изменений или для их отмены служит кнопка «Сохранить/отменить». Если таблица находится в режиме редактирования, эта кнопка активизируется.

Моя программа позволяет автоматически рассчитывать стоимость услуг автостоянки для клиентов. Она рассчитывает стоимость стоянки, используя введенные значения цены за день, условия предоставления скидки и размера самой скидки.

Для выполнения этого расчета необходимо нажать на кнопку «Вычислить». При этом программа рассчитывает стоимость обслуживания для выбранного клиента.

Чтобы постоянно прослеживать, сколько дней осталось клиенту до истечения договора, предусмотрена кнопка «Пересчитать». После ее нажатия, программа пересчитывает стоимость услуг и количество дней, оставшихся до конца обслуживания клиентам. Если какому-нибудь клиенту до истечения срока останется не более двух дней, то программа выведет сообщение с информацией о клиенте и в какой срок его договор истечет.

Если пользователь при нажатии кнопок «Вычислить» и «Пересчитать» забудет ввести цену, то программа выведет сообщение с просьбой заполнить это поле

То же произойдет, если не будет введена информация об условиях скидки и размера скидки. После ввода этих данных, программа продолжит работу.

Если в базе данных очень много клиентов, то пользователь пригодиться поиск. Чтобы открыть окно для задания параметров поиска, необходимо нажать на кнопку «Поиск». После ее нажатия появляется окно:

В списке «Найти по» содержаться критерии, по которым может проводиться поиск. Их 3: «ФИО», «Кол-во дней», «Скидка». В поле текст нужно вводить слова для поиска. Если выбран параметр «ФИО», то программа автоматически переходит к найденному клиенту. Если такого клиента нет, выводится сообщение об ошибке

.

Если в качестве параметра выбраны два других значения, то программа откроет окно «Результаты поиска» со списком клиентов, удовлетворяющих условиям поиска

.

Для завершения работы с программой служит кнопка «Выход».

4. Листинг

// Главный модуль программы

program Parcking;

uses

Forms,

mainfm in 'mainfm.pas' {PoiskFm},

klientfm in 'klientfm.pas' {Form2},

poiskSQlfm in 'poiskSQlfm.pas' {Form1};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TPoiskFm, PoiskFm);

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

// Главное рабочее окно программы

unit klientfm;

interface

uses

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

Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls, ExtCtrls, DBCtrls;

type

TForm2 = class(TForm)

DataSource1: TDataSource;

DBGrid1: TDBGrid;

Table1: TTable;

Button1: TButton;

Fio: TStringField;

data: TDateField;

Srok: TSmallintField;

Stoimost: TCurrencyField;

Button2: TButton;

Button3: TButton;

Button4: TButton;

DBNavigator1: TDBNavigator;

Ostalos: TSmallintField;

Button5: TButton;

Memo1: TMemo;

CenaEd: TEdit;

SkidkaEd: TEdit;

Label1: TLabel;

Label2: TLabel;

skidka: TStringField;

Session1: TSession;

Database1: TDatabase;

Button6: TButton;

skdEd: TEdit;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

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

procedure FormShow(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

Cena: integer;

skid: integer;

skd: integer;

implementation

uses mainfm;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

close;

end;

procedure TForm2.Button2Click(Sender: TObject);

var

d: double;

i: integer;

begin

if cenaed.Text <> '0' then

if skidkaed.Text <> '0' then

if skded.Text <> '0' then

begin

cena:=strtoint(cenaed.Text);

skid:=strtoint(skidkaed.Text);

skd:=strtoint(skded.Text);

table1.Edit;

if srok.Value > skid then

skidka.value:= 'Да' else skidka.Value:='Нет';

if skidka.Value = 'Да' then

stoimost.Value:= srok.Value*cena*(100-skd)/100 else

stoimost.Value:=srok.Value*cena;

ostalos.Value:= round(data.Value+srok.Value-now);

table1.Post;

end else

showmessage('Введите размер скидки!')

else

showmessage('Введите условия скидки!')

else

showmessage('Введите цену!');

end;

procedure TForm2.Button3Click(Sender: TObject);

begin

table1.Insert;

end;

procedure TForm2.Button4Click(Sender: TObject);

begin

table1.Delete;

end;

procedure TForm2.Button5Click(Sender: TObject);

var

i: integer;

d: integer;

begin

memo1.Clear;

if cenaed.Text <> '0' then

if skidkaed.Text <> '0' then

if skded.Text <> '0' then

begin

cena:=strtoint(cenaed.Text);

skid:=strtoint(skidkaed.Text);

skd:=strtoint(skded.Text);

i:= table1.RecordCount;

for i:=1 to i do

begin

table1.RecNo:=i;

table1.Edit;

d:= round(data.Value+srok.Value-now) ;

if d >= 0 then

ostalos.Value:=d;

if d = 0 then

memo1.Lines.Add('Договор клиента '+fio.Value+' истек');

if d=1 then

memo1.Lines.Add('Договор клиента '+fio.Value+' истекает завтра');

if d = 2 then

memo1.Lines.Add('Договор клиента '+fio.Value+' истекает послезавтра');

if srok.Value > skid then

skidka.value:= 'Да' else skidka.Value:='Нет';

if skidka.Value = 'Да' then

stoimost.Value:= srok.Value*cena*(100-skd)/100 else

stoimost.Value:=srok.Value*cena;

table1.Post;

end;

end else

showmessage('Введите размер скидки!')

else

showmessage('Введите условия скидки!')

else

showmessage('Введите цену!');

table1.RecNo:=1;

end;

procedure TForm2.FormCreate(Sender: TObject);

var

str: integer;

pres: pchar;

begin

pres:=strAlloc(255);

str:=getcurrentdirectory(255,pres);

session1.active:=true;

session1.PrivateDir:=strpas(pres);

session1.NetFileDir:=strpas(pres)+'\ParckingDb';

database1.Connected:=true;

database1.Directory:=strpas(pres)+'\ParckingDb';

end;

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

begin

database1.Connected:=false;

session1.Active:=false;

end;

procedure TForm2.FormShow(Sender: TObject);

begin

table1.Active:=true;

end;

procedure TForm2.Button6Click(Sender: TObject);

begin

PoiskFm.Show;

end;

end.

// Модуль формы «Поиск»

unit mainfm;

interface

uses

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

Dialogs, DB, DBTables, StdCtrls;

type

TPoiskFm = class(TForm)

Button1: TButton;

Label1: TLabel;

PoiskEd: TEdit;

PoiskCb: TComboBox;

Label2: TLabel;

procedure Button1Click(Sender: TObject);

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

{ Private declarations }

public

{ Public declarations }

end;

var

PoiskFm: TPoiskFm;

implementation

uses klientfm, poiskSQlfm;

{$R *.dfm}

procedure TPoiskFm.Button1Click(Sender: TObject);

begin

if poiskcb.ItemIndex = 0 then

with form2.table1 do

begin

setkey;

fieldbyname('ФИО').AsString:=poisked.Text;

if not gotokey then

showmessage('Запись не найдена');

end;

if poiskcb.ItemIndex = 1 then

with form1.Query1 do

begin

close;

sql.Clear;

sql.Add('Select * from klient where Срок_стоянки = :text');

prepare;

params[0].AsInteger:= strtoint(poisked.Text);

open;

form1.Show;

end;

if poiskcb.ItemIndex = 2 then

with form1.Query1 do

begin

close;

sql.Clear;

sql.Add('Select * from klient where Скидка = :text');

prepare;

params[0].AsString:=poisked.Text;

open;

form1.Show;

end;

end;

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

begin

form1.hide;

end;

end.

// Модуль формы «Результаты поиска»

unit poiskSQlfm;

interface

uses

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

Dialogs, DB, Grids, DBGrids, DBTables;

type

TForm1 = class(TForm)

Query1: TQuery;

DBGrid1: TDBGrid;

DataSource1: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses klientfm;

{$R *.dfm}

end.

Список использованной литературы

1. В. И. Емельянов, В. И. Воробьев, Т. П. Тюрина. Основы программирования на Delphi. - Москва.: Высшая школа, 2005 г.

2. А. В. Сорокин. Delphi. Разработка баз данных. - СПб.: Питер, 2005 г.

3. А. Я Архангельскийй. Программирование в Delphi 7. - Москва.: Бином-Пресс, 2003 г.

4. М. Е. Фленов. Библия Delphi. СПб.: БХВ-Петербург, 2004 г.

5. В. Э. Гофман. Delphi. Быстрый старт.: БХВ-Петербург, 2003 г.

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

...