Главная База знаний "Allbest" Программирование, компьютеры и кибернетика Базы данных

Базы данных

Словесное описание предметной области. Построение схемы функциональных зависимостей. Реализация базы данных средствами утилиты Enterprise Manager в формате SQL Server Management Studio. Разработка алгоритмов работы программы и приложения пользователя.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык русский
Дата добавления 26.03.2015
Размер файла 1,8 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

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

Страница:

frxReport1.Variables['pyat']:=FloatToStr(ot);

frxReport1.Variables['chet']:=FloatToStr(xo);

frxReport1.Variables['tri']:=FloatToStr(ud);

frxReport1.Variables['dva']:=FloatToStr(pl);

frxReport1.PrepareReport;

frxReport1.ShowPreparedReport;

end;

procedure TForm10.Button3Click(Sender: TObject);

var

p,ch,tr,dva,vsego:integer;

ot,xo,ud,pl:real;

begin

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('Select AVG (Ocenka.Ocenka),Ocenka.id_student');

ADOQuery2.SQL.Add('From Ocenka INNER JOIN Student ON Ocenka.id_student = Student.id_student');

ADOQuery2.SQL.Add('WHERE ((Id_gruppi = '+ IntToStr(DBLookupComboBox1.KeyValue)+') AND (Data BETWEEN :ff AND :ll))');

ADOQuery2.SQL.Add(' GROUP BY Ocenka.id_student');

ADOQuery2.SQL.Add(' HAVING AVG (Ocenka.Ocenka) = 2' );

ADOQuery2.Parameters.ParamByName('ff').Value:=DateToStr( DateTimePicker3.Date);

ADOQuery2.Parameters.ParamByName('ll').Value:=DateToStr(DateTimePicker4.Date);

ADOQuery2.Open;

if ADOQuery2.RecordCount>0 then

dva:= ADOQuery2.RecordCount

else

dva:=0 ;

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('Select AVG (Ocenka.Ocenka),Ocenka.id_student');

ADOQuery2.SQL.Add('From Ocenka INNER JOIN Student ON Ocenka.id_student = Student.id_student');

ADOQuery2.SQL.Add('WHERE ((Id_gruppi = '+ IntToStr(DBLookupComboBox1.KeyValue)+') AND (Data BETWEEN :ff AND :ll))');

ADOQuery2.SQL.Add(' GROUP BY Ocenka.id_student');

ADOQuery2.SQL.Add(' HAVING AVG(Ocenka.Ocenka)=3 OR AVG(Ocenka.Ocenka)=4 OR AVG(Ocenka.Ocenka)=5');

ADOQuery2.Parameters.ParamByName('ff').Value:=DateToStr( DateTimePicker3.Date);

ADOQuery2.Parameters.ParamByName('ll').Value:=DateToStr(DateTimePicker4.Date);

ADOQuery2.Open;

if ADOQuery2.RecordCount>0 then

tr:= ADOQuery2.RecordCount

else

tr:=0 ;

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('Select AVG (Ocenka.Ocenka),Ocenka.id_student');

ADOQuery2.SQL.Add('From Ocenka INNER JOIN Student ON Ocenka.id_student = Student.id_student');

ADOQuery2.SQL.Add('WHERE ((Id_gruppi = '+ IntToStr(DBLookupComboBox1.KeyValue)+') AND (Data BETWEEN :ff AND :ll))');

ADOQuery2.SQL.Add(' GROUP BY Ocenka.id_student');

ADOQuery2.SQL.Add(' HAVING (AVG (Ocenka.Ocenka) = 4 OR AVG (Ocenka.Ocenka) =5)');

ADOQuery2.Parameters.ParamByName('ff').Value:=DateToStr( DateTimePicker3.Date);

ADOQuery2.Parameters.ParamByName('ll').Value:=DateToStr(DateTimePicker4.Date);

ADOQuery2.Open;

if ADOQuery2.RecordCount>0 then

ch:= ADOQuery2.RecordCount

Приложение Б

(продолжение)

else

ch:=0 ;

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('Select AVG (Ocenka.Ocenka),Ocenka.id_student');

