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