Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

: TForm(Owner)
{
}
//-----------------------------------------------------------------------
- void __fastcall TForm6::Button1Click(TObject *Sender)
{
DM1->Table1->Active=false;
DM1->Query1->Active=false; if (Edit1->Text == "")
Edit1->Text="ITF.db";
TFileStream *Old = new TFileStream("baza1.db", fmOpenRead);
TFileStream *New = new TFileStream(Edit1->Text,fmCreate);
New->CopyFrom(Old, Old->Size); delete Old; delete New;
DM1->Table1->TableName=Edit1->Text;
DM1->Query1->Active=true;
DM1->Table1->Active=true;
}
//-----------------------------------------------------------------------
- filter.cpp:
//-----------------------------------------------------------------------
-
#include
#pragma hdrstop

#include "filter.h"
#include "Datam.h"
#include "kur1.h"
//-----------------------------------------------------------------------
-
#pragma resource "*.dfm"
TForm5 *Form5;
//-----------------------------------------------------------------------
-
__fastcall TForm5::TForm5(TComponent* Owner)

: TForm(Owner)
{
}
//-----------------------------------------------------------------------
- void __fastcall TForm5::Button3Click(TObject *Sender)
{
AnsiString filter; filter=Edit1->Text; if(ComboBox1->Text != ""){ if(Edit1->Text != "" ){ if (ComboBox1->Text == "L.L.+."){
DM1->Query1->SQL->Clear();
DM1->Query1->SQL->Append("Select * From baza Where A=""+filter+""");
DM1->Query1->Open();
DM1->Table1->Open();} else if (ComboBox1->Text == "Lръєы№ЄхЄ"){
DM1->Query1->SQL->Clear();
DM1->Query1->SQL->Append("Select * From baza Where W=""+filter+""");
DM1->Query1->Open();
DM1->Table1->Open();} else if (ComboBox1->Text == "TяхЎшры№эюёЄ№"){
DM1->Query1->SQL->Clear();
DM1->Query1->SQL->Append("Select * From baza Where Q=""+filter+""");
DM1->Query1->Open();
DM1->Table1->Open();} else if (ComboBox1->Text == "+Ёєяяр"){
DM1->Query1->SQL->Clear();
DM1->Query1->SQL->Append("Select * From baza Where S=""+filter+""");
DM1->Query1->Open();
DM1->Table1->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 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)
DM1->Table1->State == dsEdit)

DM1->Table1->Post();

DM1->Table1->Append(); for(i=0;iEnabled=true;

Button2->Enabled=true;

DBEdit8->DataField='x';

DBEdit5->DataField='y';

DBEdit5->ReadOnly=false;

DBEdit8->ReadOnly=false;

DBEdit1->ReadOnly=false;

Рекомендуем скачать другие рефераты по теме: шпаргалки по психологии, банк рефератов.



Предыдущая страница реферата | 8  9  10  11  12  13  14  15  16  17  18 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки