Мы поможем в написании ваших работ!



ЗНАЕТЕ ЛИ ВЫ?

Правила и нормы охраны труда, техники безопасности при работе с вычислительной техникой

Поиск

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

По окончании работ необходимо соблюдать следующую последовательность выключения вычислительной техники:

· Произвести закрытие всех активных задач;

· Завершить работу операционной системы;

· Выключить питание системного блока;

· Выключить питание всех периферийных устройств;

· Отключить блок бесперебойного питания.

По окончании работ необходимо осмотреть и привести в порядок рабочее место.

Обо всех неисправностях, возникших в процессе работы, сообщить ответственному.

Снять спецодежду и другие средства индивидуальной защиты и убрать их в специально отведенное место.

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

Обо всех недостатках выявленных в течение работы, сообщить начальнику административно - хозяйственного отдела.


Приложение Б

Формы приложения

Рисунок Б.1 - Форма MainForm

Рисунок Б.2 - Форма DataModule1

Рисунок Б.3 - Форма FormStudent

Рисунок Б.4 - Форма FormDopol_infor

Рисунок Б.5 - Форма FormPrepodavatel

Рисунок Б.6 - Форма FormGryppa

 

Рисунок Б.7 - Форма FormPredmet

Рисунок Б.8 - Форма FormUspevaemost

Рисунок Б.9 - Форма FormGurnal

Рисунок Б.10 - Форма FormRaspisanie

Рисунок Б.11 - Форма FormUspevaemost_student

Рисунок Б.12 - Форма AboutBox

Рисунок Б.13 - Форма Form_Opisanie_PO

Рисунок Б.14 - Форма Form_Otchet


 

Приложение В

Листинг файла SQL

USE [Успеваемость студентов];

GO

CREATE DATABASE [Успеваемсоть студентов2]

ON

(NAME = Sales_dat,

FILENAME = 'C:\Users\24244\Desktop\Диплом\Новая папка\BD.mdf',

SIZE = 10,

MAXSIZE = 50,

FILEGROWTH = 5)

LOG ON

(NAME = Sales_log,

FILENAME = 'C:\Users\24244\Desktop\Диплом\Новая папка\BD.ldf',

SIZE = 5MB,

MAXSIZE = 25MB,

FILEGROWTH = 5MB);

GO

 

Use [Успеваемсоть студентов2]

Create table [Студенты]

[Личный номер] int not null,

[Фамилия] varchar(60),

[Имя] varchar(60) not null,

[Отчество] varchar(60) not null,

[Дата рождения] date not null,

[Специальность] varchar(60) not null,

[Группа] int not null,

primary key ([Личный номер]))

 

Use [Успеваемсоть студентов2]

Create table [Дополнительная информация]

([Личный номер] int not null,

[Форма обучения] varchar(60),

[Закрытие сессий в срок] varchar(60) not null,

[Наличие задолжностей] varchar(60) not null,

primary key ([Личный номер]),

constraint FK_студента foreign key ([Личный номер]) references [Студенты] ([Личный номер]))

 

Use [Успеваемсоть студентов2]

Create table [Предметы]

([Код предмета] int not null,

[Предмет] varchar(60),

primary key ([Код предмета]))

 

Use [Успеваемсоть студентов2]

Create table [Успеваемость]

([Личный номер] int not null,

[Дата] varchar(60),

[Код предмета] int not null,

[Оценка] int not null,

primary key ([Личный номер]),

constraint FK_успеваемость foreign key ([Код предмета]) references [Предметы] ([Код предмета]))

 

Use [Успеваемсоть студентов2]

Create table [Преподаватель]

([Код преподавателя] int not null,

[Фамилия] varchar(60),

[Имя] varchar(60) not null,

[Отчество] varchar(60) not null,

[Пол] varchar(60) not null,

[Дата рождения] date not null,

[Код предмета] int not null,

[Категория] varchar(60) not null,

[Стаж] varchar(60) not null,

[Дата трудоустройства] date not null,

primary key ([Код преподавателя]),

constraint FK_преподаватели foreign key ([Код предмета]) references [Предметы] ([Код предмета]))

 

