Проектирование автоматизированного рабочего места сотрудника банка по выпуску банковских карт

Дипломная работа - Компьютеры, программирование

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

Klient::BitBtn3Click(TObject *Sender)

{

DMfrm->KlientTbl->Post();

DMfrm->KlientTbl->Close();

DMfrm->KlientTbl->ReadOnly=false;

DMfrm->KlientTbl->Open();

}

Листинг программного модуля NSI

Заголовочный файл:

#ifndef NSI_unitH

#define NSI_unitH

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

#include

//---------------------------------------------------------------------------TNSI : public TForm

{

__published:// IDE-managed Components

TBitBtn *BitBtn1;

TBitBtn *BitBtn2;

TBitBtn *BitBtn3;

TBitBtn *BitBtn4;

TDBGrid *DBGrid1;

void __fastcall FormActivate(TObject *Sender);

void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

void __fastcall BitBtn1Click(TObject *Sender);

void __fastcall BitBtn2Click(TObject *Sender);

void __fastcall BitBtn3Click(TObject *Sender);

void __fastcall BitBtn4Click(TObject *Sender);:// User declarations:// User declarations

__fastcall TNSI(TComponent* Owner);

};

//---------------------------------------------------------------------------PACKAGE TNSI *NSI;

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

#endif

Файл реализации:

#include

#pragma hdrstop

#include "NSI_unit.h"

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"*NSI;

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

__fastcall TNSI::TNSI(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------__fastcall TNSI::FormActivate(TObject *Sender)

{

//->DataSource->DataSet->Open();

}

//---------------------------------------------------------------------------__fastcall TNSI::FormClose(TObject *Sender, TCloseAction &Action)

{->DataSource->DataSet->Close();

}

//---------------------------------------------------------------------------__fastcall TNSI::BitBtn1Click(TObject *Sender)

{->DataSource->DataSet->Append();

}

//---------------------------------------------------------------------------__fastcall TNSI::BitBtn2Click(TObject *Sender)

{->DataSource->DataSet->Post();

}

//---------------------------------------------------------------------------__fastcall TNSI::BitBtn3Click(TObject *Sender)

{

if (Application->MessageBox("Вы действительно хотите удалить запись?",MB_YESNO + MB_ICONQUESTION)==ID_YES)

}

//---------------------------------------------------------------------------__fastcall TNSI::BitBtn4Click(TObject *Sender)

{();

}

Листинг программного модуля FrmList

Заголовочный файл:

#ifndef List_unitH

#define List_unitH

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

#include

//---------------------------------------------------------------------------TFrmList : public TForm

{

__published:// IDE-managed Components

TBitBtn *BitBtn1;

TQuickRep *QuickRep1;

TQRBand *QRBand1;

TQRLabel *QRLabel1;

TQRLabel *QRLabel2;

TQRLabel *QRLabel3;

TQRLabel *QRLabel4;

TQRLabel *QRLabel5;

TQRDBText *QRDBText1;

TQRBand *QRBand2;

TQRDBText *QRDBText2;

TQRDBText *QRDBText3;

TQRBand *QRBand3;

TQRSysData *QRSysData1;

TQRSysData *QRSysData2;

TQRLabel *QRLabel6;

TBitBtn *BitBtn2;

TBitBtn *BitBtn3;

TQRLabel *QRLabel7;

TQRDBText *QRDBText4;

void __fastcall FormActivate(TObject *Sender);

void __fastcall BitBtn1Click(TObject *Sender);

void __fastcall BitBtn2Click(TObject *Sender);

void __fastcall BitBtn3Click(TObject *Sender);:// User declarations:// User declarations

__fastcall TFrmList(TComponent* Owner);

};

//---------------------------------------------------------------------------PACKAGE TFrmList *FrmList;

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

#endif

Файл реализации:

#include

#pragma hdrstop

#include "List_unit.h"

#include "DM.h"

#include "Rep_unit.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"*FrmList;

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

__fastcall TFrmList::TFrmList(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------__fastcall TFrmList::FormActivate(TObject *Sender)

{>KartsTbl->Filtered=true;>KartsTbl->Filter="Made_k=true";>KartsTbl->Open();

}

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

__fastcall TFrmList::BitBtn1Click(TObject *Sender)

{();

}

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

__fastcall TFrmList::BitBtn2Click(TObject *Sender)

{

->Preview();

}

//---------------------------------------------------------------------------__fastcall TFrmList::BitBtn3Click(TObject *Sender)

{

Application->CreateForm(__classid(TRep), &Rep);

Rep->Show();

}

Листинг программного модуля Rep

Заголовочный файл:

#ifndef ListRep_unitH

#define ListRep_unitH

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

#include

//----------------------------------------------------------------------------TQuickReport1 : public TQuickRep

{

__published:

TQRLabel *QRLabel1;

TQRLabel *QRLabel2;

TQRLabel *QRLabel3;

TQRLabel *QRLabel4;

TQRLabel *QRLabel5;

TQRBand *TitleBand1;

TQRBand *DetailBand1;

TQRDBText *QRDBText3;

TQRDBText *QRDBText1;::

__fastcall TQuickReport1::TQuickReport1(TComponent* Owner);

};

//----------------------------------------------------------------------------TQuickReport1 *QuickReport1;

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

#endif

Файл реализации:

#include

#pragma hdrstop

#include "Rep_unit.h"

#include "DM.h"

#include "ListRep_unit.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"*Rep;

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

__fastcall TRep::TRep(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------__fastcall TRep::BitBtn2Click(TObject *Sender)

{

//формирование запроса

WideString FileName;>Report->Close();>Report->Parameters->ParamByName("D1")->Value=StrToDate(DateToStr(DateTimePicker1->Date));

DMfrm->Report->Parameters->ParamByName("D2")->Value=StrToDate(DateToStr(DateTimePicker2->Date));

DMfrm->Report->Open();

/заполнение шаблона Excel

}

//---------------------------------------------------------------------------__fastcall TRep::BitBtn1Click(TObject *Sender)

{

Close();

}

Листинг программного модуля Vedom

Заголовочный файл:

#ifndef Vedom_unitH

#define Vedom_unitH

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

#include

Blog

Проектирование автоматизированного рабочего места сотрудника банка по выпуску банковских карт

Дипломная работа - Компьютеры, программирование

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