Delphi 数据库线程事件1

  if (odd(YGTestRecord.Command[0] shr 3)) then //3 同步数据
  begin
     StatusPane1.Caption :='  @' + '上传数据 '+//
    ' @' + '记录数: ' + FloatToStr(YGTestRecord.RecordCount)+'条'+//
    ' @' + '还剩记录数: ' + YGTestRecord.YGTestData+'条'+//
    ' @' + '用时: ' + FloatToStr(YGTestRecord.RunTimed);
    log.WriteLog('0',StatusPane1.Caption);

    if YGTestRecord.YGTestData ='本机没有联网!' then
    begin
      StatusPane1.Caption := '  @无法上传数据:  '+YGTestRecord.YGTestData ;
    end;
    if YGTestRecord.YGTestData ='无法链接到数据库服务器!' then
    begin
      StatusPane1.Caption := '  @无法上传数据:  '+YGTestRecord.YGTestData ;
    end;

  end;