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

void __fastcall N14Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TMainFrm(TComponent* Owner);

};

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

extern PACKAGE TMainFrm *MainFrm;

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

#endif

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

#include <vcl.h>

#pragma hdrstop

#include "Main_unit.h"

#include "Klient_unit.h"

#include "Kard_unit.h"

#include "List_unit.h"

#include "NSI_unit.h"

#include "DM.h"

#include "Rep_unit.h"

#include "Vedom_unit.h"

#include "Counts_unit.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TMainFrm *MainFrm;

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

__fastcall TMainFrm::TMainFrm(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TMainFrm::N2Click(TObject *Sender)

{

Application->CreateForm(__classid(TKlient), &Klient);

Klient->Show();

}

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

void __fastcall TMainFrm::N3Click(TObject *Sender)

{

Application->CreateForm(__classid(TKard), &Kard);

Kard->Show();

}

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

void __fastcall TMainFrm::N8Click(TObject *Sender)

{

NSI->DBGrid1->DataSource=DMfrm->VidDS;

NSI->Caption="Виды карт";

NSI->Show();

}

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

void __fastcall TMainFrm::N9Click(TObject *Sender)

{

NSI->DBGrid1->DataSource=DMfrm->SystemDS;

NSI->Caption="Платежые системы";

NSI->Show();

}

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

void __fastcall TMainFrm::N10Click(TObject *Sender)

{

NSI->DBGrid1->DataSource=DMfrm->UslugaDS;

NSI->Caption="Дополнительные услуги";

NSI->Show();

}

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

void __fastcall TMainFrm::N11Click(TObject *Sender)

{

NSI->DBGrid1->DataSource=DMfrm->CountryDS;

NSI->Caption="Гражданство";

NSI->Show();

}

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

void __fastcall TMainFrm::N12Click(TObject *Sender)

{

NSI->DBGrid1->DataSource=DMfrm->StatusDS;

NSI->Caption="Социальный статус";

NSI->Show();

}

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

void __fastcall TMainFrm::N7Click(TObject *Sender)

{

Close();

}

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

void __fastcall TMainFrm::N1Click(TObject *Sender)

{

DMfrm->KartsTbl->Open();

Vedom->QuickRep1->Preview();

DMfrm->KartsTbl->Close();

}

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

void __fastcall TMainFrm::N4Click(TObject *Sender)

{

Application->CreateForm(__classid(TFrmList), &FrmList);

FrmList->Show();

}

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

void __fastcall TMainFrm::N14Click(TObject *Sender)

{

//журнал открытых счетов

DMfrm->CountTbl->Open();

Counts->QuickRep1->Preview();

DMfrm->CountTbl->Close();

}

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

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

#ifndef Kard_unitH

#define Kard_unitH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBCtrls.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

#include <Mask.hpp>

#include <Buttons.hpp>

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

class TKard : public TForm

{

__published: // IDE-managed Components

TLabel *Label1;

TDBGrid *DBGrid1;

TLabel *Label2;

TDBEdit *Valid_DBE;

TLabel *Label3;

TLabel *Label4;

TDBLookupComboBox *Curr_LCB;

TLabel *Label5;

TDBLookupComboBox *Sys_DBE;

TLabel *Label6;

TDBLookupComboBox *Vid_DBE;

TLabel *Label7;

TDBLookupComboBox *Usl_DBE;

TLabel *PIN;

TDBEdit *PIN_DBE;

TBitBtn *BitBtn1;

TBitBtn *BitBtn2;

TBitBtn *BitBtn3;

TLabel *Label8;

TDBEdit *Num_DBE;

TDBLookupComboBox *Klient_LCB;

TBitBtn *BitBtn4;

TDBCheckBox *DBCheckBox1;

TDBCheckBox *DBCheckBox2;

TLabel *Label9;

TDBGrid *DBGrid2;

TBitBtn *BitBtn6;

TBitBtn *BitBtn7;

TLabel *Label10;

TLabel *Label11;

TDBEdit *DBEdit1;

void __fastcall FormActivate(TObject *Sender);

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

void __fastcall BitBtn1Click(TObject *Sender);

void __fastcall BitBtn3Click(TObject *Sender);

void __fastcall BitBtn2Click(TObject *Sender);

void __fastcall BitBtn4Click(TObject *Sender);

void __fastcall BitBtn5Click(TObject *Sender);

void __fastcall BitBtn6Click(TObject *Sender);

void __fastcall BitBtn7Click(TObject *Sender);

void __fastcall DBGrid2DblClick(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TKard(TComponent* Owner);

};

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

extern PACKAGE TKard *Kard;

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

#endif

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

#include <vcl.h>

#pragma hdrstop

#include "Kard_unit.h"

#include "DM.h"

#include "Klient_unit.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TKard *Kard;

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

__fastcall TKard::TKard(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TKard::FormActivate(TObject *Sender)

{

DMfrm->KartsTbl->Filtered=false;

DMfrm->KartsTbl->Open();

DMfrm->CurrencyTbl->Open();

DMfrm->VidTbl->Open();

DMfrm->KlientTbl->Open();

DMfrm->SystemTbl->Open();

DMfrm->UslugaTbl->Open();

DMfrm->CountTbl->Open();

}

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

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

{

DMfrm->KartsTbl->Close();

DMfrm->CurrencyTbl->Close();

DMfrm->VidTbl->Close();

DMfrm->KlientTbl->Close();

DMfrm->SystemTbl->Close();

DMfrm->UslugaTbl->Close();

DMfrm->CountTbl->Close();

}

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

void __fastcall TKard::BitBtn1Click(TObject *Sender)

{

DMfrm->KartsTbl->Append();

}

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

void __fastcall TKard::BitBtn3Click(TObject *Sender)

{

DMfrm->KartsTblDate->AsDateTime=Date();

DMfrm->KartsTbl->Post();

}

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

void __fastcall TKard::BitBtn2Click(TObject *Sender)

{

//новый клиент

Application->CreateForm(__classid(TKlient), &Klient);

Klient->Show();

DMfrm->KlientTbl->Append();

DMfrm->KlientTblCountry->AsInteger=83;

}

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

void __fastcall TKard::BitBtn4Click(TObject *Sender)

{

Close();

}

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

void __fastcall TKard::BitBtn5Click(TObject *Sender)

{

//выдача карты

}

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

void __fastcall TKard::BitBtn6Click(TObject *Sender)

{

//открыть счет

DMfrm->CountTbl->Append();

}

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

void __fastcall TKard::BitBtn7Click(TObject *Sender)

{

DMfrm->CountTbl->Post();

}

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

void __fastcall TKard::DBGrid2DblClick(TObject *Sender)

{

DMfrm->KartsTbl->Edit();

DMfrm->KartsTblN_count->Value=DMfrm->CountTblN_count->Value;

DMfrm->KartsTbl->Post();

}

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

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

#ifndef Klient_unitH

#define Klient_unitH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

#include <Buttons.hpp>

#include <DBCtrls.hpp>

#include <Mask.hpp>

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

class TKlient : public TForm

{

__published: // IDE-managed Components

TLabel *Label1;

TDBGrid *DBGrid1;

TBitBtn *BitBtn1;

TLabel *Label2;

TDBEdit *FIO_DBE;

TLabel *Label3;

TDBComboBox *Sex_DBCb;

TLabel *Label4;

TDBEdit *Place_birth_DBE;

TLabel *Label5;

TDBLookupComboBox *Country_LCB;

TLabel *Label6;

TDBLookupComboBox *Stat_LCB;

TGroupBox *Pasport;

TLabel *Label7;

TDBEdit *Ser_DBE;

TLabel *Label8;

TDBEdit *Num_DBE;

TLabel *Label9;

TDBEdit *Date_DBE;

TLabel *Label10;

TDBEdit *Whom_DBE;

TLabel *Label11;

TDBEdit *Code_DBE;

TLabel *Label12;

TDBEdit *Index_DBE;

TLabel *Label13;

TDBEdit *Adres_DBE;

TLabel *Label14;

TDBEdit *Phone1_DBE;

TLabel *Label15;

TDBEdit *Phone2_DBE;

TLabel *Label16;

TDBEdit *Mail_DBE;

TBitBtn *BitBtn2;

TBitBtn *BitBtn3;

TBitBtn *BitBtn4;

void __fastcall BitBtn1Click(TObject *Sender);

void __fastcall FormActivate(TObject *Sender);

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

void __fastcall BitBtn2Click(TObject *Sender);

void __fastcall BitBtn3Click(TObject *Sender);

void __fastcall BitBtn4Click(TObject *Sender);

private: // User declarations

public: // User declarations

__fastcall TKlient(TComponent* Owner);

};

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

extern PACKAGE TKlient *Klient;

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

#endif

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

#include <vcl.h>

#pragma hdrstop

#include "Klient_unit.h"

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TKlient *Klient;

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

__fastcall TKlient::TKlient(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TKlient::BitBtn1Click(TObject *Sender)

{

Close();

}

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

void __fastcall TKlient::FormActivate(TObject *Sender)

{

DMfrm->KlientTbl->Close();

DMfrm->KlientTbl->ReadOnly=true;

DMfrm->KlientTbl->Open();

DMfrm->CountryTbl->Open();

DMfrm->StatusTbl->Open();

}

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

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

{

DMfrm->KlientTbl->Close();

DMfrm->CountryTbl->Close();

DMfrm->StatusTbl->Close();

}

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

void __fastcall TKlient::BitBtn2Click(TObject *Sender)

{

DMfrm->KlientTbl->Close();

DMfrm->KlientTbl->ReadOnly=false;

DMfrm->KlientTbl->Open();

DMfrm->KlientTbl->Append();

DMfrm->KlientTblCountry->AsInteger=83;

}

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

void __fastcall TKlient::BitBtn3Click(TObject *Sender)

{

DMfrm->KlientTbl->Post();

DMfrm->KlientTbl->Close();

DMfrm->KlientTbl->ReadOnly=false;

DMfrm->KlientTbl->Open();

}

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

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

#ifndef NSI_unitH

#define NSI_unitH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <Buttons.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

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

class 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);

private: // User declarations

public: // User declarations

__fastcall TNSI(TComponent* Owner);

};

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

extern PACKAGE TNSI *NSI;

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

#endif

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

#include <vcl.h>

#pragma hdrstop

#include "NSI_unit.h"

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TNSI *NSI;

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

__fastcall TNSI::TNSI(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TNSI::FormActivate(TObject *Sender)

{

//

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

}

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

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

{

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

}

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

void __fastcall TNSI::BitBtn1Click(TObject *Sender)

{

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

}

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

void __fastcall TNSI::BitBtn2Click(TObject *Sender)

{

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

}

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

void __fastcall TNSI::BitBtn3Click(TObject *Sender)

{

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

}

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

void __fastcall TNSI::BitBtn4Click(TObject *Sender)

{

Close();

}

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

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

#ifndef List_unitH

#define List_unitH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <Buttons.hpp>

#include <DBGrids.hpp>

#include <Grids.hpp>

#include <ExtCtrls.hpp>

#include <QRCtrls.hpp>

#include <QuickRpt.hpp>

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

class 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);

private: // User declarations

public: // User declarations

__fastcall TFrmList(TComponent* Owner);

};

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

extern PACKAGE TFrmList *FrmList;

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

#endif

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

#include <vcl.h>

#pragma hdrstop

#include "List_unit.h"

#include "DM.h"

#include "Rep_unit.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TFrmList *FrmList;

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

__fastcall TFrmList::TFrmList(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TFrmList::FormActivate(TObject *Sender)

{

DMfrm->KartsTbl->Filtered=true;

DMfrm->KartsTbl->Filter="Made_k=true";

DMfrm->KartsTbl->Open();

}

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

void __fastcall TFrmList::BitBtn1Click(TObject *Sender)

{

Close();

}

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

void __fastcall TFrmList::BitBtn2Click(TObject *Sender)

{

QuickRep1->Preview();

}

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

void __fastcall TFrmList::BitBtn3Click(TObject *Sender)

{

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

Rep->Show();

}

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

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

#ifndef ListRep_unitH

#define ListRep_unitH

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

#include <vcl\Classes.hpp>

#include <vcl\Controls.hpp>

#include <vcl\StdCtrls.hpp>

#include <vcl\Forms.hpp>

#include <vcl\QuickRpt.hpp>

#include <vcl\QRCtrls.hpp>

#include <ExtCtrls.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

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

class TQuickReport1 : public TQuickRep

{

__published:

TQRLabel *QRLabel1;

TQRLabel *QRLabel2;

TQRLabel *QRLabel3;

TQRLabel *QRLabel4;

TQRLabel *QRLabel5;

TQRBand *TitleBand1;

TQRBand *DetailBand1;

TQRDBText *QRDBText3;

TQRDBText *QRDBText1;

private:

public:

__fastcall TQuickReport1::TQuickReport1(TComponent* Owner);

};

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

extern TQuickReport1 *QuickReport1;

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

#endif

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

#include <vcl.h>

#pragma hdrstop

#include "Rep_unit.h"

#include "DM.h"

#include "ListRep_unit.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TRep *Rep;

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

__fastcall TRep::TRep(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TRep::BitBtn2Click(TObject *Sender)

{

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

WideString FileName;

DMfrm->Report->Close();

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

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

DMfrm->Report->Open();

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

}

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

void __fastcall TRep::BitBtn1Click(TObject *Sender)

{

Close();

}

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

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

#ifndef Vedom_unitH

#define Vedom_unitH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <QuickRpt.hpp>

#include <QRCtrls.hpp>

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

class TVedom : public TForm

{

__published: // IDE-managed Components

TQuickRep *QuickRep1;

TQRBand *QRBand1;

TQRLabel *QRLabel1;

TQRLabel *QRLabel2;

TQRLabel *QRLabel3;

TQRLabel *QRLabel4;

TQRLabel *QRLabel5;

TQRLabel *QRLabel6;

TQRBand *QRBand2;

TQRDBText *QRDBText1;

TQRDBText *QRDBText2;

TQRDBText *QRDBText3;

TQRDBText *QRDBText4;

TQRDBText *QRDBText5;

TQRBand *SummaryBand1;

TQRLabel *QRLabel7;

TQRSysData *QRSysData1;

private: // User declarations

public: // User declarations

__fastcall TVedom(TComponent* Owner);

};

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

extern PACKAGE TVedom *Vedom;

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

#endif

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

#include <vcl.h>

#pragma hdrstop

#include "Vedom_unit.h"

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TVedom *Vedom;

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

__fastcall TVedom::TVedom(TComponent* Owner)

: TForm(Owner)

{

}

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

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

#ifndef Counts_unitH

#define Counts_unitH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ExtCtrls.hpp>

#include <QuickRpt.hpp>

#include <QRCtrls.hpp>

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

class TCounts : public TForm

{

__published: // IDE-managed Components

TQuickRep *QuickRep1;

TQRBand *QRBand1;

TQRLabel *QRLabel1;

TQRLabel *QRLabel2;

TQRLabel *QRLabel3;

TQRLabel *QRLabel6;

TQRBand *QRBand2;

TQRDBText *QRDBText1;

TQRDBText *QRDBText2;

TQRDBText *QRDBText5;

TQRBand *SummaryBand1;

TQRLabel *QRLabel7;

TQRSysData *QRSysData1;

private: // User declarations

public: // User declarations

__fastcall TCounts(TComponent* Owner);

};

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

extern PACKAGE TCounts *Counts;

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

#endif

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

#include <vcl.h>

#pragma hdrstop

#include "Counts_unit.h"

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TCounts *Counts;

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

__fastcall TCounts::TCounts(TComponent* Owner)

: TForm(Owner)

{

}

Программный модуль DMfrm

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

#ifndef DMH

#define DMH

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

#include <ADODB.hpp>

#include <DB.hpp>

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

class TDMfrm : public TDataModule

{

__published: // IDE-managed Components

TADOConnection *Bank;

TADOTable *CountryTbl;

TADOTable *KartsTbl;

TAutoIncField *CountryTblID_country;

TWideStringField *CountryTblCountry;

TADOTable *CurrencyTbl;

TAutoIncField *CurrencyTblID_cur;

TWideStringField *CurrencyTblCurrency;

TADOTable *KlientTbl;

TAutoIncField *KlientTblID_people;

TWideStringField *KlientTblFIO;

TWideStringField *KlientTblSex;

TWideStringField *KlientTblPlace_birth;

TIntegerField *KlientTblCountry;

TWideStringField *KlientTblSeriya;

TIntegerField *KlientTblNum_pasp;

TDateTimeField *KlientTblDate;

TWideStringField *KlientTblWhom_given;

TIntegerField *KlientTblCode_whom;

TIntegerField *KlientTblIndex;

TWideStringField *KlientTblAdres;

TWideStringField *KlientTblPhone_home;

TWideStringField *KlientTblPhon_mob;

TIntegerField *KlientTblStat;

TADOTable *ListsTbl;

TAutoIncField *ListsTblN;

TDateTimeField *ListsTblDate_given;

TADOTable *StatusTbl;

TAutoIncField *StatusTblID_status;

TWideStringField *StatusTblName_stat;

TADOTable *SystemTbl;

TAutoIncField *SystemTblID_sys;

TWideStringField *SystemTblName_sys;

TADOTable *UslugaTbl;

TADOTable *VidTbl;

TAutoIncField *VidTblID_vid;

TWideStringField *VidTblName_vid;

TAutoIncField *UslugaTblID_usl;

TWideStringField *UslugaTblName_usl;

TDataSource *CountryDS;

TDataSource *KartsDS;

TDataSource *CurrencyDS;

TDataSource *KlientDS;

TDataSource *ListsDS;

TDataSource *StatusDS;

TDataSource *SystemDS;

TDataSource *UslugaDS;

TDataSource *VidDS;

TWideStringField *KlientTblEmail;

TAutoIncField *KartsTblID;

TWideStringField *KartsTblNum_kart;

TDateTimeField *KartsTblValid_thru;

TIntegerField *KartsTblID_system;

TIntegerField *KartsTblID_vid;

TIntegerField *KartsTblID_klient;

TStringField *KartsTblFIO;

TIntegerField *KartsTblCurrent;

TIntegerField *KartsTblUsluga;

TIntegerField *KartsTblPIN;

TStringField *ListsTblFIO;

TBooleanField *KartsTblGiven;

TWideStringField *ListsTblNum_kart;

TDateTimeField *KartsTblDate;

TADOQuery *Report;

TIntegerField *ListsTblID_klient;

TDataSource *RepDS;

TDataSource *CountDS;

TADOTable *TCountTbl;

TDataSource *TCountDS;

TADOTable *CountTbl;

TAutoIncField *TCountTblN_type;

TWideStringField *TCountTblType_count;

TWideStringField *CountTblN_count;

TIntegerField *CountTblN_type;

TIntegerField *CountTblN_klient;

TStringField *CountTblType;

TWideStringField *KartsTblN_count;

TDateTimeField *KartsTblDate_made;

TStringField *KartsTblVid;

TStringField *KartsTblSys;

TStringField *KartsTblVal;

TStringField *KartsTblName_usl;

TBooleanField *KartsTblMade_k;

TStringField *CountTblFIO;

TAutoIncField *ReportID;

TWideStringField *ReportNum_kart;

TDateTimeField *ReportValid_thru;

TIntegerField *ReportID_system;

TIntegerField *ReportID_vid;

TIntegerField *ReportID_klient;

TIntegerField *ReportCurrent;

TIntegerField *ReportUsluga;

TIntegerField *ReportPIN;

TBooleanField *ReportGiven;

TBooleanField *ReportMade_k;

TDateTimeField *ReportDate;

TWideStringField *ReportN_count;

TDateTimeField *ReportDate_made;

TStringField *ReportFIO;

private: // User declarations

public: // User declarations

__fastcall TDMfrm(TComponent* Owner);

};

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

extern PACKAGE TDMfrm *DMfrm;

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

#endif

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

#include <vcl.h>

#pragma hdrstop

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TDMfrm *DMfrm;

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

__fastcall TDMfrm::TDMfrm(TComponent* Owner)

: TDataModule(Owner)

{

}

Размещено на Allbest.ru