Use [Успеваемсоть студентов2]

Create table [Группы]

([Код группы] int not null,

[Группы] varchar(60),

primary key ([Код группы]))

 

Use [Успеваемсоть студентов2]

Create table [Расписание групп]

([ID] int not null,

[Группы] varchar(60),

[Курс] varchar(60),

primary key ([ID]))

 

Use [Успеваемсоть студентов2]

Create table [ID-групп]

([ID] int not null,

[День недели] varchar(60),

[Пары] varchar(60),

[Предмет] varchar(60),

primary key ([ID]))

 

Use [Успеваемсоть студентов2]

Create table [Электронный журнал]

([ID] int not null,

[Код группы] int,

[Фамилия] varchar(60),

[Имя] varchar(60) not null,

[Код предмета] int,

[Оценка] int,

primary key ([ID]))


 

Приложение Г

Листинг файла MainForm

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, jpeg, ExtCtrls;

type

TMainForm = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

N5: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

N9: TMenuItem;

N10: TMenuItem;

N11: TMenuItem;

N12: TMenuItem;

N13: TMenuItem;

N14: TMenuItem;

N15: TMenuItem;

Image1: TImage;

N16: TMenuItem;

N17: TMenuItem;

N18: TMenuItem;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure N5Click(Sender: TObject);

procedure N10Click(Sender: TObject);

procedure N11Click(Sender: TObject);

procedure N15Click(Sender: TObject);

procedure N8Click(Sender: TObject);

procedure N7Click(Sender: TObject);

procedure N17Click(Sender: TObject);

procedure N18Click(Sender: TObject);

procedure N13Click(Sender: TObject);

procedure N14Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

MainForm: TMainForm;

implementation

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

{$R *.dfm}

procedure TMainForm.N2Click(Sender: TObject);

begin

DM.ADOStudent.Open;

FormStudent:= TFormStudent.Create(Application);

FormStudent.Show;

end;

procedure TMainForm.N3Click(Sender: TObject);

begin

DM.ADODopol_infor.Open;

FormDopol_infor:= TFormDopol_infor.Create(Application);

FormDopol_infor.Show;

end;

procedure TMainForm.N4Click(Sender: TObject);

begin

DM.ADOPrepodavatel.Open;

FormPrepodavatel:= TFormPrepodavatel.Create(Application);

FormPrepodavatel.Show;

end;

procedure TMainForm.N5Click(Sender: TObject);

begin

DM.ADOPredmet.Open;

FormPredmet:= TFormPredmet.Create(Application);

FormPredmet.Show;

end;

procedure TMainForm.N10Click(Sender: TObject);

begin

DM.ADO_ID_Grupp.Open;

FormGryppa:= TFormGryppa.Create(Application);

FormGryppa.Show;

end;

procedure TMainForm.N11Click(Sender: TObject);

begin

DM.ADOUspevaemost.Open;

FormUspevaemost:= TFormUspevaemost.Create(Application);

FormUspevaemost.Show;

end;

procedure TMainForm.N15Click(Sender: TObject);

begin

MainForm.Close;

end;

procedure TMainForm.N8Click(Sender: TObject);

begin

FormRaspisanie:= TFormRaspisanie.Create(Application);

FormRaspisanie.Show;

end;

procedure TMainForm.N7Click(Sender: TObject);

begin

FormGurnal:= TFormGurnal.Create(Application);

FormGurnal.Show;

end;

procedure TMainForm.N17Click(Sender: TObject);

begin

AboutBox:= TAboutBox.Create(Application);

AboutBox.Show;

end;

procedure TMainForm.N18Click(Sender: TObject);

begin

Form_Opisanie_PO:=TForm_Opisanie_PO.Create(Application);

Form_Opisanie_PO.Show;

end;

