Электронный классный журнал

Размещено на http://www.allbest.ru/

22

Министерство образования и науки Российской федерации

Государственное образовательное учреждение среднего специального образования

Московский государственный колледж информационных технологий

(ГОУ СПО МГКИТ)

Специальность 230105 «Программное обеспечение вычислительной техники и автоматизированных систем»

КУРСОВОЙ ПРОЕКТ

по дисциплине «Разработка и эксплуатация удаленных баз данных»

на тему: «Электронный классный журнал»

МОСКВА-2011

Содержание

Введение

1. Общая часть

1.1 Цель разработки

1.2 Обоснование выбора среды разработки приложения

1.3 Характеристика среды разработки приложения

1.4 Методика создания приложений для баз данных

2. Специальная часть

2.1 Постановка задачи

2.2 Логическая схема БД

2.3 Описание структуры БД

2.4 Разработка приложения.

2.4.1 Схема функционирования приложения

2.4.2 Разработка Интерфейса пользователя

2.5 Описание Процесса отладки приложения

2.6 Инструкция пользователю

Заключение

Список литературы

Приложения

Введение

Данный курсовой проект посвящен разработке «Электронного классного журнала»(ЭКЖ).

Целью курсового проекта является приобретение навыков разработки приложения для работы с базой данных, с использованием объектно-ориентированного и визуального программирования. Задачи, которые необходимо решить при создании программного продукта:

· Анализ предметной области;

· Проектирование базы данных (БД);

· Разработка приложения для взаимодействия с БД.

Приложение представляет собой клиент-серверную систему:

· серверная часть: MS SQL Server

· клиентская - Borland Delphi 7

Эта программа будет востребована во многих учебных заведениях, так как представляет собой электронное отслеживание информации успеваемости для каждого из студентов.

«Электронный классный журнал» позволяет просматривать, а также изменять оценки студентов той или иной группы по определенному предмету по заданной дате.

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

1. Общая часть

1.1 Цель разработки

Цель разработки заключается в написании приложения БД с помощью Delphi 7 и создание базы данных с помощью MS SQL Server, программы контроля знаний учащихся согласно техническому заданию ГОУ СПО МГКИТ.

1.2 Обоснование выбора среды разработки приложения

Средства разработки MS SQL Server и Borland Delphi выбраны так как идеально подходят для выполнения задания и были изучены на протяжении курса образовательного учреждения.

1.3 Характеристика среды разработки приложения

Delphi (Дельфи) -- среда разработки, использует язык программирования Delphi (начиная с 7 версии язык в среде именуется Delphi, ранее -- Object Pascal), разработанный фирмой Borland и изначально реализованный в её пакете Borland Delphi, от которого и получил в 2003 году своё нынешнее название. Object Pascal, по сути является наследником языка Pascal с объектно-ориентированными расширениями.

Delphi - оптимальный инструмент для создания приложений для баз данных.

Оптимальный, т.к. поддерживает технологию визуальной разработки, которая позволяет существенно сократить время разработки (снизить стоимость, соответственно), при сохранении хорошего качества и надежности программного продукта. Delphi в структуре языка позволяет избегать скрытых ошибок.

Особенности семейства Delphi 7:

· Среда быстрой разработки приложений, в которой интегрированы средства моделирования разработки и развертывания приложений электронной коммерции и Web-сервисов.

