5 Разработка диалогов приложения и пользователя
Для легкой, удобной и быстрой работы программа имеет простой и понятный интерфейс, который не заставляет пользователя задумываться над тем, какие действия ему необходимо провести далее.
Главная форма программы содержит следующие пункты главного меню:
- Работа;
- Администраторское меню;
- about.
Внешний вид главной формы программы приведен на рисунке 2.
Рисунок 2 – Главная форма программы
Внешний вид формы регистрации пользователя, в соответствии с рисунком 2.1.
Рисунок 2.1 – Форма регистрации пользователя
Внешний вид формы выбора темы теста, в соответствии с рисунком 2.2.
Рисунок 2.2 – Форма выбора темы тестирования
Внешний вид формы выполнения теста, в соответствии с рисунком 2.3.
Рисунок 2.3 – Форма выполнения теста
Внешний вид сообщения пользователю об окончании теста, в соответствии с рисунком 2.4.
Рисунок 2.4 – Сообщение пользователю об окончании теста
Внешний вид формы выполнения проверочной работы, в соответствие с рисунком 2.5.
Рисунок 2.5 – Форма выполнения проверочной работы
Внешний вид формы администраторского меню, в соответствие с рисунком 2.6.
Рисунок 2.6 – Форма администраторского меню
Внешний вид формы редактирования результатов теста, в соответствии с рисунком 2.7.
Рисунок 2.7 – Форма редактора результатов теста
Внешний вид формы поиска информации по проведению тестирование, в соответствии с рисунком 2.8.
Рисунок 2.8 – Поиск информации по тестированию
Внешний вид формы редактирования видов работ, в соответствии с рисунком 2.9.
Рисунок 2.9 – Справочник видов работ
Внешний вид формы смены администраторского пароля, в соответствии с рисунком 2.10.
Рисунок 2.10 – Форма смены администраторского пароля
Внешний вид формы с отчетом, в соответствии с рисунком 2.11.
Рисунок 2.11 - Отчет
6 Руководство пользователя
Выполнение программы:
- перед началом работы с программой необходимо проверить соответствие аппаратных и программных средств вашего компьютера вышеуказанным;
- запустить программу с помощью файла «тестирование.exe»;
- если запуск произошел успешно, то на экране вы увидите следующее окно:
Рисунок 3 – Сообщение пользователю
- необходимо задать пароль администратора, который будет в дальнейшем использоваться при администрировании программы:
Рисунок 4 – Назначение пароля
- затем на экране отображается главная форма программы, которая содержит следующие пункты главного меню, в соответствии с рисунком 5:
- пуск;
- администрирование;
- about.
Рисунок 5 – Главное окно
- для вызова меню администратора необходимо проследовать в пункт главного меню «меню администратора», в соответствии с рисунком 6:
Рисунок 6 – Меню администратор
- меню администратора предоставляет следующие возможности администрирования:
- редактирование тестов, в соответствии с рисунком 7;
Рисунок 7 – Редактор тестов
- редактирование результатов тестов, в соответствии с рисунком 8;
Рисунок 8 – Редактор результатов тестов
- смена администраторского пароля, в соответствии с рисунком 9;
Рисунок 9 – Смена администраторского пароля
- редактирование справочника групп, в соответствии с рисунком 10;
Рисунок 10 – Редактирование справочника групп
- редактирование справочника пользователей, в соответствии с рисунком 11;
Рисунок 11 – Редактирование справочника пользователей
- вывод отчета , в соответствии с рисунком 12;
Рисунок 12 – Поиск и вывод информации
- чтобы приступить к тестированию необходимо выбрать пункт главного меню «пуск», при этом на экране появится следующее окно, в соответствии с рисунком 13;
Рисунок 13 – Выбор пользователя
- далее необходимо создать нового пользователя либо выбрать его из уже существующих. После этого на экране появится окно выбора темы, в соответствии с рисунком 14;
Рисунок 14 – Окно выбора темы
- после выбора необходимой темы из предложенного списка необходимо нажать кнопку «Начали», после чего на экране появится следующее окно, в соответствии с рисунком 15;
Рисунок 15 – Окно теста
- по окончанию выполнения теста программа подведет итоги выполнения, в соответствии с рисунком 16;
Рисунок 16 – Итоги проведения теста
- перед началом выполнения проверочных работ необходимо сначала заполнить справочник видов работ в соответствие с рисунком 17;
Рисунок 17 – Справочник видов работ
- далее для каждой работы написать условие выполнения, в соответствии с рисунком 18;
Рисунок 18 – Условие работы
- после чего можно приступать к выполнению самой работы, соответствие с рисунком 19;
Рисунок 19 – Выполнение работы
Заключение
В данной курсовой работе я представил программу, выполняющую функции тестирующей системы. Я постарался выполнить программу так, чтобы в ней сочетались и интуитивно понятный интерфейс, и нужная функциональность.
Так же возможна последующее усовершенствование программы: доработка алгоритма вывода вопросов тестируемому в случайном порядке, добавление настроек размеров и цвета форм, Реализовать возможность пропуска вопроса тестируемым с последующей возможностью возврата к нему и многое другое.
Приложение А
Листинг программы
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit7.h"
#include "Unit9.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit6.h"
#include "Unit8.h"
#pragma package(smart_init)
#pragma link "sSkinManager"
#pragma link "sSkinProvider"
#pragma link "sBitBtn"
#pragma link "sHintManager"
#pragma link "sBitBtn"
#pragma link "sSkinManager"
#pragma link "sCheckBox"
#pragma resource "*.dfm"
TForm1 *Form1;
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm1::N1Click(TObject *Sender)
{
Form2->ShowModal();
}
void __fastcall TForm1::N2Click(TObject *Sender)
{
Form3->ShowModal();
}
void __fastcall TForm1::N3Click(TObject *Sender)
{
Form4->ShowModal();
}
void __fastcall TForm1::N4Click(TObject *Sender)
{
Form5->ShowModal();
}
void __fastcall TForm1::N5Click(TObject *Sender)
{
Application->Terminate();
}
void __fastcall TForm1::sBitBtn1Click(TObject *Sender)
{
Form2->ShowModal();
}
void __fastcall TForm1::sBitBtn2Click(TObject *Sender)
{
Form3->ShowModal();
}
void __fastcall TForm1::sBitBtn4Click(TObject *Sender)
{
Form5->ShowModal();
}
void __fastcall TForm1::sBitBtn5Click(TObject *Sender)
{
Form7->ShowModal();
}
void __fastcall TForm1::sBitBtn3Click(TObject *Sender)
{
Form4->ShowModal();
}
void __fastcall TForm1::N6Click(TObject *Sender)
{
Form7->ShowModal();
}
void __fastcall TForm1::sBitBtn6Click(TObject *Sender)
{
Application->Terminate();
}
void __fastcall TForm1::N7Click(TObject *Sender)
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp1->Play();
Form9->ShowModal();
}
void __fastcall TForm1::N8Click(TObject *Sender)
{
Form2->Show();
}
void __fastcall TForm1::N9Click(TObject *Sender)
{
Form3->Show();
}
void __fastcall TForm1::N10Click(TObject *Sender)
{
if(sCheckBox1->Checked==True)
mp1->Play();
Form7->ShowModal();
}
void __fastcall TForm1::FormShow(TObject *Sender)
{
mp1->Open();
mp2->Open();
mp3->Open();
mp4->Open();
}
#include <vcl.h>
#pragma hdrstop
#include <io.h>
#include "Unit2.h"
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma link "sComboBox"
#pragma resource "*.dfm"
TForm2 *Form2;
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
#include <vcl.h>
#pragma hdrstop
#include "Unit3.h"
#pragma package(smart_init)
#pragma link "acProgressBar"
#pragma link "sTrackBar"
#pragma link "sGauge"
#pragma link "sPanel"
#pragma link "sToolBar"
#pragma resource "*.dfm"
TForm3 *Form3;
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
#include <vcl.h>
#pragma hdrstop
#include "Unit4.h"
#include "Unit7.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit8.h"
#include "Unit9.h"
#pragma package(smart_init)
#pragma link "sGauge"
#pragma link "CGAUGES"
#pragma link "acProgressBar"
#pragma link "sGroupBox"
#pragma link "sPanel"
#pragma link "sBevel"
#pragma link "sButton"
#pragma link "sLabel"
#pragma link "sRadioButton"
#pragma resource "*.dfm"
TForm4 *Form4;
int t=0,f=0; // праильные и не правильные ответы
int s=1; // время выполнения
int t2; // обратный отсчет
__fastcall TForm4::TForm4(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm4::Timer1Timer(TObject *Sender)
{
sLabel14->Caption = IntToStr(s++);
sLabel15->Caption = IntToStr(sGauge2->Progress-1);
if (sGauge2->Progress!=0)
sGauge2->Progress=sGauge2->Progress-1;
else
{
Timer1->Enabled=False;
Timer2->Enabled=False;
ShowMessage("ВЫ НЕ УЛОЖИЛИСЬ В ОТВЕДЁННОЕ ВРЕМЯ!!!\nТест окончен!\nКол-во верных ответов: "+IntToStr(t)+" из "+IntToStr(ADOTable1->RecordCount)+"\nЗатрачено времени (сек): "+IntToStr(s-2)+"\nРезультаты теста сохранены");
Form13->ADOTable1->Active=True;
Form13->ADOTable1->Append();
Form13->DBEdit1->Text=Form7->DBEdit1->Text;
Form13->DBEdit2->Text=Form7->DBEdit2->Text;
Form13->DBEdit3->Text=Form15->DBLookupComboBox1->Text;
if (f==0)
{
if (t==0)
Form13->DBEdit4->Text="0";
if (t==ADOTable1->RecordCount)
Form13->DBEdit4->Text="100";
else
Form13->DBEdit4->Text= t*100/ADOTable1->RecordCount;
}
if (t==0)
Form13->DBEdit4->Text="0";
else
Form13->DBEdit4->Text= t*100/ADOTable1->RecordCount;
Form13->DBEdit5->Text=s-1;
Form13->DBEdit6->Text=Date();
Form13->ADOTable1->Post();
Form13->ADOTable1->Active=False;
t=0;
f=0;
Form4->Close();
}
}
void __fastcall TForm4::FormClose(TObject *Sender, TCloseAction &Action)
{
Timer1->Enabled=False;
Timer2->Enabled=False;
}
void __fastcall TForm4::Timer2Timer(TObject *Sender)
{
sLabel4->Caption=DBText2->Caption;
}
void __fastcall TForm4::sButton1Click(TObject *Sender)
{
if ((sRadioButton1->Checked==false)&&(sRadioButton2->Checked==false)
&&(sRadioButton3->Checked==false))
{
ShowMessage("Выберитие вариант ответа!!!");
sRadioButton1->Checked=false;
sRadioButton2->Checked=false;
sRadioButton3->Checked=false;
}
else
{
if (sRadioButton1->Checked)
{
if (ADOTable1v1->Value==ADOTable1otvet->Value)
{
Label16->Font->Color=clGreen;
sLabel16->Caption="ПРАВИЛЬНО";
t++;
}
else
{
sLabel16->Font->Color=clRed;
sLabel16->Caption="НЕПРАВИЛЬНО";
f++;
}
}
if (sRadioButton2->Checked)
{
if (ADOTable1v2->Value==ADOTable1otvet->Value)
{
sLabel16->Font->Color=clGreen;
sLabel16->Caption="ПРАВИЛЬНО";
t++;
}
else
{
sLabel16->Font->Color=clRed;
sLabel16->Caption="НЕПРАВИЛЬНО";
f++;
}
}
if (sRadioButton3->Checked)
{
if (ADOTable1v3->Value==ADOTable1otvet->Value)
{
sLabel16->Font->Color=clGreen;
sLabel16->Caption="ПРАВИЛЬНО";
t++;
}
else
{
sLabel16->Font->Color=clRed;
sLabel16->Caption="НЕПРАВИЛЬНО";
f++;
}
}
sGauge1->Progress=ADOTable1->RecNo;
sLabel12->Caption=IntToStr(t);
sLabel13->Caption=IntToStr(f);
if (ADOTable1->RecNo==ADOTable1->RecordCount)
{
Timer1->Enabled=false;
ShowMessage("Тест окончен!\nКол-во верных ответов: "+IntToStr(t)+" из "+
IntToStr(ADOTable1->RecordCount)+"\nЗатрачено времени (сек): "+IntToStr(s-1)+
+"\nРезультаты теста сохранены");
Form13->ADOTable1->Active=True;
Form13->ADOTable1->Append();
Form13->DBEdit1->Text=Form7->DBEdit1->Text;
Form13->DBEdit2->Text=Form7->DBEdit2->Text;
Form13->DBEdit3->Text=Form15->DBLookupComboBox1->Text;
if (f==0)
{
if (t==0)
Form13->DBEdit4->Text="0";
if (t==ADOTable1->RecordCount)
Form13->DBEdit4->Text="100";
else
Form13->DBEdit4->Text= t*100/ADOTable1->RecordCount;
}
if (t==0)
Form13->DBEdit4->Text="0";
else
Form13->DBEdit4->Text= t*100/ADOTable1->RecordCount;
Form13->DBEdit5->Text=s-1;
Form13->DBEdit6->Text=Date();
Form13->ADOTable1->Post();
Form13->ADOTable1->Active=False;
t=0;
f=0;
Form4->Close();
}
ADOTable1->Next();
sRadioButton1->Checked=false;
sRadioButton2->Checked=false;
sRadioButton3->Checked=false;
}
}
void __fastcall TForm4::FormShow(TObject *Sender)
{
t=0;
f=0;
s=1; // время выполнения в секундах
t2=0;
t2=StrToInt(sLabel15->Caption);
sLabel16->Caption="";
sLabel14->Caption="0";
sLabel12->Caption="0";
sLabel13->Caption="0";
sLabel7->Caption="0";
sLabel15->Caption=Form15->DBText1->Caption;
ADOTable1->First();
sGauge1->Progress=0;
sGauge1->MaxValue=ADOTable1->RecordCount;
sGauge2->MaxValue=StrToInt(Form15->DBText1->Caption);
sGauge2->Progress=StrToInt(Form15->DBText1->Caption);
ShowMessage("Время пошло!");
Timer1->Enabled=True;
Timer2->Enabled=True;
sLabel7->Caption=IntToStr(ADOTable1->RecordCount);
}
#include <vcl.h>
#pragma hdrstop
#include "Unit5.h"
#pragma package(smart_init)
#pragma link "acPNG"
#pragma link "sLabel"
#pragma link "sPanel"
#pragma link "sSpeedButton"
#pragma resource "*.dfm"
TForm5 *Form5;
__fastcall TForm5::TForm5(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm5::sSpeedButton7Click(TObject *Sender)
{
Form5->Close();
}
#include <vcl.h>
#pragma hdrstop
#include "Unit6.h"
#include "Unit7.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit8.h"
#include "Unit9.h"
#include "Unit15.h"
#pragma package(smart_init)
#pragma link "sButton"
#pragma link "sGroupBox"
#pragma link "sPanel"
#pragma resource "*.dfm"
TForm6 *Form6;
__fastcall TForm6::TForm6(TComponent* Owner): TForm(Owner)
{
}
void __fastcall TForm6::Button2Click(TObject *Sender)
{
Form7->ADOTable1->Cancel();
Form6->Close();
}
void __fastcall TForm6::FormActivate(TObject *Sender)
{
DBEdit1->SetFocus();
}
void __fastcall TForm6::sButton1Click(TObject *Sender)
{
if ((DBEdit1->Text=="")||(DBLookupComboBox1->Text==""))
ShowMessage("Заполните все поля.");
else
{
Form7->ADOTable1->Post();
Form6->Close();
}
}
void __fastcall TForm6::sButton2Click(TObject *Sender)
{
Form7->ADOTable1->Cancel();
Form6->Close();
}
void __fastcall TForm6::FormShow(TObject *Sender)
{
Form12->ADOTable1->Active=True;
}
void __fastcall TForm6::FormClose(TObject *Sender, TCloseAction &Action)
{
Form12->ADOTable1->Active=False;
}
#include <vcl.h>
#pragma hdrstop
#include "Unit7.h"
#include "Unit1.h"
#include "Unit6.h"
#include "Unit8.h"
#include "Unit9.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#pragma package(smart_init)
#pragma link "sButton"
#pragma link "sGroupBox"
#pragma link "sPanel"
#pragma resource "*.dfm"
TForm7 *Form7;
__fastcall TForm7::TForm7(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm7::Button1Click(TObject *Sender)
{
Form7->ADOTable1->Insert();
Form6->ShowModal();
}
void __fastcall TForm7::Button3Click(TObject *Sender)
Form7->ADOTable1->Delete();
}
void __fastcall TForm7::sButton4Click(TObject *Sender)
{
Form7->Close();
Form4->Close();
}
void __fastcall TForm7::sButton2Click(TObject *Sender)
{
Form7->Close();
Form15->ShowModal();
}
void __fastcall TForm7::sButton1Click(TObject *Sender)
{
ADOTable1->Insert();
Form6->ShowModal();
}
#include <vcl.h>
#pragma hdrstop
#include "Unit8.h"
#include "Unit7.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit9.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm8 *Form8;
__fastcall TForm8::TForm8(TComponent* Owner) : TForm(Owner)
{
}
void __fastcall TForm8::FormShow(TObject *Sender)
{
Form13->ADOTable1->Active=False;
Form13->ADOTable1->Refresh();
}
void __fastcall TForm8::FormClose(TObject *Sender, TCloseAction &Action)
{
Form13->ADOTable1->Active=False;
}
#include <vcl.h>
#pragma hdrstop
#include "Unit9.h"
#include "Unit1.h"
#include "Unit4.h"
#include "Unit7.h"
#include "Unit10.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit8.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#pragma package(smart_init)
#pragma link "sPanel"
#pragma link "sSpeedButton"
#pragma resource "*.dfm"
TForm9 *Form9;
__fastcall TForm9::TForm9(TComponent* Owne : TForm(Owner)
{
}
void __fastcall TForm9::Button5Click(TObject *Sender)
{
Form4->ADOTable1->Delete();
}
void __fastcall TForm9::Button4Click(TObject *Sender)
{
Form4->ADOTable1->Cancel();
}
void __fastcall TForm9::Button1Click(TObject *Sender)
{
Form4->ADOTable1->Insert();
}
void __fastcall TForm9::Button2Click(TObject *Sender)
{
Form4->ADOTable1->Post();
void __fastcall TForm9::Button3Click(TObject *Sender)
{
Form4->ADOTable1->Edit();
}
void __fastcall TForm9::Button6Click(TObject *Sender)
{
Form7->ADOTable1->Insert();
void __fastcall TForm9::Button7Click(TObject *Sender)
{
Form7->ADOTable1->Post();
}
void __fastcall TForm9::Button8Click(TObject *Sender)
{
Form7->ADOTable1->Edit();
}
void __fastcall TForm9::Button9Click(TObject *Sender)
{
Form7->ADOTable1->Delete();
}
void __fastcall TForm9::Button10Click(TObject *Sender)
{
Form7->ADOTable1->Cancel();
}
void __fastcall TForm9::sSpeedButton1Click(TObject *Sender)
{
Form10->ShowModal();
}
void __fastcall TForm9::sSpeedButton2Click(TObject *Sender)
{
Form13->ShowModal();
}
void __fastcall TForm9::sSpeedButton5Click(TObject *Sender)
{
Form12->ShowModal();
}
void __fastcall TForm9::sSpeedButton8Click(TObject *Sender)
{
Form9->Close();
}
void __fastcall TForm9::sSpeedButton6Click(TObject *Sender)
{
Form11->ShowModal();
}
void __fastcall TForm9::sSpeedButton4Click(TObject *Sender)
{
Form8->QuickRep1->Preview();
}
#include <vcl.h>
#pragma hdrstop
#include "Unit10.h"
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#include "Unit11.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit12.h"
#pragma package(smart_init)
#pragma link "sGroupBox"
#pragma link "sPanel"
#pragma link "sButton"
#pragma link "sEdit"
#pragma link "sSpeedButton"
#pragma resource "*.dfm"
TForm10 *Form10;
__fastcall TForm10::TForm10(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm10::sButton1Click(TObject *Sender)
{
AnsiString str;
int i=0;
char str2;
if (sEdit1->Text!="")
DBEdit2->Text=str;
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("CREATE TABLE "+sEdit1->Text+ "(vopros char(50), v1 char(20), v2 char(20),v3 char(20),otvet char(20))");
ADOQuery1->ExecSQL();
DataSource1->DataSet->Insert();
DBEdit1->Text=sEdit1->Text;
DataSource1->DataSet->Post();
sEdit1->Visible=False;
sButton1->Visible=False;
sButton13->Visible=False;
ShowMessage("Тест '"+DBEdit1->Text+ "' успешно добавлен в базу.");
sEdit1->Text="";
}
else
ShowMessage("Ведите название нового теста");
void __fastcall TForm10::sSpeedButton1Click(TObject *Sender)
{
sEdit1->Visible=True;
sButton1->Visible=True;
sButton13->Visible=True;
}
void __fastcall TForm10::sSpeedButton2Click(TObject *Sender)
{
if (DBLookupComboBox1->Text!="")
{
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Add("DROP TABLE " +DBEdit1->Text);
ADOQuery1->ExecSQL();
DataSource1->DataSet->Delete();
ShowMessage("Тест '" +DBLookupComboBox1->Text+ "' успешно удален из базы.");
DBLookupComboBox1->ListFieldIndex=0;
ADOTable1->Active=False;
ADOTable1->Active=True;
}
else
ShowMessage("Пожалуйсто, укажите в списке тест, который необходимо удалить.");
}
void __fastcall TForm10::sSpeedButton3Click(TObject *Sender)
{
if (DBLookupComboBox2->Text!="")
{
Form14->ADOTable1->Active=False;
Form14->ADOTable1->TableName="";
Form14->ADOTable1->TableName=DBLookupComboBox2->Text;
ADOTable1->Active=False;
ADOTable1->Active=True;
Form14->Caption=DBLookupComboBox2->Text;
Form14->Show();
}
else
ShowMessage("Пожалуйсто, укажите в списке тест, который необходимо отредактировать.");
}
void __fastcall TForm10::sSpeedButton4Click(TObject *Sender)
{
if (DBLookupComboBox3->Text!="")
{
Form14->ADOTable1->Active=False;
Form14->ADOTable1->TableName="";
Form14->ADOTable1->TableName=DBLookupComboBox3->Text;
Form14->ADOTable1->Active=True;
if (Form14->ADOTable1->RecordCount!=0)
{
sSpeedButton4->Visible=False;
DBLookupComboBox3->Visible=False;
sPanel1->Visible=True;
}
else
ShowMessage("В тесте должен быть хотябы один вопрос.");
}
else
ShowMessage("Необходимо выбрать тест из списка.");
}
void __fastcall TForm10::sSpeedButton5Click(TObject *Sender)
{
ADOTable1->Append();
DBEdit1->Text="1";
}
void __fastcall TForm10::sButton2Click(TObject *Sender)
{
ADOTable1->Edit();
DBEdit3->Text="1";
ADOTable1->Post();
sPanel1->Visible=False;
sSpeedButton4->Visible=True;
DBLookupComboBox3->Visible=True;
}
void __fastcall TForm10::sButton4Click(TObject *Sender)
{
ADOTable1->Edit();
DBEdit3->Text="3";
ADOTable1->Post();
sPanel1->Visible=False;
sSpeedButton4->Visible=True;
DBLookupComboBox3->Visible=True;
}
void __fastcall TForm10::sButton3Click(TObject *Sender)
{
ADOTable1->Edit();
DBEdit3->Text="2";
ADOTable1->Post();
sPanel1->Visible=False;
sSpeedButton4->Visible=True;
DBLookupComboBox3->Visible=True;
}
void __fastcall TForm10::sButton5Click(TObject *Sender)
{
ADOTable1->Edit();
DBEdit3->Text="4";
ADOTable1->Post();
sPanel1->Visible=False;
sSpeedButton4->Visible=True;
DBLookupComboBox3->Visible=True;
}
void __fastcall TForm10::sButton6Click(TObject *Sender)
{
ADOTable1->Edit();
DBEdit3->Text="5";
ADOTable1->Post();
sPanel1->Visible=False;
sSpeedButton4->Visible=True;
DBLookupComboBox3->Visible=True;
}
void __fastcall TForm10::sButton7Click(TObject *Sender)
{
ADOTable1->Edit();
DBEdit3->Text="6";
ADOTable1->Post();
sPanel1->Visible=False;
sSpeedButton4->Visible=True;
DBLookupComboBox3->Visible=True;
}
void __fastcall TForm10::sButton8Click(TObject *Sender)
{
ADOTable1->Edit();
DBEdit3->Text="7";
ADOTable1->Post();
sPanel1->Visible=False;
sSpeedButton4->Visible=True;
DBLookupComboBox3->Visible=True;
}
void __fastcall TForm10::sButton9Click(TObject *Sender)
{
ADOTable1->Edit();
DBEdit3->Text="8";
ADOTable1->Post();
sPanel1->Visible=False;
sSpeedButton4->Visible=True;
DBLookupComboBox3->Visible=True;
}
void __fastcall TForm10::sButton10Click(TObject *Sender)
{
ADOTable1->Edit();
DBEdit3->Text="9";
ADOTable1->Post();
sPanel1->Visible=False;
sSpeedButton4->Visible=True;
DBLookupComboBox3->Visible=True;
}
void __fastcall TForm10::sButton12Click(TObject *Sender)
{
ADOTable1->Edit();
DBEdit3->Text="10";
ADOTable1->Post();
sPanel1->Visible=False;
sSpeedButton4->Visible=True;
DBLookupComboBox3->Visible=True;
}
void __fastcall TForm10::sButton11Click(TObject *Sender)
{
sSpeedButton4->Visible=True;
DBLookupComboBox3->Visible=True;
sPanel1->Visible=False;
Form14->ADOTable1->Cancel();
Form14->ADOTable1->Active=False;
Form14->ADOTable1->TableName="";
}
void __fastcall TForm10::sButton13Click(TObject *Sender)
{
sEdit1->Visible=False;
sButton1->Visible=False;
sButton13->Visible=False;
}
void __fastcall TForm10::sButton15Click(TObject *Sender)
{
DataSource1->DataSet->Edit();
DBLookupComboBox4->Visible=False;
sButton15->Visible=False;
DBEdit4->Visible=True;
sButton14->Visible=True;
sButton16->Visible=True;
sGroupBox4->Caption="Введите новое время";
}
void __fastcall TForm10::sButton14Click(TObject *Sender)
{
DataSource1->DataSet->Post();
DBLookupComboBox4->Visible=True;
sButton15->Visible=True;
DBEdit4->Visible=False;
sButton14->Visible=False;
sButton16->Visible=False;
sGroupBox4->Caption="Редактирование времени выполнения";
}
void __fastcall TForm10::sButton16Click(TObject *Sender)
{
DataSource1->DataSet->Cancel();
DBLookupComboBox4->Visible=True;
sButton15->Visible=True;
DBEdit4->Visible=False;
sButton14->Visible=False;
sButton16->Visible=False;
sGroupBox4->Caption="Редактирование времени выполнения";
}
#include <vcl.h>
#pragma hdrstop
#include "Unit11.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#pragma package(smart_init)
#pragma link "sPanel"
#pragma link "sGroupBox"
#pragma link "sLabel"
#pragma link "sSpeedButton"
#pragma link "sButton"
#pragma resource "*.dfm"
TForm11 *Form11;
__fastcall TForm11::TForm11(TComponent* Owner) : TForm(Owner)
{
}
void __fastcall TForm11::FormShow(TObject *Sender)
{
ADOTable1->Active=True;
}
void __fastcall TForm11::sButton1Click(TObject *Sender)
{
ADOTable1->Append();
sButton2->Enabled=True;
sButton1->Enabled=False;
sButton3->Enabled=False;
sButton4->Enabled=False;
DBEdit1->Enabled=True;
DBLookupComboBox1->Enabled=True;
sButton5->Visible=True;
}
void __fastcall TForm11::sButton2Click(TObject *Sender)
{
int t;
if ((DBEdit1->Text=="")||(DBLookupComboBox1->Text==""))
{
if (DBEdit1->Text=="")
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp3->Play();
ShowMessage("Введите ФИО");
}
if (DBLookupComboBox1->Text=="")
ShowMessage("Выберите группу тестируемого");
}
else
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp4->Play();
ADOTable1->Post();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
DBEdit1->Enabled=False;
DBLookupComboBox1->Enabled=False;
sButton5->Visible=False;
}
}
void __fastcall TForm11::sButton3Click(TObject *Sender)
{
ADOTable1->Edit();
sButton2->Enabled=True;
sButton1->Enabled=False;
sButton3->Enabled=False;
sButton4->Enabled=False;
DBEdit1->Enabled=True;
DBLookupComboBox1->Enabled=True;
sButton5->Visible=True;
}
void __fastcall TForm11::sButton4Click(TObject *Sender)
{
Form1->mp2->Play();
if (ADOTable1->RecordCount==0)
ShowMessage("Удалять уже нечего...");
else
if (MessageDlg("Удалить?", mtConfirmation, TMsgDlgButtons() <<mbYes<< mbNo,0)==mrYes)
ADOTable1->Delete();
}
void __fastcall TForm11::sButton5Click(TObject *Sender)
{
ADOTable1->Cancel();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
DBEdit1->Enabled=False;
DBLookupComboBox1->Enabled=False;
sButton5->Visible=False;
}
void __fastcall TForm11::sButton6Click(TObject *Sender)
{
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
DBEdit1->Enabled=False;
DBLookupComboBox1->Enabled=False;
sButton5->Visible=False;
Form11->Close();
}
void __fastcall TForm11::FormClose(TObject *Sender, TCloseAction &Action)
{
ADOTable1->Cancel();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
DBEdit1->Enabled=False;
DBLookupComboBox1->Enabled=False;
sButton5->Visible=False;
ADOTable1->Active=False;
}
#include <vcl.h>
#pragma hdrstop
#include "Unit12.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#pragma package(smart_init)
#pragma link "sGroupBox"
#pragma link "sLabel"
#pragma link "sPanel"
#pragma link "sSpeedButton"
#pragma link "sButton"
#pragma resource "*.dfm"
TForm12 *Form12;
__fastcall TForm12::TForm12(TComponent* Owner) : TForm(Owner)
{
}
void __fastcall TForm12::FormShow(TObject *Sender)
{
ADOTable1->Active=True;
}
void __fastcall TForm12::sSpeedButton2Click(TObject *Sender)
{
ADOTable1->Post();
}
void __fastcall TForm12::sButton1Click(TObject *Sender)
{
ADOTable1->Append();
sButton2->Enabled=True;
sButton1->Enabled=False;
sButton3->Enabled=False;
sButton4->Enabled=False;
DBEdit1->Enabled=True;
DBEdit2->Enabled=True;
sButton6->Visible=True;
}
void __fastcall TForm12::sButton2Click(TObject *Sender)
{
if (DBEdit1->Text!="")
{
ADOTable1->Post();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
DBEdit1->Enabled=False;
DBEdit2->Enabled=False;
sButton6->Visible=False;
}
else
ShowMessage("Ведите номер группы");
}
void __fastcall TForm12::sButton3Click(TObject *Sender)
{
ADOTable1->Edit();
sButton2->Enabled=True;
sButton1->Enabled=False;
sButton3->Enabled=False;
sButton4->Enabled=False;
DBEdit1->Enabled=True;
DBEdit2->Enabled=True;
sButton6->Visible=True;
}
void __fastcall TForm12::sButton4Click(TObject *Sender)
{
if (ADOTable1->RecordCount==0)
ShowMessage("Удалять уже нечего...");
else
if (MessageDlg("Удалить?", mtConfirmation, TMsgDlgButtons() <<mbYes<< mbNo,0)==mrYes)
ADOTable1->Delete();
}
void __fastcall TForm12::sButton5Click(TObject *Sender)
{
ADOTable1->Cancel();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
DBEdit1->Enabled=False;
DBEdit2->Enabled=False;
sButton6->Visible=False;
Form12->Close();
}
void __fastcall TForm12::sButton6Click(TObject *Sender)
{
ADOTable1->Cancel();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
DBEdit1->Enabled=False;
DBEdit2->Enabled=False;
sButton6->Visible=False;
}
void __fastcall TForm12::FormClose(TObject *Sender, TCloseAction &Action)
{
ADOTable1->Cancel();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
DBEdit1->Enabled=False;
DBEdit2->Enabled=False;
sButton6->Visible=False;
ADOTable1->Active=False;
}
#include <vcl.h>
#pragma hdrstop
#include "Unit13.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#pragma package(smart_init)
#pragma link "sLabel"
#pragma link "sPanel"
#pragma link "sButton"
#pragma link "sGroupBox"
#pragma link "sMonthCalendar"
#pragma resource "*.dfm"
TForm13 *Form13;
__fastcall TForm13::TForm13(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm13::Button2Click(TObject *Sender)
{
ADOTable1->Post();
}
void __fastcall TForm13::sButton1Click(TObject *Sender)
{
ADOTable1->Append();
sButton2->Enabled=True;
sButton1->Enabled=False;
sButton3->Enabled=False;
DBEdit1->Enabled=True;
DBEdit2->Enabled=True;
DBEdit3->Enabled=True;
DBEdit4->Enabled=True;
DBEdit5->Enabled=True;
DBEdit6->Enabled=True;
sButton6->Visible=True;
sButton4->Enabled=False;
sButton5->Visible=True;
sButton10->Visible=True;
sButton15->Visible=True;
sButton16->Visible=True;
}
void __fastcall TForm13::sButton2Click(TObject *Sender)
{
int t;
if ((DBEdit1->Text=="")||(DBEdit2->Text=="")||(DBEdit3->Text=="")||(DBEdit4->Text=="")||(DBEdit5->Text=="")||(DBEdit6->Text==""))
{
if (DBEdit1->Text=="")
ShowMessage("Введите ФИО");
if (DBEdit2->Text=="")
ShowMessage("Введите группу тестируемого");
if (DBEdit3->Text=="")
ShowMessage("Введите название теста");
if (DBEdit4->Text=="")
ShowMessage("Введите процент выполнения теста");
if (DBEdit5->Text=="")
ShowMessage("Введите время выполнения теста");
if (DBEdit6->Text=="")
ShowMessage("Введите дату выполнения теста");
}
else
{
t=StrToInt(DBEdit4->Text);
if((t>100)||(t<0))
{
ShowMessage("Процент выполнения теста должен принадлежать интервалу от 0 до 100");
DBEdit4->SetFocus();
}
else
{
ADOTable1->Post();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
DBEdit1->Enabled=False;
DBEdit2->Enabled=False;
DBEdit3->Enabled=False;
DBEdit4->Enabled=False;
DBEdit5->Enabled=False;
DBEdit6->Enabled=False;
sButton6->Visible=False;
sButton5->Visible=False;
sButton10->Visible=False;
sButton15->Visible=False;
sButton16->Visible=False;
sGroupBox2->Visible=False;
sGroupBox3->Visible=False;
sGroupBox4->Visible=False;
sGroupBox5->Visible=False;
}
}
}
void __fastcall TForm13::sButton3Click(TObject *Sender)
{
ADOTable1->Edit();
sButton2->Enabled=True;
sButton1->Enabled=False;
sButton3->Enabled=False;
sButton4->Enabled=False;
DBEdit1->Enabled=True;
DBEdit2->Enabled=True;
DBEdit3->Enabled=True;
DBEdit4->Enabled=True;
DBEdit5->Enabled=True;
DBEdit6->Enabled=True;
sButton6->Visible=True;
sButton5->Visible=True;
sButton10->Visible=True;
sButton15->Visible=True;
sButton16->Visible=True;
}
void __fastcall TForm13::sButton4Click(TObject *Sender)
{
if (ADOTable1->RecordCount==0)
ShowMessage("Удалять уже нечего...");
else
if (MessageDlg("Удалить?", mtConfirmation, TMsgDlgButtons() <<mbYes<< mbNo,0)==mrYes)
ADOTable1->Delete();
}
void __fastcall TForm13::sButton6Click(TObject *Sender)
{
ADOTable1->Cancel();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
DBEdit1->Enabled=False;
DBEdit2->Enabled=False;
DBEdit3->Enabled=False;
DBEdit4->Enabled=False;
DBEdit5->Enabled=False;
DBEdit6->Enabled=False;
sButton6->Visible=False;
sButton5->Visible=False;
sButton10->Visible=False;
sButton15->Visible=False;
sButton16->Visible=False;
sGroupBox2->Visible=False;
sGroupBox3->Visible=False;
sGroupBox4->Visible=False;
sGroupBox5->Visible=False;
}
void __fastcall TForm13::sButton7Click(TObject *Sender)
{
Form13->Close();
}
void __fastcall TForm13::FormShow(TObject *Sender)
{
ADOTable1->Active=True;
}
void __fastcall TForm13::FormClose(TObject *Sender, TCloseAction &Action)
{
ADOTable1->Cancel();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
DBEdit1->Enabled=False;
DBEdit2->Enabled=False;
DBEdit3->Enabled=False;
DBEdit4->Enabled=False;
DBEdit5->Enabled=False;
DBEdit6->Enabled=False;
sButton6->Visible=False;
ADOTable1->Active=False;
}
void __fastcall TForm13::sButton5Click(TObject *Sender)
{
sButton5->Visible=False;
sGroupBox2->Visible=True;
sGroupBox3->Visible=False;
sGroupBox4->Visible=False;
sGroupBox5->Visible=False;
sButton10->Visible=True;
sButton10->Visible=True;
sButton16->Visible=True;
}
void __fastcall TForm13::sButton8Click(TObject *Sender)
{
DBEdit6->Text =IntToStr(sMonthCalendar1->Day) + "." + IntToStr(sMonthCalendar1->Month) + "." + IntToStr(sMonthCalendar1->Year);
sGroupBox2->Visible= False;
sButton5->Visible=True;
}
void __fastcall TForm13::sButton9Click(TObject *Sender)
{
DBEdit3->Text = DBLookupComboBox1->Text;
sGroupBox3->Visible=False;
sButton10->Visible=True;
}
void __fastcall TForm13::sButton10Click(TObject *Sender)
{
sButton10->Visible=False;
sGroupBox3->Visible=True;
sGroupBox2->Visible=False;
sGroupBox4->Visible=False;
sGroupBox5->Visible=False;
sButton15->Visible=True;
sButton16->Visible=True;
sButton5->Visible=True;
}
void __fastcall TForm13::sButton11Click(TObject *Sender)
{
sGroupBox4->Visible=False;
sButton16->Visible=True;
}
void __fastcall TForm13::sButton12Click(TObject *Sender)
{
sGroupBox2->Visible=False;
sButton5->Visible=True;
}
void __fastcall TForm13::sButton15Click(TObject *Sender)
{
sButton15->Visible=False;
sGroupBox5->Visible=True;
sGroupBox2->Visible=False;
sGroupBox3->Visible=False;
sGroupBox4->Visible=False;
sButton5->Visible=True;
sButton10->Visible=True;
sButton16->Visible=True;
}
void __fastcall TForm13::sButton14Click(TObject *Sender)
{
DBEdit1->Text = DBLookupComboBox3->Text;
sGroupBox5->Visible=False;
sButton15->Visible=True;
}
void __fastcall TForm13::sButton13Click(TObject *Sender)
{
DBEdit2->Text = DBLookupComboBox2->Text;
sGroupBox4->Visible=False;
sButton16->Visible=True;
}
void __fastcall TForm13::sButton16Click(TObject *Sender)
{
sButton16->Visible=False;
sGroupBox4->Visible=True;
sGroupBox2->Visible=False;
sGroupBox3->Visible=False;
sGroupBox5->Visible=False;
sButton5->Visible=True;
sButton10->Visible=True;
sButton15->Visible=True;
}
void __fastcall TForm13::sButton17Click(TObject *Sender)
{
sGroupBox5->Visible=False;
sButton15->Visible=True;
}
#include <vcl.h>
#pragma hdrstop
#include "Unit14.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#pragma package(smart_init)
#pragma link "sGroupBox"
#pragma link "sLabel"
#pragma link "sPanel"
#pragma link "sButton"
#pragma link "sComboBox"
#pragma link "sEdit"
#pragma resource "*.dfm"
TForm14 *Form14;
__fastcall TForm14::TForm14(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm14::FormShow(TObject *Sender)
{
ADOTable1->Active=True;
DBEdit1->DataField="vopros";
DBEdit2->DataField="v1";
DBEdit3->DataField="v2";
DBEdit4->DataField="v3";
DBEdit5->DataField="otvet";
}
void __fastcall TForm14::sButton1Click(TObject *Sender)
{
ADOTable1->Append();
sButton2->Enabled=True;
sButton1->Enabled=False;
sButton3->Enabled=False;
sButton4->Enabled=False;
sButton5->Visible=True;
DBEdit1->Enabled=True;
DBEdit2->Enabled=True;
DBEdit3->Enabled=True;
DBEdit4->Enabled=True;
sComboBox1->Enabled=True;
sComboBox1->Text="";
}
//---------------------------------------------------------------------------
void __fastcall TForm14::sButton2Click(TObject *Sender)
{
int t;
if ((DBEdit1->Text=="")||(DBEdit2->Text=="")||(DBEdit3->Text=="")||(DBEdit4->Text=="")||(sComboBox1->Text==""))
{
if (DBEdit1->Text=="")
ShowMessage("Введите название вопроса");
if (DBEdit2->Text=="")
ShowMessage("Введите вариант ответа 1");
if (DBEdit3->Text=="")
ShowMessage("Введите вариант ответа 2");
if (DBEdit4->Text=="")
ShowMessage("Введите вариант ответа 3");
if (sComboBox1->Text=="")
ShowMessage("Необходимо выбрать правильный вариант ответа из списка");
}
else
{
if (DBEdit2->Text==DBEdit3->Text)
ShowMessage("Варианты ответа 1 и 2 совпадают. Внесите исправления.");
else
{
if (DBEdit3->Text==DBEdit4->Text)
ShowMessage("Варианты ответа 2 и 3 совпадают. Внесите исправления.");
else
{
if (DBEdit2->Text==DBEdit4->Text)
ShowMessage("Варианты ответа 1 и 3 совпадают. Внесите исправления.");
else
{
if ((sComboBox1->Text!=DBEdit2->Text)&&(sComboBox1->Text!=DBEdit3->Text)&&(sComboBox1->Text!=DBEdit4->Text))
ShowMessage("Правильный ответ не совпадает ни с одним вариантом ответа. Внесите исправления.");
else
{
ADOTable1->Post();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
sButton5->Visible=False;
DBEdit1->Enabled=False;
DBEdit3->Enabled=False;
DBEdit2->Enabled=False;
DBEdit4->Enabled=False;
sComboBox1->Enabled=False;
Image1->Visible=True;
Timer1->Enabled=True;
}
}
}
}
}
}
void __fastcall TForm14::sButton3Click(TObject *Sender)
{
ADOTable1->Edit();
sButton2->Enabled=True;
sButton1->Enabled=False;
sButton3->Enabled=False;
sButton4->Enabled=False;
sButton5->Visible=True;
DBEdit1->Enabled=True;
DBEdit2->Enabled=True;
DBEdit3->Enabled=True;
DBEdit4->Enabled=True;
sComboBox1->Enabled=True;
}
void __fastcall TForm14::sButton4Click(TObject *Sender)
{
if (ADOTable1->RecordCount==0)
ShowMessage("Удалять уже нечего...");
else
if (MessageDlg("Удалить?", mtConfirmation, TMsgDlgButtons() <<mbYes<< mbNo,0)==mrYes)
ADOTable1->Delete();
}
void __fastcall TForm14::sButton5Click(TObject *Sender)
{
ADOTable1->Cancel();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
sButton5->Visible=False;
DBEdit1->Enabled=False;
DBEdit3->Enabled=False;
DBEdit2->Enabled=False;
DBEdit4->Enabled=False;
sComboBox1->Enabled=False;
}
void __fastcall TForm14::sComboBox1Change(TObject *Sender)
{
DBEdit5->Text=sComboBox1->Text;
}
void __fastcall TForm14::sComboBox1DropDown(TObject *Sender)
{
sComboBox1->Items->Clear();
sComboBox1->Items->Add(DBEdit2->Text);
sComboBox1->Items->Add(DBEdit3->Text);
sComboBox1->Items->Add(DBEdit4->Text);
}
void __fastcall TForm14::DBEdit1Change(TObject *Sender)
{
sComboBox1->OnDropDown;
}
void __fastcall TForm14::DBEdit2Change(TObject *Sender)
{
sComboBox1->OnDropDown;
}
void __fastcall TForm14::DBEdit3Change(TObject *Sender)
{
sComboBox1->OnDropDown;
}
void __fastcall TForm14::DBEdit4Change(TObject *Sender)
{
sComboBox1->OnDropDown;
}
void __fastcall TForm14::FormClose(TObject *Sender, TCloseAction &Action)
{
ADOTable1->Cancel();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
DBEdit1->Enabled=False;
DBEdit2->Enabled=False;
DBEdit3->Enabled=False;
DBEdit4->Enabled=False;
sComboBox1->Enabled=False;
sButton5->Visible=False;
ADOTable1->Active=False;
}
void __fastcall TForm14::sButton6Click(TObject *Sender)
{
if (Form10->DBEdit4->Text=="")
{ShowMessage("Необходимо задать время для выполнения данного теста");
sGroupBox2->Visible=True;
}
else
{
ADOTable1->Cancel();
Form14->Close();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
sButton5->Visible=False;
DBEdit1->Enabled=False;
DBEdit3->Enabled=False;
DBEdit2->Enabled=False;
DBEdit4->Enabled=False;
sComboBox1->Enabled=False;
}
}
void __fastcall TForm14::Timer1Timer(TObject *Sender)
{
Timer2->Enabled=True;
Timer1->Enabled=False;
}
void __fastcall TForm14::Timer2Timer(TObject *Sender)
{
if (Image1->Height!=0)
Image1->Height=Image1->Height-1;
else
{
Image1->Visible=False;
Timer2->Enabled=False;
Image1->Height=25;
}
}
void __fastcall TForm14::sButton7Click(TObject *Sender)
{
Form10->ADOTable1->Edit();
Form10->DBEdit4->Text=sEdit1->Text;
Form10->ADOTable1->Post();
sGroupBox2->Visible=False;
ADOTable1->Cancel();
Form14->Close();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
sButton4->Enabled=True;
sButton5->Visible=False;
DBEdit1->Enabled=False;
DBEdit3->Enabled=False;
DBEdit2->Enabled=False;
DBEdit4->Enabled=False;
sComboBox1->Enabled=False;
}
#include <vcl.h>
#pragma hdrstop
#include "Unit15.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#include "Unit1.h"
#pragma package(smart_init)
#pragma link "sButton"
#pragma link "sGroupBox"
#pragma link "sLabel"
#pragma link "sPanel"
#pragma link "sStatusBar"
#pragma resource "*.dfm"
TForm15 *Form15;
__fastcall TForm15::TForm15(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm15::FormShow(TObject *Sender)
{
sStatusBar1->Panels->Items[0]->Text=Form7->DBEdit1->Text +" "+Form7->DBEdit2->Text;
}
void __fastcall TForm15::sButton1Click(TObject *Sender)
{
if (DBLookupComboBox1->Text!="")
{
Form4->ADOTable1->Active=False;
Form4->ADOTable1->TableName="";
Form4->ADOTable1->TableName=Form15->DBLookupComboBox1->Text;
Form4->ADOTable1->Active=True;
Form4->ShowModal();
}
else
ShowMessage("Необходимо выбрать тему теста из списка.");
}
#include <vcl.h>
#pragma hdrstop
#include "Unit16.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#pragma package(smart_init)
#pragma link "sButton"
#pragma link "sEdit"
#pragma link "sLabel"
#pragma link "sPanel"
#pragma resource "*.dfm"
TForm16 *Form16;
TIniFile *Ini = new TIniFile("c:/options.ini");
__fastcall TForm16::TForm16(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm16::sEdit1Enter(TObject *Sender)
{
sEdit1->Text="";
}
void __fastcall TForm16::FormShow(TObject *Sender)
{
sButton1->SetFocus();
sEdit1->SetFocus();
}
void __fastcall TForm16::sEdit2Enter(TObject *Sender)
{
sEdit2->Text="";
}
void __fastcall TForm16::sButton1Click(TObject *Sender)
{
if (sEdit1->Text==sEdit2->Text)
{
Ini->WriteString("pass","Form16->sEdit1",Form16->sEdit1->Text);
if(Form1->sCheckBox1->Checked==True)
Form1->mp1->Play();
ShowMessage("Пароль администратора назначен");
Form1->Label1->Caption=sEdit1->Text;
sLabel3->Visible=False;
Form1->Show();
Form16->Close();
}
else
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp1->Play();
sLabel3->Visible=True;
}
}
void __fastcall TForm16::sButton2Click(TObject *Sender)
{
Application->Terminate();
}
#include <vcl.h>
#pragma hdrstop
#include "Unit17.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit16.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#pragma package(smart_init)
#pragma link "sButton"
#pragma link "sEdit"
#pragma link "sLabel"
#pragma link "sPanel"
#pragma resource "*.dfm"
TForm17 *Form17;
__fastcall TForm17::TForm17(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm17::sButton1Click(TObject *Sender)
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp1->Play();
if (sEdit1->Text==Form1->Label1->Caption)
{
Form9->ShowModal();
Form17->Close();
}
else
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp3->Play();
sEdit1->Text="";
ShowMessage("Неверный пароль!");
}
}
void __fastcall TForm17::sButton2Click(TObject *Sender)
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp1->Play();
Form17->Close();
}
void __fastcall TForm17::FormShow(TObject *Sender)
{
sEdit1->Text="";
sEdit1->SetFocus();
}
#include <vcl.h>
#pragma hdrstop
#include "Unit18.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit16.h"
#include "Unit17.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#pragma package(smart_init)
#pragma link "sButton"
#pragma link "sEdit"
#pragma link "sLabel"
#pragma link "sPanel"
#pragma resource "*.dfm"
TForm18 *Form18;
TIniFile *Ini = new TIniFile("c:/options.ini");
__fastcall TForm18::TForm18(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm18::sButton1Click(TObject *Sender)
{
if ((sEdit3->Text==Form1->Label1->Caption)&&(sEdit1->Text==sEdit2->Text))
{
Ini->WriteString("pass","Form16->sEdit1",Form16->sEdit1->Text);
if(Form1->sCheckBox1->Checked==True)
Form1->mp3->Play();
ShowMessage("Пароль администратора успешно сменён.");
Form18->Close();
Form1->Label1->Caption=sEdit1->Text;
}
else
{
if (sEdit3->Text!=Form1->Label1->Caption)
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp3->Play();
ShowMessage("Неверный текущий пароль.");
}
if (sEdit1->Text!=sEdit2->Text)
{
if(Form1->sCheckBox1->Checked==True);
Form1->mp3->Play();
ShowMessage("Проверьте правильность ввода нового пароля и подтверждения");
}
}
}
void __fastcall TForm18::sButton2Click(TObject *Sender)
{
Form18->Close();
}
#include <vcl.h>
#pragma hdrstop
#include "Unit19.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit16.h"
#include "Unit17.h"
#include "Unit18.h"
#include "Unit2.h"
#include "Unit20.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#include "Unit21.h"
#include "Unit22.h"
#include "Unit23.h"
#include "Unit24.h"
#pragma package(smart_init)
#pragma link "sLabel"
#pragma link "sPanel"
#pragma link "sButton"
#pragma resource "*.dfm"
TForm19 *Form19;
__fastcall TForm19::TForm19(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm19::FormShow(TObject *Sender)
{
Form12->ADOTable1->Active=True;
Form3->ADOTable1->Active=True;
Form3->ADOTable1->Append();
Form20->ADOTable1->Active=True;
DBEdit1->Enabled=True;
DBLookupComboBox1->Enabled=True;
DBLookupComboBox1->Enabled=True;
}
void __fastcall TForm19::FormClose(TObject *Sender, TCloseAction &Action)
{
Form12->ADOTable1->Active=False;
Form3->ADOTable1->Cancel();
Form20->ADOTable1->Active=True;
Form3->ADOTable1->Active=False;
}
void __fastcall TForm19::sButton1Click(TObject *Sender)
{
if ((DBEdit1->Text=="")||(DBLookupComboBox1->Text=="")||(DBLookupComboBox2->Text==""))
{
if (DBEdit1->Text=="")
ShowMessage("Введите ФИО");
if (DBLookupComboBox1->Text=="")
ShowMessage("Выберите группу.");
if (DBLookupComboBox2->Text=="")
ShowMessage("Выберите вид работы.");
}
else
{
DBEdit2->Text=DateTimePicker1->Date;
DBEdit3->Text=DBLookupComboBox2->Text;
Form3->ADOTable1->Post();
ShowMessage("Вы закончили работу. \n Результаты работы сохранены.");
DBMemo2->Visible=False;
DBMemo1->Enabled=False;
Form19->Close();
}
}
void __fastcall TForm19::sButton2Click(TObject *Sender)
{
if ((DBEdit1->Text=="")||(DBLookupComboBox1->Text=="")||(DBLookupComboBox2->Text==""))
ShowMessage("Заполните данные.");
else
DBEdit1->Enabled=False;
DBLookupComboBox1->Enabled=False;
DBLookupComboBox2->Enabled=False;
DBMemo2->Visible=True;
DBMemo1->Enabled=True;
}
void __fastcall TForm19::sButton3Click(TObject *Sender)
{
if (MessageDlg("Уверены, что хотите выйти?", mtConfirmation, TMsgDlgButtons() <<mbYes<< mbNo,0)==mrYes)
Form19->Close();
}
#include <vcl.h>
#pragma hdrstop
#include "Unit20.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit16.h"
#include "Unit17.h"
#include "Unit18.h"
#include "Unit19.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#include "Unit21.h"
#include "Unit22.h"
#include "Unit23.h"
#include "Unit24.h"
#pragma package(smart_init)
#pragma link "sButton"
#pragma link "sPanel"
#pragma resource "*.dfm"
TForm20 *Form20;
__fastcall TForm20::TForm20(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm20::sButton1Click(TObject *Sender)
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp1->Play();
ADOTable1->Append();
sButton2->Enabled=True;
sButton1->Enabled=False;
sButton3->Enabled=False;
DBEdit1->Enabled=True;
sButton6->Visible=True;
}
void __fastcall TForm20::sButton2Click(TObject *Sender)
{
int t;
if (DBEdit1->Text=="")
ShowMessage("Вы не ввели название работы.");
else
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp4->Play();
ADOTable1->Post();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
DBEdit1->Enabled=False;
sButton6->Visible=False;
}
}
void __fastcall TForm20::sButton3Click(TObject *Sender)
{
if (ADOTable1->RecordCount==0)
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp3->Play();
ShowMessage("Удалять уже нечего...");
}
else
if (MessageDlg("Удалить?", mtConfirmation, TMsgDlgButtons() <<mbYes<< mbNo,0)==mrYes)
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp2->Play();
ADOTable1->Delete();
}
}
void __fastcall TForm20::sButton6Click(TObject *Sender)
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp1->Play();
ADOTable1->Cancel();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
DBEdit1->Enabled=False;
sButton6->Visible=False;
}
void __fastcall TForm20::sButton5Click(TObject *Sender)
{
Form20->Close();
}
void __fastcall TForm20::FormClose(TObject *Sender, TCloseAction &Action)
{
ADOTable1->Cancel();
sButton2->Enabled=False;
sButton1->Enabled=True;
sButton3->Enabled=True;
DBEdit1->Enabled=False;
sButton6->Visible=False;
ADOTable1->Active=False;
}
void __fastcall TForm20::FormShow(TObject *Sender)
{
ADOTable1->Active=True;
}
void __fastcall TForm20::sButton4Click(TObject *Sender)
{
if (ADOTable1->RecordCount==0)
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp3->Play();
ShowMessage("Нет ниодной работы");
}
else
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp1->Play();
ADOTable1->Edit();
Form24->Caption=Form20->DBEdit1->Text;
Form24->ShowModal();
}
}
#include <vcl.h>
#pragma hdrstop
#include "Unit21.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit16.h"
#include "Unit17.h"
#include "Unit18.h"
#include "Unit19.h"
#include "Unit2.h"
#include "Unit20.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#pragma package(smart_init)
#pragma link "sPanel"
#pragma link "sLabel"
#pragma link "sButton"
#pragma link "sEdit"
#pragma link "sSpeedButton"
#pragma link "sComboEdit"
#pragma link "sCustomComboEdit"
#pragma link "sMaskEdit"
#pragma resource "*.dfm"
TForm21 *Form21;
__fastcall TForm21::TForm21(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm21::N2Click(TObject *Sender)
{
ADOQuery1->Sort="user_group";
}
void __fastcall TForm21::sComboEdit1ButtonClick(TObject *Sender)
{
ADOQuery1->Edit();
DBEdit1->Text=sComboEdit1->Text;
ADOQuery1->Post();
sComboEdit1->Text="";
}
void __fastcall TForm21::N3Click(TObject *Sender)
{
ADOQuery1->Sort="user_date";
}
void __fastcall TForm21::N4Click(TObject *Sender)
{
ADOQuery1->Sort="user_otmet";
}
void __fastcall TForm21::FormShow(TObject *Sender)
{
ADOQuery1->Active=True;
}
void __fastcall TForm21::FormClose(TObject *Sender, TCloseAction &Action)
{
ADOQuery1->Active=False;
}
#include <vcl.h>
#pragma hdrstop
#include "Unit22.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit16.h"
#include "Unit17.h"
#include "Unit18.h"
#include "Unit19.h"
#include "Unit2.h"
#include "Unit20.h"
#include "Unit21.h"
#include "Unit23.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#pragma package(smart_init)
#pragma link "sButton"
#pragma link "sCheckBox"
#pragma link "sEdit"
#pragma link "sGroupBox"
#pragma link "sLabel"
#pragma link "sMonthCalendar"
#pragma link "sPanel"
#pragma resource "*.dfm"
TForm22 *Form22;
__fastcall TForm22::TForm22(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm22::FormShow(TObject *Sender)
{
ADOQuery1->Active=True;
}
void __fastcall TForm22::FormClose(TObject *Sender, TCloseAction &Action)
{
ADOQuery1->Active=False;
}
void __fastcall TForm22::sCheckBox1Click(TObject *Sender)
{
if (sCheckBox1->Checked==True)
sGroupBox2->Visible=True;
else
sGroupBox2->Visible=False;
}
void __fastcall TForm22::sCheckBox2Click(TObject *Sender)
{
if (sCheckBox2->Checked==True)
sGroupBox3->Visible=True;
else
sGroupBox3->Visible=False;
}
void __fastcall TForm22::sCheckBox3Click(TObject *Sender)
{
if (sCheckBox3->Checked==True)
sGroupBox4->Visible=True;
else
sGroupBox4->Visible=False;
}
void __fastcall TForm22::sCheckBox6Click(TObject *Sender)
{
if (sCheckBox6->Checked==True)
sGroupBox7->Visible=True;
else
sGroupBox7->Visible=False;
}
void __fastcall TForm22::sButton2Click(TObject *Sender)
{
Form23->QuickRep1->Preview();
}
void __fastcall TForm22::sButton1Click(TObject *Sender)
{
AnsiString str;
str="select * from table_users where id<>0 ";
if (sCheckBox1->Checked)
{
if (sEdit1->Text!="")
str=str+"and user_fio='"+sEdit1->Text+"' ";
}
if (sCheckBox2->Checked)
{
if (sEdit2->Text!="")
str=str+"and user_group="+sEdit2->Text+" ";
}
if (sCheckBox3->Checked)
{
if (sEdit3->Text!="")
str=str+"and test_name='"+sEdit3->Text+"' ";
}
if (sCheckBox4->Checked)
{
if (sEdit4->Text!="")
str=str+"and user_otmet="+sEdit4->Text+" ";
}
if (sCheckBox6->Checked)
str=str+"and user_date > #"+(sMonthCalendar1->Day-1)+"/"+sMonthCalendar1->Month+"/"+sMonthCalendar1->Year+"#"+
" and user_date < #"+(sMonthCalendar2->Day+1)+"/"+sMonthCalendar2->Month+"/"+sMonthCalendar2->Year+"#";
ADOQuery1->Active=False;
ADOQuery1->SQL->Clear();
Edit8->Text=str;
ADOQuery1->SQL->Add(Edit8->Text);
ADOQuery1->Active=True;
}
void __fastcall TForm22::sCheckBox4Click(TObject *Sender)
{
if (sCheckBox4->Checked==True)
sGroupBox5->Visible=True;
else
sGroupBox5->Visible=False;
}
void __fastcall TForm22::N2Click(TObject *Sender)
{
ADOQuery1->Sort="user_group";
}
void __fastcall TForm22::N3Click(TObject *Sender)
{
ADOQuery1->Sort="user_fio";
}
void __fastcall TForm22::N4Click(TObject *Sender)
{
ADOQuery1->Sort="test_name";
}
void __fastcall TForm22::N5Click(TObject *Sender)
{
ADOQuery1->Sort="user_otmet";
}
#include <vcl.h>
#pragma hdrstop
#include "Unit23.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit16.h"
#include "Unit17.h"
#include "Unit18.h"
#include "Unit19.h"
#include "Unit2.h"
#include "Unit20.h"
#include "Unit21.h"
#include "Unit22.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm23 *Form23;
__fastcall TForm23::TForm23(TComponent* Owner)
: TForm(Owner)
{
}
#include <vcl.h>
#pragma hdrstop
#include "Unit24.h"
#include "Unit1.h"
#include "Unit10.h"
#include "Unit11.h"
#include "Unit12.h"
#include "Unit13.h"
#include "Unit14.h"
#include "Unit15.h"
#include "Unit16.h"
#include "Unit17.h"
#include "Unit18.h"
#include "Unit19.h"
#include "Unit2.h"
#include "Unit20.h"
#include "Unit21.h"
#include "Unit22.h"
#include "Unit23.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
#include "Unit6.h"
#include "Unit7.h"
#include "Unit8.h"
#include "Unit9.h"
#pragma package(smart_init)
#pragma link "sButton"
#pragma link "sPanel"
#pragma resource "*.dfm"
TForm24 *Form24;
__fastcall TForm24::TForm24(TComponent* Owner)
: TForm(Owner)
{
}
void __fastcall TForm24::sButton1Click(TObject *Sender)
{
if (DBMemo1->Text=="")
ShowMessage("Невозможно сохранить пустое условие.");
else
{
if(Form1->sCheckBox1->Checked==True)
Form1->mp4->Play();
Form20->ADOTable1->Post();
Form24->Close();
}
}
void __fastcall TForm24::sButton2Click(TObject *Sender)
{
Form24->Close();
Form20->ADOTable1->Cancel();
}