//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "trayicon"
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
logs->Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
ADODataSet1->Active=true;
ADODataSet2->Active=true;
ADODataSet3->Active=true;
ADODataSet4->Active=true;
ADODataSet5->Active=true;
ADODataSet6->Active=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
ADODataSet1->Active=false;
ADODataSet2->Active=false;
ADODataSet3->Active=false;
ADODataSet4->Active=false;
ADODataSet5->Active=false;
ADODataSet6->Active=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::chatClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString msg=Socket->ReceiveText();
AnsiString p1, p2, p3;
p1=msg[1];
p2=msg[2];
p3=msg[3];
if(p1=="n" && p2=="l" && p3==":")
{
AnsiString nick;
for(int i=4; i<msg.Length()+1; i++)
{
AnsiString znak=msg[i];
nick+=znak;
}
lb1->Items->Add(Socket->RemoteAddress);
lb2->Items->Add(nick);

}
else
for(int i=0;i<chat->Socket->ActiveConnections;i++)
chat->Socket->Connections[i]->SendText(msg);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::logsClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
bool ban=false;
for(int b=0; b<lb3->Items->Count;b++)
if(Socket->RemoteAddress==lb3->Items->Strings[b])
ban=true;

if(ban==false)
{
AnsiString pwd;
pwd=Socket->ReceiveText();
AnsiString Login, Passwd;
int opcja=0;
for(int i=1; i<pwd.Length()+1;i++)
{
AnsiString tmp1=pwd[i];
if(tmp1==":")
{
opcja=1;
}
else
{
if(opcja==0)
Login+=pwd[i];
if(opcja==1)
Passwd+=pwd[i];
}
}
DBGrid4->DataSource->DataSet->First();
int poz=DBGrid4->DataSource->DataSet->RecordCount;
for(int i=0; i<poz; i++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString==Login &&
DBGrid4->DataSource->DataSet->Fields->Fields[2]->AsString==Passwd)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[3]->AsInteger==0)
{
Socket->SendText("dj");
Memo1->Lines->Add("Zalogwano: "+Login+" z ip: "+Socket->RemoteAddress);
}

if(DBGrid4->DataSource->DataSet->Fields->Fields[3]->AsInteger==1)
{
Socket->SendText("admin");
Memo1->Lines->Add("Zalogwano: "+Login+" z ip: "+Socket->RemoteAddress);
}
}
DBGrid4->DataSource->DataSet->MoveBy(1);
}
DBGrid4->DataSource->DataSet->First();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::pozdroClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString pwd;
pwd=Socket->ReceiveText();
AnsiString Login, Passwd;
int opcja=0;
for(int i=1; i<pwd.Length()+1;i++)
{
AnsiString tmp1=pwd[i];
if(tmp1==":")
{
opcja=1;
}
else
{
if(opcja==0)
Login+=pwd[i];
if(opcja==1)
Passwd+=pwd[i];
}
}
DBGrid4->DataSource->DataSet->First();
int poz=DBGrid4->DataSource->DataSet->RecordCount;
for(int i=0; i<poz; i++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString==Login &&
DBGrid4->DataSource->DataSet->Fields->Fields[2]->AsString==Passwd)
{
ADODataSet1->Active=false;
ADODataSet1->Active=true;
DBGrid1->DataSource->DataSet->First();
Socket->SendText("Pozdro od:" + DBGrid1->DataSource->DataSet->Fields->Fields[4]->AsString +Memo2->Text+ " TRESC : " + DBGrid1->DataSource->DataSet->Fields->Fields[3]->AsString);
Memo1->Lines->Add("Pozdro od:"+ DBGrid1->DataSource->DataSet->Fields->Fields[1]->AsString + " TRESC : " + DBGrid1->DataSource->DataSet->Fields->Fields[3]->AsString);
Memo1->Lines->Add("pozdro pobral : " +Login +" o adresie ip: "+Socket->RemoteAddress);
AnsiString rozkaz="DELETE FROM pozdrowienia WHERE id='"+String(DBGrid1->DataSource->DataSet->Fields->Fields[0]->AsInteger)+"'";
ADOCommand1->CommandText=rozkaz;
ADOCommand1->Execute();
ADODataSet1->Active=false;
ADODataSet1->Active=true;
}
DBGrid4->DataSource->DataSet->MoveBy(1);
}
DBGrid4->DataSource->DataSet->First();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::infoClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString pwd;
pwd=Socket->ReceiveText();
AnsiString Login, Passwd, Command, Text;
int opcja=0;
for(int i=1; i<pwd.Length()+1;i++)
{
AnsiString tmp1=pwd[i];
if(tmp1==":")
{
opcja+=1;
}
else
{
if(opcja==0)
Login+=pwd[i];
if(opcja==1)
Passwd+=pwd[i];
if(opcja==2)
Command+=pwd[i];
if(opcja==3)
Text+=pwd[i];
}
}
if(Command=="ginfo")
{
DBGrid4->DataSource->DataSet->First();
int poz=DBGrid4->DataSource->DataSet->RecordCount;
for(int i=0; i<poz; i++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString==Login &&
DBGrid4->DataSource->DataSet->Fields->Fields[2]->AsString==Passwd)
{
DBGrid2->DataSource->DataSet->First();
Socket->SendText(DBGrid2->DataSource->DataSet->Fields->Fields[0]->AsString);
Memo1->Lines->Add("pobral info : " +Login +" o adresie ip: "+Socket->RemoteAddress);
}
DBGrid4->DataSource->DataSet->MoveBy(1);
}
DBGrid4->DataSource->DataSet->First();
}

