Разработка клиентского приложения

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

МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РЕСПУБЛИКИ КАЗАХСТАН

Некоммерческое акционерное общество

«АЛМАТИНСКИЙ УНИВЕРСИТЕТ ЭНЕРГЕТИКИ И СВЯЗИ»

Факультет «Информационных технологий»

Кафедра «Информационных систем»

РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №2

по дисциплине: «СУБД и экспертные системы»

на тему: «Разработка клиентского приложения»

Выполнила: ст.гр. БИ-10-1

Сатвалдынова А.Х.

Проверила: Водолазкина Н.А.

Алматы 2013



Содержание

Введение

Задание

Формы БД

Заключение

Список литературы

Приложение



Введение

Целью данной работы является приобретение практических навыков реализации реляционной базы данных (БД) в среде Delphi 7, изучение различных механизмов доступа к данным и получение практических навыков реализации интерфейса пользователя в визуальной среде.

Основной целью будет разработка БД «Университет», а в частности разработка приложения баз данных в соответствии с требованиями и возможностями, описанными в расчетно-графической работе №1.

Чтобы разработать БД «Университет» необходимо разработать необходимые формы для обработки данных, для ввода, просмотра взаимосвязанных данных базы на экране в удобном виде. Формы должны обеспечивать удобный режим работы для неподготовленного пользователя БД. В пояснительной части следует обосновать необходимость разрабатываемой формы, ее назначение.

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

В соответствие с описанием пользователей БД разработать основную форму с реализацией переходов по БД, и осуществлением их возможностей.

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



Задание

1.1 Разработать для своей БД необходимые формы для обработки данных (для ввода, просмотра взаимосвязанных данных базы на экране в удобном виде, который соответствует привычному для пользователя документу и т.д.) Формы должны обеспечивать удобный режим работы для неподготовленного пользователя БД. В пояснительной части следует обосновать необходимость разрабатываемой формы, ее назначение.

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

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

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

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



Формы базы данных

реляционный база интерфейс авторизация

Форма авторизации.

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

Рисунок 1. Форма авторизации.

Форма таблицы «Преподаватели».

Форма содержит таблицу «Преподаватели», в которой имеется следующая информация:

-преподаватели

-параметры преподавателя

-должность

-предметы

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



Рисунок 2. Форма таблицы «Преподаватели».

Рисунок 3. Форма редактирования.



Формы таблиц «параметры преподавателя» и «должность».

Форма, содержащая таблицу «параметры преподавателя», имеет следующую информацию:

-ФИО преподавателя

-ID преподавателя

-ученая степень

Форма, содержащая таблицу «должность», имеет следующую информацию:

-ID ставки

-ставка

-должность

-предметы

Рисунок 4.Форма таблицы «Параметры преподавателя»

Рисунок 5. Форма таблицы «Должность»



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

Рисунок 5. Вкладки Файл, Сортировать, Выход

Форма таблицы «Предметы».

Форма содержит таблицу «Предметы», в которой имеется следующая информация:

-ID преподавателя

-ID предмета

-ставка

Рисунок 6. Форма таблицы «Предметы».



Рисунок 7. Создание отчета.



Заключение

В данной графической работе мы приобрели практические навыки реализации реляционной базы данных (БД) в среде Delphi 7, изучили различные механизмы доступа к данным и получили практические навыки реализации интерфейса пользователя в визуальной среде

А также разработали БД «Университет», а в частности приложение баз данных в соответствии с требованиями и возможностями, описанными в расчетно-графической работе №1.

Разработали БД «Университет» с формами для обработки данных, для ввода, просмотра взаимосвязанных данных базы на экране в удобном виде. Формы БД обеспечивают удобный режим работы для неподготовленного пользователя БД. В пояснительной части обосновали необходимость разрабатываемой формы, ее назначение.

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

В соответствие с описанием пользователей БД разработали основную форму с реализацией переходов по БД, и осуществлением их возможностей.

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



Список литературы

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

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

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

4. Кренке Д. Теория и практика построения баз данных: [пер.с англ] / Д. Кренке. - 9 - е изд. - СПб.: Питер, 2005. - 858 с.

5. Хомоненко А.Д., Цыганков В.М., Мальцев М.Г. Базы данных: Учебник для высших учебных заведений / Под ред. проф. А.Д. Хомоненко. - СПб.: КОРОНА принт, 2000. - 416с.

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

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



Приложение

Листинг формы авторизации и формы таблиц.

unit Unit6;

interface

uses

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

Dialogs, ExtCtrls;

type

TForm6 = class(TForm)

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit2;

{$R *.dfm}

end.

object Form5: TForm5

Left = 453

Top = 243

BorderStyle = bsSingle

Caption = #1055#1086#1080#1089#1082

