Разработка электронной рабочей тетради по дисциплине «Обществознание»

Таблица 2.5.6 Описание свойств полей таблицы «Предмет»

Таблица 2.5.7 Описание свойств полей таблицы «Успеваемость»

Схема данных

Рисунок 2.5.1 – Логическая модель базы данных

2.6 Спецификация программы

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

{************************************************************}

{                                                                                                                        }

{Модуль ERT.pas                                                                                            }

{ 2011  ККИТС                                                                                                }

{Страница функциональности проекта ERT.dpr                                           }

{Разработчик: Рагозина Виктория Владимировна                                      }

{Создан: 29 декабря 2011                                                                              }

{                                                                                                                        }

{************************************************************}

program ERT;

{%File 'Untitled1.html'}

uses

  Forms,

  Unit1 in 'Unit1.pas' {Form1},     //Подключаемые модули

  Unit2 in 'Unit2.pas' {Form2},

  Unit4 in 'Unit4.pas' {Form4},

  Unit3 in 'Unit3.pas' {PasswordDlg},

  Unit5 in 'Unit5.pas' {Form5},

  DM in 'DM.pas' {fDM: TDataModule};

{$R *.res}

begin

  Application.Initialize;

  Application.CreateForm(TForm1, Form1);   //Создание форм

  Application.CreateForm(TForm4, Form4);

  Application.CreateForm(TForm2, Form2);

  Application.CreateForm(TPasswordDlg, PasswordDlg);

  Application.CreateForm(TForm5, Form5);

  Application.CreateForm(TfDM, fDM);

  Application.Run;

end.

{************************************************************}

{                                                                                                                       }

{Модуль DM.pas                                                                                             }

{ 2011  ККИТС                                                                                                }

{Страница функциональности формы fDM                                                  }

{Разработчик: Рагозина Виктория Владимировна                                      }

{Создан: 29 декабря 2011                                                                               }

{                                                                                                                        }

{************************************************************}

unit DM;

interface

uses

  SysUtils, Classes, DB, ADODB, DBClient;                   //Подключаемые модули

type

  TfDM = class(TDataModule)                                        //Объявление класса

    ADOConnection1: TADOConnection;

    TGRUPP: TADOTable;

    TPRED: TADOTable;

    TSPEC: TADOTable;

    TSTUD: TADOTable;

    DSGRUPP: TDataSource;

    DSPREDM: TDataSource;

    DSSPEC: TDataSource;

    DSSTUD: TDataSource;

    TGRUPPNG: TSmallintField;

    TGRUPPKSP: TWideStringField;

    TPREDPNM: TWideStringField;

    TPREDKNM: TWideStringField;

    TSPECKODSP: TWideStringField;

    TSPECNMSP: TWideStringField;

    TSTUDFIOS: TWideStringField;

    TSTUDNS: TAutoIncField;

    TSTUDNG: TSmallintField;

    TKAF: TADOTable;

    DSKAF: TDataSource;

    TKAFKODKF: TSmallintField;

    TKAFNMKF: TWideStringField;

    TPREP: TADOTable;

    TUSP: TADOTable;

    DSPREP: TDataSource;

    DSUSP: TDataSource;

    TPREPFIOP: TWideStringField;

    TPREPKODKF: TSmallintField;

    TUSPDR: TDateTimeField;

    TUSPNR: TWideStringField;

    TUSPKNM: TWideStringField;

    TUSPOZC: TSmallintField;

    TUSPFIOS: TWideStringField;

    TUSPFIOP: TWideStringField;

    TSTGR: TADOTable;

    DSSTGR: TDataSource;

    TSTGRKODSP: TWideStringField;

    TSTGRNG: TSmallintField;

    TSTGRFIOS: TWideStringField;

    TSTGRNMSP: TWideStringField;

  private

    { Private declarations }

  public

  end;

var

  fDM: TfDM;

implementation

uses Unit1, Unit2, Unit3, Unit4, Unit5, Unit6, Unit7;             //Подключаемые модули

{$R *.dfm}

end.

{************************************************************}

{                                                                                                                        }

{Модуль Unit1.pas                                                                                          }

{ 2011  ККИТС                                                                                                }

{Страница функциональности формы Form1                                                }

{Разработчик: Рагозина Виктория Владимировна                                      }

{Создан: 29 декабря 2011                                                                               }

{                                                                                                                        }

{************************************************************}

unit Unit1;

interface

uses

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

  Dialogs, ExtCtrls, StdCtrls, jpeg, Buttons;

type

  TForm1 = class(TForm)

    Image1: TImage;

    Label1: TLabel;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    BitBtn5: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn5Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, DM, Unit6, Unit7;

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);

  begin

     Application.Destroy                                    //Процедура выхода из программы

  end;

procedure TForm1.BitBtn4Click(Sender: TObject);

  begin

     PasswordDlg.showmodal;                             //Процедура открытия формы PasswordDlg