if(Command=="sinfo")
{
DBGrid4->DataSource->DataSet->First();
int poz=DBGrid4->DataSource->DataSet->RecordCount;
for(int i=0; i<poz; i++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString==Login &&
DBGrid4->DataSource->DataSet->Fields->Fields[2]->AsString==Passwd &&
DBGrid4->DataSource->DataSet->Fields->Fields[3]->AsInteger==1)
{
DBGrid2->DataSource->DataSet->First();
ADOCommand1->CommandText="UPDATE info SET info='"+Text+"' WHERE info='"+DBGrid2->DataSource->DataSet->Fields->Fields[0]->AsString+"'";
ADOCommand1->Execute();
ADODataSet2->Active=false;
ADODataSet2->Active=true;
Memo1->Lines->Add("info zapisal : " +Login +" o adresie ip: "+Socket->RemoteAddress+" TRESC: " + Text);
}
DBGrid4->DataSource->DataSet->MoveBy(1);
}
DBGrid4->DataSource->DataSet->First();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
if(SaveDialog1->Execute()==ID_OK)
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{

int q=MessageBox(NULL, "Czy napewno chesz wyczyscic log?","Czysc log", MB_YESNO|MB_ICONQUESTION);
if(q==ID_YES)
Memo1->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ramClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString pwd;
pwd=Socket->ReceiveText();
AnsiString Login, Passwd, Command, Text, t1;
int opcja=0;
for(int i=1; i<pwd.Length()+1;i++)
{
AnsiString tmp1=pwd[i];
if(tmp1==":")
{
opcja+=1;
}
else
{
if(opcja==0)
Login+=pwd[i];
if(opcja==1)
Passwd+=pwd[i];
if(opcja==2)
Command+=pwd[i];
if(opcja==3)
Text+=pwd[i];
if(opcja==4)
t1+=pwd[i];
}
}
if(Command=="gram")
{
DBGrid4->DataSource->DataSet->First();
int poz=DBGrid4->DataSource->DataSet->RecordCount;
for(int i=0; i<poz; i++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString==Login &&
DBGrid4->DataSource->DataSet->Fields->Fields[2]->AsString==Passwd)
{
ADODataSet3->Active=false;
ADODataSet3->Active=true;
DBGrid3->DataSource->DataSet->First();
Socket->SendText(DBGrid3->DataSource->DataSet->Fields->Fields[0]->AsString+":"+
DBGrid3->DataSource->DataSet->Fields->Fields[1]->AsString+":"+
DBGrid3->DataSource->DataSet->Fields->Fields[2]->AsString+":"+
DBGrid3->DataSource->DataSet->Fields->Fields[3]->AsString+":"+
DBGrid3->DataSource->DataSet->Fields->Fields[4]->AsString+":"+
DBGrid3->DataSource->DataSet->Fields->Fields[5]->AsString+":"+
DBGrid3->DataSource->DataSet->Fields->Fields[6]->AsString);
Memo1->Lines->Add("pobral ramowke : " +Login +" o adresie ip: "+Socket->RemoteAddress);
}
DBGrid4->DataSource->DataSet->MoveBy(1);
}
DBGrid4->DataSource->DataSet->First();
}

