Система рейтингового контроля знаний

Информация - Компьютеры, программирование

Другие материалы по предмету Компьютеры, программирование

le1->Open();}

else if (ComboBox1->Text == "TЁ.+рыы"){

DM1->Query1->SQL->Clear();

DM1->Query1->SQL->Append("Select * From baza Where Z>="+filter);

DM1->Query1->Open();

DM1->Table1->Open();}}

else

{

DM1->Query1->SQL->Clear();

DM1->Query1->SQL->Append("Select * From baza ");

DM1->Query1->Open();

DM1->Table1->Open();}}

else{

DM1->Query1->SQL->Clear();

DM1->Query1->SQL->Append("Select * From baza ");

DM1->Query1->Open();

DM1->Table1->Open();}

DM1->Table1->Refresh();}

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

findcust.cpp:

#include

#pragma hdrstop

 

#include "FindCust.h"

#include "Datam.h"

 

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

#pragma resource "*.dfm"

 

TfmFindCust* fmFindCust;

char field[2]={A,Z};

char w1;

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

__fastcall TfmFindCust::TfmFindCust(TComponent* Owner)

: TForm(Owner)

{

}

 

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

void __fastcall TfmFindCust::ComboBox1Change(TObject *Sender)

{

if (ComboBox1->Text == "L.L.+.")

w1=field[0];

else if (ComboBox1->Text == "TЁ.+рыы")

{w1=field[1];

//Edit1->Text = "";

}

else

ComboBox1->Text ="L.L.+.";

w1=field[0];

}

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

void __fastcall TfmFindCust::Edit1Change(TObject *Sender)

{

bool Success;

Set flags;

flags << loCaseInsensitive << loPartialKey;

TLocateOptions Options;

Success = DM1->Table1->Locate(w1,Edit1->Text,flags);

DM1->Table1->Refresh();

}

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

Report.cpp:

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

#include

#pragma hdrstop

 

#include "Report.h"

#include "Datam.h"

#include "kur1.h"

 

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

#pragma resource "*.dfm"

TQRListForm *QRListForm;

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

// QuickReport simple list

// - Connect a datasource to the QuickReport component

// - Put QRDBText components on the Detail band

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

__fastcall TQRListForm::TQRListForm(TComponent* AOwner)

: TForm(AOwner)

{

}

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

void __fastcall TQRListForm::QRGroup1NeedData(AnsiString &Value)

{

//QuickReport->NewPage();

}

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

RichAbt.cpp:

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

//Borland C++Builder

//Copyright (c) 1987, 1997 Borland International Inc. All Rights Reserved.

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

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

#include

#pragma hdrstop

 

#include "RichAbt.h"

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

#pragma resource "*.dfm"

TForm2 *Form2;

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

__fastcall TForm2::TForm2(TComponent *Owner)

: TForm(Owner)

{

}

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

Sort.cpp:

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

#include

#pragma hdrstop

 

#include "Sort.h"

#include "Datam.h"

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

#pragma resource "*.dfm"

TForm4 *Form4;

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

__fastcall TForm4::TForm4(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm4::ComboBox1Change(TObject *Sender)

{

if (ComboBox1->Text == "L.L.+."){

DM1->Query1->SQL->Clear();

DM1->Query1->SQL->Append("Select * From baza Order by A asc");

DM1->Query1->Open();

DM1->Table1->Open();}

else if (ComboBox1->Text == "Lръєы№ЄхЄ"){

DM1->Query1->SQL->Clear();

DM1->Query1->SQL->Append("Select * From baza Order by W asc");

DM1->Query1->Open();

DM1->Table1->Open();}

else if (ComboBox1->Text == "TяхЎшры№эюёЄ№"){

DM1->Query1->SQL->Clear();

DM1->Query1->SQL->Append("Select * From baza Order by Q asc");

DM1->Query1->Open();

DM1->Table1->Open();}

else if (ComboBox1->Text == "+Ёєяяр"){

DM1->Query1->SQL->Clear();

DM1->Query1->SQL->Append("Select * From baza Order by S asc");

DM1->Query1->Open();

DM1->Table1->Open();}

else if (ComboBox1->Text == "Lръєы№ЄхЄ"){

DM1->Query1->SQL->Clear();

DM1->Query1->SQL->Append("Select * From baza Order by Z asc");

DM1->Query1->Open();

DM1->Table1->Open();}

DM1->Table1->Refresh();

}

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

Unit1.cpp:

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

#include

#pragma hdrstop

 

#include "Unit1.h"

#include "Datam.h"

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

#pragma link "Grids"

#pragma resource "*.dfm"

TForm3 *Form3;

char predmet1[9]={H,N,U,J,M,I,K,1,O};

char predmet2[9]={E,D,C,R,F,V,T,G,B};

double ozenka1[12];

int i=0;

double r;

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

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm3::FormCreate(TObject *Sender)

{

//-юсртыхь эютє чряшё№ т срчє

DM1->Table1->Append();

}

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

void __fastcall TForm3::Button1Click(TObject *Sender)

{

if(DM1->Table1->State == dsInsert||DM1->Table1->State == dsEdit)

DM1->Table1->Post();

DM1->Table1->Append();

for(i=0;i<=9;i++){

predmet1[i]=0;}

i=0;

Button5->Enabled=true;

Button2->Enabled=true;

DBEdit8->DataField=x;

DBEdit5->DataField=y;

DBEdit5->ReadOnly=false;

DBEdit8->ReadOnly=false;

DBEdit1->ReadOnly=false;

DBEdit2->ReadOnly=false;

DBEdit4->ReadOnly=false;

DBEdit6->ReadOnly=false;

DBEdit4->Visible=false;

Label8->Visible=false;

DM1->Table1->Refresh();

 

}

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

void __fastcall TForm3::Button6Click(TObject *Sender)

{

if ( !DM1->Table1->Bof )

DM1->Table1->Prior();

i=10;

}

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

void __fastcall TForm3::Button4Click(TObject *Sender)

{

if ( !DM1->Table1->Eof )

DM1->Table1->Next();

i=10;

}

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

void __fastcall TForm3::Button2Click(TObject *Sender)

{

DM1->Table1->Delete();

DM1->Table1->Refresh();

if(DM1->Table1->E