· Поддержка языков программирования для Win32 (Delphi и C/C++) и для .NET (Delphi и C#) в единой среде разработки, что позволяет упростить сопровождение и создание новых приложений Win32 и более легко освоить технологии .NET;

· Возможность как для разработчиков традиционных приложений под Windows, так и для разработчиков, использующих Java, разрабатывать приложения .NET без отказа от используемого инструментария, с сохранением навыков и с аналогичными концепциями программирования;

· Новая система шаблонов кода и другие нововведения среды разработки качественно улучшают работу с исходными текстами и повышают производительность разработки;

Microsoft SQL Server 2000 - это законченное предложение в области баз данных и анализа данных для быстрого создания масштабируемых решений электронной коммерции, бизнес-приложений и хранилищ данных.

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

В сервер SQL Server 2000 включена поддержка языка XML и протокола HTTP, средства повышения быстродействия и доступности, позволяющие распределить нагрузку и обеспечить бесперебойную работу, функции для улучшения управления и настройки, снижающие совокупную стоимость владения.

Кроме того, SQL Server 2000 полностью использует все возможности операционной системы Windows, включая поддержку до 32 процессоров и 64 ГБ ОЗУ.

1.4 Методика создания приложений для баз данных

План разработки:

*Получение задания на курсовое проектирование.

* Изучение методических указаний курсовому проектированию.

* Изучение области данных и назначения разрабатываемого программного продукта.

* Подбор литературы.

* Составление алгоритма программы.

* Разработка технического задания на создание ЭКЖ.

* Разработка первой версии ЭКЖ.

* Опытная эксплуатация ЭКЖ.

* Разработка полнофункциональной версии ЭКЖ.

На данном этапе также осуществляется разработка программной и эксплуатационной документации.

* Проведение испытаний и подготовка ЭКЖ к эксплуатации.

* Оформление пояснительной записки Курсовой Работы.

* Сдача Курсовой Работы на проверку.

Определение требований к системе:

* определение архитектуры

* определение требований к техническому и программному обеспечению

* количество пользователей

Сбор и анализ требований от пользователей.

Проектирование базы данных:

· Концептуальная модель данных -- записанные знания о физических и логических объектах реального мира (люди, компоненты инфраструктуры, наряды на работу, договора, соглашения и т. д.), которыми необходимо управлять наиболее рациональным образом.

· Логическая модель данных -- описание объектов предметной области, их атрибутов и взаимосвязей между ними в том объеме, в котором они подлежат непосредственному хранению в базе данных системы. Строится на основе концептуальной модели данных.

· Физическая модель данных -- способ хранения данных в конкретной СУБД. Строится на основе логической модели данных.

Реализация приложения для работы с базой данных.

Программа состоит из графической и программной части.

Графическая часть - интерфейс, то что видит пользователь.

Программная часть это процедуры обработки событий.

В процессе создания выбирается количество окон программы, располагаются вспомогательные элементы (панель доступа, кнопки, окна ввода и вывода информации), пишутся процедуры обработки событий.

Тестирование

Существующие на сегодняшний день методы тестирования ПО не позволяют однозначно и полностью выявить все дефекты и установить корректность функционирования анализируемой программы, поэтому все существующие методы тестирования действуют в рамках формального процесса проверки исследуемого или разрабатываемого ПО. Такой процесс формальной проверки или верификации может доказать, что дефекты отсутствуют с точки зрения используемого метода. (То есть нет никакой возможности точно установить или гарантировать отсутствие дефектов в программном продукте с учётом человеческого фактора, присутствующего на всех этапах жизненного цикла ПО).

2. Специальная часть

2.1 Постановки задачи

Средствами MS SQL SERVER и DELPHI создать приложение, позволяющее осуществлять:

1) подключение БД определенного типа(как на локальном, так и на сетевом компьютере);

2) вывод на экран поисковой панели;

3) вывод на экран списка всех студентов и групп;

4) вывод на экран список студентов только одной группы;

5) вывод на экран информации об оценках по конкретному стеденту;

6) вывод на экран ведомости об успеваемости за отчетный период(год, день);

7) ввод оценки для студента по определенному предмету;

8) добавление студента в группу под личным(автоматическим) номером в списке;

2.2 Логическая схема БД

Физическая схема БД.

2.3 Описание структуры БД.

В спроектированной согласно заданию техническому заданию базе данных получилось 3 таблицы: Анкета, Успеваемость, Предмет.

Анкета

Фамилия	Varchar
Имя	Varchar
Отчество	Varchar
Дата рождения	datetime
ID-студента	Int	Первичный ключ
ID-группы	Int	Первичный ключ

Успеваемость

Оценка	Int
ID-студента	Int	Первичный ключ
ID-группы	Int	Первичный ключ
ID-предмета	Int	Первичный ключ
Дата оценки	datetime	Первичный ключ

Предмет

ID-предмета	Int	Первичный ключ
Название предмета	Varchar

2.4 Разработка приложения

2.4.1 Схема функционирования приложения

2.4.2 Разработка Интерфейса пользователя

После запуска exe-файла откроется стартовое окно для подключения БД.

(рис. 1)

(рис. 2)



(рис. 3)

(рис. 4)



(рис. 5)

Окно интерфейса состоит из 1 формы: Form1- окно подключения базы данных.

На ней (Form1) расположены компоненты:

