Ликбез по DataSnap

   if DataModule2.SQLConnection1.Connected then
   begin
      //Закрыть соединение
      DataModule2.ClientDataSet1.Close;
      DataModule2.SQLConnection1.Close;
      BConnect.Caption:='Подключиться';
      ComboBoxSetIP.Enabled:=True;
      ComboBoxSetIP.Color:=clWindow;
      ComboBoxSetProtocol.Enabled:=True;
      ComboBoxSetProtocol.Color:=clWindow;
      ELogin.Enabled:=True;
      ELogin.Color:=clWindow;
      EPass.Enabled:=True;
      EPass.Color:=clWindow;
      EPort.Enabled:=True;
      EPort.Color:=clWindow;
   end
         else
   begin
      //устанавливаем параметры подключения
      with DataModule2.SQLConnection1 do
      begin
      //Params.Values['DriverUnit']:= 'Data.DBXDataSnap';
      Params.Values['CommunicationProtocol']:= ComboBoxSetProtocol.Text;
      Params.Values['HostName']:= ComboBoxSetIP.Text;
      Params.Values['Port']:= EPort.Text;
      //Params.Values['DatasnapContext']:= 'datasnap/';
      //Params.Values['Password']:= EPass.Text;
      //имя пользователя
      //Params.Values['DSAuthUser']:=ELogin.Text;
      //пароль
      //Params.Values['DSAuthPassword']:=EPass.Text;
      //пробуем подключиться
      //Params.SaveToFile('C:\1.txt');
      Open;
      end;
 
      Label2.Caption:=DataModule2.SQLConnection1.Params.Values['HostName'];
 
      if DataModule2.SQLConnection1.Connected then
      begin
      DataModule2.ClientDataSet1.Open;
      BConnect.Caption:='Отключиться';
      ComboBoxSetIP.Enabled:=False;
      ComboBoxSetIP.Color:=clSilver;
      ComboBoxSetProtocol.Enabled:=False;
      ComboBoxSetProtocol.Color:=clSilver;
      ELogin.Enabled:=False;
      ELogin.Color:=clSilver;
      EPass.Enabled:=False;
      EPass.Color:=clSilver;
      EPort.Enabled:=False;
      EPort.Color:=clSilver;
      end;
   end;

    unit ServerMethodsUnit1;
 
interface
 
uses System.SysUtils, System.Classes, System.Json,
    Datasnap.DSServer, Datasnap.DSAuth, DataSnap.DSProviderDataModuleAdapter,
  Data.DBXFirebird, Data.FMTBcd, Data.DB, Data.SqlExpr, Datasnap.Provider;
 
type
  TServerMethods1 = class(TDSServerModule)
    BitbaseConnection: TSQLConnection;
    ClientsTable: TSQLDataSet;
    SQLQuery1: TSQLQuery;
    procedure DSServerModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function EchoString(Value: string): string;
    function ReverseString(Value: string): string;
    Function ClientsDataSet:TDataSet; //новый метод сервера
    Procedure ClientInsert(C_SURNAME,C_NAME,C_PATRON :String); //метод добавления новой записи
    Procedure ClientUpdate(ID :Integer; C_SURNAME,C_NAME,C_PATRON :String);
    Procedure ClientDelet(ID :Integer);
    Procedure ClientFind(Qsql :String);
    Procedure ClientSelect(Qsql :String);
  end;
 
implementation
 
{%CLASSGROUP 'FMX.Controls.TControl'}
 
{$R *.dfm}
 
 
uses System.StrUtils;
 
procedure TServerMethods1.DSServerModuleCreate(Sender: TObject);
begin
  SQLQuery1.SqlConnection:=BitbaseConnection;
end;
 
function TServerMethods1.EchoString(Value: string): string;
begin
  Result := Value;
end;
 
function TServerMethods1.ReverseString(Value: string): string;
begin
  Result := System.StrUtils.ReverseString(Value);
end;
 