procedure TMainForm.N13Click(Sender: TObject);

begin

FormUspevaemost_student:=TFormUspevaemost_student.Create(Application);

FormUspevaemost_student.Show;

end;

procedure TMainForm.N14Click(Sender: TObject);

begin

Form13:=TForm13.Create(Application);

Form13.Show;

end;

end.


 

Приложение Д

Листинг файла DataModule1

unit Unit2;

interface

uses

SysUtils, Classes, DB, ADODB;

type

TDM = class(TDataModule)

ADOConnection1: TADOConnection;

ADODopol_infor: TADOTable;

ADOPrepodavatel: TADOTable;

ADOPredmet: TADOTable;

ADOUspevaemost: TADOTable;

DataDopol_infor: TDataSource;

DataPrepodavatel: TDataSource;

DataPredmet: TDataSource;

DataUspevaemost: TDataSource;

ADOGurnal: TADOTable;

DataGurnal: TDataSource;

DataStudent: TDataSource;

ADOStudent: TADOTable;

ADO_ID_Grupp: TADOTable;

DataSource1: TDataSource;

private

{ Private declarations }

public

{ Public declarations }

end;

var

DM: TDM;

implementation

uses Unit1, Unit3;

{$R *.dfm}

end.


 

Приложение Е

Листинг файла FormStudent

unit Unit3;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask, DB, ADODB;

type

TFormStudent = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Label8: TLabel;

DBNavigator1: TDBNavigator;

DBE_Code_nomer: TDBEdit;

DBE_Family: TDBEdit;

DBE_Name: TDBEdit;

DBE_Otchestvo: TDBEdit;

DBE_Data_Rogdenia: TDBEdit;

DBE_Specialnosti: TDBEdit;

DBE_Gruppa: TDBEdit;

DBGrid1: TDBGrid;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormStudent: TFormStudent;

implementation

uses Unit2, Unit1;

{$R *.dfm}

procedure TFormStudent.Button1Click(Sender: TObject);

begin

dm.ADOStudent.Filter:='[Фамилия]='+QuotedStr(formstudent.DBGrid1.Columns.Items[1].Field.Text);

dm.ADOStudent.Filtered:= true;

end;

procedure TFormStudent.Button2Click(Sender: TObject);

begin

dm.ADOStudent.Filter:='[Имя]='+QuotedStr(formstudent.DBGrid1.Columns.Items[2].Field.Text);

dm.ADOStudent.Filtered:= true;

end;

procedure TFormStudent.Button3Click(Sender: TObject);

begin

dm.ADOStudent.Filter:='[Специальность]='+QuotedStr(formstudent.DBGrid1.Columns.Items[5].Field.Text);

dm.ADOStudent.Filtered:= true;

end;

procedure TFormStudent.Button5Click(Sender: TObject);

begin

dm.ADOStudent.Filter:= '';

dm.ADOStudent.Filtered:= false;

end;

procedure TFormStudent.Button4Click(Sender: TObject);

begin

FormStudent.Close;

end;

procedure TFormStudent.Button6Click(Sender: TObject);

var status:boolean;

begin

FormStudent.Show;

FormStudent.DBE_Code_nomer.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=1;

FormStudent.DBE_Family.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=2;

FormStudent.DBE_Name.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=3;

FormStudent.DBE_Otchestvo.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=4;

FormStudent.DBE_Data_Rogdenia.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=5;

FormStudent.DBE_Specialnosti.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=6;

//FormStudent.DBE_Gruppa.Text:=DBGrid1.SelectedField.Text;

DBGrid1.SelectedIndex:=7;

end;

end.


 

Приложение Ж

Листинг файла FormDopol_infor

unit Unit4;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TFormDopol_infor = class(TForm)

DBE_Code_Nomer: TDBEdit;

DBE_Forma_obych: TDBEdit;

DBE_Sakrit_sessii: TDBEdit;

DBE_Nalich_sadolg: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

