Заглавная страница Избранные статьи Случайная статья Познавательные статьи Новые добавления Обратная связь FAQ Написать работу КАТЕГОРИИ: АрхеологияБиология Генетика География Информатика История Логика Маркетинг Математика Менеджмент Механика Педагогика Религия Социология Технологии Физика Философия Финансы Химия Экология ТОП 10 на сайте Приготовление дезинфицирующих растворов различной концентрацииТехника нижней прямой подачи мяча. Франко-прусская война (причины и последствия) Организация работы процедурного кабинета Смысловое и механическое запоминание, их место и роль в усвоении знаний Коммуникативные барьеры и пути их преодоления Обработка изделий медицинского назначения многократного применения Образцы текста публицистического стиля Четыре типа изменения баланса Задачи с ответами для Всероссийской олимпиады по праву Мы поможем в написании ваших работ! ЗНАЕТЕ ЛИ ВЫ?
Влияние общества на человека
Приготовление дезинфицирующих растворов различной концентрации Практические работы по географии для 6 класса Организация работы процедурного кабинета Изменения в неживой природе осенью Уборка процедурного кабинета Сольфеджио. Все правила по сольфеджио Балочные системы. Определение реакций опор и моментов защемления |
Правила и нормы охраны труда, техники безопасности при работе с вычислительной техникой↑ ⇐ ПредыдущаяСтр 5 из 5 Содержание книги
Поиск на нашем сайте
Во время работы запрещается: прикасаться к задней панели системного блока при включенном питании, переключение разъемов интерфейсных кабелей периферийных устройств при включенном питании, загромождать верхние панели устройств бумагами и посторонними предметами, допускать захламленность рабочего места бумагой в целях недопущения накапливания органической пыли, производить отключение питания во время выполнения активной задачи, производить частые переключения питания, допускать попадание влаги на поверхность системного блока, монитора, рабочую поверхность клавиатуры, дисководов, принтеров и др. устройств, включать сильно охлажденное оборудование, производить самостоятельно вскрытие и ремонт оборудования. По окончании работ необходимо соблюдать следующую последовательность выключения вычислительной техники: · Произвести закрытие всех активных задач; · Завершить работу операционной системы; · Выключить питание системного блока; · Выключить питание всех периферийных устройств; · Отключить блок бесперебойного питания. По окончании работ необходимо осмотреть и привести в порядок рабочее место. Обо всех неисправностях, возникших в процессе работы, сообщить ответственному. Снять спецодежду и другие средства индивидуальной защиты и убрать их в специально отведенное место. В конце рабочего дня вымыть лицо и руки теплой водой с мылом, при необходимости принять душ. Обо всех недостатках выявленных в течение работы, сообщить начальнику административно - хозяйственного отдела. Приложение Б Формы приложения Рисунок Б.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 Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Обратная связь - 3.142.40.195 (0.01 с.) |