Http://www.interface.ru

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;}

}

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

void __fastcall TForm4::N18Click(TObject *Sender)

{

Form8=new TForm8(Application);

Form8->Show();

}

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

void __fastcall TForm4::FormCreate(TObject *Sender)

{

GroupBox1->Visible=false;

ProgressBar1->Visible=false;

Table1->FilterOptions>>foNoPartialCompare;

Table1->FilterOptions<<foCaseInsensitive;

}

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

void __fastcall TForm4::N19Click(TObject *Sender)

{

GroupBox1->Visible=false;

}

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

void __fastcall TForm4::N20Click(TObject *Sender)

{

Panel1->Visible=false;

}

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

void __fastcall TForm4::N8Click(TObject *Sender)

{

Form6=new TForm6(Application);

Form6->Show();

}

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

void __fastcall TForm4::N1Click(TObject *Sender)

{

GroupBox1->Visible=true;

}

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

void __fastcall TForm4::CheckBox1Click(TObject *Sender)

{

if (!CheckBox1->Checked)

Table1->Filtered=false;

}

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

void __fastcall TForm4::Edit2Change(TObject *Sender)

{float m;

String StrFiltr;

if (CheckBox1->Checked)

{Table1->Filtered=false;

Table1->Refresh();

StrFiltr=Edit2->Text+"*";

if (ListBox1->Items->Strings[ListBox1->ItemIndex]=="FIO")

{Table1->Filter="FIO='"+StrFiltr+"'";}

else

{if (ListBox1->Items->Strings[ListBox1->ItemIndex]=="God")

Table1->Filter="God='"+FloatToStr(m)+"'";

else {if (ListBox1->Items->Strings[ListBox1->ItemIndex]=="Pol")

Table1->Filter="Pol='"+StrFiltr+"'";

else {if (ListBox1->Items->Strings[ListBox1->ItemIndex]=="Spec")

Table1->Filter="Spec='"+StrFiltr+"'";

else

Table1->Filter="Group='"+StrFiltr+"'";}}}}

{

Table1->Filtered=true;}

}

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

void __fastcall TForm4::N13Click(TObject *Sender)

{

GroupBox1->Visible=false;

}

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

Листинг формы «О программе»

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

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

#pragma resource "*.dfm"

TForm7 *Form7;

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

__fastcall TForm7::TForm7(TComponent* AOwner)

: TForm(AOwner)

{

}

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

void __fastcall TForm7::OKButtonClick(TObject *Sender)

{

Form7->Close();

}

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

Листинг формы «Текстовый редактор»

#include <vcl.h>

#pragma hdrstop

#include "uni.h"

#include "Unit3.h"

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

#pragma resource "*.dfm"

TForm3 *Form3;

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

__fastcall TForm3::TForm3(TComponent* AOwner)

: TForm(AOwner)

{

}

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

void __fastcall TForm3::SpeedButton1Click(TObject *Sender)

{

if (OpenDialog1->Execute())

{Memo1->Lines->LoadFromFile(OpenDialog1->FileName);

StatusBar1->Panels->Items[0]->Text=OpenDialog1->FileName;

}

}

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

void __fastcall TForm3::SpeedButton3Click(TObject *Sender)

{

if (Memo1->Lines->Count>0)

{

if (MessageBox(0,"Ñîõðàíèòü ñîäåðæèìîå îêíà ðåäàêòèðîâàíèÿ? ","Ïîäòâåðäèòå ñîõðàíåíèå",MB_YESNO)==IDYES)

{

SpeedButton4Click(Sender);

}

}

Memo1->Clear();

StatusBar1->Panels->Items[0]->Text="Áåç èìåíè";

}

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

void __fastcall TForm3::SpeedButton5Click(TObject *Sender)

{

if (StatusBar1->Panels->Items[0]->Text=="Áåç èìåíè")

SpeedButton4Click(Sender);

else

{Memo1->Lines->SaveToFile(StatusBar1->Panels->Items[0]->Text); }

}

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

void __fastcall TForm3::SpeedButton2Click(TObject *Sender)

{

SpeedButton3Click(Sender);

Close();

}

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

void __fastcall TForm3::SpeedButton4Click(TObject *Sender)

{

if (SaveDialog1->Execute())

Memo1->Lines->SaveToFile(SaveDialog1->FileName);

StatusBar1->Panels->Items[0]->Text=SaveDialog1->FileName;

}

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

void __fastcall TForm3::SpeedButton6Click(TObject *Sender)

{

Memo1->CutToClipboard();

}

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

void __fastcall TForm3::SpeedButton7Click(TObject *Sender)

{

Memo1->CopyToClipboard();

}

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

void __fastcall TForm3::SpeedButton8Click(TObject *Sender)

