全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1190
推到 Plurk!
推到 Facebook!

Indy+ADO+StringGrid問題

尚未結案
rexhu
一般會員


發表:4
回覆:1
積分:1
註冊:2010-11-09

發送簡訊給我
#1 引用回覆 回覆 發表時間:2011-03-17 15:17:22 IP:220.136.xxx.xxx 訂閱
[code cpp]
void __fastcall TMainForm::IdTCPServer1Execute(TIdContext *AContext)
{
AnsiString _gstring;
int _rowcount;

_gstring = AContext->Connection->IOHandler->ReadLn(_cr);
_stinglist->Add(_gstring);
_rowcount = _stringlist->Count-1;
_getdata(_rowcount);
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::_getdata(int _RecordCount)
{
UnicodeString _sql;
UnicodeString _tid,_time,_count,_days,_club,_no,_id,_group, _name;
int _listrow;

_sql = "select top 1 `no`,`country`,`name`,`group` from basic ";
_sql =" where `tid` = '" _tid "'";

ADOQuery->Close();
ADOQuery->SQL->Clear();
ADOQuery->SQL->Add(_sql);
ADOQuery->Open();
if(! ADOQuery->Eof)
{
_no = ADOQuery->FieldByName("no")->AsString;
_club = ADOQuery->FieldByName("country")->AsString;
_name = ADOQuery->FieldByName("name")->AsString;
_group = ADOQuery->FieldByName("group")->AsString;
}
ADOqJChip->Close();
// 計算StringGrid的Row
_listrow = sgList->RowCount-1 ;
sgList->RowCount = 1;

sgList->Cells[0][_listrow] = AnsiString(_listrow);
sgList->Cells[1][_listrow] = _no;
sgList->Cells[2][_listrow] = _string->Strings[_RecordCount].SubString(8,12).Trim();
sgList->Cells[3][_listrow] = _tid;
sgList->Cells[4][_listrow] = _name;
sgList->Cells[5][_listrow] = _club;
sgList->Cells[6][_listrow] = _group;
}
}
[/code]
目前程式是用來讀取晶片
一個一個讀的話是正常,但一次讀3個畫面就卡住不動了
請問是哪邊的問題?該怎麼修正?麻煩大家幫忙了。

系統時間:2017-10-22 5:27:55
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!