ClientHeight = 325

ClientWidth = 844

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = []

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

object DBGrid4: TDBGrid

Left = 440

Top = 167

Width = 401

Height = 153

DataSource = DataModule2.DataSource5

TabOrder = 0

TitleFont.Charset = DEFAULT_CHARSET

TitleFont.Color = clWindowText

TitleFont.Height = -11

TitleFont.Name = 'MS Sans Serif'

TitleFont.Style = []

Columns = <

item

Expanded = False

FieldName = 'idprep'

Title.Caption = 'ID '#1087#1088#1077#1087#1086#1076#1086#1074#1072#1090#1077#1083#1103

Width = 100

Visible = True

end

item

Expanded = False

FieldName = 'idpred'

Title.Caption = 'ID '#1087#1088#1077#1076#1084#1077#1090#1072

Width = 122

Visible = True

end

item

Expanded = False

FieldName = 'stavka'

Title.Caption = #1057#1090#1072#1074#1082#1072

Width = 122

Visible = True

end>

end

object DBGrid3: TDBGrid

Left = 1

Top = 167

Width = 433

Height = 153

DataSource = DataModule2.DataSource5

TabOrder = 1

TitleFont.Charset = DEFAULT_CHARSET

TitleFont.Color = clWindowText

TitleFont.Height = -11

TitleFont.Name = 'MS Sans Serif'

TitleFont.Style = []

Columns = <

item

Expanded = False

FieldName = 'stavkaid'

Title.Caption = 'ID '#1057#1090#1072#1074#1082#1080

Width = 80

Visible = True

end

item

Expanded = False

FieldName = 'stavka'

Title.Caption = #1057#1090#1072#1074#1082#1072

Width = 80

Visible = True

end

item

Expanded = False

FieldName = 'dolzn'

Title.Caption = #1044#1086#1083#1078#1085#1086#1089#1090#1100

Width = 120

Visible = True

end

item

Expanded = False

FieldName = 'chasi'

Title.Caption = #1063#1072#1089#1099

Width = 65

Visible = True

end>

end

object DBGrid2: TDBGrid

Left = 440

Top = 24

Width = 401

Height = 137

DataSource = DataModule2.DataSource5

TabOrder = 2

TitleFont.Charset = DEFAULT_CHARSET

TitleFont.Color = clWindowText

TitleFont.Height = -11

TitleFont.Name = 'MS Sans Serif'

TitleFont.Style = []

Columns = <

item

Expanded = False

FieldName = 'idprep'

Title.Caption = 'ID '#1055#1088#1077#1087'-'#1103

Width = 70

Visible = True

end

item

Expanded = False

FieldName = 'fioprep'

Title.Caption = #1060#1048#1054' '#1087#1088#1077#1087#1086#1076#1086#1074#1072#1090#1077#1083#1103

Width = 150

Visible = True

end

item

Expanded = False

FieldName = 'uchstep'

Title.Caption = #1059#1095#1077#1085#1072#1103' '#1089#1090#1077#1087#1077#1085#1100

Width = 130

Visible = True

end>

end

object DBNavigator1: TDBNavigator

Left = 1

Top = 0

Width = 840

Height = 25

DataSource = DataModule2.DataSource5

VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]

TabOrder = 3

end

object DBGrid1: TDBGrid

Left = 0

Top = 24

Width = 433

Height = 137

DataSource = DataModule2.DataSource5

TabOrder = 4

TitleFont.Charset = DEFAULT_CHARSET

TitleFont.Color = clWindowText

TitleFont.Height = -11

TitleFont.Name = 'MS Sans Serif'

TitleFont.Style = []

Columns = <

item

Expanded = False

FieldName = 'idpred'

Title.Caption = 'ID '#1055#1088#1077#1076'-'#1072

Width = 80

Visible = True

end

item

Expanded = False

FieldName = 'nazprep'

Title.Caption = #1053#1072#1079#1074#1072#1085#1080#1077' '#1087#1088#1077#1076#1084#1077#1090#1072

Width = 120

Visible = True

end

item

Expanded = False

FieldName = 'vsegochas'

Title.Caption = #1042#1089#1077#1075#1086' '#1095#1072#1089#1086#1074

Width = 80

Visible = True

end

item

Expanded = False

FieldName = 'lekcii'

Title.Caption = #1051#1077#1082#1094#1080#1080

Width = 100

Visible = True

end>

end

end

unit Unit4;

interface

uses

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

Dialogs, StdCtrls, jpeg, ExtCtrls, Buttons, Mask, DBCtrls;

type

TForm4 = class(TForm)

Image1: TImage;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

DBEdit1: TDBEdit;

DBEdit2: TDBEdit;

Label9: TLabel;

Label10: TLabel;

