Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
//---------------------------------------------------------------------------
#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;
}
//---------------------------------------------------------------------------
Соседние файлы в папке Информационная система БИБЛИОТЕКА для автоматизации работы библиотеки