if(Command=="iram")
{
DBGrid4->DataSource->DataSet->First();
int poz=DBGrid4->DataSource->DataSet->RecordCount;
for(int i=0; i<poz; i++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString==Login &&
DBGrid4->DataSource->DataSet->Fields->Fields[2]->AsString==Passwd &&
DBGrid4->DataSource->DataSet->Fields->Fields[3]->AsInteger==1)
{
AnsiString nWpis;
nWpis=Text;
DBGrid3->DataSource->DataSet->First();
ADOCommand1->CommandText="UPDATE ramowka SET "+DBGrid3->Columns->Items[StrToInt(t1)]->Title->Caption+"='"+nWpis+"' WHERE pon='"+DBGrid3->DataSource->DataSet->Fields->Fields[0]->AsString+"'";
ADOCommand1->Execute();
ADODataSet3->Active=false;
ADODataSet3->Active=true;
Memo1->Lines->Add("ramowke edytowal : " +Login +" o adresie ip: "+Socket->RemoteAddress+" parametry: " + Text+"/"+t1+"/"+nWpis);
}
DBGrid4->DataSource->DataSet->MoveBy(1);
}
DBGrid4->DataSource->DataSet->First();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
TI->Minimize();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::djClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString pwd;
pwd=Socket->ReceiveText();
AnsiString Login, Passwd, Command, nlog, npas;
int opcja=0;
for(int i=1; i<pwd.Length()+1;i++)
{
AnsiString tmp1=pwd[i];
if(tmp1==":")
{
opcja+=1;
}
else
{
if(opcja==0)
Login+=pwd[i];
if(opcja==1)
Passwd+=pwd[i];
if(opcja==2)
Command+=pwd[i];
if(opcja==3)
nlog+=pwd[i];
if(opcja==4)
npas+=pwd[i];
}
}
if(Command=="GetList")
{
DBGrid4->DataSource->DataSet->First();
int poz=DBGrid4->DataSource->DataSet->RecordCount;
for(int i=0; i<poz; i++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString==Login &&
DBGrid4->DataSource->DataSet->Fields->Fields[2]->AsString==Passwd)
{
ADODataSet4->Active=false;
ADODataSet4->Active=true;
DBGrid4->DataSource->DataSet->First();
AnsiString DJL;
for(int x=0; x<DBGrid4->DataSource->DataSet->RecordCount;x++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[3]->AsInteger==0)
DJL+=DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString+":";

DBGrid4->DataSource->DataSet->MoveBy(1);
}
Socket->SendText(DJL);
}
DBGrid4->DataSource->DataSet->MoveBy(1);
}
DBGrid4->DataSource->DataSet->First();
}