· До подключения БД(рис 1):

o TPanel - логин;

o MainMenu - меню окна;

o Edit1 - Ip-адрес, TCP-порт сервера БД(1433-по умолчанию);

o Edit2 - Пользователь(SQL Server);

o Edit3 - Пароль(SQL Server);;

o Edit9 - Имя БД;

o Label - Надписи;

o Button - Кнопки.

· После подключения БД(рис 2):

o PageControl - Вкладки(Поиск, Группа, Оценки, Успеваемость);

o MainMenu - меню окна;

o Edit(6,7,8,10,11,12)- Информация о студенте;

o Edit13 - Ввод новой оценки;

o ComboBox1 - Выбор предмета для ввода новой оценки;

o DBGrid2 - Список студентов по группам;

o ListBox1 - Полученные оценки (по определенному студенту);

o SG1 - Сводка о текущей успеваемости ;

o Button - Кнопки.

2.5 Описание процесса отладки приложения

В процессе отладки не было выявлено ошибок.

№	Что проверяется	Входные данные	Выходные данные	Ожидаемый результат	Фактический результат	Результат тестирования
1	Ввод неверного адреса IP,TCP при входе	Набор символов (&$#*) и цифр	Табличка предупреждения «Не могу соединиться с БД»	Табличка предупреждения «Не могу соединиться с БД»	Табличка предупреждения «Не могу соединиться с БД»	Положительный
2	Ввод неверных данных(пользователь, пароль) при входе	Произвольные данные пользователя: фамилия и пароль	Табличка предупреждения «Не могу соединиться с БД»	Табличка предупреждения «Не могу соединиться с БД»	Табличка предупреждения «Не могу соединиться с БД»	Положительный
3	Ввод верных данных при входе	Набор символов (&$#*) и цифр	Вывод поисковой формы	Вывод поисковой формы	Вывод поисковой формы	Положительный
4	Поиск по фамилии (существующие данные в БД)	Произвольные данные пользователя: фамилия	Информация о студенте	Информация о студенте	Информация о студенте	Положительный
5	Поиск по фамилии (несуществующие данные в БД)	Произвольные данные пользователя: фамилия и пароль	Табличка предупреждения «Данных об этом студенте нет»	Табличка предупреждения «Данных об этом студенте нет»	Табличка предупреждения «Данных об этом студенте нет»	Положительный
6	Добавление оценки студенту	Набор символов (&$#*) и цифр	Табличка «Оценка внесена»	Табличка «Оценка внесена»	Табличка «Оценка внесена»	Положительно
7	Добавление существующей оценки студенту	Набор символов (&$#*) и цифр	Табличка предупреждения: «Оценка уже существует»	Табличка предупреждения: «Оценка уже существует»	Табличка предупреждения: «Оценка уже существует»	Положительно
8	Добавление нового студента(новые данные)	Ввод ФИО, даты рождения, группы	Оповещение: «Запись внесена»	Оповещение: «Запись внесена»	Оповещение: «Запись внесена»	Положительно
9	Добавление нового студента(существующие в БД данные)	Ввод ФИО, даты рождения, группы	Табличка предупреждения: «Студент с таким ФИО уже существует»	Табличка предупреждения: «Студент с таким ФИО уже существует»	Табличка предупреждения: «Студент с таким ФИО уже существует»	Положительно
10	Прекращение работы программы в окне подключения БД	Нажатие кнопки «Выход»	Закрытие программы	Закрытие программы	Закрытие программы	Положительно
11	Прекращение работы программы в информационном окне(Поиск, Список, Ведомость)	Нажатие системной кнопки закрытия окна Windows	Закрытие программы	Закрытие программы	Закрытие программы	Положительно

Отладка приложения проходила на ПК работая со следующими программными средствами: ОС Windows XP, язык программирования Borland Delphi 7, база данных MS SQL Server 2000.

Тестирование программы происходило по методу «черного ящика».

При тестировании методом «чёрного ящика», тестировщик имеет доступ к ПО только через те же интерфейсы, что и заказчик или пользователь, либо через внешние интерфейсы, позволяющие другому компьютеру либо другому процессу подключиться к системе для тестирования. Например, тестирующий модуль может виртуально нажимать клавиши или кнопки мыши в тестируемой программе с помощью механизма взаимодействия процессов, с уверенностью в том, все ли идёт правильно, что эти события вызывают тот же отклик, что и реальные нажатия клавиш и кнопок мыши. Как правило, тестирование чёрного ящика ведётся с использованием спецификаций или иных документов, описывающих требования к системе. Как правило, в данном виде тестирования критерий покрытия складывается из покрытия структуры входных данных, покрытия требований и покрытия модели (в тестировании на основе моделей).

Программа ЭКЖ проверялась на работоспособность в операционных
системах Windows версий 2000 Professional, XP Professional, Vista. Ни на одной из вышеупомянутых систем не наблюдалось сбоев в работе с приложением.

2.6 Инструкция пользователю.

Программа предназначена для ведения учета успеваемости студентов.

Для функционирования и работы с программой необходимы следующие требования.

Приложение должно работать на ПК, которое имеет следующие технические характеристики:

- процессор Pentium IV 2 ГГц и выше;

- оперативная память 512 МБ и более;

- видеоадаптер SVGA 8 МБ и более;

- жесткий диск объемом 20 ГБ и более;

- CD-ROM 4х и более;

- стандартный монитор (разрешение экрана 800х600 и более);

- устройства ввода мышь и клавиатура.

Программные требования:

1. Операционная система семейства Windows;

2. MS SQL Server.

Требования для пользователей: умение работы на ПК уровня простого пользователя. Для программиста: знание MS SQL Server и Borland Delphi 7.

Перед началом работы с СУБД необходимо подключить базу данных (STUDN).

Входные и Выходные данные:

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

Выходными данными является информация, которую запросил пользователь о том или ином студенте, группе.

Интерфейс пользователя состоит из окна подключения БД (Рис.1) и окна вывода информации из подключенной БД (рис. 2)

Рис.1

Рис. 2

На Рис.2 можно увидеть функции поиска и непосредственного вывода информации в полях. Также осуществлена возможность добавления студента и оценок.

Рис.3

На рис.3 - Вывод информации о всех группах, либо о введенной во вкладке «Поиск».

Рис.4

На Рис.4 - вывод существующих оценок каждого из студентов(Для вывода оценок во вкладке «Поиск» указать фамилию или id-студента).

Рис.5

На Рис.5 появляется возможность увидеть общую «Сводку о текущей успеваемости за год» как в количественном, так и в процентном соотношении

Для вывода общей успеваемости всех студентов - нажать клавишу «очистить» во вкладке «Поиск», для вывода успеваемости определенной группы - ввести номер группы во вкладке «Поиск».

Заключение

Курсовой проект посвящен разработке программы учета успеваемости студентов.

В ходе курсового проекта были решены следующие задачи:

1. Проектирование БД с помощью ERWIN Data Modeler и SQL Server 2000;

2. Разработка клиентского приложения с помощью языка программирования Delphi 7. В соответствии с предложенным техническим заданием был создан «Электронный классный журнал» «ЭКЖ», проведена следующая работа:

1. Подключение БД(локальной, сетевой)

2. Осуществление поиска студента по фамилии

3. Вывод на экран данных о студенте(ФИО, группа, id-студента, оценки(их дата), дата рождения);

4. Реализация «Сводки текущей успеваемости»

5. Добавление новых студентов в БД;

6. Добавление оценок студентам по дате, предмету.

Программа учета успеваемости облегчает работу классных руководителе и студентов в различных учебных заведениях. Реализуется это быстрым переходом от поиска к выводу успеваемости. Осуществлена возможность внесения новых оценок по различным предметам и дате. Имея определенные навыки программирования, есть возможность добавления новых предметов и реализации семестровой и дневной успеваемости.

проект приложение журнал база данные delphi

Список литературы

1. Delphi 7. Самоучитель программиста - И. Ю. Баженова, лекции по программированию;

2. Поисковая система Yandex.ru, Rambler.ru;

3. Пушников А.Ю. Введение в системы управления базами данных. Часть 1, часть 2;

4. Справочник по базе данных MySQL. Best MySQL small cookbook.

5. Лекции по РЭУБД;

6. Архангельский А. Я. Программирование в Delphi 7.-М.: ЗАО «Издательство БИНОМ», 2003;

7. ГОСТ 34.602-89 Требования к содержанию документа «Техническое задание».

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

unit Unit1;

interface

uses

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

Dialogs, Menus, StdCtrls, ExtCtrls, DB, ADODB, Grids, DBGrids, ComCtrls,

ToolWin, ActnMan, ActnCtrls, ActnMenus, StdStyleActnCtrls, ActnList, Buttons,

DBCtrls;

type

TForm1 = class(TForm)

MainMenu1: TMainMenu;

File1: TMenuItem;

Connect1: TMenuItem;

Exit1: TMenuItem;

Panel1: TPanel;

Label2: TLabel;

Edit1: TEdit;

Label3: TLabel;

Edit2: TEdit;

Label4: TLabel;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

ADO: TADOConnection;

DataSource1: TDataSource;

Q: TADOQuery;

N6: TMenuItem;

Label1:TLabel;

PageControl1:TPageControl;

TabSheet1:TTabSheet;

TabSheet2:TTabSheet;

TabSheet3:TTabSheet;

Edit4:TEdit;

Edit5:TEdit;

Edit6:TEdit;

Label5:TLabel;

Label6:TLabel;

Edit7:TEdit;

Edit8:TEdit;

Label7:TLabel;

Edit9:TEdit;

Button3:TButton;

Label8:TLabel;

Edit10:TEdit;

Edit11:TEdit;

Label9:TLabel;

Label10:TLabel;

Edit12:TEdit;

DBGrid2:TDBGrid;

GroupBox1:TGroupBox;

cal:TDateTimePicker;

Button4:TButton;

TabSheet4:TTabSheet;

ListBox1:TListBox;

sg1:TStringGrid;

Label12:TLabel;

ComboBox1:TComboBox;

Label13:TLabel;

Edit13:TEdit;

Button5:TButton;

Button6:TButton;

procedureButton1Click(Sender:TObject);

procedureButton2Click(Sender:TObject);

procedureConnect1Click(Sender:TObject);

procedureFormCreate(Sender:TObject);

procedureFormResize(Sender:TObject);

procedureMSConnect;

procedureN6Click(Sender:TObject);

procedureButton3Click(Sender:TObject);

procedureTabSheet2Show(Sender:TObject);

procedureExit1Click(Sender:TObject);

procedureButton4Click(Sender:TObject);

procedureTabSheet3Show(Sender:TObject);

procedurePredmets;

procedureSvodka_1;

procedureTabSheet4Show(Sender:TObject);

procedureButton5Click(Sender:TObject);

procedureButton6Click(Sender:TObject);

private

{Privatedeclarations}

public

{Publicdeclarations}

end;

var

Form1:TForm1;

node:TTreeNode;

c:cardinal;

Predmet:arrayofstring;

ID_Predmet:arrayofinteger;

implementation

{$R*.dfm}

//------------------------------------------------------------------------------

procedureTForm1.Svodka_1;

var

id_stud:arrayofinteger;

i,j:integer;

num:array[2..5]ofbyte;

begin

fori:=2to3doforj:=2to5dosg1.Cells[i,j]:=inttostr(0);

i:=0;j:=0;

q.SQL.Clear;

ifedit8.Text=''thenq.SQL.Add('selectid_studfromanketa')

elseq.SQL.Add('selectid_studfromanketawhereid_gruppi='+edit8.Text);

q.Open;

q.First;

whileQ.Eof=falsedo

begin

SetLength(ID_stud,i+1);

id_stud[i]:=q.Fields[0].Value;

inc(i);

q.Next;

end;

sg1.Cells[1,0]:='Группа'+Edit8.Text;

sg1.Cells[3,0]:='Количествостудентов-'+inttostr(length(id_stud));

fori:=0tolength(id_stud)-1do

begin

forj:=2to5donum[j]:=0;

q.SQL.Clear;

q.SQL.Add('selectocenkafromuspevaemostwhere');

q.SQL.Add('id_stud='+IntToStr(id_stud[i]));

q.Open;

q.First;

whileQ.Eof=falsedo

begin

caseq.Fields[0].Valueof

2:inc(num[2]);

3:inc(num[3]);

4:inc(num[4]);

5:inc(num[5]);

end;

q.Next;

end;

forj:=2to5doifnum[j]>0then

begin

sg1.Cells[2,7-j]:=IntToStr(StrToInt(sg1.Cells[2,7-j])+1);

break;

end;

end;

fori:=2to5dosg1.Cells[3,i]:=FormatFloat('0.00',(StrToInt(sg1.Cells[2,i])/length(id_stud))*100);

end;

//------------------------------------------------------------------------------

procedureTForm1.Predmets;

var

i:integer;

begin

i:=0;

q.SQL.Clear;

q.SQL.Add('select*fromPredmetorderbyid_predm');

q.Open;

q.First;

whileQ.Eof=falsedo

begin

SetLength(Predmet,i+1);

SetLength(ID_Predmet,i+1);

ID_Predmet[i]:=q.Fields[0].Value;

Predmet[i]:=q.Fields[1].Value;

combobox1.Items.Add(Predmet[i]);

inc(i);

q.Next;

end;

end;

//------------------------------------------------------------------------------

procedureTForm1.N6Click(Sender:TObject);

begin

Application.Terminate;

end;

//------------------------------------------------------------------------------

procedureTForm1.MSConnect;

var

i:integer;

begin

ado.ConnectionString:='Provider=SQLOLEDB.1'+

';Password='+Edit3.Text+

';PersistSecurityInfo=False'+

';UserID='+Edit2.Text+

';DataSource='+Edit1.Text+

';InitialCatalog='+Edit9.Text;

try

ado.Open;

except

ShowMessage('Немогусоединитьсясбазойданных');

exit;

end;

panel1.Visible:=false;

pagecontrol1.Height:=form1.ClientHeight;

pagecontrol1.Width:=form1.ClientWidth;

pagecontrol1.ActivePage:=tabsheet1;

pagecontrol1.Visible:=true;

connect1.Enabled:=false;

exit1.Enabled:=true;

Predmets;

end;

//------------------------------------------------------------------------------

procedureTForm1.Button1Click(Sender:TObject);

begin

MSConnect;

end;

//------------------------------------------------------------------------------

procedureTForm1.Button2Click(Sender:TObject);

begin

Panel1.Visible:=false;

end;

//------------------------------------------------------------------------------

procedureTForm1.Button3Click(Sender:TObject);

begin

Edit8.Text:='';

Edit7.Text:='';

q.SQL.Clear;

q.SQL.Add('select*fromAnketawherefam='+''''+Edit6.Text+'''');

q.Open;

q.First;

ifQ.Eof=truethen

begin

ShowMessage('Данныхобэтомстудентенет');

exit;

end;

edit10.Text:=q.Fields[1].Value;

edit11.Text:=q.Fields[2].Value;

edit7.Text:=q.Fields[4].Value;

edit8.Text:=q.Fields[5].Value;

edit12.Text:=q.Fields[3].Value;

end;

//-----------------------------------------------------------------------------

procedureTForm1.Button4Click(Sender:TObject);

begin

ifedit6.Text=''thenexit;

q.sql.Clear;

q.SQL.Add('select*fromAnketawherefam='+''''+Edit6.Text+'''');

q.SQL.Add('andimya='+''''+Edit10.Text+'''');

q.SQL.Add('andotchestvo='+''''+Edit11.Text+'''');

q.Open;

q.First;

ifQ.Eof=falsethen

begin

ShowMessage('Студентстакойфамилией,именемиотчествомужесуществует');

exit;

end;

q.sql.Clear;

q.SQL.Add('selectid_studfromanketaorderbyid_stud');

q.Open;

q.Last;

edit7.Text:=IntToStr(q.Fields[0].Value+1);

q.sql.Clear;

q.SQL.Add('insertintoAnketavalues(');

q.SQL.Add(''''+Edit6.Text+''''+',');//фамилия

q.SQL.Add(''''+Edit10.Text+''''+',');//имя

q.SQL.Add(''''+Edit11.Text+''''+',');//отчество

q.SQL.Add(''''+Edit12.Text+''''+',');//датарождения

q.SQL.Add(Edit7.Text+',');//idстудента

q.SQL.Add(Edit8.Text+')');//группа

try

q.ExecSQL;

except

edit7.Text:='';

ShowMessage('Немогузаписатьданные,провертеправильностьввода');

exit;

end;

ShowMessage('Записьдобавлена');

end;

//------------------------------------------------------------------------------

procedureTForm1.Connect1Click(Sender:TObject);

begin

Panel1.Visible:=true;

end;

procedureTForm1.Exit1Click(Sender:TObject);

begin

ado.Connected:=false;

pagecontrol1.Visible:=false;

connect1.Enabled:=true;

exit1.Enabled:=false;

end;

//------------------------------------------------------------------------------

procedureTForm1.FormCreate(Sender:TObject);

begin

pagecontrol1.Top:=0;

pagecontrol1.Left:=0;

panel1.Top:=10;

panel1.Left:=210;

dbgrid2.Parent:=tabsheet2;

dbgrid2.Top:=0;

dbgrid2.Left:=0;

dbgrid2.Height:=tabsheet2.ClientHeight;

dbgrid2.Width:=tabsheet2.ClientWidth;

cal.Date:=date;

sg1.Cells[1,1]:='Успеваютна';

sg1.Cells[1,2]:='5';

sg1.Cells[1,3]:='4-5';

sg1.Cells[1,4]:='3-4-5';

sg1.Cells[1,5]:='2';

sg1.Cells[2,1]:='Количество';

sg1.Cells[3,1]:='%';

end;

//------------------------------------------------------------------------------

procedureTForm1.FormResize(Sender:TObject);

begin

pagecontrol1.Height:=form1.ClientHeight;

pagecontrol1.Width:=form1.ClientWidth;

end;

//------------------------------------------------------------------------------

procedureTForm1.TabSheet2Show(Sender:TObject);

begin

q.SQL.Clear;

ifEdit8.Text=''then

begin

q.SQL.Add('selectfamasФамилия,ImyaasИмя,OtchestvoasOтчество,data_rozdasРодился,id_gruppiasГруппаfromAnketaorderbyfam');

end

else

begin

q.SQL.Add('selectfamasФамилия,ImyaasИмя,OtchestvoasOтчество,data_rozdasРодился');

q.SQL.Add('fromAnketawhereid_gruppi='+Edit8.Text);

q.SQL.Add('orderbyfam');

end;

q.Open;

end;

//-----------------------------------------------------------------------------

procedureTForm1.TabSheet3Show(Sender:TObject);

var

j:integer;

begin

listbox1.Clear;

listbox1.Items.Add('Оценкиза'+FormatDateTime('dd.mm.yyyy',cal.Date));

j:=0;

q.SQL.Clear;

q.SQL.Add('selectocenka,id_predmfromuspevaemostwhereid_stud='+Edit7.Text);

q.SQL.Add('anddata_ocenki='+''''+FormatDateTime('mm.dd.yyyy',cal.Date)+'''');

q.SQL.Add('orderbyid_predm');

q.Open;

q.First;

whileQ.Eof=falsedo

begin

forj:=0tolength(predmet)-1doifq.Fields[1].Value=ID_Predmet[j]thenbreak;

listbox1.Items.Add(predmet[j]+'-'+IntToStr(q.Fields[0].Value));

q.Next;

end;

end;

//------------------------------------------------------------------------------

procedureTForm1.TabSheet4Show(Sender:TObject);

begin

Svodka_1;

end;

//------------------------------------------------------------------------------

procedureTForm1.Button5Click(Sender:TObject);

begin

ifedit13.Text=''thenexit;

ifcombobox1.Text=''thenexit;

q.SQL.Clear;

q.SQL.Add('selectocenkafromuspevaemostwhereid_stud='+Edit7.Text);

q.SQL.Add('anddata_ocenki='+''''+FormatDateTime('mm.dd.yyyy',cal.Date)+'''');

q.SQL.Add('andid_predm='+IntToStr(ID_Predmet[combobox1.ItemIndex]));

q.Open;

q.First;

ifq.Eof=falsethen

begin

ShowMessage('Оценкаужесуществует');

exit;

end;

q.sql.Clear;

q.SQL.Add('insertintouspevaemostvalues(');

q.SQL.Add(Edit13.Text+',');//оценка

q.SQL.Add(Edit7.Text+',');//idстудента

q.SQL.Add(IntToStr(ID_Predmet[combobox1.ItemIndex])+',');//idпредмета

q.SQL.Add(Edit8.Text+',');//группа

q.SQL.Add(''''+FormatDateTime('mm.dd.yyyy',cal.Date)+''''+')');//дата

try

q.ExecSQL;

except

ShowMessage('Данныеневнесены');

exit;

end;

ShowMessage('Оценкавнесена');

end;

procedureTForm1.Button6Click(Sender:TObject);

begin

edit6.Text:='';

edit7.Text:='';

edit8.Text:='';

edit10.Text:='';

edit11.Text:='';

edit12.Text:='';

end;

end.

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