2,496
社区成员
发帖
与我相关
我的任务
分享
tempStr:='exec Read_Call_Order '+inttostr(maxid1);
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(tempStr);
ClientDataSet1.Close;
clientdataset1.Open;
order3:= clientdataset1.RecordCount;
//没有则退出
if(clientdataset1.RecordCount >0) then
begin
while not ClientDataSet1.Eof do
begin
is_new:=ClientDataSet1.FieldByName('well_is_new').AsBoolean;
ReadRealdata(ClientDataSet1,is_new); //发送读取数据功能
ClientDataSet1.Next;
sleep(1);
Application.ProcessMessages;
end;
maxid1:=Clientdataset1.fieldbyname('gprs_data_id').AsInteger;
end;
//发送命令
tempStr:='exec Read_CheckClock_Order '+inttostr(maxid2);
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add(tempStr);
ClientDataSet1.Close;
clientdataset1.Open;
order1:=clientdataset1.RecordCount;
//没有则退出
if(clientdataset1.RecordCount >0) then
begin
while not ClientDataSet1.Eof do
begin
is_new:=ClientDataSet1.FieldByName('is_new').AsBoolean;
CheckClock(ClientDataSet1,is_new); //发送校时功能
ClientDataSet1.Next;
sleep(1);
Application.ProcessMessages;
end;
maxid2:=Clientdataset1.fieldbyname('gprs_set_date_id').AsInteger;
end;