Базы данных в Delphi

Начало
Инициализация окна приложения
Ввод данных в программу
Обработка данных
Выявление лучшей группы
Если дата обновления БД, позднее установленного – открытие окна редактирования БД
Выход из программы

2.3. Листинг программы

Текст программы приводится в Приложении 1

В программе использованы два Unit

Unit1 – определение лучшей группы

Unit2 – редактирование БД

2.4. Описание процесса отладки программы

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

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

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

ЗАКЛЮЧЕНИЕ

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

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

1. Delphi 5.0, учебный курс, Фараонов В.В., ISBN 5-8952-020-4, 400 с.

Большая Советская Энциклопедия

5. Сайт ссылка скрыта
Приложение 1. Листинг программы

Часть 1. Вычисление и вывод лучшей группы:

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;

         table2.Filter:='sessia=1';

         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.

Часть 2. Заполнение базы данных.

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.

Blog

Базы данных в Delphi

СОДЕРЖАНИЕ

1.1. Цель разработки

1.2. Анализ разработки

2.1.1. Назначение задачи

2.1.2. Технико-математическая формулировка задачи

2.1.3 Требования к программе

2.1.3.1. Требования к функциональным характеристикам

Структурная схема

2.1.3.2. Требования к надежности

2.2. Описание алгоритма

2.3. Листинг программы

2.4. Описание процесса отладки программы

Часть 1. Вычисление и вывод лучшей группы:

Часть 2. Заполнение базы данных.