mbOK << mbCancel, 0)==1)Р{РDataModule3->ADOQuery1->Delete() ;РStatusBar1->Panels->Items[0]->Text="数据已经删除";Р}Р}Рvoid __fastcall TFmain::N3Click(TObject *Sender)Р{Р//更改显示字体Рif(FontDialog1->Execute())Fmain->Font=FontDialog1->Font;Р}Рvoid __fastcall TFmain::N12Click(TObject *Sender)Р{Р//更改窗体颜色Рif(ColorDialog1->Execute())Р{РFmain->Color=ColorDialog1->Color;//主窗体РFadd->Color=ColorDialog1->Color; //添加、修改窗体Р}Р}Рvoid __fastcall TFmain::N13Click(TObject *Sender)Р{Р//更改数据域颜色Рif(ColorDialog1->Execute())РDBGrid1->Color=ColorDialog1->Color;Р}Рvoid __fastcall TFmain::N11Click(TObject *Sender)Р{РFshow->QuickRep1->Preview();//打印数据Р}Рvoid __fastcall TFmain::Button5Click(TObject *Sender)Р{РFadd->Caption="修改数据";РFadd->ShowModal() ; //修改数据Р}Рvoid __fastcall TFmain::FormShow(TObject *Sender)Р{Рif(onshow==false)