TYPE
|
STANDARD
|
DEFAULT DRIVER
|
PARADOX
|
ENABLE BCD
|
FALSE
|
PATH
|
c:\users\data
|
SQL-сервер InterBase и другие типы баз данных требуют
задания большого количества параметров, многие из которых можно оставить
установленными по умолчанию.
Системная
информация утилиты настройки BDE
Итак, мы познакомились с наиболее важной возможностью
утилиты настройки BDE - созданием и редактированием алиасов, определяющих параметры
доступа к базам данных. Однако, утилита настройки BDE позволяет специфицировать
не только алиасы, но и драйверы для доступа к базам данных, а также различную
системную информацию, составляющую операционное окружение этих самых алиасов.
Рассмотрим, например, системную информацию драйвера
PARADOX:
NET DIR. Параметр содержит расположение каталога
сетевого управляющего файла. Он нужен для того, чтобы обратиться к таблице
PARADOX на сетевом диске.
VERSION. Номер версии драйвера.
TYPE. Тип драйвера.
LANGDRIVER. Языковой драйвер, определяющий множество
допустимых символов.
BLOCK SIZE. Размер блока на диске, используемого для
запоминания одной записи.
FILL FACTOR. Содержит процент от блока на текущем
диске. Параметр нужен для создания индексных файлов.
LEVEL. Параметр определяет тип формата таблицы,
используемой для создания временных таблиц.
STRICTINTEGRTY. Параметр использования ссылочной
целостности. Если он равен TRUE, то вы не можете изменить таблицу с ссылочной
целостностью, а если FALSE, то можете, но рискуете нарушить целостность данных.
Как уже отмечалось выше, утилита настройки
BDE сохраняет всю конфигурационную информацию в файле IDAPI.CFG. Этот файл с
предустановленными ссылками на драйверы и некоторыми стандартными алиасами создается
при установке Delphi. Кроме того, он создается при установке файлов
редистрибуции BDE (т.е. когда Вы переносите BDE и SQL Links на другие компьютеры).
(1)
Целью создания
данного программного продукта является выявление лучшей группы колледжа по
оценкам аттестационной или экзаменационной сессии.
Данная программа
универсальна, так как может применяться в любом среднем специальном или высшем учебном
заведении. Программа работает с Базами данных и вероятность ошибки в ней
практически исключена.
Написать на языке
программирования Delphi программу, определяющую лучшую группу
колледжа по оценкам аттестационной и экзаменационной сессии.
Задача разработана в
соответствии с ГОСТом 19.201-78 (ст. СЭВ 1627-79).
Определение
лучшей группы колледжа путем вычисления среднего арифметического оценок по
каждой группе и сравнение полученного результата с результатами остальных
групп.
Входными данными в этой программе являются базы
данных
stud.db с полями:
§
Zachetka –номера зачетки
§
Student – данные о студенте
§
Kurs – Курс
sessia.db с полями:
§
Zachetka – номер зачетки
§
Kodpr – код предмета
§
Sessia – Тип сессии
§
Ocenka – оценка
§
predmet.db с полями:
§
kodpr – код премета
§
predmet – название предмета
созданные с помощью компонента для работы с базами
данных Borland Delphi
Database Desktop. Для создания использовался драйвер баз данных Paradox 7.0. Для администрирования этих баз
данных, в Borland Delphi
Administrator был создан Alias (Псевдоним) kurs.
Выходными данными
является название лучшей группы. Лучшая группа определяется следующим образом:
По полям базы данных
формируется массив оценок одной группы, затем программа считает среднее
арифметическое и сохраняет результат в массив с именами групп. После
прохождения программой всех групп элементы массива с названиями групп сравниваются,
группа имеющая наиболее высокий показатель считается лучшей группой.
Лучшая группа колледжа вычисляется по среднему
арифметическому.
Арифметическое среднее, число ( ), получаемое делением суммы нескольких
чисел (a1, a2, ..., an) на их число (n):
Например, А. с. чисел 3, 5, 7 равно (3 + 5 + 7)/3 = 5.
(2)
Арифметическое среднее, нескольких величин равны их
сумме, деленной на их число. Если n измерений или наблюдений, одинаково
заслуживающих доверия, дают n значений, a1, a2.-то вероятнейшее значение
измеряемой величины есть А. среднее чисел a.
(3)
Рис. 3. Общий вид окна
вычисления
Рис. 4. Общий вид окна
редактирования БД
начало
ввод
данных
вычисление
среднего
арифметического
ЦИКЛ
Сравнение
Лучшая
группа
Конец
1.
Начало программы;
2.
Просмотр очередного поля
БД;
3.
Вычисление среднего
арифметического по оценкам каждой группы
4.
Цикл от 1 до количества
групп
5.
Сравнение резултатов групп
6.
Выявление лучшей группы
7.
Выход из программы
Созданная
программа должна обеспечить вычисление и вывод лучшей группы колледжа.
Управляющая программа
Вычисление и вывод
лучшей Редактирование базы данных
группы колледжа
Надежность программы
зависит от работы всей системы и от условий ее хранения. Если программа
записана гибком магнитном диске, то ее надежность зависит от правильного
хранения дискеты. В этом случае рекомендуется создать копию дискеты.
В качестве
постоянного хранения программы следует использовать жесткий магнитный диск, а
для распространения программы, установку программы лучше записывать на CD-ROM.
2.1.3.3. требования к
составу и параметрам технических средств
Для работы данной
программы используется ПК имеющий следующий характеристики:
§
Процессор не ниже Pentium
100
§
Емкость ОЗУ не ниже 64 МБ
§
Разрядность 32 бит
§
Жесткий магнитный диск
§
Диск 3,5
§
CD-ROM
1.
Начало
2.
Инициализация окна приложения
3.
Ввод данных в программу
4.
Обработка данных
5.
Выявление лучшей группы
6.
Если дата обновления БД,
позднее установленного – открытие окна редактирования БД
7.
Выход из программы
Текст программы
приводится в Приложении 1
В программе использованы
два Unit
Unit1 – определение лучшей группы
Unit2 – редактирование БД
В результате
тестового запуска программы не наблюдалось никаких ошибок и сбоев. Программа
работает корректно и полностью отвечает поставленной задаче.
Для запуска программы
необходимо из меню «Пуск», раздел «Программы», выбрать «Колледж», «Колледж».
После запуска
программы, если дата не просрочена, запускается окно приложения, с помощью
которого можно получить результат о лучшей группе, иначе выводится окно
приложения редактирования базы данных.
Данный курсовой
проект является актуальным и отвечает предъявленым к нему требованиям. Была разработана и написана, на языке
программирования высокого уровня Borland Delphi 5.0, с использованием баз данных, программа,
позволяющая определить лучшую группу колледжа по среднему баллу аттестационной
и экзаменационной сессии.
2.
Большая Советская
Энциклопедия
3.
Малый
энциклопедический словарь Брокгауза и Ефрона
4.
Delhphi 4.0, Дарахвелидзе П.Г., Марков Е. П. 1998, 816 с.
unit Unit1;
interface
uses
Windows, Messages, SysUtils,
Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Grids, DBGrids, Db,
DBTables;
type
TForm1 = class(TForm)
Table1: TTable;
DataSource1: TDataSource;
Table2: TTable;
DataSource2: TDataSource;
DBGrid1: TDBGrid;
DBGrid2: TDBGrid;
Button1: TButton;
Label2: TLabel;
procedure Button1Click(Sender:
TObject);
procedure Button2Click(Sender:
TObject);
procedure FormShow(Sender:
TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses Unit2;
{$R *.DFM}
procedure
TForm1.Button1Click(Sender: TObject);
var
t, i, k, j, f: integer;
tmp: string;
gr: array of string;
tt: array [1..5, 1..5] of
extended;
begin
table2.moveby(1);
i:=1;
for i:=1 to 3 do //3 это кол-во курсов
begin
for j:=1 to 2 do //2 кол-во групп на курсе
begin
table1.Filtered:=true;
tmp:tmp+gr[j];
table1.Filter:='kurs=1 and
grup='+ tmp;
table2.Filtered:=true;
k:=table2.RecordCount;
t:=0;
table2.moveby(1);
for f:=1 to k do
begin
t:=t+table2.fieldbyname('ocenka').value;
table2.next;
end;
tt[1, 1]:=t/k;
//table1.Filtered:=false;
end;
end;
label1.caption:=(inttostr(t));
end;
procedure
TForm1.Button2Click(Sender: TObject);
var
i:integer;
sum:extended;
begin
table2.filter:='grup=2';
for i:=1 to Table2.recordcount do
begin
Table2.moveby(i);
sum:=sum + strtoint(Table2.Fieldbyname('ocenka').value);
end;
sum:=sum/Table2.recordcount;
//abel1.caption:=floattostr(sum)+
label1.caption;
end;
procedure TForm1.FormShow(Sender:
TObject);
begin
Form2.show;
end;
end.
unit Unit2;
interface
uses
Windows, Messages, SysUtils,
Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit5: TEdit;
Button1: TButton;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.DFM}
end.