SQL Server client lists work with Delphi

ลองใช้ Delphi เขียนโปรแกรมเพื่อตรวจสอบว่า มีเครื่อง client กี่ตัวที่กำลังเชื่อมต่อกับ MS Server

SQL:

SELECT
   sdes.spid as id,
   sdes.program_name,
   sdes.login_time, 
   sdes.hostname as host_name,
   sdec.client_net_address  as ip_addr,
   sdes.loginame as login_name
FROM
    sys.sysprocesses sdes
inner join sys.dm_exec_connections AS sdec
        ON sdec.session_id = sdes.spid

WHERE
    dbid > 0
 and DB_NAME(sdes.dbid) = '<>'
 and sdes.net_library = 'TCP/IP'
 and sdec.net_transport = 'TCP'



Delphi work with
- TListView
- TImageList

    while not Dataset.Eof do
    begin
      with ListView1.Items.Add do
      begin
        ImageIndex := 0;
        Caption := Dataset.Fields[0].AsString;
        SubItems.Add(Dataset.Fields[1].AsString);
        SubItems.Add(Dataset.Fields[2].AsString);
        SubItems.Add(Dataset.Fields[3].AsString);
        SubItems.Add(Dataset.Fields[4].AsString);
        SubItems.Add(Dataset.Fields[5].AsString);
      end;
      Dataset.Next;
    end;