Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

DBEdit2->ReadOnly=false;

DBEdit4->ReadOnly=false;

DBEdit6->ReadOnly=false;

DBEdit4->Visible=false;

Label8->Visible=false;

DM1->Table1->Refresh();

//-----------------------------------------------------------------------
- void __fastcall TForm3::Button6Click(TObject *Sender)
{ if ( !DM1->Table1->Bof )

DM1->Table1->Prior(); i=10;
}
//-----------------------------------------------------------------------
- void __fastcall TForm3::Button4Click(TObject *Sender)
{ if ( !DM1->Table1->Eof )

DM1->Table1->Next(); i=10;
}
//-----------------------------------------------------------------------
- void __fastcall TForm3::Button2Click(TObject *Sender)
{
DM1->Table1->Delete();
DM1->Table1->Refresh(); if(DM1->Table1->Eof && DM1->Table1->Bof )

Button2->Enabled=false;

DBEdit4->Visible=false;

Label8->Visible=false;
}
//-----------------------------------------------------------------------
- void __fastcall TForm3::Button5Click(TObject *Sender)
{ if(iGetTextLen(); char *name = new char[++Size];
DBEdit8->GetTextBuf(name,Size);
DBEdit8->Text = name; r=atoi(name); ozenka1[i]=r; delete name; r=0;
DBEdit5->DataField=predmet1[i];
DBEdit8->DataField=predmet2[i]; i++;
Button3->Enabled=true;

} else {if(i==9){ int Size = DBEdit8->GetTextLen(); char *name = new char[++Size];
DBEdit8->GetTextBuf(name,Size);
DBEdit8->Text = name; r=atoi(name); ozenka1[i]=r; delete name; r=0;} ozenka1[10]=(ozenka1[0]+ozenka1[1]+ozenka1[2]+ozenka1[3]+ozenka1[4]+ozenka1[
5]+ozenka1[6]+ozenka1[7]+ozenka1[8]+ozenka1[9])/10;
DBEdit4->SelText=ozenka1[10];
DM1->Table1->FieldValues["Z"] = ozenka1[10];
Button5->Enabled=false;
Button3->Enabled=false;
DBEdit5->ReadOnly=true;
DBEdit8->ReadOnly=true;
DBEdit1->ReadOnly=true;
DBEdit2->ReadOnly=true;
DBEdit4->ReadOnly=true;
DBEdit6->ReadOnly=true;
DBEdit4->Visible=true;
Label8->Visible=true;
}}
//-----------------------------------------------------------------------
- void __fastcall TForm3::Table1AfterOpen(TDataSet *DataSet)
{ if(DM1->Table1->Eof && DM1->Table1->Bof )

Button2->Enabled=false;
}
//-----------------------------------------------------------------------
- void __fastcall TForm3::Button3Click(TObject *Sender)
{ if(i>=0)
{i--;
DBEdit5->DataField=predmet1[i];
DBEdit8->DataField=predmet2[i];
} else
Button3->Enabled=false;
Button5->Enabled=true;}
//-----------------------------------------------------------------------
-

Список использованной литературы

1. Трахтенгерц Э.А. «Компьютерная поддержка принятия решений»
2. Том Сван «Программирование в Borland C++ 5.02»
3. «Объектно-ориентированный анализ»
4. Мэт Теллес «Borland С++ Builder»

-----------------------

O8: Осуществляется ввод строк

запроса

6. Просмотр пер. печ (Г)

1

1

Интерфейс

ID Основной

управление

Рекомендуем скачать другие рефераты по теме: шпаргалки по психологии, банк рефератов.



Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки