Технология разработки программных продуктов

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

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

Введение

Цель моей курсовой работы создание пользовательского интерфейса для баз данных. Благодаря интерфейсу можно просматривать, редактировать, добавлять и удалять данные базы данных. А также получение практических навыков в проектировании и создании пользовательского интерфейса и визуального программирования в среде Delphi.

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

1.1 База данных

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

Знания об объектах и изменении их свойств нам необходимы в любой области, будь то бухгалтерия, геология или транспортные перевозки. Таким образом, нас интересует тот мир, в котором существуют наши предметы, т.е.замкнутая, в пределах поставленной задачи, система объектов - предметная область (ПО).

Решение целого класса задач связано с большими объемами информации. Далеко не все задачи алгоритмические. Решение многих задач сводится к управлению потоками информации, анализу данных. Любая справка, глава книги, письмо, квитанция - это данные, оформленные на листе бумаги, в таблице. Любые знания - это своего рода данные, которыми обладает человек. Если для решения наших задач нам необходимы знания об однотипных объектах или повторяющихся явлениях, то нам стоит использовать базу данных. База данных (БД) - это структурированные знания об объектах.

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

Рассмотрим задачу о составлении и использовании школьного журнала. Мы сталкиваемся с большим объемом однотипных знаний об учащихся (адрес, фамилии родителей, дата рождения и т.д.) и процессе обучения (типы проводимых работ, предметы и др.). Для решения этой задачи использование алгоритмических языков неуместно. Именно для этой цели служит система управления базами данных (СУБД)

1.2 Система управления базой данных

Система управления базами данных (СУБД) - комплекс языковых, программных и технических средств, предназначенных для организации взаимодействия пользователя и БД. Эти системы не привязываются к решению конкретных проблем. В них автоматизированы стандартные процедуры, необходимые для работы с базами данных, а т.к. время не стоит на месте, то в каждой новой версии или новом варианте СУБД реализовано все большее количество подобных процедур.

Информационные системы

Решение задач посредством СУБД приводит к созданию информационных систем (ИС).

По сферам применения различают два основных класса ИС: информационно-поисковые системы (ИПС) и системы обработки данных (СОД).

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

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

Локальные и глобальное пользовательские представления

Чтобы разобраться в задаче, нам необходимо структурировать информацию:

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

* определить участников событий и пересечение их интересов;

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

При проектировании ИС взгляды отдельных пользователей на предметную область называют локальными пользовательскими представлениями (ЛПП).

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

Завершение этапа приведет к формированию глобального пользовательского представления (ГПП), т.е. будет отражать точку зрения администратора БД.

2. Проектирование интерфейса

2.1 Назначение компонентов

1) Form- главный визуальный компонент, являющийся контейнером для остальных компонентов.

2) Button-простая кнопка, при щелчке на которой вызывается соответствующая процедура.

3) BitBtn-кнопка с изображением

4) Edit -однострочное редактируемое поле

5) Label-метка. Используется для размещения в окне не очень длинных однострочных надписей.

6) MainMenu-компонент, определяющий главное меню формы.

7) DBGrid- компонент, позволяющий отображать содержание БД

8) Memo-представляет собой элемент редактирования текста, который может состоять из нескольких строк..

9) Image-создает объект для отображения или редактирования рисунка(растрового изображения, пиктограммы или метафайла).

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

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

12) Query-представляет часть базы данных-- записи, содержимое которых удовлетворяет критерию SQL-запроса к таблице.

13) Table-представляет всю таблицу базы данных.

14) MonthCalendar-объект отображает календарь.

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

16) ComboBox-дает возможность ввести данные в поле редактирования путем набора на клавиатуре или выбором из списка.

17) CheckBox- представляет собой независимую кнопку (переключатель).

2.2 Формы проекта

Форма «База»(главная)

Форма «Таблица»

Форма «SQL»

Форма «Поиск»

Форма «О программе»

3. Разработка программного обеспечения

база данные delphi форма

3.1 Назначение форм

Форма «База»(главная).

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

Форма «Таблица»

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

Форма «SQL»

На этой форме можно управлять базой данных с помощью запросов на язык SQL.

Форма «Поиск»

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

Форма «О программе»

Содержит информацию о программе.

3.2 Текст приложения

Форма «База»(главная).

unit Unit1;

interface

uses

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

Dialogs, Menus, DB, DBTables, Grids, DBGrids, ExtCtrls, DBCtrls,

StdCtrls, ComCtrls;

type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