DBL_Code_nomer: TDBLookupComboBox;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormDopol_infor: TFormDopol_infor;

implementation

uses Unit2, Unit1, Unit3;

{$R *.dfm}

procedure TFormDopol_infor.Button1Click(Sender: TObject);

begin

dm.ADODopol_infor.Filter:='[Форма обучения]='+QuotedStr(formDopol_infor.DBGrid1.Columns.Items[1].Field.Text);

dm.ADODopol_infor.Filtered:= true;

end;

procedure TFormDopol_infor.Button2Click(Sender: TObject);

begin

dm.ADODopol_infor.Filter:='[Наличие задолжностей]= '+QuotedStr(formDopol_infor.DBGrid1.Columns.Items[3].Field.Text);

dm.ADODopol_infor.Filtered:= true;

end;

procedure TFormDopol_infor.Button3Click(Sender: TObject);

begin

dm.ADODopol_infor.Filter:= '';

dm.ADODopol_infor.Filtered:= false;

end;

procedure TFormDopol_infor.Button4Click(Sender: TObject);

begin

FormDopol_infor.Close;

end;

end.


 

Приложение З

Листинг файла FormPrepodavatel

unit Unit5;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TFormPrepodavatel = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBE_Code_nomer: TDBEdit;

DBE_Family: TDBEdit;

DBE_Name: TDBEdit;

DBE_Otchestvo: TDBEdit;

DBE_Pol: TDBEdit;

DBE_Data_rogdenia: TDBEdit;

DBE_Kategoria: TDBEdit;

DBE_Stag: TDBEdit;

DBE_Data_trudoustroi: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Label7: TLabel;

Label8: TLabel;

Label9: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormPrepodavatel: TFormPrepodavatel;

implementation

uses Unit2, Unit1, Unit3, Unit4;

{$R *.dfm}

procedure TFormPrepodavatel.Button1Click(Sender: TObject);

begin

dm.ADOPrepodavatel.Filter:='[Фамилия]='+QuotedStr(formPrepodavatel.DBGrid1.Columns.Items[1].Field.Text);

dm.ADOPrepodavatel.Filtered:= true;

end;

procedure TFormPrepodavatel.Button2Click(Sender: TObject);

begin

dm.ADOPrepodavatel.Filter:='[Пол]='+QuotedStr(formPrepodavatel.DBGrid1.Columns.Items[4].Field.Text);

dm.ADOPrepodavatel.Filtered:= true;

end;

procedure TFormPrepodavatel.Button3Click(Sender: TObject);

begin

dm.ADOPrepodavatel.Filter:='[Категория]='+QuotedStr(formPrepodavatel.DBGrid1.Columns.Items[7].Field.Text);

dm.ADOPrepodavatel.Filtered:= true;

end;

procedure TFormPrepodavatel.Button4Click(Sender: TObject);

begin

dm.ADOPrepodavatel.Filter:='[Стаж]='+QuotedStr(formPrepodavatel.DBGrid1.Columns.Items[8].Field.Text);

dm.ADOPrepodavatel.Filtered:= true;

end;

procedure TFormPrepodavatel.Button5Click(Sender: TObject);

begin

FormPrepodavatel.Close;

end;

procedure TFormPrepodavatel.Button6Click(Sender: TObject);

begin

dm.ADOPrepodavatel.Filter:= '';

dm.ADOPrepodavatel.Filtered:= false;

end;

end.


 

Приложение И

Листинг файла FormPrepodavatel

unit Unit7;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TFormGryppa = class(TForm)

DBECode_gruppa: TDBEdit;

DBE_gruppa: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

DBNavigator1: TDBNavigator;

DBGrid1: TDBGrid;

DBEdit1: TDBEdit;

Label3: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormGryppa: TFormGryppa;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit1, Unit6;

{$R *.dfm}

procedure TFormGryppa.Button1Click(Sender: TObject);

begin