if(Command=="AddDj")
{
DBGrid4->DataSource->DataSet->First();
int poz=DBGrid4->DataSource->DataSet->RecordCount;
for(int i=0; i<poz; i++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString==Login &&
DBGrid4->DataSource->DataSet->Fields->Fields[2]->AsString==Passwd &&
DBGrid4->DataSource->DataSet->Fields->Fields[3]->AsInteger==1)
{
DBGrid4->DataSource->DataSet->Last();
ADOCommand1->CommandText="INSERT into users VALUES('"+String(DBGrid4->DataSource->DataSet->Fields->Fields[0]->AsInteger+3)+"','"+nlog+"','"+npas+"','0')";
ADOCommand1->Execute();
ADODataSet4->Active=false;
ADODataSet4->Active=true;
Memo1->Lines->Add("Dj'a dodal : " +Login +" o adresie ip: "+Socket->RemoteAddress+" nowe dane " + nlog+"/"+npas);
i=poz;
break;
}
DBGrid4->DataSource->DataSet->MoveBy(1);
}
DBGrid4->DataSource->DataSet->First();
}

if(Command=="DeleteDj")
{
DBGrid4->DataSource->DataSet->First();
int poz=DBGrid4->DataSource->DataSet->RecordCount;
for(int i=0; i<poz; i++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString==Login &&
DBGrid4->DataSource->DataSet->Fields->Fields[2]->AsString==Passwd &&
DBGrid4->DataSource->DataSet->Fields->Fields[3]->AsInteger==1)
{
DBGrid2->DataSource->DataSet->First();
ADOCommand1->CommandText="DELETE FROM users WHERE login='"+nlog+"'";
ADOCommand1->Execute();
ADODataSet4->Active=false;
ADODataSet4->Active=true;
Memo1->Lines->Add("Dj'a usunol: " +Login +" o adresie ip: "+Socket->RemoteAddress+" Zegnamy: " + nlog);
}
DBGrid4->DataSource->DataSet->MoveBy(1);
}
DBGrid4->DataSource->DataSet->First();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::konkursClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString pwd;
pwd=Socket->ReceiveText();
AnsiString Login, Passwd, Command, Text;
int opcja=0;
for(int i=1; i<pwd.Length()+1;i++)
{
AnsiString tmp1=pwd[i];
if(tmp1==":")
{
opcja+=1;
}
else
{
if(opcja==0)
Login+=pwd[i];
if(opcja==1)
Passwd+=pwd[i];
if(opcja==2)
Command+=pwd[i];
if(opcja==3)
Text+=pwd[i];
}
}
if(Command=="getall")
{
DBGrid4->DataSource->DataSet->First();
int poz=DBGrid4->DataSource->DataSet->RecordCount;
for(int i=0; i<poz; i++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString==Login &&
DBGrid4->DataSource->DataSet->Fields->Fields[2]->AsString==Passwd)
{
DBGrid5->DataSource->DataSet->First();
Socket->SendText("GODZ: "+DBGrid5->DataSource->DataSet->Fields->Fields[2]->AsString+Memo2->Text+"NICK: "+DBGrid5->DataSource->DataSet->Fields->Fields[1]->AsString+Memo2->Text+"ODP: "+DBGrid5->DataSource->DataSet->Fields->Fields[3]->AsString);
ADOCommand1->CommandText="DELETE FROM konkurs WHERE ID='"+DBGrid5->DataSource->DataSet->Fields->Fields[0]->AsString+"'";
ADOCommand1->Execute();
ADODataSet5->Active=false;
ADODataSet5->Active=true;
Memo1->Lines->Add("pobral odpowiedzi : " +Login +" o adresie ip: "+Socket->RemoteAddress);
}
DBGrid4->DataSource->DataSet->MoveBy(1);
}
DBGrid4->DataSource->DataSet->First();
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::logsClientConnect(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString pwd;
pwd=Socket->ReceiveText();
AnsiString Login, Passwd;
int opcja=0;
for(int i=1; i<pwd.Length()+1;i++)
{
AnsiString tmp1=pwd[i];
if(tmp1==":")
{
opcja=1;
}
else
{
if(opcja==0)
Login+=pwd[i];
if(opcja==1)
Passwd+=pwd[i];
}
}
DBGrid4->DataSource->DataSet->First();
int poz=DBGrid4->DataSource->DataSet->RecordCount;
for(int i=0; i<poz; i++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString==Login &&
DBGrid4->DataSource->DataSet->Fields->Fields[2]->AsString==Passwd)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[3]->AsInteger==0)
{
Socket->SendText("dj");
Memo1->Lines->Add("Zalogwano: "+Login+" z ip: "+Socket->RemoteAddress);
}