DataSource1: TDataSource;

Table1: TTable;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

Query1: TQuery;

DBNavigator1: TDBNavigator;

N3: TMenuItem;

MonthCalendar1: TMonthCalendar;

Label1: TLabel;

Timer1: TTimer;

N4: TMenuItem;

N5: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure FormCanResize(Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);

procedure Timer1Timer(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5;

{$R *.dfm}

procedure TForm1.N2Click(Sender: TObject);

begin

Form2.Visible:=True;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Form3.Visible:=True;

end;

procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,

NewHeight: Integer; var Resize: Boolean);

begin

Form1.DBGrid1.Height:=Form1.Height-249;

Form1.DBGrid1.Width:=Form1.Width;

MonthCalendar1.Top:=Form1.Height-234;

Label1.Top:=Form1.Height-234;

DBnavigator1.Top:=Form1.Height-234;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Label1.Caption:=TimeToStr(Time);

end;

procedure TForm1.N4Click(Sender: TObject);

var i:integer;

begin

Form4.Combobox1.Items.Clear;

for i:=0 to Form1.DBGrid1.Columns.Count-1 do

Form4.ComboBox1.Items.add(Form1.DBGrid1.Columns[i].Title.Caption);

Form4.Show;

end;

procedure TForm1.FormDestroy(Sender: TObject);

begin

ShowMessage('looool');

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Form5.Show;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

Форма «Таблица»

unit Unit3;

interface

uses

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

Dialogs, StdCtrls, Unit1, DBCtrls;

type

TForm3 = class(TForm)

Button1: TButton;

Button2: TButton;

ComboBox1: TComboBox;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

begin

if Form3.ComboBox1.Text='customer' then begin

Form1.Table1.Active:=False;

Form1.Table1.TableName:='customer.db';

Form1.Table1.Active:=true;

Form1.DataSource1.DataSet:=Form1.Table1;end;

if Form3.ComboBox1.Text='employee' then begin

Form1.Table1.Active:=False;

Form1.Table1.TableName:='employee.db';

Form1.Table1.Active:=true;

Form1.DataSource1.DataSet:=Form1.Table1;end;

if Form3.ComboBox1.Text='orders' then begin

Form1.Table1.Active:=False;

Form1.Table1.TableName:='orders.db';

Form1.Table1.Active:=true;

Form1.DataSource1.DataSet:=Form1.Table1;end;

end;

procedure TForm3.Button2Click(Sender: TObject);

begin

Form3.Close;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

end;

end.

Форма «SQL»

unit Unit2;

interface

uses

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

Dialogs, StdCtrls;

type

TForm2 = class(TForm)

Button1: TButton;

Button2: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form1.Query1.Active:=False;

Form1.Query1.Sql.Clear;

Form1.Query1.Sql:=Form2.Memo1.Lines;

Form1.Query1.Active:=True;

Form1.DataSource1.DataSet:=Form1.Query1;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

Form2.Close;

end;

procedure TForm2.FormCreate(Sender: TObject);

begin

end;

end.

Форма «Поиск»

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, DB, DBTables;

type

TForm4 = class(TForm)

Label1: TLabel;

ComboBox1: TComboBox;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Memo1: TMemo;

Button3: TButton;

CheckBox1: TCheckBox;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: Char);

