多次重绘表格时出错

2012-11-12 10:36:57 230 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

【Proteus】NE555纯硬件实现LED呼吸灯效果，附源文件，效果展示本设计通过NE555与三极管的巧妙配合，仅用基础元件实现了呼吸灯效果。核心在于利用RC积分电路将PWM信号转换为控制电压，并通过负反馈动态调节占空比。Proteus仿真验证了方案的可行性，读者可进一步优化参数或扩展功能，探索更多硬件设计可能性。阅读详情

我用Indy的IdTCPClient 向 IdTCPServer 发送数据过去，然后想在IdTCPServer所在的机器向数据服务器插入发过来的数据，并刷新一下DBGrid上的数据，用ADOQuery1->Close和Open刷新。发一条二条没有问题，发送多条后，表格的列慢慢变形，最后出现下面这个图：

请问用什么方法可以让它不出错呢？

这个是代码：

String swp;



try

	{

	AContext->Connection->IOHandler->CheckForDisconnect(True,True);

	AContext->Connection->IOHandler->DefStringEncoding=TEncoding::Default;

	swp=AContext->Connection->IOHandler->ReadLn();

	if(swp!="")

	AContext->Connection->IOHandler->WriteLn("服务器已经收到您发来的信息："+swp);

	Memo1->Lines->Add(UTF8Encode(swp));







	//ShowMessage(swp);

	TBookmark yqw_BM;

   yqw_BM=ADOQuery1->GetBookmark();



   TADOQuery *pado=new TADOQuery(NULL);

   pado->Connection=this->ADOConnection1;

   String testSql="INSERT INTO hlfloor.dbo.DF_PF_D(  \

			DF_PF_M_CODE,DF_PF_M_TYPE, DF_PF_D_XH,NEED_FL)  values (  \

			'test','2',2, '√')";



   pado->SQL->Add(testSql);



	pado->ExecSQL();

	delete pado;

        ADOQuery1->Close();

	ADOQuery1->Open();

/*

    TBookmark yqw_BM;  // 做标记,使当前记录不移动

     yqw_BM = ADOQuery1->GetBookmark();

	

  if(ADOQuery1->BookmarkValid(yqw_BM))

  {

	ADOQuery1->GotoBookmark(yqw_BM);

  }

  ADOQuery1->FreeBookmark(yqw_BM);



*/



   //	AContext->Connection->IOHandler->writel

  //return;

	}

catch(...)

{



}