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

Form3->ShowModal();

DM1->Table1->Refresh();
}
//-----------------------------------------------------------------------
- void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{

DBGrid1->DataSource=DM1->DataSource2; fmFindCust->ShowModal(); if (fmFindCust->ModalResult == mrOk)

DM1->Table1->GotoCurrent(DM1->Table1);

}
//-----------------------------------------------------------------------
- void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{

DBGrid1->DataSource=DM1->DataSource1;

Form4->ShowModal(); if (Form4->ModalResult == mrOk)

DM1->Table1->GotoCurrent(DM1->Table1);
}
//-----------------------------------------------------------------------
-

void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
DBGrid1->DataSource=DM1->DataSource1;
Form5->ShowModal(); if (Form4->ModalResult == mrOk)
DM1->Table1->GotoCurrent(DM1->Table1);
}
//-----------------------------------------------------------------------
- void __fastcall TForm1::N7Click(TObject *Sender)
{ if ( OpenDialog1->Execute() )

{

Form1->Caption=ff;

N2->Enabled=true;

N20->Enabled=true;

N5->Enabled=true;

N14->Enabled=true;

N16->Enabled=true; if (DM1->Table1->Active == true )

DM1->Table1->Active = false;

DM1->Table1->DatabaseName = ExtractFilePath( OpenDialog1->FileName );

DM1->Table1->TableName = ExtractFileName( OpenDialog1->FileName );

DM1->Table1->Active = true;

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

}
}
//-----------------------------------------------------------------------
- void __fastcall TForm1::N4Click(TObject *Sender)
{
Form2= new TForm2(Application);
Form2->ShowModal(); delete Form2;
}
//-----------------------------------------------------------------------
-
Datam.cpp:
//-----------------------------------------------------------------------
-
#include
#pragma hdrstop

#include "Datam.h"
//-----------------------------------------------------------------------
-
#pragma resource "*.dfm"
TDM1 *DM1;
//-----------------------------------------------------------------------
-
__fastcall TDM1::TDM1(TComponent* Owner)

: TDataModule(Owner)
{
}
//-----------------------------------------------------------------------
- filename.cpp:
//-----------------------------------------------------------------------
-
#include
#pragma hdrstop

#include "filename.h"
#include "Datam.h"
#include "kur1.h"
//-----------------------------------------------------------------------
-
#pragma resource "*.dfm"
TForm6 *Form6;
//-----------------------------------------------------------------------
-
__fastcall TForm6::TForm6(TComponent* Owner)

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





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