strSql := 'select sTamp from Tbl_IC_Borrow_User_Info order by sTamp';
Data.ADOQuery.Close;
Data.ADOQuery.SQL.Clear;
Data.ADOQuery.SQL.Add(strSql);
Data.ADOQuery.Active := True;
Data.ADOQuery.First;
while not Data.ADOQuery.Eof do
begin
//strTemp := '';
//if Data.
// vTest := VarArrayCreate([1,8],varVariant);
//iTemp := Data.ADOQuery.Fields[0].Value;
//iTemp :=vTest;
dTest := Data.ADOQuery.FindField('sTamp').AsDateTime;
//iByte[1] := vTest[1];
//iByte[2] := vTest[2];
//iByte[3] := vTest[3];
//iByte[4] := vTest[4];
//iByte[5] := vTest[5];
//ShowMessage(IntToStr(iTemp));
Data.ADOQuery.Next;
Data.ADOQuery.Close;
Data.ADOQuery.SQL.Clear;
Data.ADOQuery.SQL.Add(strSql);
Data.ADOQuery.Active := True;
Data.ADOQuery.First;
while not Data.ADOQuery.Eof do
begin
//strTemp := '';
//if Data.
// vTest := VarArrayCreate([1,8],varVariant);
//iTemp := Data.ADOQuery.Fields[0].Value;
//iTemp :=vTest;
dTest := Data.ADOQuery.FindField('sTamp').AsDateTime;
//iByte[1] := vTest[1];
//iByte[2] := vTest[2];
//iByte[3] := vTest[3];
//iByte[4] := vTest[4];
//iByte[5] := vTest[5];
//ShowMessage(IntToStr(iTemp));
Data.ADOQuery.Next;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货