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

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

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

//---------------------------------------------------------------------------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;:// User declarations:// User declarations

__fastcall TVedom(TComponent* Owner);

};

//---------------------------------------------------------------------------PACKAGE TVedom *Vedom;

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

#endif

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

#include

#pragma hdrstop

#include "Vedom_unit.h"

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"*Vedom;

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

__fastcall TVedom::TVedom(TComponent* Owner)

: TForm(Owner)

{

}

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

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

#ifndef Counts_unitH

#define Counts_unitH

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

#include

//---------------------------------------------------------------------------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;:// User declarations:// User declarations

__fastcall TCounts(TComponent* Owner);

};

//---------------------------------------------------------------------------PACKAGE TCounts *Counts;

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

#endif

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

#include

#pragma hdrstop

#include "Counts_unit.h"

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"*Counts;

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

__fastcall TCounts::TCounts(TComponent* Owner)

: TForm(Owner)

{

}

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

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

#ifndef DMH

#define DMH

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

#include

//---------------------------------------------------------------------------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;:// User declarations:// User declarations

__fastcall TDMfrm(TComponent* Owner);

};

//---------------------------------------------------------------------------PACKAGE TDMfrm *DMfrm;

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

#endif

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

#include

#pragma hdrstop

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"*DMfrm;

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

__fastcall TDMfrm::TDMfrm(TComponent* Owner)

: TDataModule(Owner)

{

}

Blog

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

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

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