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

Application->ShowException(&exception);

} return 0;
}
//-----------------------------------------------------------------------
-
Kur1.cpp:
#include
#include
#pragma hdrstop
#include "kur1.h"
#include "RichAbt.h"
#include "Datam.h"
#include "Report.h"
#include "Unit1.h"
#include "Findcust.h"
#include "Sort.h"
#include "filter.h"
#include "filename.h"
//-----------------------------------------------------------------------
-
#pragma link "Grids"
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString ff;
//-----------------------------------------------------------------------
-
__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)
{ ff=Form1->Caption;
}
//-----------------------------------------------------------------------
- void __fastcall TForm1::N10Click(TObject *Sender)
{

Form1->Caption=ff;

Form6->ShowModal();

N2->Enabled=true;

N20->Enabled=true;

N5->Enabled=true;

N14->Enabled=true;

N16->Enabled=true;

Form1->Caption =Form1->Caption+"->"+DM1->Table1->TableName;

}
//-----------------------------------------------------------------------
- void __fastcall TForm1::N17Click(TObject *Sender)
{
Close();
}
//-----------------------------------------------------------------------
- void __fastcall TForm1::N14Click(TObject *Sender)
{

QRListForm->QuickReport->Print();
}
//-----------------------------------------------------------------------
-

void __fastcall TForm1::N5Click(TObject *Sender)
{

DBGrid1->Visible=false;

DBNavigator1->Enabled=false;

BitBtn1->Enabled=false;

BitBtn2->Enabled=false;

BitBtn3->Enabled=false;
}
//-----------------------------------------------------------------------
- void __fastcall TForm1::N2Click(TObject *Sender)
{

DBGrid1->Visible=true;

DBNavigator1->Enabled=true;

BitBtn1->Enabled=true;

DBGrid1->ReadOnly=true;

BitBtn2->Enabled=true;

BitBtn3->Enabled=true;
}
//-----------------------------------------------------------------------
- void __fastcall TForm1::N16Click(TObject *Sender)
{
QRListForm->QuickReport->Preview();
}
//-----------------------------------------------------------------------
- void __fastcall TForm1::N20Click(TObject *Sender)
{

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





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