نمایش نسخه قابل چاپ
با سلام و خسته نباشید
در برنامه نویسی مبتدی هستم و این پروژه را دانلود کردم و همه چیش درسته فقط میخوام کلاینت یه گزارش بگیره باید کوئری بگیرم. امکانش هست دوستان طریقه ارسال کوئری به سرور را راهنمایی کنند.
[برای مشاهده لینک ها شما باید عضو سایت باشید برای عضویت در سایت بر روی اینجا کلیک بکنید]
ممنون
با سلام
کد زیر رو تو همین سایت پیدا کردم ولی نمی دونم چطور باید استفاده کنم. آیا کسی از دوستان و اساتید امکان داره کمک کنن ؟ممنونکد:
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;