dm.ADO_ID_Grupp.Filter:='[Группы]='+QuotedStr(formGryppa.DBGrid1.Columns.Items[1].Field.Text);

dm.ADO_ID_Grupp.Filtered:= true;

end;

procedure TFormGryppa.Button2Click(Sender: TObject);

begin

dm.ADO_ID_Grupp.Filter:= '';

dm.ADO_ID_Grupp.Filtered:= false;

end;

procedure TFormGryppa.Button3Click(Sender: TObject);

begin

FormGryppa.Close;

end;

end.


 

Приложение К

Листинг файла FormPredmet

unit Unit6;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TFormPredmet = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBE_Code_predmet: TDBEdit;

DBE_Predmet: TDBEdit;

Label1: TLabel;

Label2: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormPredmet: TFormPredmet;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit1;

{$R *.dfm}

procedure TFormPredmet.Button1Click(Sender: TObject);

begin

dm.ADOPredmet.Filter:='[Предмет]='+QuotedStr(formPredmet.DBGrid1.Columns.Items[1].Field.Text);

dm.ADOPredmet.Filtered:= true;

end;

procedure TFormPredmet.Button2Click(Sender: TObject);

begin

dm.ADOPredmet.Filter:= '';

dm.ADOPredmet.Filtered:= false;

end;

procedure TFormPredmet.Button3Click(Sender: TObject);

begin

FormPredmet.Close;

end;

end.


 

Приложение Л

Листинг файла FormUspevaemost

unit Unit8;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask;

type

TFormUspevaemost = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Button3: TButton;

Button4: TButton;

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBE_Code_nomer: TDBEdit;

DBE_Data: TDBEdit;

DBE_Code_predmet: TDBEdit;

DBE_Ozenka: TDBEdit;

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormUspevaemost: TFormUspevaemost;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit1, Unit6, Unit7, Unit9;

{$R *.dfm}

procedure TFormUspevaemost.Button3Click(Sender: TObject);

begin

FormUspevaemost.Close;

end;

procedure TFormUspevaemost.Button4Click(Sender: TObject);

begin

dm.ADOUspevaemost.Filter:='[Оценка]='+formUspevaemost.DBGrid1.Columns.Items[3].Field.Text;

dm.ADOUspevaemost.Filtered:= true;

end;

end.


 

Приложение М

Листинг файла FormGurnal

unit Unit11;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Mask, DB, ADODB;

type

TFormGurnal = class(TForm)

DBGrid1: TDBGrid;

DBNavigator1: TDBNavigator;

DBE_ID: TDBEdit;

DBE_Family: TDBEdit;

DBE_Name: TDBEdit;

DBE_Ozenka: TDBEdit;

ID: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormGurnal: TFormGurnal;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10,

Unit1;

{$R *.dfm}

procedure TFormGurnal.Button1Click(Sender: TObject);

begin

dm.ADOGurnal.Filter:='[Фамилия]='+QuotedStr(formGurnal.DBGrid1.Columns.Items[2].Field.Text);

dm.ADOGurnal.Filtered:= true;

end;

procedure TFormGurnal.Button2Click(Sender: TObject);

begin

dm.ADOGurnal.Filter:= '[Оценка] = '+ formGurnal.DBGrid1.Columns.Items[5].Field.Text;

dm.ADOGurnal.Filtered:= true;

end;

procedure TFormGurnal.Button3Click(Sender: TObject);

begin

dm.ADOGurnal.Filter:= '';

dm.ADOGurnal.Filtered:= false;

end;

procedure TFormGurnal.Button4Click(Sender: TObject);

begin

FormGurnal.Close;

end;

end.


 

Приложение Н

Листинг файла FormRaspisanie

unit Unit10;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DBCtrls, Grids, DBGrids, DB, ADODB, StdCtrls, ComObj;

type

TFormRaspisanie = class(TForm)

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

DataSource1: TDataSource;

ADOQuery2: TADOQuery;

Button8: TButton;

DataSource2: TDataSource;