ADOQuery2.SQL.Add('From Ocenka INNER JOIN Student ON Ocenka.id_student = Student.id_student');

ADOQuery2.SQL.Add('WHERE ((Id_gruppi = '+ IntToStr(DBLookupComboBox1.KeyValue)+') AND (Data BETWEEN :ff AND :ll))');

ADOQuery2.SQL.Add(' GROUP BY Ocenka.id_student');

ADOQuery2.SQL.Add('HAVING AVG (Ocenka.Ocenka) = 5 ');

ADOQuery2.Parameters.ParamByName('ff').Value:=DateToStr( DateTimePicker3.Date);

ADOQuery2.Parameters.ParamByName('ll').Value:=DateToStr(DateTimePicker4.Date);

ADOQuery2.Open;

if ADOQuery2.RecordCount>0 then

p:= ADOQuery2.RecordCount

else

p:=0 ;

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('Select AVG (Ocenka.Ocenka),Ocenka.id_student');

ADOQuery2.SQL.Add('From Ocenka INNER JOIN Student ON Ocenka.id_student = Student.id_student');

ADOQuery2.SQL.Add('WHERE ((Id_gruppi = '+ IntToStr(DBLookupComboBox1.KeyValue)+') AND (Data BETWEEN :ff AND :ll))');

ADOQuery2.SQL.Add(' GROUP BY Ocenka.id_student');

ADOQuery2.Parameters.ParamByName('ff').Value:=DateToStr( DateTimePicker3.Date);

ADOQuery2.Parameters.ParamByName('ll').Value:=DateToStr(DateTimePicker4.Date);

ADOQuery2.Open;

if ADOQuery2.RecordCount>0 then

vsego:= ADOQuery2.RecordCount

else

vsego:=0;

ot:=(p*100);

xo:=(ch*100);

ud:=(tr*100);

pl:=(dva*100);

frxReport1.Variables['pred']:=QuotedStr('Успеваемость студентов группы '+DBLookupComboBox1.Text);

frxReport1.Variables['pyat']:=FloatToStr(ot);

frxReport1.Variables['chet']:=FloatToStr(xo);

frxReport1.Variables['tri']:=FloatToStr(ud);

frxReport1.Variables['dva']:=FloatToStr(pl);

frxReport1.PrepareReport;

frxReport1.ShowPreparedReport;

end;

procedure TForm10.Button4Click(Sender: TObject);

var

p,ch,tr,dva,vsego:integer;

ot,xo,ud,pl:real;

begin

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('Select AVG (Ocenka),Ocenka.id_student');

ADOQuery2.SQL.Add('From Ocenka');

ADOQuery2.SQL.Add('WHERE Data BETWEEN :ff AND :ll');

ADOQuery2.SQL.Add(' GROUP BY id_student');

ADOQuery2.SQL.Add(' HAVING AVG (Ocenka) = 2' );

ADOQuery2.Parameters.ParamByName('ff').Value:=DateToStr( DateTimePicker5.Date);

ADOQuery2.Parameters.ParamByName('ll').Value:=DateToStr(DateTimePicker6.Date);

ADOQuery2.Open;

if ADOQuery2.RecordCount>0 then

dva:= ADOQuery2.RecordCount

else

dva:=0 ;

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('Select AVG (Ocenka),Ocenka.id_student');

ADOQuery2.SQL.Add('From Ocenka');

ADOQuery2.SQL.Add('WHERE Data BETWEEN :ff AND :ll');

ADOQuery2.SQL.Add(' GROUP BY id_student');

ADOQuery2.SQL.Add(' HAVING AVG(Ocenka)=3 OR AVG(Ocenka)=4 OR AVG(Ocenka)=5');

ADOQuery2.Parameters.ParamByName('ff').Value:=DateToStr( DateTimePicker5.Date);

ADOQuery2.Parameters.ParamByName('ll').Value:=DateToStr(DateTimePicker6.Date);

ADOQuery2.Open;

if ADOQuery2.RecordCount>0 then

tr:= ADOQuery2.RecordCount

else

tr:=0 ;

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('Select AVG (Ocenka),Ocenka.id_student');

ADOQuery2.SQL.Add('From Ocenka');

