Смекни!
smekni.com
Экономико-математическое моделирование

Автоматизация расчёта нагрузки и преподавателей ВУЗа (стр. 4 из 5)

Рис43 Событие на нажатие кнопки «Выход»

4.8Тест8

Протестируем форму «Создание расписания» на возможность реализации вложенных функций. Вкладка «Расписание для групп» формы реализует функции ввода(рис 44)и фильтрации (рис45) данных таблицы БД

Рис44 Реализация функции ввода


Рис45 Реализация функции фильтрации данных

Вкладка «Расписание для преподавателей» реализует функцию

Выбора преподавателя из общего списка (рис46,47,48), а также инициирует появление формы, содержащей расписание для данного преподавателя(рис.49,50)

Рис46 список преподавателей

Рис 47Осуществление выбора 1


Рис 48Осуществление выбора 2

Рис 49Расписание для преподавателя а

Рис 50Расписание для преподавателя б

При тестировании вкладки «Справка» получены следующие результаты (рис51,52,53)


Рис51 Реализация функции «справка»1

Рис 52Реализация функции «справка»2

Рис53 Реализация функции «справка»3


Заключение

В ходе разработки приложения была достигнута цель данной курсовой работы, а именно: реализации функции автоматизации расчёта и преподавателей ВУЗа. Поставленные в данной курсовой работе задачи были решены в ходе тестирования полученного приложения.

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


Список использованных источников

1. "Работа с локальными базами данных в C++ Builder 5", Аpхангельский .

2. "Введение в Borland C++ Builder", Елманова.

3.Джарод Холингвэрт, Дэн Баттерфилд, Боб Сворт, Джэйми Оллсоп C++Builder 5. Руководство разработчика.

4.Borland C++ Builder 5. Энциклопедия программиста. Калверт Ч., Рейсдорф К., "ДиаСофт" - 2001, 944 стр.

5.http://www.codenet.ru/

6."ЯзыкC++ Builder 5. Справочное пособие", Архангельский А.

7."C++ Builder 5: 70 компонентов ввода/вывода инф.", Аpхангельский А.

8. http://www.interface.ru

9. Borland C++ Builder and MS SQL 2000 developer


Приложение А

Листинг формы «Автоматизация расчёта нагрузки и преподавателей ВУЗа.

#ifndef KurH

#define KurH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <Menus.hpp>

#include "CGRID.h"

#include "PERFGRAP.h"

#include <Mask.hpp>

#include <jpeg.hpp>

#include <ComCtrls.hpp>

#include "Word_2K_SRVR.h"

#include <OleServer.hpp>

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

class TForm1 : public TForm

{

__published:// IDE-managed Components

TMainMenu *MainMenu1;

TButton *Button1;

TMenuItem *N2;

TMenuItem *N4;

TMenuItem *N5;

TCColorGrid *CColorGrid1;

TPanel *Panel1;

TComboBox *ComboBox1;

TButton *Button2;

TEdit *Edit1;

TImage *Image1;

TColorBox *ColorBox1;

TLabel *Label1;

TMenuItem *N1;

TMenuItem *N3;

TMenuItem *N6;

TMenuItem *N7;

TButton *Button3;

TButton *Button4;

void __fastcall N5Click(TObject *Sender);

void __fastcall Button1Click(TObject *Sender);

void __fastcall N8Click(TObject *Sender);

void __fastcall N9Click(TObject *Sender);

void __fastcall N2Click(TObject *Sender);

void __fastcall Button2Click(TObject *Sender);

void __fastcall Image1MouseDown(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y);

void __fastcall CColorGrid1Change(TObject *Sender);

void __fastcall N4Click(TObject *Sender);

void __fastcall N10Click(TObject *Sender);

void __fastcall N1Click(TObject *Sender);

void __fastcall FormCreate(TObject *Sender);

void __fastcall Button3Click(TObject *Sender);

void __fastcall N6Click(TObject *Sender);

void __fastcall N3Click(TObject *Sender);

void __fastcall Button4Click(TObject *Sender);

private:

int fbMouseDown;// User declarations

public:// User declarations

__fastcall TForm1(TComponent* Owner);

};

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

extern PACKAGE TForm1 *Form1;

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

#endif

#include <vcl.h>

#pragma hdrstop

#include "Kur.h"

#include "Unit4.h"

bool OK;

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

#pragma package(smart_init)

#pragma link "CGRID"

#pragma link "PERFGRAP"

#pragma link "Word_2K_SRVR"

#pragma resource "*.dfm"

TForm1 *Form1;

TForm4 *Form4;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

fbMouseDown=0;

}

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

void __fastcall TForm1::N5Click(TObject *Sender)

{

Form1->Close();

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

int i,j;

for (i=0;i<Image1->Width;i++)

{for (j=0;j<Image1->Height;j++)

Image1->Canvas->Pixels[i][j]=clWhite;}

}

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

void __fastcall TForm1::N8Click(TObject *Sender)

{

Image1->Canvas->Pen->Style=psDot;

}

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

void __fastcall TForm1::N9Click(TObject *Sender)

{

Image1->Canvas->Pen->Style=psClear;

}

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

