Devart Forum

Код: Выделить всё

program Project14;

{$APPTYPE CONSOLE}

uses
  SysUtils, MSAccess, ActiveX, VirtualTable, DB;

var
  MSConnection: TMSConnection;
  MSQuery: TMSQuery;
  VirtualTable: TVirtualTable;

procedure test(DataSet: TDataSet);
begin
  VirtualTable.Assign(DataSet);
  VirtualTable.Active := true;
end;

begin
  CoInitialize(nil);
  try
    MSConnection := TMSConnection.Create(nil);
    try
      MSConnection.ConnectString := 'Data Source=DBMSSQL\MSSQL2008R2;Initial Catalog=andrz;Integrated Security=False;User ID=sa';
      MSConnection.Connect;
      MSQuery := TMSQuery.Create(nil);
      try
        MSQuery.Connection := MSConnection;
        MSQuery.SQL.Text := 'SELECT * FROM &m1';
        MSQuery.MacroByName('m1').Value := 'dept';
        MSQuery.Open;
        VirtualTable := TVirtualTable.Create(nil);
        try
          test(MSQuery);
          MSQuery.MacroByName('m1').Active := False;
          MSQuery.MacroByName('m1').Active := True;
          MSQuery.Open;
          Writeln('OK');
        finally
          VirtualTable.Free;
        end;
      finally
        MSQuery.Free;
      end;
    finally
      MSConnection.Free;
    end;
  finally
    CoUninitialize;
    readln;
  end;
end.

Код: Выделить всё

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

#include <vcl.h>
#pragma hdrstop

#include <tchar.h>
#include <Uni.hpp>
#include <SQLiteUniProvider.hpp>
#include <CREncryption.hpp>
#include <DBAccess.hpp>
#pragma link "SQLiteUniProvider"

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

#pragma argsused


TUniQuery *UniQueryEnc, *UniQuery;
TUniConnection *UniConnection;
TUniEncryptor *UniEncryptor;

UnicodeString GetValue(UnicodeString key)
{
	  UnicodeString sz = "SELECT US_ID,US_NAME,US_VALUE FROM user WHERE US_NAME = :name";
	  UniQueryEnc->SQL->Clear();
	  UniQueryEnc->SQL->Add(sz);
	  UniQueryEnc->ParamByName("name")->AsString = key;
	  UniQueryEnc->Open();
	  UniQueryEnc->First();
	  UnicodeString v =  UniQueryEnc->FieldByName("US_VALUE")->AsString;
      return v;
}
int SetValue(UnicodeString key, UnicodeString Value)
{
     GetValue(key);
	 if (!UniQueryEnc->IsEmpty())
	 {
	  UniQueryEnc->Edit();
	  UniQueryEnc->FieldByName("US_VALUE")->AsString =  Value;
	  UniQueryEnc->Post();
	 }else
	 {
	   UniQueryEnc->Insert();
	   UniQueryEnc->FieldByName("US_NAME")->AsString =  key;
	   UniQueryEnc->FieldByName("US_VALUE")->AsString =  Value;
	   UniQueryEnc->Post();
      }

      return 0;
}

int _tmain(int argc, _TCHAR* argv[])
{
	UniConnection = new TUniConnection(NULL);
	UniConnection->ProviderName = "SQLite";
	UniConnection->Database = ":memory:";
	UniConnection->Connect();
	UniConnection->ExecSQL("CREATE TABLE user (US_ID integer PRIMARY KEY AUTOINCREMENT NOT NULL UNIQUE, US_NAME varchar(255) UNIQUE, US_VALUE TEXT)");
	UniEncryptor = new TUniEncryptor(NULL);
	UniEncryptor->EncryptionAlgorithm = eaAES256;
	UniEncryptor->Password = "test";
	UniQueryEnc = new TUniQuery(NULL);
	UniQueryEnc->Connection = UniConnection;
	UniQueryEnc->Encryption->Encryptor =  UniEncryptor;
	UniQueryEnc->Encryption->Fields = "US_VALUE";
	SetValue("123", "12345");
	ShowMessage(GetValue("123"));//расшифрованные данные данные
	UniQuery = new TUniQuery(NULL);
	UniQuery->Connection = UniConnection;
	UniQuery->SQL->Text = "SELECT US_ID,US_NAME,US_VALUE FROM user WHERE US_NAME = '123'";
	UniQuery->Open();
	ShowMessage(UniQuery->FieldByName("US_VALUE")->AsString); //зашифрованные данные
	return 0;
}
//---------------------------------------------------------------------------

Код: Выделить всё

SELECT US_VALUE FROM user WHERE US_NAME = :name