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

 

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

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

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

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

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

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

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

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

МОСКВА-2011

Содержание

Введение

. Общая часть

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

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

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

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

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

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

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

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

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

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

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

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

.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 <#"justify">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 Методика создания приложений для баз данных

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Существующие на сегодняшний день методы тестирования ПО не позволяют однозначно и полностью выявить все дефекты и установить корректность функционирования анализируемой программы, поэтому все существующие методы тестирования действуют в рамках формального процесса проверки исследуемого или разрабатываемого ПО. Такой процесс формальной проверки или верификации <#"center">2. Специальная часть

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Анкета

ФамилияVarcharИмяVarchar ОтчествоVarcharДата рожденияdatetimeID-студента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):

oTPanel - логин;

oMainMenu - меню окна;

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

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

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

oEdit9 - Имя БД;

oLabel - Надписи;

oButton - Кнопки.

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

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

oMainMenu - меню окна;

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

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

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

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

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

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

oButton - Кнопки.

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 и более);

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

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

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

2.MS SQL Server.

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

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

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

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

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

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

Рис.1

Рис. 2

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

Рис.3

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

Рис.4

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

Рис.5

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

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

Заключение

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, Menus, StdCtrls, ExtCtrls, DB, ADODB, Grids, DBGrids, ComCtrls,, ActnMan, ActnCtrls, ActnMenus, StdStyleActnCtrls, ActnList, Buttons,;= class(TForm): TMainMenu;: TMenuItem;: TMenuItem;: TMenuItem;: TPanel;: TLabel;: TEdit;: TLabel;: TEdit;: TLabel;: TEdit;: TButton;: TButton;: TADOConnection;: TDataSource;: TADOQuery;: TMenuItem;:TLabel;:TPageControl;:TTabSheet;:TTabSheet;:TTabSheet;:TEdit;:TEdit;:TEdit;:TLabel;:TLabel;:TEdit;:TEdit;:TLabel;:TEdit;:TButton;:TLabel;:TEdit;:TEdit;:TLabel;:TLabel;:TEdit;:TDBGrid;:TGroupBox;:TDateTimePicker;:TButton;:TTabSheet;:TListBox;:TStringGrid;:TLabel;:TComboBox;:TLabel;:TEdit;:TButton;:TButton;Click(Sender:TObject);Click(Sender:TObject);Click(Sender:TObject);(Sender:TObject);(Sender:TObject);;Click(Sender:TObject);Click(Sender:TObject);Show(Sender:TObject);Click(Sender:TObject);Click(Sender:TObject);Show(Sender:TObject);;_1;Show(Sender:TObject);Click(Sender:TObject);Click(Sender:TObject);

{Privatedeclarations}

{Publicdeclarations};:TForm1;:TTreeNode;:cardinal;:arrayofstring;_Predmet:arrayofinteger;

{$R*.dfm}

//------------------------------------------------------------------------------.Svodka_1;_stud:arrayofinteger;,j:integer;:array[2..5]ofbyte;:=2to3doforj:=2to5dosg1.Cells[i,j]:=inttostr(0);:=0;j:=0;.SQL.Clear;.Text=''thenq.SQL.Add('selectid_studfromanketa').SQL.Add('selectid_studfromanketawhereid_gruppi='+edit8.Text);.Open;.First;.Eof=falsedo(ID_stud,i+1);_stud[i]:=q.Fields[0].Value;(i);.Next;;.Cells[1,0]:='Группа'+Edit8.Text;.Cells[3,0]:='Количествостудентов-'+inttostr(length(id_stud));:=0tolength(id_stud)-1do:=2to5donum[j]:=0;.SQL.Clear;.SQL.Add('selectocenkafromuspevaemostwhere');.SQL.Add('id_stud='+IntToStr(id_stud[i]));.Open;.First;.Eof=falsedo.Fields[0].Valueof

:inc(num[2]);

:inc(num[3]);

:inc(num[4]);

:inc(num[5]);;.Next;;:=2to5doifnum[j]>0then.Cells[2,7-j]:=IntToStr(StrToInt(sg1.Cells[2,7-j])+1);;;;:=2to5dosg1.Cells[3,i]:=FormatFloat('0.00',(StrToInt(sg1.Cells[2,i])/length(id_stud))*100);;

//------------------------------------------------------------------------------.Predmets;:integer;:=0;.SQL.Clear;.SQL.Add('select*fromPredmetorderbyid_predm');.Open;.First;.Eof=falsedo(Predmet,i+1);(ID_Predmet,i+1);_Predmet[i]:=q.Fields[0].Value;[i]:=q.Fields[1].Value;.Items.Add(Predmet[i]);(i);.Next;;;

//------------------------------------------------------------------------------.N6Click(Sender:TObject);.Terminate;;

//------------------------------------------------------------------------------.MSConnect;:integer;.ConnectionString:='Provider=SQLOLEDB.1'+

';Password='+Edit3.Text+

';PersistSecurityInfo=False'+

';UserID='+Edit2.Text+

';DataSource='+Edit1.Text+

';InitialCatalog='+Edit9.Text;.Open;('Немогусоединитьсясбазойданных');;;.Visible:=false;.Height:=form1.ClientHeight;.Width:=form1.ClientWidth;.ActivePage:=tabsheet1;.Visible:=true;.Enabled:=false;.Enabled:=true;;;

