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

#include <vcl.h>
#pragma hdrstop

#include "Unit5.h"
#include "stdio.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm5 *Form5;
//---------------------------------------------------------------------------
__fastcall TForm5::TForm5(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button2Click(TObject *Sender)
{
Form5->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm5::Button1Click(TObject *Sender)
{



int i,j, ii;
i=StrToInt(Edit1->Text)-1;
j=StrToInt(Edit2->Text);

Table1->First();
for (ii=0;ii<i;ii++) Table1->Next();
Table1->Edit();
if (Table1->FieldByName("user's number")->AsString==j)
{
Table1->FieldByName("otdal")->AsString=Edit3->Text;
Label6->Caption="СТАТУС: Книга успешно сдана со штрафом  "+IntToStr(StrToInt(Edit4->Text)*StrToInt(Edit5->Text))+ " руб.";

}else
{
Label6->Caption="СТАТУС: Неправильный читатель или книга";
};
Table1->Post();


}
//---------------------------------------------------------------------------

void __fastcall TForm5::FormShow(TObject *Sender)
{
Table1->Refresh();
Table2->Refresh();

char str[256];

SYSTEMTIME systime;

GetLocalTime(&systime);

sprintf(str, "%02d.%02d.%d", systime.wDay, systime.wMonth, systime.wYear);
Edit3->Text=str;

        
}
//---------------------------------------------------------------------------


Соседние файлы в папке Информационная система БИБЛИОТЕКА для автоматизации работы библиотеки
  • #
    01.05.2014321.71 Кб44Unit4.obj
  • #
    01.05.20141.69 Кб44Unit4.~cpp
  • #
    01.05.201451 б44Unit4.~ddp
  • #
    01.05.20142.95 Кб44Unit4.~dfm
  • #
    01.05.20141.4 Кб45Unit4.~h
  • #
    01.05.20141.68 Кб44Unit5.cpp
  • #
    01.05.201451 б44Unit5.ddp
  • #
    01.05.20143.57 Кб44Unit5.dfm
  • #
    01.05.20141.5 Кб44Unit5.h
  • #
    01.05.2014321.79 Кб44Unit5.obj
  • #
    01.05.20141.68 Кб44Unit5.~cpp