Приложение А

Схема данных







Приложение Б

Схема работы программы








Приложение В

Текст программы




a.pas

unit a;
interface
uses

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

  Grids, DBGrids, ExtCtrls, Db, DBTables, DBCtrls, StdCtrls;
type

  Ta_f = class(TForm)

    Panel2: TPanel;

    Panel3: TPanel;

    DBGrid1: TDBGrid;

    DBGrid2: TDBGrid;

    DBNavigator1: TDBNavigator;

    Label1: TLabel;

    Panel1: TPanel;

    DBNavigator2: TDBNavigator;

    DBLookupComboBox1: TDBLookupComboBox;

    RadioGroup1: TRadioGroup;

    Label2: TLabel;

    Edit1: TEdit;

    Label3: TLabel;

    Edit2: TEdit;

    Label4: TLabel;

    DBGrid3: TDBGrid;

    Label5: TLabel;

    Label6: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Button1: TButton;

    Label7: TLabel;

    procedure DBLookupComboBox1Enter(Sender: TObject);

    procedure DBLookupComboBox1CloseUp(Sender: TObject);

    procedure Label4Click(Sender: TObject);

    procedure DBGrid2TitleClick(Column: TColumn);

    procedure Label3Click(Sender: TObject);

    procedure Label6Click(Sender: TObject);

    procedure Label8Click(Sender: TObject);

    procedure Label9Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Label7Click(Sender: TObject);

    procedure FormPaint(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  a_f: Ta_f;
implementation
uses a_r, dm_u, a_r2, a_about;
{$R *.DFM}
procedure Ta_f.DBLookupComboBox1Enter(Sender: TObject);

begin

  dm.Table2.MasterSource:=Nil;

  dm.Table2.MasterFields:='';

  dm.Table2.IndexName:='';

end;
procedure Ta_f.DBLookupComboBox1CloseUp(Sender: TObject);

begin

  dm.Table2.MasterSource:=dm.DataSource1;

  dm.Table2.MasterFields:='S_id';

  dm.Table2.IndexName:='a_index';

end;
procedure Ta_f.Label4Click(Sender: TObject);

var

  filter: string;

begin

  if Edit1.Text=''

  then

  begin

    ShowMessage('Не указано условие фильтрации!');

    dm.Table2.Filtered:=False;

    Edit1.SetFocus;

    Exit;

  end;

  if RadioGroup1.ItemIndex=0

  then

    filter:='A_surname';

  if RadioGroup1.ItemIndex=1

  then

    filter:='A_physic';

  try

    dm.Table2.Filter:=filter+Edit1.Text;

    dm.Table2.Filtered:=True;

  except

    ShowMessage('Неправильное использование фильтра!');

    Edit1.SetFocus;

    Edit1.Text:='';

    Exit;

  end;

end;
procedure Ta_f.DBGrid2TitleClick(Column: TColumn);

begin

  try

    if column.FieldName='A_surname'

    then

    begin

      dm.Query1.Close;

      dm.Query1.SQL.Clear;

      dm.Query1.SQL.add('select A_surname,A_math,A_physic,A_composition from "abiturients.db" order by A_surname asc');

      dm.Query1.Open;

    end;

    if column.FieldName='A_math'

    then

    begin

      dm.Query1.Close;

      dm.Query1.SQL.Clear;

      dm.Query1.SQL.add('select A_math,A_surname,A_physic,A_composition from "abiturients.db" order by A_math desc');

      dm.Query1.Open;

    end;

    if column.FieldName='A_physic'

    then

    begin

      dm.Query1.Close;

      dm.Query1.SQL.Clear;

      dm.Query1.SQL.add('select A_physic,A_surname,A_math,A_composition from "abiturients.db" order by A_physic desc');

      dm.Query1.Open;

    end;

    if column.FieldName='A_composition'

    then

    begin

      dm.Query1.Close;

      dm.Query1.SQL.Clear;

      dm.Query1.SQL.add('select A_composition,A_surname,A_math,A_physic from "abiturients.db" order by A_composition desc');

      dm.Query1.Open;

    end;

  except

    ShowMessage('Не получилось выполнить SQL запрос!');

  end;

end;
procedure Ta_f.Label3Click(Sender: TObject);

begin

  try

    dm.Query1.Close;

    dm.Query1.SQL.Clear;

    dm.Query1.SQL.Add(Edit2.Text);

    dm.Query1.Open;

  except

    ShowMessage('Не получилось выполнить SQL запрос!');

  end;

end;
procedure Ta_f.Label6Click(Sender: TObject);

begin

  a_r_f.Query1.Active:=False;

  a_r_f.Query1.Active:=True;

  a_r_f.report1.Preview;

end;
procedure Ta_f.Label8Click(Sender: TObject);

begin

  if dm.Table1.Modified

  then

    dm.Table1.Post;

  if dm.Table2.Modified

  then

    dm.Table2.Post;

  Close;

end;
procedure Ta_f.Label9Click(Sender: TObject);

begin

  a_r2_f.Query1.Active:=False;

  a_r2_f.Query1.Active:=True;

  a_r2_f.QuickRep1.Preview;

end;
procedure Ta_f.Button1Click(Sender: TObject);

begin

  try

    dm.Query1.Close;

    dm.Query1.SQL.Clear;

    dm.Query1.SQL.Add('select s.s_code, count (a.a_id) total from abiturients a, specialities s where a.a_s_id=s.s_id group by s.s_id,s_code');

    dm.Query1.Open;

  except

    ShowMessage('Не получилось выполнить SQL запрос!');

  end;

end;
procedure Ta_f.Label7Click(Sender: TObject);

begin

  AboutBox.ShowModal;

end;
procedure Ta_f.FormPaint(Sender: TObject);

begin

  dm.Table2.MasterSource:=dm.DataSource1;

  dm.Table2.MasterFields:='S_id';

  dm.Table2.IndexName:='a_index';

end;
end.
a_about.pas

unit a_about;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,

  Buttons, ExtCtrls;
type

  TAboutBox = class(TForm)

    Panel1: TPanel;

    ProgramIcon: TImage;

    ProductName: TLabel;

    Version: TLabel;

    Copyright: TLabel;

    Comments: TLabel;

    OKButton: TButton;

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  AboutBox: TAboutBox;
implementation
{$R *.DFM}
end.
a_r.pas

unit a_r;
interface
uses

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

  ExtCtrls, QuickRpt, Qrctrls, Db, DBTables, TeEngine, Series, TeeProcs,

  Chart, DBChart, QrTee;
type

  Ta_r_f = class(TForm)

    report1: TQuickRep;

    Table1: TTable;

    DataSource1: TDataSource;

    DataSource2: TDataSource;

    Table2: TTable;

    DetailBand1: TQRBand;

    QRSubDetail1: TQRSubDetail;

    QRLabel5: TQRLabel;

    TitleBand1: TQRBand;

    QRLabel10: TQRLabel;

    ColumnHeaderBand1: TQRBand;

    QRGroup1: TQRGroup;

    QRLabel1: TQRLabel;

    QRLabel2: TQRLabel;

    QRLabel3: TQRLabel;

    QRLabel11: TQRLabel;

    QRLabel12: TQRLabel;

    QRShape2: TQRShape;

    QRDBText4: TQRDBText;

    QRDBText5: TQRDBText;

    QRDBText6: TQRDBText;

    QRDBText7: TQRDBText;

    QRExpr1: TQRExpr;

    QRLabel4: TQRLabel;

    QRDBText1: TQRDBText;

    QRBand1: TQRBand;

    QRExpr2: TQRExpr;

    QRLabel6: TQRLabel;

    Query1: TQuery;

    DataSource3: TDataSource;

    QRChart1: TQRChart;

    QRDBChart1: TQRDBChart;

    Series1: TPieSeries;

    procedure FormCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  a_r_f: Ta_r_f;
implementation
uses dm_u;
{$R *.DFM}
procedure Ta_r_f.FormCreate(Sender: TObject);

var

  DBPath: String;     {путь к базе данных}

begin

  if Table1.Active=true

  then

    Table1.Active:=false;

  if Table2.Active=true

  then

    Table2.Active:=false;

  if Query1.Active=True

  then

    Query1.Active:=False;

  DBPath:=ExtractFilePath(Application.ExeName)+'db'; //определение пути к БД

  Query1.DatabaseName:=DBPath;

  Table1.DatabaseName:=DBPath;

  Table1.Open;

  Table2.DatabaseName:=DBPath;

  Table2.Open;

  Query1.Active:=True;

end;
end.
a_r2.pas

unit a_r2;
interface
uses

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

  Db, DBTables, ExtCtrls, QuickRpt, Qrctrls, TeEngine, Series, TeeProcs,

  Chart, DBChart, QrTee;
type

  Ta_r2_f = class(TForm)

    QuickRep1: TQuickRep;

    DataSource1: TDataSource;

    Query1: TQuery;

    QRBand1: TQRBand;

    QRLabel1: TQRLabel;

    QRBand2: TQRBand;

    QRGroup1: TQRGroup;

    QRLabel2: TQRLabel;

    QRLabel3: TQRLabel;

    QRLabel4: TQRLabel;

    QRDBText1: TQRDBText;

    QRBand3: TQRBand;

    QRLabel5: TQRLabel;

    QRDBText4: TQRDBText;

    QRShape1: TQRShape;

    QRDBText2: TQRDBText;

    QRDBText3: TQRDBText;

    QRBand4: TQRBand;

    QRExpr1: TQRExpr;

    QRChart1: TQRChart;

    QRDBChart1: TQRDBChart;

    Series1: TPieSeries;

    procedure QuickRep1StartPage(Sender: TCustomQuickRep);

    procedure FormCreate(Sender: TObject);
  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  a_r2_f: Ta_r2_f;
implementation
{$R *.DFM}
procedure Ta_r2_f.QuickRep1StartPage(Sender: TCustomQuickRep);

begin

  QRDBChart1.CheckDatasource(Series1);

end;
procedure Ta_r2_f.FormCreate(Sender: TObject);

var

  DBPath: String;     {путь к базе данных}

begin

  if Query1.Active=True

  then

    Query1.Active:=False;

  DBPath:=ExtractFilePath(Application.ExeName)+'db'; //определение пути к БД

  Query1.DatabaseName:=DBPath;

end;
end.
dm_u.pas

unit dm_u;
interface
uses

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

  Db, DBTables;
type

  Tdm = class(TDataModule)

    Query1: TQuery;

    DataSource3: TDataSource;

    Table2: TTable;

    Table2A_id: TAutoIncField;

    Table2A_surname: TStringField;

    Table2A_math: TSmallintField;

    Table2A_physic: TSmallintField;

    Table2A_composition: TSmallintField;

    Table2A_s_id: TSmallintField;

    Table2sum: TIntegerField;

    DataSource2: TDataSource;

    Table1: TTable;

    DataSource1: TDataSource;

    db: TDatabase;

    procedure Table2CalcFields(DataSet: TDataSet);

    procedure Table2A_mathValidate(Sender: TField);

    procedure Table2A_physicValidate(Sender: TField);

    procedure Table2A_compositionValidate(Sender: TField);

    procedure DataModuleCreate(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  dm: Tdm;
implementation
{$R *.DFM}
procedure Tdm.Table2CalcFields(DataSet: TDataSet);

begin

  dm.Table2sum.Value:=dm.Table2A_math.Value+dm.Table2A_physic.Value+dm.Table2A_composition.Value;

end;
procedure Tdm.Table2A_mathValidate(Sender: TField);

begin

  if (dm.Table2A_math.Value<2) or (dm.Table2A_math.Value>5)

  then

  begin

    ShowMessage('Оценка допустима только от 2 до 5!');

    Abort;

  end;

end;
procedure Tdm.Table2A_physicValidate(Sender: TField);

begin

  if (dm.Table2A_physic.Value<2) or (dm.Table2A_physic.Value>5)

  then

  begin

    ShowMessage('Оценка допустима только от 2 до 5!');

    Abort;

  end;

end;
procedure Tdm.Table2A_compositionValidate(Sender: TField);

begin

  if (dm.Table2A_composition.Value<2) or (dm.Table2A_composition.Value>5)

  then

  begin

    ShowMessage('Оценка допустима только от 2 до 5!');

    Abort;

  end;

end;
procedure Tdm.DataModuleCreate(Sender: TObject);

var

  DBPath: String;     {путь к базе данных}

begin

  with dm do

  begin

    if table1.Active=True

    then

      table1.active:=false;

    if table2.active=true

    then

      table2.active:=false;

  end;

DBPath:=ExtractFilePath(Application.ExeName)+'db'; //определение пути к БД

DM.Table1.DatabaseName:=DBPath;     {указать базу}

DM.Table1.Open;                                   {открыть таблицу}

DM.Table2.DatabaseName:=DBPath;

DM.Table2.Open;

Query1.DatabaseName:=DBPath;

end;
end.




Приложение Г

Примеры экранных форм диаграмм и отчетов




Рисунок Г.1 – Количество абитуриентов по специальностям – отчет и диаграмма


Рисунок Г.2 – Сортировка по сумме баллов – отчет и диаграмма