ADOQuery2.SQL.Add('WHERE Data BETWEEN :ff AND :ll');

ADOQuery2.SQL.Add(' GROUP BY id_student');

ADOQuery2.SQL.Add(' HAVING (AVG (Ocenka) = 4 OR AVG (Ocenka) =5)');

ADOQuery2.Parameters.ParamByName('ff').Value:=DateToStr( DateTimePicker5.Date);

ADOQuery2.Parameters.ParamByName('ll').Value:=DateToStr(DateTimePicker6.Date);

ADOQuery2.Open;

if ADOQuery2.RecordCount>0 then

ch:= ADOQuery2.RecordCount

else

ch:=0 ;

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('Select AVG (Ocenka),Ocenka.id_student');

ADOQuery2.SQL.Add('From Ocenka');

ADOQuery2.SQL.Add('WHERE Data BETWEEN :ff AND :ll');

ADOQuery2.SQL.Add(' GROUP BY id_student');

ADOQuery2.SQL.Add('HAVING AVG (Ocenka) = 5 ');

ADOQuery2.Parameters.ParamByName('ff').Value:=DateToStr( DateTimePicker5.Date);

ADOQuery2.Parameters.ParamByName('ll').Value:=DateToStr(DateTimePicker6.Date);

ADOQuery2.Open;

if ADOQuery2.RecordCount>0 then

p:= ADOQuery2.RecordCount

else

p:=0 ;

ADOQuery2.Close;

ADOQuery2.SQL.Clear;

ADOQuery2.SQL.Add('Select AVG (Ocenka),Ocenka.id_student');

ADOQuery2.SQL.Add('From Ocenka');

ADOQuery2.SQL.Add('WHERE Data BETWEEN :ff AND :ll');

ADOQuery2.SQL.Add(' GROUP BY id_student');

ADOQuery2.Parameters.ParamByName('ff').Value:=DateToStr( DateTimePicker5.Date);

ADOQuery2.Parameters.ParamByName('ll').Value:=DateToStr(DateTimePicker6.Date);

ADOQuery2.Open;

if ADOQuery2.RecordCount>0 then

vsego:= ADOQuery2.RecordCount

else

vsego:=0;

if p>0 then

ot:=(p*100)/vsego;

if ch>0 then

xo:=(ch*100)/vsego;

if tr>0 then

ud:=(tr*100)/vsego;

if dva>0 then

pl:=(dva*100)/vsego;

frxReport1.Variables['pred']:=QuotedStr('Успеваемость в деканате');

frxReport1.Variables['pyat']:=FloatToStr(ot);

frxReport1.Variables['chet']:=FloatToStr(xo);

frxReport1.Variables['tri']:=FloatToStr(ud);

frxReport1.Variables['dva']:=FloatToStr(pl);

frxReport1.PrepareReport;

frxReport1.ShowPreparedReport;

end;

end.

Форма "Должности"

unit Dolzh;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.DBCtrls, Vcl.Grids,

Vcl.DBGrids;

type

TForm13 = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

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

private

{ Private declarations }

public

{ Public declarations }

end; var

Form13: TForm13;

implementation

{$R *.dfm}

uses Data, Main;

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

begin

Form1.Show;

end; end.

Форма "Дата"

unit Data;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDataModule1 = class(TDataModule)

ADOConnection1: TADOConnection;

Gruppa: TADOTable;

Predmet: TADOTable;

Spec: TADOTable;

Student: TADOTable;

Ocenka: TADOTable;

DGruppa: TDataSource;

DPredmet: TDataSource;

DSpec: TDataSource;

DStudent: TDataSource;

DOcenka: TDataSource;

Studentid_student: TIntegerField;

StudentFamailiya: TStringField;

StudentImya: TStringField;

StudentOtchestvo: TStringField;

StudentData_r: TDateTimeField;

StudentId_gruppi: TIntegerField;

StudentPol: TStringField;

StudentGr: TStringField;

Ocenkaid_zapisi: TIntegerField;

OcenkaOcenka: TIntegerField;

Ocenkaid_student: TIntegerField;

Ocenkaid_predmeta: TIntegerField;

OcenkaData: TDateTimeField;

OcenkaStud: TStringField;