DBLookupComboBox2: TDBLookupComboBox;

Button9: TButton;

ADOQuery3: TADOQuery;

DataSource3: TDataSource;

Button10: TButton;

Label1: TLabel;

Label2: TLabel;

DBLookupComboBox3: TDBLookupComboBox;

procedure Button8Click(Sender: TObject);

procedure DBLookupComboBox2CloseUp(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Button9Click(Sender: TObject);

procedure Button10Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormRaspisanie: TFormRaspisanie;

implementation

{$R *.dfm}

procedure TFormRaspisanie.Button8Click(Sender: TObject);

begin

FormRaspisanie.Close;

end;

procedure TFormRaspisanie.DBLookupComboBox2CloseUp(Sender: TObject);

begin

adoquery2.sql.clear;

adoquery2.sql.add('SELECT DISTINCT Курс FROM [Расписание групп] where Группы='+QuotedStr(DBLookupComboBox3.text));

adoquery2.active:=true;

end;

procedure TFormRaspisanie.FormActivate(Sender: TObject);

begin

adoquery1.sql.clear;

adoquery1.sql.add('SELECT Группы FROM [Расписание групп] GROUP BY Группы');

adoquery1.active:=true;

end;

procedure TFormRaspisanie.Button9Click(Sender: TObject);

begin

adoquery3.sql.clear;

adoquery3.sql.add('SELECT dbo.[ID-групп].[День недели], dbo.[ID-групп].Пары, dbo.[ID-групп].Предмет FROM dbo.[ID-групп] INNER JOIN dbo.[Расписание групп] ON dbo.[ID-групп].ID = dbo.[Расписание групп].ID where Группы='+QuotedStr(DBLookupComboBox3.text)+'AND КУРС = ' + DBLookupComboBox2.text);

adoquery3.active:=true;

end;

procedure TFormRaspisanie.Button10Click(Sender: TObject);

Var

ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData: Variant;

BeginCol, BeginRow, j: integer;

RowCount, ColCount: Integer;

AppLocation:string;

begin

BeginCol:= 1;

BeginRow:= 4;

RowCount:= ADOQuery3.RecordCount;

ColCount:= ADOQuery3.FieldDefs.Count;

ExcelApp:= CreateOleObject('Excel.Application');

ExcelApp.DisplayAlerts:= false;

ExcelApp.Application.EnableEvents:= false;

Workbook:= ExcelApp.WorkBooks.Add(GetCurrentDir() + '\Расписание.xlsx');

ArrayData:= VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

ADOQuery1.DisableControls;

ADOQuery1.First;

While Not ADOQuery3.eof Do

Begin

For J:= 1 To ADOQuery3.FieldDefs.Count Do

Begin

ArrayData[ADOQuery3.RecNo, J]:=

ADOQuery3.FieldbyName(ADOQuery3.FieldDefs.Items[j - 1].DisplayName).value;

End;

ADOQuery3.Next;

End;

ADOQuery3.EnableControls;

Cell1:= WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

Cell2:= WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1,

BeginCol + ColCount - 1];

Range:= WorkBook.WorkSheets[1].Range[Cell1, Cell2];

Range.Value:= ArrayData;

ExcelApp.Visible:= True;

end;

end.


 

Приложение О

Листинг файла FormUspevaemost_student

unit Unit9;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, ExtCtrls, QuickRpt, QRCtrls, Menus, DBCtrls, Grids, DBGrids, StdCtrls, ComObj;

type

TFormUspevaemost_student = class(TForm)

DBNavigator1: TDBNavigator;

DBLookupComboBox1: TDBLookupComboBox;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

ADOQuery1: TADOQuery;

ADOQuery2: TADOQuery;

DataSource1: TDataSource;

DataSource2: TDataSource;

ADOQuery3: TADOQuery;

DataSource3: TDataSource;

DBLookupComboBox2: TDBLookupComboBox;

Button1: TButton;

DBGrid1: TDBGrid;