procedure ComboBox1KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure ComboBox1Select(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

procedure Edit7KeyPress(Sender: TObject; var Key: Char);

procedure Edit6KeyPress(Sender: TObject; var Key: Char);

procedure Edit5KeyPress(Sender: TObject; var Key: Char);

procedure Edit4KeyPress(Sender: TObject; var Key: Char);

procedure Edit3KeyPress(Sender: TObject; var Key: Char);

procedure Edit2KeyPress(Sender: TObject; var Key: Char);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4; perem:integer;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm4.Button2Click(Sender: TObject);

begin

Form4.Close;

end;

procedure TForm4.Button1Click(Sender: TObject);

Label 2;

var i:integer;

begin

if Form1.Table1.FieldByName(Form4.ComboBox1.Text).DataType=ftString then begin

Form1.Query1.SQL.Clear;

Form4.Memo1.Lines.Clear;

Form4.Memo1.Lines.Add('Select * from '+Form1.Table1.TableName+

' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit1.Text+#39+';');

Form1.Query1.Active:=False;

Form1.Query1.SQL.Add('Select * from '+Form1.Table1.TableName+

' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit1.Text+#39+';');

Form1.Query1.Active:=True;

Form1.DataSource1.DataSet:=Form1.Query1;goto 2;end

else

if Form1.Table1.FieldByName(Form4.ComboBox1.Text).DataType in [ftSmallint, ftInteger, ftFloat]

then begin

Form1.Query1.SQL.Clear;

Form4.Memo1.Lines.Clear;

Form4.Memo1.Lines.Add('Select * from '+Form1.Table1.TableName+

' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit1.Text+#39+';');

Form1.Query1.Active:=False;

Form1.Query1.SQL.Add('Select * from '+Form1.Table1.TableName+

' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit1.Text+#39+';');

Form1.Query1.Active:=True;

Form1.DataSource1.DataSet:=Form1.Query1;goto 2;

end else

if Form1.Table1.FieldByName(Form4.ComboBox1.Text).DataType=ftDateTime

then begin

for i:=0 to length(Form4.Edit2.Text) do begin

if Form4.Edit2.Text[i] in ['a'..'z','а'..'я'] then begin

ShowMessage('Введите день');goto 2;end;end;

for i:=0 to length(Form4.Edit3.Text) do begin

if Form4.Edit3.Text[i] in ['a'..'z','а'..'я'] then begin

ShowMessage('Введите месяц');goto 2;end;end;

for i:=0 to length(Form4.Edit4.Text) do begin

if Form4.Edit4.Text[i] in ['a'..'z','а'..'я'] then begin

ShowMessage('Введите год');goto 2;end;end;

if form4.CheckBox1.Checked=true then begin

for i:=0 to length(Form4.Edit2.Text) do begin

if Form4.Edit2.Text[i] in ['a'..'z','а'..'я'] then begin

ShowMessage('Введите день');goto 2;end;end;

for i:=0 to length(Form4.Edit3.Text) do begin

if Form4.Edit3.Text[i] in ['a'..'z','а'..'я'] then begin

ShowMessage('Введите месяц');goto 2;end;end;

for i:=0 to length(Form4.Edit4.Text) do begin

if Form4.Edit4.Text[i] in ['a'..'z','а'..'я'] then begin

ShowMessage('Введите год');goto 2;end;end;

for i:=0 to length(Form4.Edit5.Text) do begin

if Form4.Edit5.Text[i] in ['a'..'z','а'..'я'] then begin

ShowMessage('Введите час');goto 2;end;end;

for i:=0 to length(Form4.Edit6.Text) do begin

if Form4.Edit6.Text[i] in ['a'..'z','а'..'я'] then begin

ShowMessage('Введите минуты');goto 2;end;end;

for i:=0 to length(Form4.Edit7.Text) do begin

if Form4.Edit7.Text[i] in ['a'..'z','а'..'я'] then begin

ShowMessage('Введите секунды');goto 2;end;end;

Form1.Query1.SQL.Clear;

Form4.Memo1.Lines.Clear;

Form4.Memo1.Lines.Add('Select * from '+Form1.Table1.TableName+

' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit2.Text+'.'

+Form4.Edit3.Text+'.'+Form4.Edit4.Text+' '+Form4.Edit5.Text+':'

+Form4.Edit6.Text+':'+Form4.Edit7.Text+#39+';');

Form1.Query1.Active:=False;

Form1.Query1.SQL.Add('Select * from '+Form1.Table1.TableName+

' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit2.Text+'.'

+Form4.Edit3.Text+'.'+Form4.Edit4.Text+' '+Form4.Edit5.Text+':'

+Form4.Edit6.Text+':'+Form4.Edit7.Text+#39+';');

Form1.Query1.Active:=True;

Form1.DataSource1.DataSet:=Form1.Query1;goto 2;end;

Form1.Query1.SQL.Clear;

Form4.Memo1.Lines.Clear;

Form4.Memo1.Lines.Add('Select * from '+Form1.Table1.TableName+

' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit2.Text+'.'

+Form4.Edit3.Text+'.'+Form4.Edit4.Text+#39+';');

Form1.Query1.Active:=False;

Form1.Query1.SQL.Add('Select * from '+Form1.Table1.TableName+

' where '+Form4.ComboBox1.Text+'='+#39+Form4.Edit2.Text+'.'

+Form4.Edit3.Text+'.'+Form4.Edit4.Text+#39+';');

Form1.Query1.Active:=True;

Form1.DataSource1.DataSet:=Form1.Query1;goto 2;end;

2:

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

Form1.DataSource1.DataSet:=Form1.Table1;

end;

procedure TForm4.Edit1KeyPress(Sender: TObject; var Key: Char);

var k:integer;

begin

if Form1.Table1.FieldByName(Form4.ComboBox1.Text).DataType in [ftSmallint, ftInteger, ftFloat]

then begin

if Key in ['0'..'9','.',#8] then begin

if key='.' then //проверка для только одной запятой

begin

if Form4.Edit1.Text='' then key:=#0;

For k:=1 to Length(Form4.Edit1.Text) do

begin

if Form4.Edit1.Text[k]='.' then key:=#0;

end;

end;

end else key:=#0;

end;end;

procedure TForm4.ComboBox1KeyUp(Sender: TObject; var Key: Word;

Shift: TShiftState);

begin

Form4.ComboBox1.Text:='';

end;

procedure TForm4.ComboBox1Select(Sender: TObject);

begin

if Form1.Table1.FieldByName(Form4.ComboBox1.Text).DataType=ftDateTime

then begin

Form4.CheckBox1.Show;

Form4.Edit1.Visible:=false;

Form4.Edit2.Show;

form4.Edit2.Text:='дд';

Form4.Edit3.Show;

form4.Edit3.Text:='мм';

Form4.Edit4.Show;

form4.Edit4.Text:='гггг';

end

else begin Form4.CheckBox1.hide;

Form4.Edit2.Visible:=false;

Form4.Edit3.Visible:=false;

Form4.Edit4.Visible:=false;

Form4.Edit5.Visible:=false;

Form4.Edit6.Visible:=false;

Form4.Edit7.Visible:=false;

Form4.Edit1.Show; end;

end;

procedure TForm4.CheckBox1Click(Sender: TObject);

begin

if form4.CheckBox1.Checked=true then begin

Form4.Edit5.Show;

form4.Edit5.Text:='чч';

Form4.Edit6.Show;

form4.Edit6.Text:='мм';

Form4.Edit7.Show;

form4.Edit7.Text:='сс';

end else begin

Form4.Edit5.Hide;

Form4.Edit6.Hide;

Form4.Edit7.Hide; end;

end;

procedure TForm4.Edit7KeyPress(Sender: TObject; var Key: Char);

begin

if Form1.Table1.FieldByName(Form4.ComboBox1.Text).DataType=ftDateTime then

begin

if not(key in['0'..'9',#8]) then key:=#0;end;

end;

procedure TForm4.Edit6KeyPress(Sender: TObject; var Key: Char);

begin

if Form1.Table1.FieldByName(Form4.ComboBox1.Text).DataType=ftDateTime then

begin

if not(key in['0'..'9',#8]) then key:=#0;end;

end;

procedure TForm4.Edit5KeyPress(Sender: TObject; var Key: Char);

begin

if Form1.Table1.FieldByName(Form4.ComboBox1.Text).DataType=ftDateTime then

begin

if not(key in['0'..'9',#8]) then key:=#0;end;

end;

procedure TForm4.Edit4KeyPress(Sender: TObject; var Key: Char);

begin

if Form1.Table1.FieldByName(Form4.ComboBox1.Text).DataType=ftDateTime then

begin

if not(key in['0'..'9',#8]) then key:=#0;end;

end;

procedure TForm4.Edit3KeyPress(Sender: TObject; var Key: Char);

begin

if Form1.Table1.FieldByName(Form4.ComboBox1.Text).DataType=ftDateTime then

begin

if not(key in['0'..'9',#8]) then key:=#0;end;

end;

procedure TForm4.Edit2KeyPress(Sender: TObject; var Key: Char);

begin

if Form1.Table1.FieldByName(Form4.ComboBox1.Text).DataType=ftDateTime then

begin

if not(key in['0'..'9',#8]) then key:=#0;end;

end;

procedure TForm4.FormCreate(Sender: TObject);

begin

end;

end.

Форма «О программе»

unit Unit5;

interface

uses

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

Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;

type

TForm5 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Image1: TImage;

BitBtn1: TBitBtn;

Label3: TLabel;

procedure BitBtn1Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm5.BitBtn1Click(Sender: TObject);

begin

Form5.Hide;

end;

procedure TForm5.FormCreate(Sender: TObject);

begin

end;

end.

Заключение

В ходе выполнения курсовой работы был мной создан пользовательский интерфейс для базы данных. В созданной программе был реализован поиск по разным полям базы данных, также в программе присутствует возможность управлять базой с помощью языка SQL(Structured Query Language -- «язык структурированных запросов»).

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

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