Function TServerMethods1.ClientsDataSet: TDataSet;
begin
  ClientsTable.Open;
  Result:=ClientsTable;
end;
 
Procedure TServerMethods1.ClientInsert(C_SURNAME,C_NAME,C_PATRON: String);
begin
 
  with SQLQuery1 do
   begin
     Close;
     SQL.Clear;
     SQL.Add('INSERT INTO CLIENTS');
     SQL.Add('(C_SURNAME,C_NAME,C_PATRON) VALUES (:C_SURNAME,:C_NAME,:C_PATRON)');
     Params[0].Value:= C_SURNAME;
     Params[1].Value:= C_NAME;
     Params[2].Value:= C_PATRON;
     ExecSQL();
   end;
 
end;
 
Procedure TServerMethods1.ClientUpdate(ID :Integer; C_SURNAME,C_NAME,C_PATRON :String);
begin
 
  with SQLQuery1 do
   begin
     Close;
     SQL.Clear;
     SQL.Add('UPDATE CLIENTS SET');
     SQL.Add('C_SURNAME = (:C_SURNAME),C_NAME = (:C_NAME),C_PATRON = (:C_PATRON) WHERE ID =(:ID)');
     Params[0].Value:= C_SURNAME;
     Params[1].Value:= C_NAME;
     Params[2].Value:= C_PATRON;
     Params[3].Value:= ID;
     ExecSQL();
   end;
 
end;
 
Procedure TServerMethods1.ClientDelet(ID :Integer);
begin
 
  with SQLQuery1 do
  begin
     Close;
     SQL.Clear;
     SQL.Add('DELETE FROM CLIENTS WHERE ID =(:ID)');
     Params[0].Value:= ID;
     ExecSQL();
  end;
 
end;
 
Procedure TServerMethods1.ClientFind(Qsql :String);
begin
 
  with SQLQuery1 do
  begin
     Close;
     SQL.Clear;
     SQL.Add('SELECT * FROM CLIENTS WHERE C_NAME = (:Qsql)');
     Params[0].Value:= Qsql;
     Open;
  end;
 
end;
 
Procedure TServerMethods1.ClientSelect(Qsql :String);
begin
 
  with SQLQuery1 do
  begin
     Close;
     SQL.Clear;
     SQL.Add(':Qsql');
     Params[0].Value:= Qsql;
     Open;
  end;
 
end;
 
 
end.

     unit DMclient;
 
interface
 
uses
  System.SysUtils, System.Classes, Data.DBXDataSnap, IPPeerClient,
  Data.DBXCommon, Data.DB, Data.SqlExpr, Data.FMTBcd, Datasnap.Provider,
  Datasnap.DBClient, Datasnap.DSConnect;
 
