/// Группы безопасности пользователей
Class Security.AGroup Extends %Persistent [ ClassType = persistent, ProcedureBlock ]
{

/// Название группы
Property Name As %String;

Relationship UserAccessPermissions As Security.AccessPermission [ Cardinality = many, Inverse = AGroup ];

/// Ссылка на пользователей, принадлежащих этой группе
Relationship Users As Security.Account [ Cardinality = many, Inverse = AGroupID ];

Index NameIndex On Name [ Unique ];

}

/// данные об акаунтах (логинах и паролях)
Class Security.Account Extends %Persistent [ ClassType = persistent, ProcedureBlock ]
{

/// Ссылка на группу пользователя
Relationship AGroupID As Security.AGroup [ Cardinality = one, Inverse = Users ];

/// Имя пользователя
Property Login As %String [ Required ];

/// Пароль пользователя
Property Password As %String [ Required ];

Index AGroupIDIndex On AGroupID;

Index LoginIndex On Login [ Unique ];

Index PasswordIndex On Password [ Unique ];

Query GetUsersByGroup(groupID As %Integer =  0 ) As %SQLQuery(CONTAINID =  1 )
{
SELECT %ID,Login,Password FROM Account
WHERE (AGroupID->ID = :groupID OR :groupID =  0 )
ORDER BY %ID
}

}

      /// <summary>
        /// Заполнить листбокс со списком групп пользователей
        /// </summary>
        private void FillGroupList()
        {
            DataTable data = new DataTable();
            lbGroups.BeginUpdate();
            lbGroups.Items.Clear();

            try
            {
                data.Clear();
                data = DBConnection.RunQuery("Security.AGroup", "Extent", null);
                
                foreach(DataRow row in data.Rows)
                {
                    int id = (int) row["ID"];
                    string name = "";
                    DB_Sec.AGroup group = DB_Sec.AGroup.OpenId(DBConnection.GetConnection(), row["ID"].ToString());
                    if(group.IsConnected)
                        name = group.Name;

                    lbGroups.Items.Add(new NamedValue(name, group));
                }
            }
            catch(Exception ex)
            {
                MessageBox.Show(ex.Message);
            }
            lbGroups.EndUpdate();
        }

        /// <summary>
        /// Выбрали конкретную группу в списке групп
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void lbGroups_SelectedIndexChanged(object sender, EventArgs e)
        {
            FillUsersList( ((DB_Sec.AGroup)((NamedValue)lbGroups.SelectedItem).Value).Id() );
        }

        /// <summary>
        /// Заполнить листбокс со списком пользователей группы
        /// </summary>
        /// <param name="group_ID">код группы, пользователей которой показать</param>
        private void FillUsersList(string group_ID)
        {
            DataTable data = new DataTable();
            lbUsers.BeginUpdate();
            lbUsers.Items.Clear();

            try
            {
                data.Clear();
                data = DBConnection.RunQuery("Security.Account", "GetUsersByGroup", new object[] {group_ID} );

                foreach(DataRow row in data.Rows)
                {
                    int id = (int)row["ID"];
                    string name = "";
                    DB_Sec.Account user = DB_Sec.Account.OpenId(DBConnection.GetConnection(), id.ToString());
                    if(user.IsConnected)
                        name = user.Login + " " + user.Password;

                    lbUsers.Items.Add(new NamedValue(name, user));
                }
            }
            catch(Exception ex)
            {
                MessageBox.Show(ex.Message);
            }
            lbUsers.EndUpdate();
        }

        /// <summary>
        /// Добавить нового пользователя в группу
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void btnAddUser_Click(object sender, EventArgs e)
        {
            if(txtLogin.Text == "")
            { 
                txtLogin.Focus();
                return;
            }
            if(txtPassword.Text == "")
            {
                txtPassword.Focus();
                return;
            }
            if(!DB_Sec.AGroup.ExistsId(DBConnection.GetConnection(),
                                       ((DB_Sec.AGroup)((NamedValue)lbGroups.SelectedItem).Value).Id()))
            {
                lbGroups.Focus();
                return; // нельзя добавить пользователя, если не выбрана группа
            }

            DB_Sec.Account user = new DB_Sec.Account(DBConnection.GetConnection());
            if(user.IsConnected)
            {
                user.Login = txtLogin.Text;
                user.Password = txtPassword.Text;
                user.AGroupID = (DB_Sec.AGroup)((NamedValue)lbGroups.SelectedItem).Value;

                CacheStatus status = user.Save();
                if(!status.IsOK)
                    MessageBox.Show("Ошибка при сохранении нового пользователя:");
                else
                {
                    txtLogin.Text = user.Id(); 
                    txtPassword.Text = "";
                    // обновить список пользователей группы
                    FillUsersList(((DB_Sec.AGroup)((NamedValue)lbGroups.SelectedItem).Value).Id());
                }
            }
        }

        /// <summary>
        /// Удалить пользователя
        /// </summary>
        /// <param name="sender"></param>
        /// <param name="e"></param>
        private void btnDeleteUser_Click(object sender, EventArgs e)
        {
            if(!DB_Sec.Account.ExistsId(DBConnection.GetConnection(),
                                        ((DB_Sec.Account)((NamedValue)lbUsers.SelectedItem).Value).Id()))
            {
                lbUsers.Focus();
                return; 
            }

            DB_Sec.Account user = (DB_Sec.Account)((NamedValue)lbUsers.SelectedItem).Value;
            DB_Sec.Account.DeleteId(DBConnection.GetConnection(), user.Id());
            user.Close();
            user.Dispose();

            // обновить список пользователей группы
            FillUsersList(((DB_Sec.AGroup)((NamedValue)lbGroups.SelectedItem).Value).Id());
        }