//------------------------------------------------------------------------------.Button1Click(Sender:TObject);;;

//------------------------------------------------------------------------------.Button2Click(Sender:TObject);.Visible:=false;;

//------------------------------------------------------------------------------.Button3Click(Sender:TObject);.Text:='';.Text:='';.SQL.Clear;.SQL.Add('select*fromAnketawherefam='+''''+Edit6.Text+'''');.Open;.First;.Eof=truethen('Данныхобэтомстудентенет');;;.Text:=q.Fields[1].Value;.Text:=q.Fields[2].Value;.Text:=q.Fields[4].Value;.Text:=q.Fields[5].Value;.Text:=q.Fields[3].Value;;

//-----------------------------------------------------------------------------.Button4Click(Sender:TObject);.Text=''thenexit;.sql.Clear;.SQL.Add('select*fromAnketawherefam='+''''+Edit6.Text+'''');.SQL.Add('andimya='+''''+Edit10.Text+'''');.SQL.Add('andotchestvo='+''''+Edit11.Text+'''');.Open;.First;.Eof=falsethen

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

exit;

end;.sql.Clear;.SQL.Add('selectid_studfromanketaorderbyid_stud');.Open;.Last;.Text:=IntToStr(q.Fields[0].Value+1);.sql.Clear;.SQL.Add('insertintoAnketavalues(');.SQL.Add(''''+Edit6.Text+''''+',');//фамилия.SQL.Add(''''+Edit10.Text+''''+',');//имя.SQL.Add(''''+Edit11.Text+''''+',');//отчество.SQL.Add(''''+Edit12.Text+''''+',');//датарождения.SQL.Add(Edit7.Text+',');//idстудента.SQL.Add(Edit8.Text+')');//группа.ExecSQL;.Text:='';

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

exit;

end;

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

//------------------------------------------------------------------------------.Connect1Click(Sender:TObject);.Visible:=true;;.Exit1Click(Sender:TObject);.Connected:=false;.Visible:=false;.Enabled:=true;.Enabled:=false;;

//------------------------------------------------------------------------------.FormCreate(Sender:TObject);.Top:=0;.Left:=0;.Top:=10;.Left:=210;.Parent:=tabsheet2;.Top:=0;.Left:=0;.Height:=tabsheet2.ClientHeight;.Width:=tabsheet2.ClientWidth;.Date:=date;.Cells[1,1]:='Успеваютна';.Cells[1,2]:='5';.Cells[1,3]:='4-5';.Cells[1,4]:='3-4-5';.Cells[1,5]:='2';.Cells[2,1]:='Количество';.Cells[3,1]:='%';;

//------------------------------------------------------------------------------.FormResize(Sender:TObject);.Height:=form1.ClientHeight;.Width:=form1.ClientWidth;;

//------------------------------------------------------------------------------.TabSheet2Show(Sender:TObject);.SQL.Clear;.Text=''then.SQL.Add('selectfamasФамилия,ImyaasИмя,OtchestvoasOтчество,data_rozdasРодился,id_gruppiasГруппаfromAnketaorderbyfam');.SQL.Add('selectfamasФамилия,ImyaasИмя,OtchestvoasOтчество,data_rozdasРодился');.SQL.Add('fromAnketawhereid_gruppi='+Edit8.Text);.SQL.Add('orderbyfam');;.Open;;

//-----------------------------------------------------------------------------.TabSheet3Show(Sender:TObject);:integer;.Clear;.Items.Add('Оценкиза'+FormatDateTime('dd.mm.yyyy',cal.Date));:=0;.SQL.Clear;.SQL.Add('selectocenka,id_predmfromuspevaemostwhereid_stud='+Edit7.Text);.SQL.Add('anddata_ocenki='+''''+FormatDateTime('mm.dd.yyyy',cal.Date)+'''');.SQL.Add('orderbyid_predm');.Open;.First;.Eof=falsedo:=0tolength(predmet)-1doifq.Fields[1].Value=ID_Predmet[j]thenbreak;.Items.Add(predmet[j]+'-'+IntToStr(q.Fields[0].Value));.Next;;;

//------------------------------------------------------------------------------.TabSheet4Show(Sender:TObject);_1;;

//------------------------------------------------------------------------------.Button5Click(Sender:TObject);.Text=''thenexit;.Text=''thenexit;.SQL.Clear;.SQL.Add('selectocenkafromuspevaemostwhereid_stud='+Edit7.Text);.SQL.Add('anddata_ocenki='+''''+FormatDateTime('mm.dd.yyyy',cal.Date)+'''');.SQL.Add('andid_predm='+IntToStr(ID_Predmet[combobox1.ItemIndex]));.Open;.First;.Eof=falsethen('Оценкаужесуществует');;;.sql.Clear;.SQL.Add('insertintouspevaemostvalues(');.SQL.Add(Edit13.Text+',');//оценка.SQL.Add(Edit7.Text+',');//idстудента.SQL.Add(IntToStr(ID_Predmet[combobox1.ItemIndex])+',');//idпредмета.SQL.Add(Edit8.Text+',');//группа.SQL.Add(''''+FormatDateTime('mm.dd.yyyy',cal.Date)+''''+')');//дата.ExecSQL;('Данныеневнесены');;;('Оценкавнесена');;.Button6Click(Sender:TObject);.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';.Text:='';;.

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

Больше работ по теме: