«Бағдарламалау тілдері» пәнінен оқу тәжірибесі бойынша
жүктеу/скачать 2,75 Mb.
|
| void __fastcall TForm1::Button1Click(TObject *Sender)
{
{ DataModule1->Table1->Close(); Button1->Caption = "Открыть таблицу &клиентов"; }
{ DataModule1->Table1->Open(); Button1->Caption= "Закрыть таблицу &клиентов"; };
} //----------------------------------------------------- void __fastcall TForm1::Button2Click(TObject *Sender) {
{ DataModule1->Query1->Active = false; Button2->Caption = "Открыть таблицу &заказов";} else { DataModule1->Query1->Active = true; Button2->Caption = "Закрыть таблицу &заказов"; } } //----------------------------------------------------- void __fastcall TForm1::RadioButton1Click(TObject *Sender) { DBGrid1->DataSource = DataModule1->DataSource1; } //----------------------------------------------------- void __fastcall TForm1::RadioButton2Click(TObject *Sender) { DBGrid1->DataSource = DataModule1->DataSource2; } //----------------------------------------------------- void __fastcall TForm1::RadioButton3Click(TObject *Sender) { DBGrid1->DataSource = DataModule1->DataSource3; } //---------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) {
{ DataModule1->Table1->SetRangeStart(); DataModule1->Table1->Fields[0]->AsString = Edit1->Text; DataModule1->Table1->SetRangeEnd(); DataModule1->Table1->Fields[0]->AsString = Edit2->Text; DataModule1->Table1->ApplyRange(); } }
жүктеу/скачать 2,75 Mb. Достарыңызбен бөлісу:
|