OcenkaDisci: TStringField;

Predmetid_predmeta: TAutoIncField;

PredmetNazvanie: TStringField;

PredmetPrepodavatel: TIntegerField;

Kafedra: TADOTable;

Dolzhnost: TADOTable;

DKafedra: TDataSource;

DDolzhnost: TDataSource;

Prepodavatel: TADOTable;

DPrepodavatel: TDataSource;

StudentKurs: TIntegerField;

Prepodavatelid_Prepod: TAutoIncField;

PrepodavatelFIO: TStringField;

PrepodavatelTelephone: TStringField;

Prepodavatelid_dolzhnost: TIntegerField;

Prepodavatelid_stepen: TIntegerField;

Prepodavatelid_kafedri: TIntegerField;

PrepodavatelDol: TStringField;

PrepodavatelStepen: TStringField;

PrepodavatelKafedri: TStringField;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DataModule1: TDataModule1;

implementation

{$R *.dfm}

end.

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

Страница:


Подобные документы

  • Разработка и сопровождение базы данных в среде SQL Server 2000

    Концептуальное проектирование базы данных: разработка схемы и структуры таблиц, описание атрибутов. Реализация базы данных в среде СУБД MS SQL Server 2000. Основные принципы создания таблиц. Доступ и обработка данных с помощью утилиты Enterprise Manager.

    курсовая работа [3,8 M], добавлен 22.01.2013

  • Программа "Студенческое общежитие"

    Системный анализ предметной области. Разработка концептуальной модели базы данных. Построение схемы функциональных зависимостей. Создание таблиц базы данных в Database Desktop и псевдонима в BDE Administrator. Разработка алгоритма работы программы.

    курсовая работа [911,3 K], добавлен 20.12.2014

  • Проектирование базы данных для автоматизации контроля сессионной успеваемости студентов ВУЗа и составления приложения к диплому

    Выбор методологии проектирования и системы управления базами данных. Описание предметной области и проектирование физической структуры базы данных. Реализация проекта в MS SQL Server 2008. Построение инфологической модели. Ограничения целостности связи.

    курсовая работа [679,2 K], добавлен 22.01.2013

  • Разработка базы данных для администрации спортивного комплекса "Маяк"

    Разработка базы данных с целью автоматизации процессов составления, ведения и распространения информации об расписании занятий в спортивном комплексе "Маяк". Анализ предметной области. Разработка алгоритмов работы программы и приложения пользователя.

    дипломная работа [1,0 M], добавлен 12.07.2015

  • Разработка базы данных предметной области

    Информационно-логическая модель предметной области по нотациям Ричарда Баркера. Даталогическая модель реляционной базы данных в виде диаграммы схемы отношений. Приложение интерфейса для базы данных на языке программирования С# в среде Visual Studio.

    курсовая работа [3,6 M], добавлен 23.12.2014

  • Разработка базы данных "Служба АТС"

    Освоение сервисной системы управления базами данных Microsoft SQL. Разработка базы данных "Служба АТС" в среде Microsoft SQL Server Management Studio и создание запросов на языке SQL. Апробация инфологической модели "сущность - связь" базы данных.

    курсовая работа [2,9 M], добавлен 29.06.2015

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

    Описание предметной области, определение функциональных требований к системе и построение диаграммы потока данных. Построение модели "сущность-связь", описание сущностей и атрибутов модели. Построение реляционной базы данных и описание ее таблицы.

    курсовая работа [624,5 K], добавлен 30.05.2019

  • Разработка базы данных по предметной области "Столовая гимназии №8"

    Описание первичных и результатных документов, типа связи информационных объектов. Построение информационно-логической модели базы данных и её реализация в СУБД Access (создание таблиц, запросов, форм, отчётов). Разработка интерфейса пользователя.

    курсовая работа [2,1 M], добавлен 14.11.2013

  • Проектирование базы данных "Аэропорт"

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

    курсовая работа [2,1 M], добавлен 15.06.2014

  • Графические редакторы (пакеты трехмерного моделирования)

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

    курсовая работа [190,8 K], добавлен 12.05.2009

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2025, ООО «Олбест» Все наилучшее для вас