void __fastcall TForm1::N2Click(TObject *Sender)

{

CColorGrid1->Width=90;

CColorGrid1->Height=90;

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{ if (ComboBox1->ItemIndex==0)

{

Form4=new TForm4(Application);

Form4->Table1->Active=false;

Form4->Table2->Active=false;

Form4->Show();

}

else

{Application->MessageBox("Защитаконфиденциальностиинформации","Введитепароль",MB_OK);

Edit1->Visible=true;

Button3->Visible=true;}}

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

void __fastcall TForm1::Image1MouseDown(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)

{

Image1->Canvas->LineTo(X,Y);

}

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

void __fastcall TForm1::CColorGrid1Change(TObject *Sender)

{

Image1->Canvas->Brush->Color=CColorGrid1->BackgroundColor;

Image1->Canvas->Rectangle(0,0,265,385);

Image1->Canvas->Pen->Width=1;

Image1->Canvas->Pen->Color=CColorGrid1->ForegroundColor;

}

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

void __fastcall TForm1::N4Click(TObject *Sender)

{

Form1->Color=ColorBox1->Selected;

}

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

void __fastcall TForm1::N10Click(TObject *Sender)

{

Image1->Canvas->Pen->Style=psSolid;

}

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

void __fastcall TForm1::N1Click(TObject *Sender)

{

Image1->Canvas->Pen->Style=psDot;

}

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

void __fastcall TForm1::FormCreate(TObject *Sender)

{

Edit1->Visible=false;

Button3->Visible=false;

}

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

void __fastcall TForm1::Button3Click(TObject *Sender)

{

if (Edit1->Text!="пэ-81")

Application->MessageBox("Парольвведённеверно","Сообщениеобошибке",MB_OK);

else

{Application->MessageBox("Введите графический код","Добро пожаловать!",MB_OK);}

}

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

void __fastcall TForm1::N6Click(TObject *Sender)

{

Image1->Canvas->Pen->Style=psDash;

}

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

void __fastcall TForm1::N3Click(TObject *Sender)

{

Image1->Canvas->Pen->Style=psDot;

}

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

void __fastcall TForm1::Button4Click(TObject *Sender)

{

if (Image1->Canvas->Pen->Style==psDash)

{Form4=new TForm4(Application);

Form4->Show();}

else

Application->MessageBox("","Попробуйтеещёраз",MB_OK);

}

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

void __fastcall TForm1::Image1Click(TObject *Sender)

{}

Листинг формы «Форма управления приложением»

#include <vcl.h>

#pragma hdrstop

#include "Unit4.h"

#include "Unit2.h"

#include "Kur.h"

#include "Unit3.h"

#include "uni.h"

#include "Unit7.h"

#include "Unit8.h"

#include "Unit5.h"

bool Success;

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

#pragma package(smart_init)

#pragma link "CGRID"

#pragma resource "*.dfm"

TForm4 *Form4;

TForm1 *Form1;

TForm3 *Form3;

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

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm4::Button1Click(TObject *Sender)

{

GroupBox1->Visible=true;

Edit2->Visible=false;

GroupBox1->Caption="Èñõîäíûå äàííûå";

}

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

void __fastcall TForm4::N11Click(TObject *Sender)

{

Form4->Close();

}

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

void __fastcall TForm4::Table1BeforePost(TDataSet *DataSet)

{

if (MessageBox(0,"Âû äåéñòâèòåëüíî õîòèòå ñîõðàíèòü èçìåíåíèÿ?","Ïðåäóïðåæäåíèå î íåæåëàòåëüíîé ìîäèôèêàöèè ÁÄ",MB_YESNO)==IDNO)

Table1->Cancel();

else

{Table1->Post();

Table1->Append();}

}

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

void __fastcall TForm4::Table1CalcFields(TDataSet *DataSet)

{

Table1Voz->Value=2009-Table1God->Value;

}

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

void __fastcall TForm4::N7Click(TObject *Sender)

{ Form1=new TForm1(Application);

Form1->Show();

}

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

void __fastcall TForm4::O1Click(TObject *Sender)

{

Panel1->Visible=1;

ProgressBar1->Visible=true;

}

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

void __fastcall TForm4::Edit1Change(TObject *Sender)

{int i;

Timer1->Enabled=true;

ProgressBar1->Visible=true;

TLocateOptions Options;

Success=Table1->Locate(ComboBox1->Text,Edit1->Text,Options);

}

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

void __fastcall TForm4::Timer1Timer(TObject *Sender)

{

if (Edit1->Text!=""&&!Success)

Application->MessageBox("íå íàéäåíî íè îäíîé çàïèñè",MB_OK);

}

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

void __fastcall TForm4::N6Click(TObject *Sender)

{

Form3=new TForm3(Application);

Form3->Show();

}

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

void __fastcall TForm4::Timer2Timer(TObject *Sender)

{if (Edit1->Text!="")

ProgressBar1->StepIt();

if (ProgressBar1->Position==80)

{Timer1->Enabled=false;

ProgressBar1->Visible=false;}

}

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

 
назад
читать дальше
1
2
3
4
5
НАПИШИТЕ НАМ
Copyright © Smekni.com. All rigths reserved.