Делимся наработками

@BasicMan · Регистрация: 17.02.2009

Студворк — интернет-сервис помощи студентам

в этой теме предлагаю выкладывать интересные наработки по акцессу...

зы. в дальнейшем на основе их можно будет создать темы "важное"

Добавлено через 45 секунд
ззы. флуд и спам в этой теме будет награжден красными карточками

@Silur · 04.11.2018, 08:58

Дополнительно. Такое сообщение бывает, если не подключены таблицы. Вообще то должно было подключаться автоматически.
1. Выполнить вручную. Открыть панель навигации (F11 или запуск с Shift). Открыть модуль basConnect, вручную запустить функцию fnConnectCureFolder(). Можно работать.
2. В макросе autoexec функцию fnConnectCureFolder() поднять в списке вверх на 3 место. Подправить написание (оказалась отсутствует закрывающая скобка в вызове.

Ну и версия с исправленным autoexec

@Silur · 04.11.2018, 09:48

Плохо, что сообщения можно менять только в течении 5 минут. Хотел подправить, но уже нельзя.

ProgressBar без ProgressBar-a

Взято очень давно с сайта http://www.jsilver.newmail.ru/ (страничка Джона Сильвера) Сайта такого уже нет. Программа была сделана в Access 97. Я её преобразовал в формат Access 2000.

Попробуйте, Вам понравится. Всё сделано средствами Access. Никаких ActiveX.

Дополнительно.
Последняя версия модуля sd_Connect. Добавлена возможность менять путь и пароль для файлов с таблицами. Таблицы SystemBases и SystemTables переименованы в USystemBases и USystemTables. Теперь они не видны при обычных настройках панели навигации. Чтобы их увидеть необходимо поставить флажок в поле "Показывать системные объекты"
В файле с суффиксом "i" поизвращался над интерфейсом. Сделал цветные овальные кнопки. Смотрится вполне неплохо.

@Eugene-LS · 04.11.2018, 13:36

Сообщение от Silur

Взято очень давно с сайта http://www.jsilver.newmail.ru/ (страничка Джона Сильвера) Сайта такого уже нет.

Ну уж действительно совсем давно, что и почти не правда.

Я был владельцем данного ресурса.
Его развитие и продолжение можно теперь найти тут: http://msa.polarcom.ru/
... сколько лет то прошло ... аж страшно ...

Silur, спасибо за приятные воспоминания, тут уместно добрым словом помянуть сайт Сергея Новикова (aka NSA) которого уже нет (сайта).

@Silur · 04.11.2018, 22:49

"Ничто на Земле не проходит бесследно..."

Архивная версия сайта Новикова Сергея - MS Access 97 со всех сторон с примерами

Да, Евгений, мы с Вами заочно знакомы. На Вашем сайте есть и мои примеры. Вот хотя бы Пример использования модуля класса для работы с внешними устройствами (побитная обработка данных)

@REALIST07 · 22.11.2018, 22:08

Не по теме:

Зашел выразить свое почтение всем вам,Господа, пожалуй за долгое время моего пребывания на этом форуме - это лучший раздел, который я видел

@Silur · 24.11.2018, 16:01

Модуль авторизации

Данный модуль имеет 3 вида авторизации
1. без авторизации
2. Windows авторизация
3. авторизация по Login/Password
Выложен он будет в режиме "Без авторизации"

Переключать режимы авторизации может администратор программы (БД). Для этого надо нажать кнопку "Сервис" (ключ и молоток) Появляется форма "Сервис" с двумя кнопками (пока).
Нажимаем на кнопку "Настройка программы". Для режима без авторизации программа запросит пароль администратора. При других режимах программа проверит админские привилегии пользователя.

ВНИМАНИЕ! Сейчас для администратора установлен пароль "121212". Для всех остальных пользователей пароль не установлен. Логин администратора всегда "admin". Этот логин зарезервирован за системой. Пользователи не должны его использовать.

Вводим пароль. Откроется форма "Настройки программы". Выбираем нужный режим и закрываем форму.
Тут можно сменить и пароль администратора, нажав кнопку "Смена пароля текущего пользователя". У Вас снова будет запрошен пароль администратора, При правильном вводе будет предложено ввести новый пароль. Так меняется пароль администратора в режиме "Без авторизации"

Добавлять, удалять пользователя и изменять его параметры может только администратор БД (или пользователь "admin", который является администратором по умолчанию). Для этого в параметрах пользователя необходимо установить флажок "Администратор"
А вот пароль устанавливает сам пользователь.

Для изменения параметров пользователей нажмите на кнопку "Менеджеры" (два профиля). Откроется форма со списком пользователей. Внизу есть кнопки "Добавить", "Изменить", "Удалить".
Выберите пользователя и нажмите на кнопку "Изменить". Откроется соответствующая форма. Перейдите на закладку "Авторизация".
Там находятся два поля "Логин Windows" и "Логин программы"
В поле "Логин Windows" вносится логин под которым пользователь регистрируется в Windows. Предназначен для режима Windows авторизации.
В поле "Логин программы" вносится логин для режима авторизации Login/Password. При создании нового пользователя пароль всегда пустой. Чтобы его изменить, необходимо при заданном режиме "Авторизация по Login/Password" войти в программу по своим логином. В поле "Пароль" ничего не вводить. Затем выбрать режим "Сервис" и "Смена пароля текущего пользователя". Введите новый пароль и подтвердите его. Пробелы вводить нельзя. Регистры в пароле учитывается.
Кроме того там есть кнопка для сброса пароля. Если пользователь забыл свой пароль, то руководитель может его сбросить.

Логины и пароли пользователей хранятся в таблице UserManager. Режим авторизации и пароль администратора хранятся в таблице tbl_SetProgramm.

При "Windows авторизации" программа при запуске просматривает поле LoginWin в таблицы UserManager. В случае совпадения входит в программу под найденным логином.

При авторизация по Login/Password программа запрашивает логин и пароль пользователя.

Попробуйте, как работает и выскажите своё мнение.

Заданные мной логины для программы
Иванов - Ivan
Петров - Peter
Сидоров - Sidor
Александров - Alex
Фёдоров - Fedor
Ефимов - Efim
Сергеев - Serg
Регистр для логина неважен. т.е. Alex=alex=aLeX

Пользователь Иванов - Ivan указан как администратор БД.

P.S. Ещё раз напоминаю, пароль для администратора сейчас установлен 121212.

В приложении - описанный модуль и доработанная функция InputBox для ввода паролей (я не автор доработки, я её только дописал под 64 битную версию Access)

@amd48 · 29.11.2018, 21:37

Создадим таблицу с названием dual (пасхалочка из Oracle) с одним текстовым полем, которое назовём любым образом. В таблицу вставим одну запись с текстом " " (т.е. просто один пробел)
Теперь эту таблицу можно использовать в запросах в качестве заглушки, когда нам надо ввести явное значение для какого-нибудь поля. Вместо dual можно использовать MSysObjects, но dual пишется короче и запомнить проще. И в этом контексте использования гуглится гораздо чаще.

Один селект без явного указания источника MSA ещё может обработать. Типа такого:

SQL
1
SELECT dateserial(1970,1,1)

А два селекта подряд типа этого он выполнять уже отказывается:

SQL
1
2
3
SELECT dateserial(1970,1,1)
UNION
SELECT dateserial(1980,1,1)

А с таким проблем уже нет:

SQL
1
2
3
SELECT dateserial(1970,1,1) FROM dual
UNION
SELECT dateserial(1980,1,1) FROM dual

А теперь
Создадим массив цифр от 0 до 9

SQL
1
SELECT 0 AS n FROM dual UNION SELECT 1 FROM dual UNION  SELECT 2 FROM dual UNION SELECT 3 FROM dual UNION SELECT 4 FROM dual UNION SELECT 5 FROM dual UNION SELECT 6 FROM dual UNION SELECT 7 FROM dual UNION SELECT 8 FROM dual UNION SELECT 9 FROM dual

Получаем 10 записей с цифрами от 0 до 9. Назовём этот запрос "nn"

Создадим последовательность календарных дней от 01.01.1970 до 24.01.2082
Такого календарика на 40932 дня должно хватить для большинства задач реальной жизни

SQL
1
2
3
4
5
6
7
8
9
10
11
SELECT * FROM (
SELECT dateserial(1970,1,(n1.n&n2.n&n3.n&n4.n)+1) AS dt FROM nn AS n1,nn AS n2,nn AS n3,nn AS n4 
UNION 
SELECT dateserial(1997,5,(n1.n&n2.n&n3.n&n4.n)+1) FROM nn AS n1,nn AS n2,nn AS n3,nn AS n4 
UNION 
SELECT dateserial(2024,9,(n1.n&n2.n&n3.n&n4.n)+1) FROM nn AS n1,nn AS n2,nn AS n3,nn AS n4 
UNION 
SELECT dateserial(2052,1,(n1.n&n2.n&n3.n&n4.n)+1) FROM nn AS n1,nn AS n2,nn AS n3,nn AS n4 
UNION 
SELECT dateserial(2079,5,(n1.n&n2.n&n3.n)+1) FROM nn AS n1,nn AS n2,nn AS n3
) ORDER BY 1

5847 воскресений за этот период

SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
SELECT dt FROM (
SELECT dateserial(1970,1,(n1.n&n2.n&n3.n&n4.n)+1) AS dt FROM nn AS n1,nn AS n2,nn AS n3,nn AS n4 
UNION 
SELECT dateserial(1997,5,(n1.n&n2.n&n3.n&n4.n)+1) FROM nn AS n1,nn AS n2,nn AS n3,nn AS n4 
UNION 
SELECT dateserial(2024,9,(n1.n&n2.n&n3.n&n4.n)+1) FROM nn AS n1,nn AS n2,nn AS n3,nn AS n4 
UNION 
SELECT dateserial(2052,1,(n1.n&n2.n&n3.n&n4.n)+1) FROM nn AS n1,nn AS n2,nn AS n3,nn AS n4 
UNION 
SELECT dateserial(2079,5,(n1.n&n2.n&n3.n)+1) FROM nn AS n1,nn AS n2,nn AS n3
)
WHERE weekday(dt,2)=7
 ORDER BY 1

и MSA даже не поперхнулся. Экономьте дисковое пространство

@АЕ · 25.01.2019, 16:50

Кто использует микротик может быть полезным.
Набивает таблицу коментариями, IP и Именами хостов
Впоследствии можно использовать для доступа по удаленке или открытия в браузере и т.п.

@АЕ · 29.01.2019, 22:26

чтобы было нагляднее - пару скриншотов моего использования

@АЕ · 30.01.2019, 16:41

Еще одна наработка. В помощь сисадминам.
Зная IP адрес или имя хоста позволяет получить количество отпечатанных страниц
Позволяет следить за ресурсом принтеров сети.
Использует SnmpGet.exe ,которую легко найти в сети. Ссылок не даю.

@АЕ · 30.01.2019, 22:00

Скорее памятка, чем наработка.
Применял в отделе кадров
При передаче подпрограмме в качестве аргумента адреса в произвольном понятном формате как текста открывает в браузере карту с этим адресом

Visual Basic
1
2
3
Public Sub goadr(a As String)
Application.FollowHyperlink "https://www.google.com/maps/place/" & s
End Sub

@АЕ · 31.01.2019, 07:52

Для наглядности пример моего использования

@Silur · 18.02.2019, 13:40

Программа учёта основных фондов

Не для бухгалтерии!

Лет 20 назад, на моей старой работе, меня попросили для завхоза, а официально - Начальника АХО, сделать небольшую программу учета основных средств: что имеется, где находится, за кем числится, и т.п. У неё был старенький ноут - 486 с 8 Мб ОЗУ, Windows 95 и 12 дюймовым экраном VGA(640x480). Поэтому и маленький размер экранных форм.
Она на нем составляла служебные записки и набирала документы. Так, что отсюда и требования к базе. Это небольшая база, написанная на Access 97, без всяких заморочек и украшательств. Позже я её конвертировал в Access 2000. Вдруг кому-то из начинающих приглянется? Жалко просто выбросить. В программе не работает только режим "Проводки оборудования". Я начал его писать по личной инициативе, но не закончил. А так всё более-менее рабочее. Сейчас бы я написал программу совсем иначе. Но нет стимула её переписывать.

Программа предназначена для ведения учета основных фондов: здание, оборудование, мебель и т.д. Программа была написана на Access 97 и работает под управлением операционной системы Windows 95/98. В формате Access 2000 программа может работать на всех 32-х разрядных версиях Access, включая 2016 (на 2019 не проверялась). Потом я слегка доработал программу, что бы она могла работать и в 64-х разрядных версиях Access Немного подправил интерфейс, убрал кое-какие ошибки.

Программа состоит из двух частей: части с программным кодом и части с таблицами данных. Это позволяет использовать задачу в сетевом многопользовательском варианте. А так же оперативно производить доработку программы.
Более подробно о работе с программой можно прочитать в справочном файле, доступном в прилагаемом архиве.
Справка дана в формате HLP. Для Windows Vista и выше для чтения таких файлов справки надо ставить специальные обновления.

Так же прикладываю последнюю версию модуля авторизации, где учтены все замечания.

@Capi · 15.03.2019, 01:36

Silur,

Спасибо за #107.
Так мне кстати пример пришелся.)))

