مشکل در query در برنامه نویسی تحت شبکه Socket Connection

[beny]

با سلام و خسته نباشید

در برنامه نویسی مبتدی هستم و این پروژه را دانلود کردم و همه چیش درسته فقط میخوام کلاینت یه گزارش بگیره باید کوئری بگیرم. امکانش هست دوستان طریقه ارسال کوئری به سرور را راهنمایی کنند.

[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]

ممنون

[beny]

با سلام

کد زیر رو تو همین سایت پیدا کردم ولی نمی دونم چطور باید استفاده کنم. آیا کسی از دوستان و اساتید امکان داره کمک کنن ؟

procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
 
 
  procedure SendMsg(datas1: string);
  begin
    AContext.Connection.IOHandler.WriteLn(datas1, Tencoding.Unicode);
  end;
var
  Qry1: TADOQuery;
  TCPClient: TIdTCPClient;
  data1: string;
begin
  data1 := AContext.Connection.IOHandler.ReadLn();
  CoInitialize(nil);
  Qry1 := TADOQuery.Create(nil);
  try
    Qry1.Connection := ADOConnection1;
    Qry1.CursorLocation := clUseClient;
    Qry1.LockType := ltOptimistic;
    Qry1.CursorType := ctStatic;
 
 
    Qry1.SQL.Clear;
    Qry1.SQL.Append('select * from Login where (UserNameS=''' + data1
      + ''')');
    Qry1.Open;
 
 
    if Qry1.RecordCount = 1 then
      SendMsg(Qry1.FieldByName('CodeS').Text);
  finally
     Qry1.Free;
  end;
  CoUninitialize();
end;

ممنون