Button2: TButton;

Button3: TButton;

procedure FormActivate(Sender: TObject);

procedure DBLookupComboBox1Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

FormUspevaemost_student: TFormUspevaemost_student;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit1, Unit6;

{$R *.dfm}

procedure TFormUspevaemost_student.FormActivate(Sender: TObject);

begin

adoquery1.sql.clear;

adoquery1.sql.add('SELECT Группы FROM Группы Group by Группы');

adoquery1.active:=true;

end;

procedure TFormUspevaemost_student.DBLookupComboBox1Click(Sender: TObject);

begin

adoquery2.sql.clear;

adoquery2.sql.add('SELECT DISTINCT Курс FROM Группы Where Группы='+QuotedStr(DBLookupComboBox1.text));

adoquery2.active:=true;

end;

procedure TFormUspevaemost_student.Button1Click(Sender: TObject);

begin

adoquery3.sql.clear;

adoquery3.sql.add('SELECT Студенты.Фамилия, Студенты.Имя, {fn CONCAT(Группы.Группы, CAST(Группы.Курс AS varchar(60))) } AS группа FROM Группы INNER JOIN Студенты ON Группы.[Код группы] = Студенты.Группы where Группы.Группы='+QuotedStr(DBLookupComboBox1.text)+'AND КУРС = ' + DBLookupComboBox2.text);

adoquery3.active:=true;

end;

procedure TFormUspevaemost_student.Button2Click(Sender: TObject);

Var

ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData: Variant;

BeginCol, BeginRow, j: integer;

RowCount, ColCount: Integer;

AppLocation:string;

begin

BeginCol:= 1;

BeginRow:= 4;

RowCount:= ADOQuery3.RecordCount;

ColCount:= ADOQuery3.FieldDefs.Count;

ExcelApp:= CreateOleObject('Excel.Application');

ExcelApp.DisplayAlerts:= false;

ExcelApp.Application.EnableEvents:= false;

Workbook:= ExcelApp.WorkBooks.Add(GetCurrentDir() + '\Вывод списков групп.xlsx');

ArrayData:= VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

ADOQuery1.DisableControls;

ADOQuery1.First;

While Not ADOQuery3.eof Do

Begin

For J:= 1 To ADOQuery3.FieldDefs.Count Do

Begin

ArrayData[ADOQuery3.RecNo, J]:=

ADOQuery3.FieldbyName(ADOQuery3.FieldDefs.Items[j - 1].DisplayName).value;

End;

ADOQuery3.Next;

End;

ADOQuery3.EnableControls;

Cell1:= WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

Cell2:= WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1,

BeginCol + ColCount - 1];

Range:= WorkBook.WorkSheets[1].Range[Cell1, Cell2];

Range.Value:= ArrayData;

ExcelApp.Visible:= True;

end;

procedure TFormUspevaemost_student.Button3Click(Sender: TObject);

begin

FormUspevaemost_student.Close;

end;

end.


 

Приложение П

Листинг файла AboutBox

unit Unit12;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, Buttons, ExtCtrls, jpeg;

type

TAboutBox = class(TForm)

Panel1: TPanel;

ProgramIcon: TImage;

ProductName: TLabel;

Version: TLabel;

Copyright: TLabel;

Comments: TLabel;

OKButton: TButton;

Label1: TLabel;

procedure OKButtonClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

AboutBox: TAboutBox;

implementation

{$R *.dfm}

procedure TAboutBox.OKButtonClick(Sender: TObject);

begin

AboutBox.Close;

end;

end.


 

Приложение Р

Листинг файла Form_Opisanie_PO

unit Unit14;

interface

uses

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

Dialogs, StdCtrls;

type

TForm_Opisanie_PO = class(TForm)

Memo1: TMemo;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form_Opisanie_PO: TForm_Opisanie_PO;

implementation

{$R *.dfm}