type
  TDataModule2 = class(TDataModule)
    SQLConnection1: TSQLConnection;
    SqlServerMethod1: TSqlServerMethod;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    SqlServerMethod2: TSqlServerMethod;
    SqlServerMethod3: TSqlServerMethod;
    SqlServerMethod4: TSqlServerMethod;
    SqlServerMethod5: TSqlServerMethod;
    DataSetProvider1: TDataSetProvider;
    SqlServerMethod6: TSqlServerMethod;
    procedure DataModuleCreate(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  DataModule2: TDataModule2;
 
implementation
 
{%CLASSGROUP 'Vcl.Controls.TControl'}
 
uses GFclient;
 
{$R *.dfm}
 
procedure TDataModule2.DataModuleCreate(Sender: TObject);
begin
   //SQLConnection1.Open;
   //ClientDataSet1.Open;
end;
 
end.
 
 
unit GFclient;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Grids, Vcl.DBGrids,
  Vcl.ExtCtrls, Vcl.DBCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    DBGrid1: TDBGrid;
    BAdd: TButton;
    BApply: TButton;
    BDel: TButton;
    BEdit: TButton;
    PanelEdit: TPanel;
    EditFam: TEdit;
    EditName: TEdit;
    EditPatron: TEdit;
    LabelFam: TLabel;
    LabelName: TLabel;
    LabelPatron: TLabel;
    BCancelEdit: TButton;
    BFound: TButton;
    PanelFind: TPanel;
    BFind: TButton;
    CheckBoxFam: TCheckBox;
    BCancelFind: TButton;
    FindName: TEdit;
    CheckBoxName: TCheckBox;
    FindPatron: TEdit;
    CheckBoxPatron: TCheckBox;
    FindFam: TEdit;
    BExit: TButton;
    Label2: TLabel;
    PanelSetting: TPanel;
    LabelIP: TLabel;
    BConnect: TButton;
    ComboBoxSetIP: TComboBox;
    LabelPort: TLabel;
    EPort: TEdit;
    LabelLogin: TLabel;
    LabelPassword: TLabel;
    ELogin: TEdit;
    EPass: TEdit;
    ComboBoxSetProtocol: TComboBox;
    LabelProtocol: TLabel;
    procedure Edit1Change(Sender: TObject);
    procedure BAddClick(Sender: TObject);
    procedure BApplyClick(Sender: TObject);
    procedure BEditClick(Sender: TObject);
    procedure BCancelEditClick(Sender: TObject);
    procedure BDelClick(Sender: TObject);
    procedure BFoundClick(Sender: TObject);
    procedure BFindClick(Sender: TObject);
    procedure BCancelFindClick(Sender: TObject);
    procedure BExitClick(Sender: TObject);
    procedure CheckBoxFamClick(Sender: TObject);
    procedure CheckBoxNameClick(Sender: TObject);
    procedure CheckBoxPatronClick(Sender: TObject);
    procedure BConnectClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    FNew: Boolean;
  public
 
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses MethodsClient, DMclient;
 
 
procedure TForm1.FormCreate(Sender: TObject);
begin
    ComboBoxSetIP.AddItem('localhost',nil);
    ComboBoxSetIP.AddItem('192.168.0.',nil);
    ComboBoxSetIP.AddItem('192.168.1.',nil);
    ComboBoxSetProtocol.AddItem('tcp/ip',nil);
    ComboBoxSetProtocol.AddItem('http',nil);
end;
 
procedure TForm1.BConnectClick(Sender: TObject);
 
begin
 
  
   DataModule2.SqlServerMethod6.Params.ParamByName('Qsql').Value:= 'SELECT * FROM CLIENTS';
 
   if DataModule2.SQLConnection1.Connected then
   begin
      //Закрыть соединение
      DataModule2.ClientDataSet1.Close;
      DataModule2.SQLConnection1.Close;
      BConnect.Caption:='Подключиться';
      ComboBoxSetIP.Enabled:=True;
      ComboBoxSetIP.Color:=clWindow;
      ComboBoxSetProtocol.Enabled:=True;
      ComboBoxSetProtocol.Color:=clWindow;
      ELogin.Enabled:=True;
      ELogin.Color:=clWindow;
      EPass.Enabled:=True;
      EPass.Color:=clWindow;
      EPort.Enabled:=True;
      EPort.Color:=clWindow;
   end
         else
   begin
      //устанавливаем параметры подключения
      with DataModule2.SQLConnection1 do
      begin
      //Params.Values['DriverUnit']:= 'Data.DBXDataSnap';
      Params.Values['CommunicationProtocol']:= ComboBoxSetProtocol.Text;
      Params.Values['HostName']:= ComboBoxSetIP.Text;
      Params.Values['Port']:= EPort.Text;
      //Params.Values['DatasnapContext']:= 'datasnap/';
      //Params.Values['Password']:= EPass.Text;
      //имя пользователя
      //Params.Values['DSAuthUser']:=ELogin.Text;
      //пароль
      //Params.Values['DSAuthPassword']:=EPass.Text;
      //пробуем подключиться
      //Params.SaveToFile('C:\1.txt');
      Open;
      end;
 
      Label2.Caption:=DataModule2.SQLConnection1.Params.Values['HostName'];
 
      if DataModule2.SQLConnection1.Connected then
      begin
      DataModule2.ClientDataSet1.Open;
      BConnect.Caption:='Отключиться';
      ComboBoxSetIP.Enabled:=False;
      ComboBoxSetIP.Color:=clSilver;
      ComboBoxSetProtocol.Enabled:=False;
      ComboBoxSetProtocol.Color:=clSilver;
      ELogin.Enabled:=False;
      ELogin.Color:=clSilver;
      EPass.Enabled:=False;
      EPass.Color:=clSilver;
      EPort.Enabled:=False;
      EPort.Color:=clSilver;
      end;
   end;
 
end;
 
//--------------------------------------------------------------------------
 
procedure TForm1.BAddClick(Sender: TObject);
begin
    FNew:=True;
    PanelEdit.Visible:=True;
end;
 
procedure TForm1.BEditClick(Sender: TObject);
begin
    FNew:=False;
    EditFam.Text:=DataModule2.ClientDataSet1.FieldByName('C_SURNAME').AsString;
    EditName.Text:=DataModule2.ClientDataSet1.FieldByName('C_NAME').AsString;
    EditPatron.Text:=DataModule2.ClientDataSet1.FieldByName('C_PATRON').AsString;
    PanelEdit.Visible:=True;
end;
 
procedure TForm1.BDelClick(Sender: TObject);
begin
    DataModule2.SqlServerMethod3.Params.ParamByName('ID').Value:=
    DataModule2.ClientDataSet1.FieldByName('ID').AsInteger;
    DataModule2.SqlServerMethod3.ExecuteMethod;
    DataModule2.ClientDataSet1.Close;
    DataModule2.SQLConnection1.Close;
    DataModule2.SQLConnection1.Open;
    DataModule2.ClientDataSet1.Open;
end;
 
procedure TForm1.BFoundClick(Sender: TObject);
begin
   CheckBoxFam.Checked:=False;
   FindFam.Enabled:= False;
   FindFam.Color:=clSilver;
   FindFam.Text:='';
 
   CheckBoxName.Checked:=False;
   FindName.Enabled:= False;
   FindName.Color:=clSilver;
   FindName.Text:='';
 
   CheckBoxPatron.Checked:=False;
   FindPatron.Enabled:= False;
   FindPatron.Color:=clSilver;
   FindPatron.Text:='';
 
   PanelFind.Visible:=True;
end;
 
procedure TForm1.BExitClick(Sender: TObject);
begin
  Form1.Close;
end;
 
//--------------------------------------------------------------------------
 
procedure TForm1.BApplyClick(Sender: TObject);
begin
    if FNew = True then
    begin
    DataModule2.SqlServerMethod2.Params.ParamByName('C_SURNAME').Value:=EditFam.Text;
    DataModule2.SqlServerMethod2.Params.ParamByName('C_NAME').Value:=EditName.Text;
    DataModule2.SqlServerMethod2.Params.ParamByName('C_PATRON').Value:=EditPatron.Text;
    DataModule2.SqlServerMethod2.ExecuteMethod;
    end
        else
    begin
    DataModule2.SqlServerMethod4.Params.ParamByName('ID').Value:=
    DataModule2.ClientDataSet1.FieldByName('ID').AsInteger;
    DataModule2.SqlServerMethod4.Params.ParamByName('C_SURNAME').Value:=EditFam.Text;
    DataModule2.SqlServerMethod4.Params.ParamByName('C_NAME').Value:=EditName.Text;
    DataModule2.SqlServerMethod4.Params.ParamByName('C_PATRON').Value:=EditPatron.Text;
    DataModule2.SqlServerMethod4.ExecuteMethod;
    end;
 
    //DataModule2.ClientDataSet1.ApplyUpdates(0);
    PanelEdit.Visible:=False;
    DataModule2.ClientDataSet1.Close;
    DataModule2.SQLConnection1.Close;
    DataModule2.SQLConnection1.Open;
    DataModule2.ClientDataSet1.Open;
 
 
end;
 
procedure TForm1.BCancelEditClick(Sender: TObject);
begin
   PanelEdit.Visible:=False;
end;
 
//--------------------------------------------------------------------------
 
procedure TForm1.BFindClick(Sender: TObject);
var   s :string;
      n :integer;
 
begin
 
  {s:='';
  n:=0;
 
  if  FindFam.Text<>'' then
  begin
   s:=s+'C_SURNAME LIKE ''%'+FindFam.Text+'%''';
   inc(n);
  end;
 
  if  FindName.Text<>'' then
  begin
   if n>0 then s:=s+' AND ';
   s:=s+'C_NAME LIKE ''%'+FindName.Text+'%''';
   inc(n);
  end;
 
  if  FindPatron.Text<>'' then
  begin
   if n>0 then s:=s+' AND ';
   s:=s+'C_PATRON LIKE ''%'+FindPatron.Text+'%''';
   inc(n);
  end;
 
 
  if n>0 then
  begin   }
  //s:='SELECT * FROM CLIENTS WHERE '+s;
  //label2.Caption:=s;
  s:=DataModule2.ClientDataSet1.FieldByName('C_NAME').AsString;
  s:='"'+s+'"';
  label2.Caption:=s;
  DataModule2.SqlServerMethod5.Params.ParamByName('Qsql').Value:=s;
  DataModule2.SqlServerMethod5.ExecuteMethod;
  DataModule2.ClientDataSet1.Close;
  DataModule2.SQLConnection1.Close;
  DataModule2.SQLConnection1.Open;
  DataModule2.ClientDataSet1.Open;
  //end;
 
  {DataModule2.ClientDataSet1.Close;
  DataModule2.ClientDataSet1.CommandText:= 'SELECT * FROM CLIENTS WHERE C_NAME = "Денис"';
  DataModule2.ClientDataSet1.Open; }
 
 
 
end;
 
procedure TForm1.BCancelFindClick(Sender: TObject);
begin
   PanelFind.Visible:=False;
end;
 
procedure TForm1.CheckBoxFamClick(Sender: TObject);
begin
   if FindFam.Enabled = False then
   begin
   FindFam.Enabled:= True;
   FindFam.Color:=clWindow;
   end
                              else
   begin
   FindFam.Enabled:= False;
   FindFam.Color:=clSilver;
   end;
   FindFam.Text:='';
end;
 
procedure TForm1.CheckBoxNameClick(Sender: TObject);
begin
   if FindName.Enabled = False then
   begin
   FindName.Enabled:= True;
   FindName.Color:=clWindow;
   end
                              else
   begin
   FindName.Enabled:= False;
   FindName.Color:=clSilver;
   end;
   FindName.Text:='';
end;
 
procedure TForm1.CheckBoxPatronClick(Sender: TObject);
begin
   if FindPatron.Enabled = False then
   begin
   FindPatron.Enabled:= True;
   FindPatron.Color:=clWindow;
   end
                              else
   begin
   FindPatron.Enabled:= False;
   FindPatron.Color:=clSilver;
   end;
   FindPatron.Text:='';
end;
 
//--------------------------------------------------------------------------
 
procedure TForm1.Edit1Change(Sender: TObject);
var SMC:TServerMethods1Client;
begin
 
    SMC:=TServerMethods1Client.Create(DataModule2.SQLConnection1.DBXConnection);
    try
       Label1.Caption:=SMC.EchoString(Edit1.Text);
    finally
       SMC.Free;
    end;
 
end;
 
 
 
 
end.

   Function TServerMethods1.ClientsDataSet: TDataSet;
begin
  ClientsTable.Open;
  Result:=ClientsTable;
end;

  ClientsTable.Open;
  Result:=ClientsTable;

  Function TServerMethods1.ClientsDataSet: TDataSet;
begin
  ClientsTable.Close;
  ClientsTable.CommandText := 'select * from CLIENTS';
  ClientsTable.Open;
  Result:=ClientsTable;
end;

  Function TServerMethods1.ClientsDataSet: TDataSet;
begin
  ClientsTable.Close;
  ClientsTable.CommandText := 'select * from CLIENTS WHERE C_NAME = ''Денис''';
  ClientsTable.Open;
  Result:=ClientsTable;
end;

    Function TServerMethods1.ClientsDataSet: TDataSet;
begin
  ClientsTable.Open;
  Result:=ClientsTable;
end;
 
Procedure TServerMethods1.ClientFind(Qsql :String);
begin
  ClientsTable.Close;
  ClientsTable.CommandText := 'select * from CLIENTS WHERE C_NAME = (:Qsql)';
  ClientsTable.Params[0].Value:= Qsql;
end;

procedure TForm1.BFindClick(Sender: TObject);
var   s :string;
      
begin
 
  s:=DataModule2.ClientDataSet1.FieldByName('C_NAME').AsString;
  s:=''''+s+''''; //воооотакие кавычки ему видите ли нравятся :) 
  DataModule2.SqlServerMethod5.Params.ParamByName('Qsql').Value:=s;
  DataModule2.SqlServerMethod5.ExecuteMethod;
  DataModule2.SqlServerMethod1.ExecuteMethod;
  //DataModule2.ClientDataSet1.ApplyUpdates(0);
  DataModule2.ClientDataSet1.Close;
  DataModule2.ClientDataSet1.Open;
  
end;

  DataModule2.ClientDataSet1.Close;
  DataModule2.ClientDataSet1.Open;

  ClientsTable.Open;
  Result:=ClientsTable;

      ClientsTable.CommandText := 'select * from CLIENTS WHERE C_NAME = (:Qsql)';
      ClientsTable.Params[0].Value:= Qsql;

        ClientsTable.Open;
        Result:=ClientsTable;

    DataModule2.ClientDataSet10.Close;
    DataModule2.ClientDataSet10.CommandText:='select MAX(PR_KEY) AS "Max Key" from PLAN_RECRUT';
    DataModule2.ClientDataSet10.Open;

Clientdatamoduleunit.ClientDataModule.SqlServerMethod2.ExecuteMethod;

SMC:=TServerMethods1Client.Create(Clientdatamoduleunit.ClientDataModule.SQLConnection1.DBXConnection);
SMC.insertRecord;
SMC.Free;

ClientDataModule.ClientDataSet1.Close;
    ClientDataModule.ClientDataSet1.CommandText:='select*from test_db';
    ClientDataModule.ClientDataSet1.Open;

SMC:=TServerMethods1Client.Create(Clientdatamoduleunit.ClientDataModule.SQLConnection1.DBXConnection);
Clientdatamoduleunit.ClientDataModule.SQLDataSet1.Assign(SMC.MySQLDataSet);

    Procedure TServerMethods1.ClientUpdate(EMPLOYES_KEY,EMP_MANAGER_KEY,EMP_ISP_KEY :Integer;
                                       EMP_SURNAME,EMP_NAME,EMP_PATRON,EMP_PROF,
                                       EMP_POL,EMP_BITHDAY,EMP_RASA,EMP_TEL,EMP_EMAIL,
                                       EMP_ADRES,EMP_SOBESED_DATA,EMP_SOBESED_VAC,
                                       EMP_UNIFORMA,EMP_FOTO_F: String);
begin
 
  with SQLQuery1 do
   begin
     Close;
     SQL.Clear;
     SQL.Add('UPDATE EMPLOYES SET');
     SQL.Add('EMP_MANAGER_KEY = (:EMP_MANAGER_KEY),EMP_ISP_KEY = (:EMP_ISP_KEY),');
     SQL.Add('EMP_SURNAME = (:EMP_SURNAME),EMP_NAME = (:EMP_NAME),EMP_PATRON = (:EMP_PATRON),');
     SQL.Add('EMP_PROF = (:EMP_PROF),EMP_POL = (:EMP_POL),EMP_BITHDAY = (:EMP_BITHDAY),');
     SQL.Add('EMP_RASA = (:EMP_RASA),EMP_TEL = (:EMP_TEL),EMP_EMAIL = (:EMP_EMAIL),');
     SQL.Add('EMP_ADRES = (:EMP_ADRES),EMP_SOBESED_DATA = (:EMP_SOBESED_DATA),EMP_SOBESED_VAC = (:EMP_SOBESED_VAC),');
     SQL.Add('EMP_UNIFORMA = (:EMP_UNIFORMA),EMP_FOTO_F = (:EMP_FOTO_F) ');
     SQL.Add('WHERE EMPLOYES_KEY =(:EMPLOYES_KEY)');
     Params[0].Value:= EMP_MANAGER_KEY;
     Params[1].Value:= EMP_ISP_KEY;
     Params[2].Value:= EMP_SURNAME;
     Params[3].Value:= EMP_NAME;
     Params[4].Value:= EMP_PATRON;
     Params[5].Value:= EMP_PROF;
     Params[6].Value:= EMP_POL;
     Params[7].Value:= EMP_BITHDAY;
     Params[8].Value:= EMP_RASA;
     Params[9].Value:= EMP_TEL;
     Params[10].Value:= EMP_EMAIL;
     Params[11].Value:= EMP_ADRES;
     Params[12].Value:= EMP_SOBESED_DATA;
     Params[13].Value:= EMP_SOBESED_VAC;
     Params[14].Value:= EMP_UNIFORMA;
     Params[15].Value:= EMP_FOTO_F;
     Params[16].Value:= EMPLOYES_KEY;
     ExecSQL();
   end;
 
end;

       //устанавливаем параметры подключения
      with DataModule2.SQLConnection1 do
      begin
      Params.Clear;
      Params.Values['DriverUnit']:= 'DBXDataSnap';
      Params.Values['CommunicationProtocol']:= ComboBoxSetProtocol.Text;
      Params.Values['HostName']:= ComboBoxSetIP.Text;
      Params.Values['Port']:= ComboBoxSetPort.Text;
      Params.Values['Filters'] :='{}//';  //набор фильтров
      //Params.Values['DatasnapContext']:= 'datasnap/';
      //Params.Values['DSAuthUser']:=ELogin.Text;  //имя пользователя
      //Params.Values['DSAuthPassword']:=EPass.Text;  //пароль
      Open; //пробуем подключиться
      end;

      
       DataModule2.ClientDataSet2.Close;  \\здесь вот и закрываем
       DataModule2.ClientDataSet2.CommandText:='твой запрос ';
       DataModule2.ClientDataSet2.Open;

procedure TForm2.Button3Click(Sender: TObject);
begin
 
ClientDataSet1.Close;
ClientDataSet1.CommandText:='select*from test_db';
ClientDataSet1.Open;
end;

Clientdataset1.ApplyUpdates(0); ClientDataSet1.close; ClientDataset1.open;

procedure TForm1.Button1Click(Sender: TObject);
var SMC:TServerMethods1Client;
begin
SMC:=TServerMethods1Client.Create(Sqlconnection1.DBXConnection);
 
ClientDataSet1.Close;
SMC.CloseDataSet; // метод закрытия множества на сервере - создал его в ручную
 
ClientDataSet1.CommandText:='select*from mytable where primary_key>5';
 
ClientDataSet1.Open; // метод открытия множества на сервере - создал его в ручную
SMC.OpenDataSet;
 
SMC.Free;
 
end;

procedure TForm1.Button1Click(Sender: TObject);
var SMC:TServerMethods1Client;
begin
SMC:=TServerMethods1Client.Create(Sqlconnection1.DBXConnection);
SMC.CloseDataSet;
 
//ClientDataSet1.CommandText:='Select*from mytable';
SMC.CommandText('select*from mytable where primary_key>5'); // Метод сервера...
SMC.OpenDataSet;
 
SMC.Free;
 
 
// Обновляем множество на клиенте
Clientdataset1.Close;
Clientdataset1.Open;
 
 
end;