SQL-ЗАПРОСЫ

SELECT

N_FO,

NAZFO

FROM

FORMAOB

SELECT

NSPEC,

SPECNAZ

FROM

SPECIAL

SELECT

NCAF,

NAZKAF,

TELEFON,

FIOCAF

FROM

CAFEDRA

SELECT

NPRED,

PFIO,

NCAF

FROM

PREPOD

SELECT

NSEM,

NAZSEM

FROM

SEMESTR

SELECT

NDISC,

NAZDISC,

NPRED,

VIDATT

FROM

DISCIPLINA

SELECT

NGRUP,

STARFIO,

KOLCHEL,

NSPEC

FROM

GRUPPA

SELECT

NZACH,

N_FO,

NGRUP,

SFIO,

GODPOST,

ADRES,

TELEFON

FROM

STUDENT

SELECT

NVED,

NGRUP,

NDISC,

NSEM,

BALL,

NZACH,

VIDATT

FROM

VEDOMOST where VIDATT = `Первая контрольная точка'

or VIDATT = Вторая контрольная точка'

or VIDATT = Третья контрольная точка'

select nazfo, count (nzach)

from student, formaob

where student. n_fo=formaob. n_fo and formaob. nazfo='Очная

group by nazfo

select nazfo, count (nzach)

from student, formaob

where student. n_fo=formaob. n_fo and formaob. nazfo='Заочная'

group by nazfo

select nazfo, count (nzach)

from student, formaob

where student. n_fo=formaob. n_fo and formaob. nazfo='Вечерняя'

group by nazfo

select disciplina. nazdisc

from disciplina

ТЕКСТ ПРОГРАММЫ

unit Unit1;

interface

uses

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

Dialogs, StdCtrls;

type

TForm1 = class (TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

Button8: TButton;

Button9: TButton;

Button10: TButton;

Button11: TButton;

Button12: TButton;

Button13: TButton;

procedure Button13Click (Sender: TObject);

procedure Button12Click (Sender: TObject);

procedure Button11Click (Sender: TObject);

procedure Button10Click (Sender: TObject);

procedure Button9Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

procedure Button7Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit10, Unit12, Unit11,Unit9;

{$R *. dfm}

procedure TForm1. Button10Click (Sender: TObject);

begin

Form12. Show;

end;

procedure TForm1. Button11Click (Sender: TObject);

begin

with dm do

begin

dstved. FullRefresh;

pFIBDataSet1. FullRefresh;

frxReport1. ShowReport ();

end;

end;

procedure TForm1. Button12Click (Sender: TObject);

begin

with dm do

begin

// dstved. FullRefresh;

// pFIBDataSet1. FullRefresh;

frxReport2. ShowReport ();

end;

end;

procedure TForm1. Button13Click (Sender: TObject);

begin

with dm do

begin

// dstved. FullRefresh;

// pFIBDataSet1. FullRefresh;

frxReport3. ShowReport ();

end;

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

Form3. Show;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

Form4. show;

end;

procedure TForm1. Button3Click (Sender: TObject);

begin

Form5. show;

end;

procedure TForm1. Button4Click (Sender: TObject);

begin

Form6. Show;

end;

procedure TForm1. Button5Click (Sender: TObject);

begin

form7. Show;

end;

procedure TForm1. Button6Click (Sender: TObject);

begin

Form8. Show;

end;

procedure TForm1. Button7Click (Sender: TObject);

begin

Form9. Show;

end;

procedure TForm1. Button8Click (Sender: TObject);

begin

Form10. Show;

end;

procedure TForm1. Button9Click (Sender: TObject);

begin

Form11. Show;

end;

end.

unit Unit2;

interface

uses

SysUtils, Classes, DB, FIBDatabase, pFIBDatabase, FIBDataSet, pFIBDataSet,

frxClass, frxDBSet;

type

TDM = class (TDataModule)

dbFO: TpFIBDatabase;

dstFO: TpFIBDataSet;

ReadTransaction: TpFIBTransaction;

WriteTransaction: TpFIBTransaction;

dsFO: TDataSource;

dstspc: TpFIBDataSet;

dstcaf: TpFIBDataSet;

dstsem: TpFIBDataSet;

dstpre: TpFIBDataSet;

dststu: TpFIBDataSet;

dstgr: TpFIBDataSet;

dstved: TpFIBDataSet;

dstdis: TpFIBDataSet;

dstnag: TpFIBDataSet;

dsspc: TDataSource;

dsnag: TDataSource;

dsved: TDataSource;

dsstu: TDataSource;

dsgr: TDataSource;

dsdis: TDataSource;

dssem: TDataSource;

dscaf: TDataSource;

dspre: TDataSource;

frxReport1: TfrxReport;

frxDBDataset1: TfrxDBDataset;

pFIBDataSet1: TpFIBDataSet;

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

pFIBDataSet3: TpFIBDataSet;

frxReport2: TfrxReport;

frxDBDataset2: TfrxDBDataset;

frxDBDataset3: TfrxDBDataset;

frxReport3: TfrxReport;

pFIBDataSet22: TpFIBDataSet;

pFIBDataSet23: TpFIBDataSet;

DataSource22: TDataSource;

DataSource23: TDataSource;

frxDBDataset22: TfrxDBDataset;

frxDBDataset23: TfrxDBDataset;

pFIBDataSet2: TpFIBDataSet;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

uses Unit1, Unit3;

{$R *. dfm}

end.

unit Unit3;

interface

uses

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

Dialogs, Menus, ComCtrls, Grids, DBGrids, StdCtrls;

type

TForm3 = class (TForm)

StatusBar1: TStatusBar;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

DBGrid1: TDBGrid;

Button1: TButton;

Edit1: TEdit;

Button2: TButton;

Button3: TButton;

Label1: TLabel;

procedure DBGrid1TitleClick (Column: TColumn);

procedure FormShow (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure DBGrid1CellClick (Column: TColumn);

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure N2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form3: TForm3;

implementation

uses Unit1, Unit2;

{$R *. dfm}

procedure TForm3. Button1Click (Sender: TObject);

begin

with dm do

begin

// Включаем набор данных в режим добавления записи

dstFO. Insert;

// Заносим введенные значения в набор данных dstPhone

dstFO. FBN ('NAZFO'). AsString: = edit1. Text;

StatusBar1. Panels [1]. Text: = IntToStr (dstFO. RecordCount);

end;

end;

procedure TForm3. Button2Click (Sender: TObject);

begin

with dm do

begin

// Включаем набор данных в режим изменения записи

dstFO. Edit;

// Заносим введенные значения в набор данных dstPhone

dstFO. FBN ('NAZFO'). AsString: = edit1. Text;

dstFO. Post;

StatusBar1. Panels [1]. Text: = IntToStr (dstFO. RecordCount);

end;

end;

procedure TForm3. Button3Click (Sender: TObject);

begin

with dm do

begin

if dstFO. RecordCount= 0 then exit;

if Application. MessageBox ('Удалить текущую запись? ', 'Удаление',

MB_YESNO) = mrYes then dstFO. Delete;

StatusBar1. Panels [1]. Text: = IntToStr (dstFO. RecordCount);

end;

end;

procedure TForm3. DBGrid1CellClick (Column: TColumn);

begin

with dm do

begin

edit1. Text: = dstFO. FBN ('NAZFO'). AsString;

end;

edit1. SetFocus;

end;

procedure TForm3. DBGrid1TitleClick (Column: TColumn);

var

cn: string;

begin

cn: = Column. FieldName;

if dm. dstFO. OrderClause <> cn then

begin

dm. dstFO. Close;

dm. dstFo. OrderClause: = cn;

dm. dstfo. Open;

end;

end;

procedure TForm3. FormShow (Sender: TObject);

begin

with dm do

begin

// Обновляем набор данных dstPhone

dstFo. FullRefresh;

// Выводим количество записей в таблице Phone

StatusBar1. Panels [1]. Text: = IntToStr (dstFO. RecordCount);

end;

end;

procedure TForm3. N2Click (Sender: TObject);

begin

with dm do

begin

// Обновляем набор данных dstPhone

dstFo. FullRefresh;

// Выводим количество записей в таблице Phone

StatusBar1. Panels [1]. Text: = IntToStr (dstFO. RecordCount);

end;

end;

procedure TForm3. N3Click (Sender: TObject);

begin

Form3. Close;

end;

end.

unit Unit4;

interface

uses

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

Dialogs, Grids, DBGrids, Menus, ComCtrls, StdCtrls;

type

TForm4 = class (TForm)

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

StatusBar1: TStatusBar;

Edit1: TEdit;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label1: TLabel;

procedure DBGrid1TitleClick (Column: TColumn);

procedure DBGrid1CellClick (Column: TColumn);

procedure Button3Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure N2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form4: TForm4;

implementation

uses Unit1, Unit2;

{$R *. dfm}

procedure TForm4. Button1Click (Sender: TObject);

begin

with dm do

begin

// Включаем набор данных в режим добавления записи

dstspc. Insert;

// Заносим введенные значения в набор данных dstPhone

dstspc. FBN ('SPECNAZ'). AsString: = edit1. Text;

dstspc. Post;

StatusBar1. Panels [1]. Text: = IntToStr (dstspc. RecordCount);

end;

end;

procedure TForm4. Button2Click (Sender: TObject);

begin

with dm do

begin

// Включаем набор данных в режим изменения записи

dstspc. Edit;

// Заносим введенные значения в набор данных dstPhone

dstspc. FBN ('SPECNAZ'). AsString: = edit1. Text;

dstspc. Post;

StatusBar1. Panels [1]. Text: = IntToStr (dstspc. RecordCount);

end;

end;

procedure TForm4. Button3Click (Sender: TObject);

begin

with dm do

begin

if dstspc. RecordCount= 0 then exit;

if Application. MessageBox ('Удалить текущую запись? ', 'Удаление',

MB_YESNO) = mrYes then dstspc. Delete;

StatusBar1. Panels [1]. Text: = IntToStr (dstspc. RecordCount);

end;

end;

procedure TForm4. DBGrid1CellClick (Column: TColumn);

begin

with dm do

begin

edit1. Text: = dstspc. FBN ('SPECNAZ'). AsString;

end;

edit1. SetFocus;

end;

procedure TForm4. DBGrid1TitleClick (Column: TColumn);

var

cn: string;

begin

cn: = Column. FieldName;

if dm. dstspc. OrderClause <> cn then

begin

dm. dstspc. Close;

dm. dstspc. OrderClause: = cn;

dm. dstspc. Open;

end;

end;

procedure TForm4. FormShow (Sender: TObject);

begin

with dm do

begin

// Обновляем набор данных dstPhone

dstspc. FullRefresh;

// Выводим количество записей в таблице Phone

StatusBar1. Panels [1]. Text: = IntToStr (dstspc. RecordCount);

end;

end;

procedure TForm4. N2Click (Sender: TObject);

begin

with dm do

begin

// Обновляем набор данных dstPhone

dstspc. FullRefresh;

// Выводим количество записей в таблице Phone

StatusBar1. Panels [1]. Text: = IntToStr (dstspc. RecordCount);

end;

end;

procedure TForm4. N3Click (Sender: TObject);

begin

Form4. Close;

end;

end.

unit Unit5;

interface

uses

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

Dialogs, Grids, DBGrids, ComCtrls, Menus, StdCtrls;

type

TForm5 = class (TForm)

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

StatusBar1: TStatusBar;

procedure DBGrid1TitleClick (Column: TColumn);

procedure Button3Click (Sender: TObject);

procedure DBGrid1CellClick (Column: TColumn);

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure N3Click (Sender: TObject);

procedure N2Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form5: TForm5;

implementation

uses Unit2;

{$R *. dfm}

procedure TForm5. Button1Click (Sender: TObject);

begin

with dm do

begin

// Включаем набор данных в режим добавления записи

dstcaf. Insert;

// Заносим введенные значения в набор данных dstPhone

dstcaf. FBN ('NAZKAF'). AsString: = edit1. Text;

dstcaf. FBN ('TELEFON'). AsInteger: = StrToInt (edit2. Text);

dstcaf. FBN ('FIOCAF'). AsString: = edit3. Text;

dstcaf. Post;

StatusBar1. Panels [1]. Text: = IntToStr (dstcaf. RecordCount);

end;

end;

procedure TForm5. Button2Click (Sender: TObject);

begin

with dm do

begin

// Включаем набор данных в режим добавления записи

dstcaf. Edit;

// Заносим введенные значения в набор данных dstPhone

dstcaf. FBN ('NAZKAF'). AsString: = edit1. Text;

dstcaf. FBN ('TELEFON'). AsInteger: = StrToInt (edit2. Text);

dstcaf. FBN ('FIOCAF'). AsString: = edit3. Text;

dstcaf. Post;

StatusBar1. Panels [1]. Text: = IntToStr (dstcaf. RecordCount);

end;

end;

procedure TForm5. Button3Click (Sender: TObject);

begin

with dm do

begin

if dstcaf. RecordCount= 0 then exit;

if Application. MessageBox ('Удалить текущую запись? ', 'Удаление',

MB_YESNO) = mrYes then dstcaf. Delete;

StatusBar1. Panels [1]. Text: = IntToStr (dstcaf. RecordCount);

end;

end;

procedure TForm5. DBGrid1CellClick (Column: TColumn);

begin

with dm do

begin

edit1. Text: =dstcaf. FBN ('NAZKAF'). AsString;

edit2. Text: =dstcaf. FBN ('TELEFON'). AsString;

edit3. Text: =dstcaf. FBN ('FIOCAF'). AsString;

end;

edit1. SetFocus;

edit2. SetFocus;

edit3. SetFocus;

end;

procedure TForm5. DBGrid1TitleClick (Column: TColumn);

var

cn: string;

begin

cn: = Column. FieldName;

if dm. dstcaf. OrderClause <> cn then

begin

dm. dstcaf. Close;

dm. dstcaf. OrderClause: = cn;

dm. dstcaf. Open;

end;

end;

procedure TForm5. FormShow (Sender: TObject);

begin

with dm do

begin

// Обновляем набор данных dstPhone

dstcaf. FullRefresh;

// Выводим количество записей в таблице Phone

StatusBar1. Panels [1]. Text: = IntToStr (dstcaf. RecordCount);

end;

end;

procedure TForm5. N2Click (Sender: TObject);

begin

with dm do

begin

// Обновляем набор данных dstPhone

dstcaf. FullRefresh;

// Выводим количество записей в таблице Phone

StatusBar1. Panels [1]. Text: = IntToStr (dstcaf. RecordCount);

end;

end;

procedure TForm5. N3Click (Sender: TObject);

begin

Form5. Close;

end;

end.

unit Unit6;

interface

uses

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

Dialogs, Grids, DBGrids, StdCtrls, Menus, ComCtrls;

type

TForm6 = class (TForm)

DBGrid1: TDBGrid;

MainMenu1: TMainMenu;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Edit1: TEdit;

Label1: TLabel;

Label2: TLabel;

Edit2: TEdit;

StatusBar1: TStatusBar;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

procedure DBGrid1TitleClick (Column: TColumn);

procedure N3Click (Sender: TObject);

procedure N2Click (Sender: TObject);

procedure FormShow (Sender: TObject);

procedure DBGrid1CellClick (Column: TColumn);

procedure Button3Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form6: TForm6;

implementation

uses Unit2;

{$R *. dfm}

procedure TForm6. Button1Click (Sender: TObject);

begin

with dm do

begin

begin

// Включаем набор данных в режим добавления записи

dstpre. Insert;

// Заносим введенные значения в набор данных dstPhone

dstpre. FBN ('PFIO'). AsString: = edit1. Text;

dstpre. FBN ('NCAF'). AsInteger: = StrToInt (edit2. Text);

dstpre. Post;

StatusBar1. Panels [1]. Text: = IntToStr (dstpre. RecordCount);

end;

end;

end;

procedure TForm6. Button2Click (Sender: TObject);

begin

with dm do

begin

begin

// Включаем набор данных в режим добавления записи

dstpre. Edit;

// Заносим введенные значения в набор данных dstPhone

dstpre. FBN ('PFIO'). AsString: = edit1. Text;

dstpre. FBN ('NCAF'). AsInteger: = StrToInt (edit2. Text);

dstpre. Post;

StatusBar1. Panels [1]. Text: = IntToStr (dstpre. RecordCount);

end;

end;

end;

И так далее………………….

РЕЗУЛЬТАТЫ ИСПЫТАНИЙ

Рисунок 1 - Главная форма

Рисунок 2 - Форма "Студенты"

Рисунок 4 - Форма "Студенты"

Рисунок Д.10 - Удаление записи

ВЫХОДНЫЕ ДОКУМЕНТЫ

Рисунок 1 - Отчет по текущей успеваемости

Рисунок 1 - Главная форма

Рисунок 2 - Форма "Студенты"

Рисунок 3 - Форма "Преподаватели"

Рисунок 4 - Форма "Группы"

Рисунок 12 - Модуль данных

Размещено на Allbest.ru