if(DBGrid4->DataSource->DataSet->Fields->Fields[3]->AsInteger==1)
{
Socket->SendText("admin");
Memo1->Lines->Add("Zalogwano: "+Login+" z ip: "+Socket->RemoteAddress);
}
}
DBGrid4->DataSource->DataSet->MoveBy(1);
}
DBGrid4->DataSource->DataSet->First();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
AnsiString lista="lst:";
for(int i=0; i< lb2->Items->Count;i++)
{
lista+=lb2->Items->Strings[i];
lista+=":";
}
for(int i=0; i< chat->Socket->ActiveConnections;i++)
{
chat->Socket->Connections[i]->SendText(lista);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::chatClientDisconnect(TObject *Sender,
TCustomWinSocket *Socket)
{
int Nr;
Nr=lb1->Items->IndexOf(Socket->RemoteAddress);
lb1->Items->Delete(Nr);
lb2->Items->Delete(Nr);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
for(int i=0; i<chat->Socket->ActiveConnections;i++)
if(chat->Socket->Connections[i]->RemoteAddress==lb1->Items->Strings[lb1->ItemIndex])
chat->Socket->Connections[i]->Close();

for(int i=0; i<ramowka->Socket->ActiveConnections;i++)
if(ramowka->Socket->Connections[i]->RemoteAddress==lb1->Items->Strings[lb1->ItemIndex])
ramowka->Socket->Disconnect(i);

for(int i=0; i<dj->Socket->ActiveConnections;i++)
if(dj->Socket->Connections[i]->RemoteAddress==lb1->Items->Strings[lb1->ItemIndex])
dj->Socket->Connections[i]->Close();

for(int i=0; i<logs->Socket->ActiveConnections;i++)
if(logs->Socket->Connections[i]->RemoteAddress==lb1->Items->Strings[lb1->ItemIndex])
logs->Socket->Connections[i]->Close();

for(int i=0; i<konkurs->Socket->ActiveConnections;i++)
if(konkurs->Socket->Connections[i]->RemoteAddress==lb1->Items->Strings[lb1->ItemIndex])
konkurs->Socket->Connections[i]->Close();

for(int i=0; i<info->Socket->ActiveConnections;i++)
if(info->Socket->Connections[i]->RemoteAddress==lb1->Items->Strings[lb1->ItemIndex])
pozdro->Socket->Connections[i]->Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
for(int i=0; i<chat->Socket->ActiveConnections;i++)
if(chat->Socket->Connections[i]->RemoteAddress==lb1->Items->Strings[lb1->ItemIndex])
chat->Socket->Connections[i]->Close();

for(int i=0; i<ramowka->Socket->ActiveConnections;i++)
if(ramowka->Socket->Connections[i]->RemoteAddress==lb1->Items->Strings[lb1->ItemIndex])
ramowka->Socket->Disconnect(i);

for(int i=0; i<dj->Socket->ActiveConnections;i++)
if(dj->Socket->Connections[i]->RemoteAddress==lb1->Items->Strings[lb1->ItemIndex])
dj->Socket->Connections[i]->Close();

for(int i=0; i<logs->Socket->ActiveConnections;i++)
if(logs->Socket->Connections[i]->RemoteAddress==lb1->Items->Strings[lb1->ItemIndex])
logs->Socket->Connections[i]->Close();

for(int i=0; i<konkurs->Socket->ActiveConnections;i++)
if(konkurs->Socket->Connections[i]->RemoteAddress==lb1->Items->Strings[lb1->ItemIndex])
konkurs->Socket->Connections[i]->Close();

for(int i=0; i<info->Socket->ActiveConnections;i++)
if(info->Socket->Connections[i]->RemoteAddress==lb1->Items->Strings[lb1->ItemIndex])
pozdro->Socket->Connections[i]->Close();
lb3->Items->Add(Edit1->Text);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button10Click(TObject *Sender)
{
lb3->Items->Delete(lb3->ItemIndex);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ramowka2ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
AnsiString pwd;
pwd=Socket->ReceiveText();
AnsiString Login, Passwd, Command, Text, t1;
int opcja=0;
for(int i=1; i<pwd.Length()+1;i++)
{
AnsiString tmp1=pwd[i];
if(tmp1==":")
{
opcja+=1;
}
else
{
if(opcja==0)
Login+=pwd[i];
if(opcja==1)
Passwd+=pwd[i];
if(opcja==2)
Command+=pwd[i];
if(opcja==3)
Text+=pwd[i];
if(opcja==4)
t1+=pwd[i];
}
}
if(Command=="gram")
{
DBGrid4->DataSource->DataSet->First();
int poz=DBGrid4->DataSource->DataSet->RecordCount;
for(int i=0; i<poz; i++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString==Login &&
DBGrid4->DataSource->DataSet->Fields->Fields[2]->AsString==Passwd)
{
ADODataSet3->Active=false;
ADODataSet3->Active=true;
DBGrid3->DataSource->DataSet->First();
Socket->SendText(DBGrid6->DataSource->DataSet->Fields->Fields[0]->AsString+":"+
DBGrid6->DataSource->DataSet->Fields->Fields[1]->AsString+":"+
DBGrid6->DataSource->DataSet->Fields->Fields[2]->AsString+":"+
DBGrid6->DataSource->DataSet->Fields->Fields[3]->AsString+":"+
DBGrid6->DataSource->DataSet->Fields->Fields[4]->AsString+":"+
DBGrid6->DataSource->DataSet->Fields->Fields[5]->AsString+":"+
DBGrid6->DataSource->DataSet->Fields->Fields[6]->AsString);
Memo1->Lines->Add("pobral ramowke2 : " +Login +" o adresie ip: "+Socket->RemoteAddress);
}
DBGrid4->DataSource->DataSet->MoveBy(1);
}
DBGrid4->DataSource->DataSet->First();
}

if(Command=="iram")
{
DBGrid4->DataSource->DataSet->First();
int poz=DBGrid4->DataSource->DataSet->RecordCount;
for(int i=0; i<poz; i++)
{
if(DBGrid4->DataSource->DataSet->Fields->Fields[1]->AsString==Login &&
DBGrid4->DataSource->DataSet->Fields->Fields[2]->AsString==Passwd &&
DBGrid4->DataSource->DataSet->Fields->Fields[3]->AsInteger==1)
{
AnsiString nWpis;
nWpis=Text;
DBGrid3->DataSource->DataSet->First();
ADOCommand1->CommandText="UPDATE ramowka2 SET "+DBGrid6->Columns->Items[StrToInt(t1)]->Title->Caption+"='"+nWpis+"' WHERE pon='"+DBGrid6->DataSource->DataSet->Fields->Fields[0]->AsString+"'";
ADOCommand1->Execute();
ADODataSet6->Active=false;
ADODataSet6->Active=true;
Memo1->Lines->Add("ramowke2 edytowal : " +Login +" o adresie ip: "+Socket->RemoteAddress+" parametry: " + Text+"/"+t1+"/"+nWpis);
}
DBGrid4->DataSource->DataSet->MoveBy(1);
}
DBGrid4->DataSource->DataSet->First();
}
}
//---------------------------------------------------------------------------