@Ryhor · 21.11.2019, 21:20

Программа для магазина с большой номенклатурой и сканером штрих-кодов.
Сделал за три дня, хотя потом оказалось, то адресный склад и учёт срока годности не нужно(( так бы сделал за полтора дня. Всё это там осталось, просто скрыл.
Чем горжусь - это удобное (на мой взгляд) перемещение товара. Отбираете фильтрами и/или просто удаляете из таблицы лишние позиции, все оставшиеся видимые записи перемещаются в выбранное место (номер полки).
Уверен, что есть какие-то ошибки и неточности, но продавец, которая работает с программой только два раза сообщала об ошибках за пол года.

@Ryhor · 21.11.2019, 21:35

ещё один момент, где-то на просторах интернета нашёл справочник штрих-кодов. Он очень большой, поэтому запилил отдельным файлом, чтобы в случае ошибки, продавец могла по почте пересылать программу.
Справочник используется, когда вводится новая карточка товара, если штрих-код в справочнике есть, то заполняются поля названия, категории и т.д. Если нет - то вводим всё вручную.
В любом случае, этот справочник был ооочень большой, что поиск занимал пару минут. Я его ещё долго чистил, чтобы оставить нужные мне категории товаров. Поэтому, если вдруг кому понадобиться программа, не пугайтесь вылетающих ошибок~~, так надо!)~~, пишите, объясню, помогу.

@alvk · 22.11.2019, 06:05

Сообщение от Ryhor

Уверен, что есть какие-то ошибки и неточности, но продавец, которая работает с программой только два раза сообщала об ошибках за пол года.

Связи таблиц спорные, база не нормализованна. Имена таблиц и полей - все с пробелами.

@Silur · 29.11.2019, 15:09

Давно я тут ничего не постил. Ну вот решил исправить упущение.

Вывод сообщений в области SysTray

Иногда бывает необходимо вывести сообщение, которое не останавливало бы работу программы. MsgBox для этого по определению не годится. Отдельную форму создавать не охота. Строка состояния Access для этого подходит не слишком. Информация слабо заметна и мало кто на неё обращает внимание, а желательно, чтобы её видели сразу. И вот на просторах интернета нашел программу, которая могла выводить сообщения в SysTray в виде всплывающего небольшого окошка. Ну и генерить код для вставки в программу. Вроде того, как есть приблуды для создания MsgBox. Разработана она была давно и по отзывам работала в Access 2000 -2007 под XP и под Win 7.

Ну у меня стоят Win 7 32/64 и соответственно Access 2010 32/64 (в разных разделах естественно) Под 32-х разрядами Access программа работала прекрасно, а вот под 64-х пришлось повозиться. Пол дня убил на прописывание API но зато теперь она может работать и в Access 2003 и 2010. И в 32-х битной версии и в 64-х.

Может кто-то заценит?

Кто автор - не знаю. А жаль.

@Silur · 16.01.2020, 21:50

Одна из задач, с которой часто сталкиваются программисты баз данных - это организовать рассылку электронных писем с нужным содержанием по адресам, находящимся в этой базе (в перспективе - полностью автоматизировать документооборот, связанный с этой задачей). Проще всего для этого использовать MS Outlook, так же входящий в комплект MS Office.
Для начала хочу представить программный модуль, помогающий организовать рассылку писем по электронным адресам, имеющимся в базе Access.

Программный модуль sd_DispathLetters, программа имеет формат Access 2000, писалась в Access 2003, дописывалась в Access 2010..

Программа работает в 32-х и 64-х разрядных офисах, снабжена контекстной справкой (CHM)
Модуль легко встраивается в другие программы.
Краткая инструкция находится вместе с модулем в архиве.

@Eugene-LS · 16.01.2020, 22:11

Сообщение от Silur

это организовать рассылку электронных писем с нужным содержанием по адресам, находящимся в этой базе

Это "спам" называется обычно ...

Новые блоги и статьи Все статьи Все блоги /
Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .	21 мат мед. Планы на развитие модели здравоСохранения anaschu 01.06.2026 AnyLogic: план развития симуляционной модели рабочего коллектива — динамический абсентеизм, реальные данные, три сценария сравнения Продолжаю серию постов о дискретно-событийной модели рабочего. . .	20. Мат мед. Абсентеизм как отдельный тип простоя anaschu 29.05.2026 Апдейт модели: исправленные баги, абсентеизм и новые механизмы Продолжаю развивать ранее описанную модель рабочего коллектива на AnyLogic. За последние несколько дней был проведён серьёзный. . .	19. здоровье, усталость и психотип работника влияют на производительность предприятия, и наоборот, производительность на здоровье, усталось и психотип anaschu 28.05.2026 Дискретно-событийная модель рабочего коллектива на AnyLogic: здоровье, выгорание, психотипы и микростимуляция Привет, коллеги. Хочу поделиться итогами нескольких недель работы над симуляционной. . .
"Прокси" для последовательного порта Eddy_Em 28.05.2026 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .	Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364

	Делимся наработками 03.11.2009, 11:04. Показов 485185. Ответов 282 Метки нет (Все метки) в этой теме предлагаю выкладывать интересные наработки по акцессу... зы. в дальнейшем на основе их можно будет создать темы "важное" Добавлено через 45 секунд ззы. флуд и спам в этой теме будет награжден красными карточками 17

@Silur 1370 / 290 / 16 Регистрация: 16.01.2014 Сообщений: 918
	04.11.2018, 22:49
	"Ничто на Земле не проходит бесследно..." Архивная версия сайта Новикова Сергея - MS Access 97 со всех сторон с примерами Да, Евгений, мы с Вами заочно знакомы. На Вашем сайте есть и мои примеры. Вот хотя бы Пример использования модуля класса для работы с внешними устройствами (побитная обработка данных) 1

@REALIST07
	22.11.2018, 22:08
	Не по теме: Зашел выразить свое почтение всем вам,Господа, пожалуй за долгое время моего пребывания на этом форуме - это лучший раздел, который я видел 0

@АЕ ᴁ © 4179 / 2464 / 513 Регистрация: 13.12.2016 Сообщений: 8,371 Записей в блоге: 5
	29.01.2019, 22:26
	чтобы было нагляднее - пару скриншотов моего использования Миниатюры 0

@АЕ ᴁ © 4179 / 2464 / 513 Регистрация: 13.12.2016 Сообщений: 8,371 Записей в блоге: 5
	31.01.2019, 07:52
	Для наглядности пример моего использования Миниатюры 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	15.03.2019, 01:36
	Silur, Спасибо за #107. Так мне кстати пример пришелся.))) 0

@Ryhor 8 / 7 / 1 Регистрация: 21.11.2019 Сообщений: 8
	21.11.2019, 21:35
	ещё один момент, где-то на просторах интернета нашёл справочник штрих-кодов. Он очень большой, поэтому запилил отдельным файлом, чтобы в случае ошибки, продавец могла по почте пересылать программу. Справочник используется, когда вводится новая карточка товара, если штрих-код в справочнике есть, то заполняются поля названия, категории и т.д. Если нет - то вводим всё вручную. В любом случае, этот справочник был ооочень большой, что поиск занимал пару минут. Я его ещё долго чистил, чтобы оставить нужные мне категории товаров. Поэтому, если вдруг кому понадобиться программа, не пугайтесь вылетающих ошибок~~, так надо!)~~, пишите, объясню, помогу. 0