procedure TForm_Opisanie_PO.Button1Click(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('zona.txt');

end;

end.


 

Приложение С

Листинг файла Form_Otchet

unit Unit13;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ADODB, DB, ExtCtrls, DBCtrls, Grids, DBGrids, ComObj, StdCtrls, Mask;

type

TForm13 = class(TForm)

DBNavigator1: TDBNavigator;

ADOConnection1: TADOConnection;

ADOTable1: TADOTable;

Button1: TButton;

DataSource1: TDataSource;

DBGrid1: TDBGrid;

ADOQuery1: TADOQuery;

DataSource2: TDataSource;

Button2: TButton;

ADOQuery2: TADOQuery;

DataSource3: TDataSource;

DBLookupComboBox1: TDBLookupComboBox;

ADOQuery3: TADOQuery;

DBLookupComboBox2: TDBLookupComboBox;

Button3: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure DBLookupComboBox1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form13: TForm13;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit1, Unit6;

{$R *.dfm}

procedure TForm13.Button1Click(Sender: TObject);

begin

adoquery2.sql.clear;

adoquery2.sql.add('SELECT Группы.Группы, Группы.Курс, [Электронный журнал].Фамилия, [Электронный журнал].Имя, Предметы.Предмет, [Электронный журнал].Оценка FROM [Группы] INNER JOIN [Электронный журнал] ON Группы.[Код группы] = [Электронный журнал].[Код группы]'+' INNER JOIN [Предметы] ON [Электронный журнал].[Код предмета] = Предметы.[Код предмета]'+' where Группы.Группы='+QuotedStr(DBLookupComboBox1.text)+'AND КУРС = ' + DBLookupComboBox2.text);

adoquery2.active:=true;

end;

procedure TForm13.Button2Click(Sender: TObject);

Var

ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData: Variant;

BeginCol, BeginRow, j: integer;

RowCount, ColCount: Integer;

AppLocation:string;

begin

BeginCol:= 1;

BeginRow:= 4;

RowCount:= ADOQuery2.RecordCount;

ColCount:= ADOQuery2.FieldDefs.Count;

ExcelApp:= CreateOleObject('Excel.Application');

ExcelApp.DisplayAlerts:= false;

ExcelApp.Application.EnableEvents:= false;

Workbook:= ExcelApp.WorkBooks.Add(GetCurrentDir() + '\Книга1.xlsx');

ArrayData:= VarArrayCreate([1, RowCount, 1, ColCount], varVariant);

ADOQuery1.DisableControls;

ADOQuery1.First;

While Not ADOQuery2.eof Do

Begin

For J:= 1 To ADOQuery2.FieldDefs.Count Do

Begin

ArrayData[ADOQuery2.RecNo, J]:=

ADOQuery2.FieldbyName(ADOQuery2.FieldDefs.Items[j - 1].DisplayName).value;

End;

ADOQuery2.Next;

End;

ADOQuery2.EnableControls;

Cell1:= WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];

Cell2:= WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1,

BeginCol + ColCount - 1];

Range:= WorkBook.WorkSheets[1].Range[Cell1, Cell2];

Range.Value:= ArrayData;

ExcelApp.Visible:= True;

end;

procedure TForm13.DBLookupComboBox1Click(Sender: TObject);

begin

adoquery3.sql.clear;

adoquery3.sql.add('SELECT DISTINCT Курс FROM Группы Where Группы='+QuotedStr(DBLookupComboBox1.text));

adoquery3.active:=true;

end;

procedure TForm13.FormActivate(Sender: TObject);

begin

adoquery1.sql.clear;

adoquery1.sql.add('SELECT Группы FROM Группы Group by Группы');

adoquery1.active:=true;

end;

procedure TForm13.Button3Click(Sender: TObject);

begin

Form13.Close;

end; end.



Поделиться:


Последнее изменение этой страницы: 2016-07-11; просмотров: 1197; Нарушение авторского права страницы; Мы поможем в написании вашей работы!

infopedia.su Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 18.191.139.245 (0.008 с.)