Class User.Xecute Extends %RegisteredObject
{

/// Читать
ClassMethod Read(What As %CacheString) As %Library.CacheString
{
	s $ZT="ReadErr"
	q @What
ReadErr
 q $ZE
}

/// Писать
ClassMethod Write(What As %CacheString, Value As %CacheString) As %Library.CacheString
{
	x "s "_What_"=Value"
}

/// Выполнять
ClassMethod Execute(What As %CacheString) As %Library.CacheString
{
      n io,file,start,last
      s io=$IO
      s file=+$J
      s start=1
      k ^SPOOL(file)
      o 2:(file:start)
      u 2
      x What
      u io
      c 2
      s last=$O(^SPOOL(file,""),-1)
      Quit file
}

}

using System;
using System.Drawing;
using System.Windows.Forms;
using InterSystems.Data.CacheClient;

namespace SimpleCache
{
    public partial class Form1 : Form
    {
        bool Connected = false;
        public static CacheObject.Factory factory = new CacheObject.Factory();

        /// <summary>
        /// В конструкторе прочитаем строку соединения из сохранённых настроек
        /// </summary>
        public Form1()
        {
            InitializeComponent();
            factory.SetOutput(edtResult);
            edtConnectionString.Text = Properties.Settings.Default.ConnectionString;
            ShowConnectionStatus();
        }

        /// <summary>
        /// Кнопка Соединить
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void button1_Click(object sender, EventArgs e)
        {
            string ConnReady = edtConnectionString.Text;
            Connect(ConnReady);
        }

        /// <summary>
        /// Кнопка Разъединить
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void button2_Click(object sender, EventArgs e)
        {
            bool ok = factory.Disconnect();
            ShowConnectionStatus();
        }

        /// <summary>
        /// Показать статус соединения
        /// </summary>
        private void ShowConnectionStatus()
        {
            if (factory.IsConnected())
            {
                ShowConnected();
            }
            else
            {
                ShowDisconneced();
            }
        }

        /// <summary>
        /// Установить контролы в соответствии со статусом СОЕДИНЕНО
        /// </summary>
        private void ShowConnected()
        {
            panel1.BackColor = Color.Green;
            btnConnect.Enabled = false;
            btnDiconnect.Enabled = true;
            btnXecute.Enabled = true;
            edtCommand.Enabled = true;
            Connected = true;
            btnRead.Enabled = true;
            edtRead.Enabled = true;
        }

        /// <summary>
        /// Установить контролы в соответствии со статусом РАЗЪЕДИНЕНО
        /// </summary>
        private void ShowDisconneced()
        {
            panel1.BackColor = Color.Red;
            btnConnect.Enabled = true;
            btnDiconnect.Enabled = false;
            btnXecute.Enabled = false;
            edtCommand.Enabled = false;
            btnRead.Enabled = false;
            edtRead.Enabled = false;
            Connected = false;
        }

        /// <summary>
        /// Кнопка Выполнить
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void btnXecute_Click(object sender, EventArgs e)
        {
            if (Connected == false)
            {

            }
            dynamic CacheClassObj = factory.Static("User.Xecute");
            string x = edtCommand.Text;
            string file = CacheClassObj.Execute(x);
            string index = CacheClassObj.Read("$O(^SPOOL(\""+file+"\",\"\"))");
            while (index != "")
            {
                string res = CacheClassObj.Read("^SPOOL(\""+file+"\",\""+index+"\")");
                edtResult.Text += res;
                //edtResult.Lines[0] = res;
                index = CacheClassObj.Read("$O(^SPOOL(\"" + file + "\",\""+index+"\"))");
            }
            CacheClassObj.Execute("k ^SPOOL(\""+file+"\")");

        }

        /// <summary>
        /// Кнопка Прочитать
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void btnRead_Click(object sender, EventArgs e)
        {
            /*
            if (!factory.IsConnected())
            {
                button1_Click(object sender, EventArgs e);
            }
             * */
            dynamic CacheClassObj = factory.Static("User.Xecute");
            string what = edtRead.Text;
            string res = CacheClassObj.Read(what);
            edtResult.Text = res;
        }

        /// <summary>
        /// Кнопка вызова диалога соединения с Cache
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void btnShowConnect_Click(object sender, EventArgs e)
        {
            string conn = factory.ConnectDlg();
            edtConnectionString.Text = conn;
            Properties.Settings.Default.ConnectionString = conn;
            Properties.Settings.Default.Save();
        }

        /// <summary>
        /// Соединение с Cache
        /// </summary>
        /// <param name="ConnReady"></param>
        private void Connect(string ConnReady)
        {
            string conn = ConnReady;
            if (ConnReady == "")
            {
                conn = factory.ConnectDlg();
                edtConnectionString.Text = conn;
                Properties.Settings.Default.ConnectionString = conn;
                Properties.Settings.Default.Save();
            }

            bool ok = factory.Connect(conn);

            ShowConnectionStatus();
        }
    }
}