请问有人知道为什么SQLsever数据库中为什么在同一时刻会一下存几十组一样的数吗?

解决方案 »

  1.   


    procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
      Socket: TCustomWinSocket);
      var
      aaa:integer;
      i:integer;  sy:string;
      files:textfile;
      str: string;        //MSComm1.InputMode = comInputModeText
      cF:textfile;
      sqlstr:string;
      m,l,x:integer;
      doThread1:TserialdoThread;
      aa:integer;begin
        
        aaa:=Socket.ReceiveLength;
        try
           StatusBar1.Panels[2].Text:='';
           StatusBar1.Panels[1].Text:='客户端:' + ' Ip=' + Socket.RemoteAddress + '  ' + datetimetostr(now)+'';
           sy:=Socket.ReceiveText;
           for i:=0 to(aaa-1) do
             begin
                 shuzu[i]:=copy(sy,i+1,1);
             end;
           for i:=aaa to (aaa+7) do
            begin
              shuzu[i]:='F';
            end;
              except
             StatusBar1.Panels[2].Text:=datetimetostr(now) + ' :程序异常';
          end;
              doThread1:= TserialdoThread.Create(true);
              doThread1.Resume;end;