Label11: TLabel;

DBEdit3: TDBEdit;

DBEdit4: TDBEdit;

DBEdit5: TDBEdit;

DBEdit6: TDBEdit;

DBEdit7: TDBEdit;

DBEdit8: TDBEdit;

DBEdit9: TDBEdit;

DBEdit10: TDBEdit;

DBEdit11: TDBEdit;

BitBtn3: TBitBtn;

BitBtn2: TBitBtn;

BitBtn1: TBitBtn;

procedure BitBtn1Click(Sender: TObject);

procedure BitBtn2Click(Sender: TObject);

procedure BitBtn3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm4.BitBtn1Click(Sender: TObject);

begin

if DataModule2.ADOTable1.Modified then

DataModule2.ADOTable1.Post;

DataModule2.ADOTAble1.Refresh;

end;

procedure TForm4.BitBtn2Click(Sender: TObject);

begin

DataModule2.ADOTAble1.Cancel;

end;

procedure TForm4.BitBtn3Click(Sender: TObject);

begin

Form4.Close;

DataModule2.ADOTAble1.Refresh;

end;

end.

Begin

Form4.DBEdit1.Refresh;

Form4.DBEdit2.Refresh;

Form4.DBEdit3.Refresh;

Form4.DBEdit4.Refresh;

Form4.DBEdit5.Refresh;

Form4.DBEdit6.Refresh;

Form4.DBEdit7.Refresh;

Form4.DBEdit8.Refresh;

Form4.DBEdit9.Refresh;

Form4.DBEdit10.Refresh;

Form4.DBEdit11.Refresh;

Form4.ShowModal;

end;

procedure TForm3.N6Click(Sender: TObject);

var

linkkey : integer;

s1, s2 : string;

k :integer;

begin

k:=MessageDlg('Вы действительно хотите удалить?',mtWarning,

[mbYes,mbNo],0);

if k=6 then

begin

DataModule2.ADOTable1.Delete;

DataModule2.ADOTable1.Refresh;

end

Else Form3.SetFocus;

end;

procedure TForm3.N7Click(Sender: TObject);

begin

RvSystem1.DefaultDest:=rdPreview;

RvProject1.Execute;

end;

procedure TForm3.BitBtn1Click(Sender: TObject);

var

s:string;

begin

Form5.DBGrid1.Refresh;

Form5.DBGrid2.Refresh;

Form5.DBGrid3.Refresh;

DataModule2.ADOTable1.refresh;

Case FindBox.ItemIndex of

0 :

begin

DataModule2.ADOQueryF1.Active:=false;

DataModule2.ADOQueryF1.SQL.Clear;

DataModule2.ADOQueryF1.SQL.Add('SELECT *');

DataModule2.ADOQueryF1.SQL.Add('FROM tab1');

DataModule2.ADOQueryF1.SQL.Add('WHERE fioprep like ''%'+FindEdit.Text+'%''');

DataModule2.ADOQueryF1.Active:=true;

Form5.ShowModal;

FindBox.ItemIndex:=0;

FindEdit.Clear;

end;

1 :

begin

DataModule2.ADOQueryF1.Active:=false;

DataModule2.ADOQueryF1.SQL.Clear;

DataModule2.ADOQueryF1.SQL.Add('SELECT *');

DataModule2.ADOQueryF1.SQL.Add('FROM tab1');

DataModule2.ADOQueryF1.SQL.Add('WHERE nazprep like ''%'+FindEdit.Text+'%''');

DataModule2.ADOQueryF1.Active:=true;

Form5.ShowModal;

FindBox.ItemIndex:=0;

FindEdit.Clear;

end;

end;

end;

procedure TForm3.FindBoxChange(Sender: TObject);

begin

Case FindBox.ItemIndex of

1 : FindEdit.SetFocus;

0 : FindEdit.SetFocus;

end;

end;

procedure TForm3.FormCreate(Sender: TObject);

begin

RvProject1.SelectReport('Report1',true);

RvProject1.Open;

end;

procedure TForm3.N3Click(Sender: TObject);

var

k:integer;

begin

k:=MessageDlg('Вы действительно хотите выйти?',mtConfirmation,

[mbYes,mbNo],0);

if k=6 then

begin

Form1.Close;

Form3.Close;

end

else Form3.SetFocus;

end;

procedure TForm3.Button1Click(Sender: TObject);

begin

DataModule2.ADOTable1.Insert;

Form4.ShowModal;

end;

procedure TForm3.N8Click(Sender: TObject);

begin

DataModule2.ADOTable1.Sort:='fioprep ASC';

end;

procedure TForm3.N9Click(Sender: TObject);

begin

DataModule2.ADOTable1.Sort:='nazprep ASC';

end;

end.

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

...