База данных реализуется в среде  Delphi с применением языка запросов SQL. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

     3. Формы

 

 

Главная, первая форма. 

 

Форма заполнение позволяет добавлять или удалять  студентов, факультеты и специальности. 

 
 

Третья форма  позволяет задать запрос по специальности.

 

 
 
 
 
 
 
 
 
 
 
 

     4.Программный код

 

unit Unit1;

interface 

uses

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

  Dialogs, StdCtrls; 

type

  TForm1 = class(TForm)

    Button1: TButton;

    Label1: TLabel;

    Label2: TLabel;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  Form1: TForm1; 

implementation

uses Unit2, Unit3;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.Show;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form3.show;

end;

end. 

unit Unit2;

interface

uses

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

  Dialogs, ExtCtrls, DBCtrls, DB, DBTables, StdCtrls, Mask, Grids, DBGrids;

type

  TForm2 = class(TForm)

    Table1: TTable;

    DataSource1: TDataSource;

    DBNavigator1: TDBNavigator;

    DBEdit1: TDBEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    DBEdit2: TDBEdit;

    DBEdit3: TDBEdit;

    DBEdit4: TDBEdit;

    DBEdit5: TDBEdit;

    DBEdit6: TDBEdit;

    DBGrid1: TDBGrid;

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

end. 

unit Unit3;

interface

uses

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

  Dialogs, DB, DBTables, Grids, DBGrids, StdCtrls;

type

  TForm3 = class(TForm)

    Button1: TButton;

    DataSource1: TDataSource;

    Table1: TTable;

    Query1: TQuery;

    DBGrid1: TDBGrid;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);

var

    G: string[30];

begin

    G:=InputBox('Выборка  информации из БД',

                  'Укажите группу и щелкните  на OK.', '');

    if G <> '' // пользователь ввел

    then

       begin

         with form3.Query1 do begin

           Close;       // закрыть файл-результат выполнения предыдущего запроса

           SQL.Clear;   // удалить текст предыдущего  запроса

           // записываем новый запрос в  свойство SQL

          SQL.Add('SELECT Familia,Ima,Otchestvo,Curs, Spechialnost, Fakultet');

           SQL.Add('FROM ":моя курсовая:фамилия.db"');

           SQL.Add('WHERE');

           SQL.Add('(Spechialnost = "'+ G + '")');

           SQL.Add('ORDER BY Familia,Ima,Otchestvo,Curs, Spechialnost, Fakultet');

           Open;         // активизируем выполнение запроса

         end; 

            if Query1.RecordCount <> 0 then

              DataSource1.DataSet:=Query1 // отобразить рез-т выполнения запроса

            else begin

              ShowMessage('В БД нет записей, удовлетворяющих  критерию запроса.');

              DataSource1.DataSet:=Table1;

            end;

       end;

end;

end. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

     5. Список  используемой литературы

1. Иллюстрированный самоучитель по Delphi 7 
для начинающих.

             2. Д. Мейер «Теория реляционных  баз данных»

3. К.Дж. Дейт «Введение в систему баз  данных», перевод с английского,       Москва, 2004 г.