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

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

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

#ifndef Kard_unitH

#define Kard_unitH

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

#include

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

__fastcall TKard(TComponent* Owner);

};

//---------------------------------------------------------------------------PACKAGE TKard *Kard;

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

#endif

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

#include

#pragma hdrstop

#include "Kard_unit.h"

#include "DM.h"

#include "Klient_unit.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"*Kard;

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

__fastcall TKard::TKard(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------__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();

}

//---------------------------------------------------------------------------__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();

}

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

{

DMfrm->KartsTbl->Append();

}

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

{

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

DMfrm->KartsTbl->Post();

}

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

{

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

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

Klient->Show();

DMfrm->KlientTbl->Append();

DMfrm->KlientTblCountry->AsInteger=83;

}

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

{();

}

//---------------------------------------------------------------------------__fastcall TKard::BitBtn5Click(TObject *Sender)

{

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

}

//---------------------------------------------------------------------------__fastcall TKard::BitBtn6Click(TObject *Sender)

{

//открыть iет

DMfrm->CountTbl->Append();

}

//---------------------------------------------------------------------------__fastcall TKard::BitBtn7Click(TObject *Sender)

{

DMfrm->CountTbl->Post();

}

//---------------------------------------------------------------------------__fastcall TKard::DBGrid2DblClick(TObject *Sender)

{>KartsTbl->Edit();>KartsTblN_count->Value=DMfrm->CountTblN_count->Value;>KartsTbl->Post();

}

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

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

#ifndef Klient_unitH

#define Klient_unitH

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

#include

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

__fastcall TKlient(TComponent* Owner);

};

//---------------------------------------------------------------------------PACKAGE TKlient *Klient;

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

#endif

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

#include

#pragma hdrstop

#include "Klient_unit.h"

#include "DM.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"*Klient;

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

__fastcall TKlient::TKlient(TComponent* Owner)

: TForm(Owner)

{

}

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

{();

}

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

{

DMfrm->KlientTbl->Close();

DMfrm->KlientTbl->ReadOnly=true;

DMfrm->KlientTbl->Open();

DMfrm->CountryTbl->Open();

DMfrm->StatusTbl->Open();

}

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

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

{

DMfrm->KlientTbl->Close();

DMfrm->CountryTbl->Close();

DMfrm->StatusTbl->Close();

}

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

{

DMfrm->KlientTbl->Close();

DMfrm->KlientTbl->ReadOnly=false;

DMfrm->KlientTbl->Open();

DMfrm->KlientTbl->Append();

DMfrm->KlientTblCountry->AsInteger=83;

}

//---------------------------------------------------------------------------__fastcall T

Blog

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

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

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