{

Memo1->PasteFromClipboard();

}

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

void __fastcall TForm3::SpeedButton9Click(TObject *Sender)

{

Form7=new TForm7(Application);

Form7->Show();

}

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

Листинг формы «Создание расписания»

#include <vcl.h>

#pragma hdrstop

#include "Unit7.h"

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

#pragma resource "*.dfm"

TForm6 *Form6;

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

__fastcall TForm6::TForm6(TComponent* AOwner)

: TForm(AOwner)

{

}

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

void __fastcall TForm6::CancelBtnClick(TObject *Sender)

{

Table1->Cancel();

Form6->Close();

}

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

void __fastcall TForm6::OKBtnClick(TObject *Sender)

{

Table1->Post();

Form6->Close();

}

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

void __fastcall TForm6::Button1Click(TObject *Sender)

{

Table1->Bof;

while (Table1->Eof)

{Table1->Next();

}

TForm* GridForm=new TForm((TComponent *)NULL);

GridForm->Caption="Расписание";

GridForm->Width=300;

GridForm->Height=300;

TStringGrid *Grid=new TStringGrid(GridForm);

Grid->ColCount=Table1->FieldCount;

Grid->RowCount=Table1->FieldCount;

Grid->Parent=GridForm;

Grid->Align=alClient;

GridForm->Show();

Grid->FixedCols=1;

Grid->FixedRows=1;

Grid->Cells[0][1]="8.20";

Grid->Cells[0][2]="10.00";

Grid->Cells[0][3]="11.45";

Grid->Cells[0][4]="13.20";

Grid->Cells[0][5]="15.00";

Grid->Cells[0][6]="16.45";

Grid->Cells[0][7]="18.00";

Grid->Cells[0][8]="19.45";

Grid->Cells[1][0]="Понедельник";

Grid->Cells[2][0]="Вторник";

Grid->Cells[3][0]="Среда";

Grid->Cells[4][0]="Четверг";

Grid->Cells[5][0]="Пятница";

Grid->Show();

GridForm->Handle;

String StrFiltr;

Table1->Filtered=false;

Table1->Refresh();

StrFiltr=ListBox1->Items->Strings[ListBox1->ItemIndex]+"*";

Table1->Filter="FIO1='"+StrFiltr+"'";

Table1->Filtered=true;

int i;

while (!Table1->Eof)

{for (i=1;i<Table1->FieldCount;i++)

{if (Table1Time->Value==Grid->Cells[0][i])

Grid->Cells[1][i]=Table1Group->Value+Table1N1->Value;}

Table1->Next();

}

Table1->Filtered=false;

Table1->Bof;

Table1->Filter="FIO2='"+StrFiltr+"'";

Table1->Filtered=true;

while (!Table1->Eof)

{for (i=1;i<Table1->FieldCount;i++)

{if (Table1Time->Value==Grid->Cells[0][i])

Grid->Cells[2][i]=Table1Group->Value+Table1N2->Value;}

Table1->Next();}

Table1->Filtered=false;

Table1->Bof;

Table1->Filter="FIO3='"+StrFiltr+"'";

Table1->Filtered=true;

while (!Table1->Eof)

{for (i=1;i<Table1->FieldCount;i++)

{if (Table1Time->Value==Grid->Cells[0][i])

Grid->Cells[3][i]=Table1Group->Value+Table1N3->Value;}

Table1->Next();}

Table1->Filtered=false;

Table1->Bof;

Table1->Filter="FIO4='"+StrFiltr+"'";

Table1->Filtered=true;

while (!Table1->Eof)

{for (i=1;i<Table1->FieldCount;i++)

{if (Table1Time->Value==Grid->Cells[0][i])

Grid->Cells[4][i]=Table1Group->Value+Table1N4->Value;}

Table1->Next();}

Table1->Filtered=false;

Table1->Bof;

Table1->Filter="FIO5='"+StrFiltr+"'";

Table1->Filtered=true;

while (!Table1->Eof)

{for (i=1;i<Table1->FieldCount;i++)

{if (Table1Time->Value==Grid->Cells[5][i])

Grid->Cells[5][i]=Table1Group->Value+Table1N5->Value;}

Table1->Next();}

}

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

void __fastcall TForm6::Button2Click(TObject *Sender)

{

RichEdit1->Lines->LoadFromFile(ListBox2->Items->Strings[ListBox2->ItemIndex]+".txt");

}

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

void __fastcall TForm6::Edit1Change(TObject *Sender)

{

String StrFiltr;

Table1->Filtered=false;

Table1->Refresh();

StrFiltr=Edit1->Text+"*";

Table1->Filter="Group='"+StrFiltr+"'";

if (CheckBox1->Checked)

Table1->Filtered=true;

}

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