Общенародная БД - Вет. Клиника

@VinniPuh · Регистрация: 27.03.2013

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

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

БД в (mdb) 2000
С великим уважением ко всем желающим помочь!!!

@VinniPuh · 11.08.2013, 13:44 **[ТС]**

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

Имена с другими разрешенными символами должны заключаться в прямые скобки: [#ГлавноеМеню]

mobile - Спасибо, про скобочки то я, и совсем забыл

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

Вот оказывается что значит старость. Пенсию видимо не зря дают. Зы

Добавлено через 6 минут
Волшебник 307 - Раз вы уж тута на форуме, что скажете про кнопочки (про тел. не надо, пока не занимался ими)

, что не доработано со взгляда со стороны?
Как вы думаете, инструкция по пользованию БД будет нужна?

@VinniPuh · 15.08.2013, 10:54 **[ТС]**

Всем добрый день!
Вот у меня снова вскочил вопросик по ВБА, по котороиу я не шарю.
Уважаемый - mobile - в предыдущей версии сделал модуль с публичной переменной для - Организаций, все работает замечательно, вставил в куда надо, а как быть с другими значениями по умолчанию (Настройки в форме - #ГлавноеМеню), нужно создавать аналогичные модули или все в одном можно прописать?
Кидаю БД, если можно на реальном примерчике то хотя бы для Сотрудноков, АмбулаторногоПриема и Договоров
С уважением - Пух

@VinniPuh · 15.08.2013, 15:02 **[ТС]**

А так, ни кто и не подсказал

mobile · 15.08.2013, 15:43

kmv-puh, достаточно одного модуля. В области описаний модуля заводите еще одну переменную. Далее создаете новую функцию по образцу, с другим названием, конечно. В функции всего одно предложение

Visual Basic
1
2
3
4
5
Dim ДругаяПеременная
 
Public Function ФункцияДляДругойПеременной()
  ФункцияДляДругойПеременной=ДругаяПеременная
End Function

И этой функцией уже можно будет пользоваться при изменении глобальной переменной ДругаяПеременная

Названия переменной и функции, конечно, условные. Лучше давать осмысленные значения. И во избежание возможных ошибок, лучше названия функций и переменных писать латиницей

@VinniPuh · 15.08.2013, 19:42 **[ТС]**

mobile - Спасибо, щас попробую.

Добавлено через 23 минуты
mobile - Модуль расписан вот так -

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Option Compare Database
Option Explicit
 
Public PublicKodOrg
 
Public Function FuncKodOrg()
'Если определена публичная переменная PublicKodOrg, то функции присваивается ее значение.
'Если не определена, то находится максимальное значение счетчика (КодОрганизацииГМ) таблицы АмбулаторныйПрием
'и функции присваивается значение поля КодОрганизацииГМ, соответствующее максимуму КодОрганизацииГМ
    Dim s
    If Len(PublicKodOrg & "") = 0 Then
        s = "select КодОрганизацииГМ from ГлавноеМеню " _
        & " where КодОрганизацииГМ=(select max(КодОрганизацииГМ) from ГлавноеМеню)"
        PublicKodOrg = CurrentProject.Connection.Execute(s).Fields(0)
    End If
    FuncKodOrg = PublicKodOrg
Debug.Print FuncKodOrg
End Function

А куда вставлять -

PureBasic
1
2
3
4
5
Dim r
 
Public Function FuncKodSotr()
  FuncKodSotr=r
End Function

Как мне кажется последовательность разная и чего то не хватает и вообще я что то застопорился. дальше никак не
пойму.

Добавлено через 3 часа 25 минут

Всем все помогают, а мне никто.

mobile - Как хоть будет выглядеть код в модуле для 2-х полей - Организация и Сотрудник в форме - #ГлавноеМеню ?
Сам ни как не разберусь, что куда вставлять?

@Андрэич · 15.08.2013, 22:30

Сообщение от kmv-puh

...ветеринаров, как правильно называются их должности, есть ли у них уборщицы или мед. сестры / Мед. братья, Ренгелологи, УЗИологи?

Это отдельный справочник должностей, который можно сделать пополняемым (например, св-во поля с их списком Ограничится списком - Да, а на событии Отсутствие в списке - обрабатывать ситуацию, то есть, добавление должности)

Ещё вариант - прикрутить нормтивный (офиц утверждённый) Классификатор профессий и должностей рабочих и служащий (кажется, есть на сайте gnivc.ru)...

mobile · 16.08.2013, 09:27

kmv-puh, я задачу не осознал. В прошлый раз надо было, при изменении поля КодОрганизацииГМ в форме #ГлавноеМеню, задать значение по умолчанию полю КодОргАП в форме АмбулаторныйПрием. Мы сделали публичную переменную, меняющую значение при изменении КодОрганизацииГМ. И добавили функцию, которую можно использовать в форме для задания значения по умолчании. Вставили ее в DefultValue поля КодОргАП в форме АмбулаторныйПрием. Вы сами потом добавили аналогичные назначения и в других формах. А сейчас что требуется? Вы говорите про "Настройки в форме - #ГлавноеМеню", но в форме нет такого контрола. Уточните задачу.

@Волшебник 307 · 16.08.2013, 18:53

kmv-puh,
Молчание идёт.
Да ещё и медленным шагом.
Потому что не понятно.
----------------------------

Может ты хочешь сделать типа этого?

@VinniPuh · 16.08.2013, 21:34 **[ТС]**

mobile , Волшебник 307 - В примере - #Ветклиника-12 - mobile создал модуль. Я его изменил с - АмбулаторныйПрием на - #ГлавноеМеню. пример - #Ветклиника-15 - (познаний изменить немного хватило слава Богу), для того, что бы даже если форма - #ГлавноеМеню не активна, а закрыта, то при открытии любой другой формы в поле со списком - Организация, значение по умолчанию было = коду той организации, которая указана в таблице - ГлавноеМеню, в которой только одна запись (Типа настройки БД по умолчанию, другие записи в форме - #ГлавноеМеню добавить нельзя, только изменить).
Мне нужно, чтобы еще и поле со списком - Сотрудник в форме - #ГлавноеМеню было значением по умолчанию при открытии любой другой формы.
Как добавить в этот модуль - Сотрудника?
Это все, по аналогии я дальше сам наверное разберусь, просто с публичными модулями ни разу дело не имел.

Добавлено через 44 минуты
mobile - Возможно недопонимание возникло, из за того, что я не исправил Ваше пояснение в модуле -
8 'Если не определена, то находится максимальное значение счетчика (КодОрганизацииГМ) таблицы АмбулаторныйПрием
не изменил - в таблице АмбулаторныйПрием на - в таблице - ГлавноеМеню

mobile · 16.08.2013, 21:35

Пробуйте

@VinniPuh · 16.08.2013, 22:15 **[ТС]**

mobile - я конечно извиняюсь, А -
Dim s
в модуле может быть - s для всех и для - КодОрганизацииГМ и для КодСотрудникаГМ - или это опечатка?
Просто я немного недопонимаю

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Compare Database
Option Explicit
 
Public PublicKodOrg, PublicKodSotr
 
Public Function FuncKodOrg()
'Если определена публичная переменная PublicKodOrg, то функции присваивается ее значение.
'Если не определена, то находится максимальное значение счетчика (КодОрганизацииГМ) таблицы АмбулаторныйПрием
'и функции присваивается значение поля КодОрганизацииГМ, соответствующее максимуму КодОрганизацииГМ
    Dim s
    If Len(PublicKodOrg & "") = 0 Then
        s = "select КодОрганизацииГМ from ГлавноеМеню " _
        & " where КодОрганизацииГМ=(select max(КодОрганизацииГМ) from ГлавноеМеню)"
        PublicKodOrg = CurrentProject.Connection.Execute(s).Fields(0)
    End If
    FuncKodOrg = PublicKodOrg
'Debug.Print FuncKodOrg
End Function
 
Public Function FuncKodSotr()
'Если определена публичная переменная PublicKodSotr, то функции присваивается ее значение.
'Если не определена, то находится максимальное значение счетчика (КодСотрудникаГМ) таблицы АмбулаторныйПрием
'и функции присваивается значение поля КодСотрудникаГМ, соответствующее максимуму КодСотрудникаГМ
    Dim s
    If Len(PublicKodSotr & "") = 0 Then
        s = "select КодСотрудникаГМ from ГлавноеМеню " _
        & " where КодСотрудникаГМ=(select max(КодСотрудникаГМ) from ГлавноеМеню)"
        PublicKodSotr = CurrentProject.Connection.Execute(s).Fields(0)
    End If
    FuncKodSotr = PublicKodSotr
'Debug.Print FuncKodSotr
End Function

И переменную - s нужно изменить к примеру на - r ?

Добавлено через 25 минут
mobile - Огромное спасибо, думаю пойму принцип построения модуля., буду тренироваться и изучать!

mobile · 16.08.2013, 22:16

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

@VinniPuh · 16.08.2013, 22:23 **[ТС]**

mobile - Огромное спасибо, Вы меня на шаг породвитнули в освоении ВБА

@VinniPuh · 18.08.2013, 07:57 **[ТС]**

mobile - Все равно работает не так как надо.
Открываю БД, открываю форму - #ГлавноеМеню, меняю значения в полях со списком - Организация и - Сотрудник,
Открываю форму - АмбулаторныйПрием - Добавить новую запись, а в полях - Организация и - Сотрудник, значения по умолчанию = тем, что были при открытии БД, или только одно значение изменилось, а второе (В основном - Сотрудник) нет. Приходится закрывать БД и снова открывать.
Может нужно что то еще прописать, типа обновить всю БД или что то еще. Если обновляю обе формы это не помогает.

mobile · 18.08.2013, 08:31

Моя ошибка в форме #ГлавноеМеню.

Visual Basic
1
2
3
Private Sub КодСотрудникаГМ_AfterUpdate()
    PublicKodSotr = Me.КодСотрудникаГМ   'было Me.КодОрганизацииГМ
End Sub

@VinniPuh · 19.08.2013, 14:17 **[ТС]**

mobile - Преогромное спасибо

, сам я что то и не догадался туда глянуть.

Добавлено через 12 минут
А то уже хотел по старинке, даже начал делать - в значении по умолчанию = Выражение и форму - #ГлавноеМеню свертывать и отключать кнопку закрытия формы. УФФ.

Добавлено через 21 час 56 минут
Всем доброго дня/вечера!
Задумал я в форме - АмбулаторныйПрием создать 2 кнопочки для перехода только по вкладкам - вперед / назад.
Предполагаю, что нужно указывать индекс вкладки или ее имя, а как это сделать не знаю.
Хотя указывать имя вкладки наверное не подойдет для этой задачи, т. к. они могут добавляться / удаляться / изменяться.
Сам я с подобным ранее не сталкивался, макросиками сделать наверное не смогу, а ВБА практически не знаю.
Кто знает как, помогите.

mobile · 19.08.2013, 15:03

Получить индекс текущей вкладки можно с помощью свойства PageIndex.
Смотрите кнопки btnBack и btnForward на форме #ГлавноеМеню (кнопки со стрелками в заголовке формы) и процедуры клика на эти кнопки

mobile · 19.08.2013, 15:13

Добавлю. В форме АмбулаторныйПрием все точно также надо сделать. Но имя набора вкладок будет не НаборВкладок14, а НаборВкладок32

@VinniPuh · 19.08.2013, 15:21 **[ТС]**

mobile - Здорово, Вы ВА-АЩЕ Бесподобны. То что нужно.
Огромное спасибо.

Добавлено через 4 минуты

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

Добавлю. В форме АмбулаторныйПрием все точно также надо сделать. Но имя набора вкладок будет не НаборВкладок14, а НаборВкладок32

Да спасибо я понял! С этим то я разберусь.

@VinniPuh · 22.08.2013, 09:33 **[ТС]**

Всем добрый день!

Снова у меня вопросик по публичному модулю.
есть следующее:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Option Compare Database
Option Explicit
 
Public PublicKodOrg, PublicKodSotr, PublicRazd
 
Public Function FuncKodOrg()
'Если определена публичная переменная PublicKodOrg, то функции присваивается ее значение.
'Если не определена, то находится максимальное значение счетчика (КодОрганизацииГМ) таблицы ГлавноеМеню
'и функции присваивается значение поля КодОрганизацииГМ, соответствующее максимуму КодОрганизацииГМ
    Dim s
    If Len(PublicKodOrg & "") = 0 Then
        s = "select КодОрганизацииГМ from ГлавноеМеню " _
        & " where КодОрганизацииГМ=(select max(КодОрганизацииГМ) from ГлавноеМеню)"
        PublicKodOrg = CurrentProject.Connection.Execute(s).Fields(0)
    End If
    FuncKodOrg = PublicKodOrg
'Debug.Print FuncKodOrg
End Function
 
Public Function FuncKodSotr()
'Если определена публичная переменная PublicKodSotr, то функции присваивается ее значение.
'Если не определена, то находится максимальное значение счетчика (КодСотрудникаГМ) таблицы ГлавноеМеню
'и функции присваивается значение поля КодСотрудникаГМ, соответствующее максимуму КодСотрудникаГМ
    Dim s
    If Len(PublicKodSotr & "") = 0 Then
        s = "select КодСотрудникаГМ from ГлавноеМеню " _
        & " where КодСотрудникаГМ=(select max(КодСотрудникаГМ) from ГлавноеМеню)"
        PublicKodSotr = CurrentProject.Connection.Execute(s).Fields(0)
    End If
    FuncKodSotr = PublicKodSotr
'Debug.Print FuncKodSotr
End Function
 
Public Function FuncRazd()
'Если определена публичная переменная PublicRazd, то функции присваивается ее значение.
'Если не определена, то находится максимальное значение счетчика (РазделительГМ) таблицы ГлавноеМеню
'и функции присваивается значение поля РазделительГМ, соответствующее максимуму РазделительГМ
    Dim s
    If Len(PublicRazd & "ъ") = 0 Then
        s = "select РазделительГМ from ГлавноеМеню " _
        & " where РазделительГМ=(select max(РазделительГМ) from ГлавноеМеню)"
        PublicRazd = CurrentProject.Connection.Execute(s).Fields(0)
    End If
    FuncRazd = PublicRazd
'Debug.Print FuncRazd
End Function

Как сделать в - Public Function FuncRazd() - , что бы не проверялось на наличие пустого поля, т. к. именно оно у меня присутствует как одно из значений.
Обошел его указав, что вместо пустого значения твердый знак, но думаю это не правильно, как убрать это условие из этой функции не знаю.
Подскажите пожалуйста.

Новые блоги и статьи Все статьи Все блоги /
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .

@VinniPuh 9147 / 6179 / 594 Регистрация: 27.03.2013 Сообщений: 20,049
	15.08.2013, 15:02 [ТС]
	А так, ни кто и не подсказал 0

mobile 26828 / 14509 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	16.08.2013, 09:27
	kmv-puh, я задачу не осознал. В прошлый раз надо было, при изменении поля КодОрганизацииГМ в форме #ГлавноеМеню, задать значение по умолчанию полю КодОргАП в форме АмбулаторныйПрием. Мы сделали публичную переменную, меняющую значение при изменении КодОрганизацииГМ. И добавили функцию, которую можно использовать в форме для задания значения по умолчании. Вставили ее в DefultValue поля КодОргАП в форме АмбулаторныйПрием. Вы сами потом добавили аналогичные назначения и в других формах. А сейчас что требуется? Вы говорите про "Настройки в форме - #ГлавноеМеню", но в форме нет такого контрола. Уточните задачу. 1

@VinniPuh 9147 / 6179 / 594 Регистрация: 27.03.2013 Сообщений: 20,049
	16.08.2013, 21:34 [ТС]
	mobile , Волшебник 307 - В примере - #Ветклиника-12 - mobile создал модуль. Я его изменил с - АмбулаторныйПрием на - #ГлавноеМеню. пример - #Ветклиника-15 - (познаний изменить немного хватило слава Богу), для того, что бы даже если форма - #ГлавноеМеню не активна, а закрыта, то при открытии любой другой формы в поле со списком - Организация, значение по умолчанию было = коду той организации, которая указана в таблице - ГлавноеМеню, в которой только одна запись (Типа настройки БД по умолчанию, другие записи в форме - #ГлавноеМеню добавить нельзя, только изменить). Мне нужно, чтобы еще и поле со списком - Сотрудник в форме - #ГлавноеМеню было значением по умолчанию при открытии любой другой формы. Как добавить в этот модуль - Сотрудника? Это все, по аналогии я дальше сам наверное разберусь, просто с публичными модулями ни разу дело не имел. Добавлено через 44 минуты mobile - Возможно недопонимание возникло, из за того, что я не исправил Ваше пояснение в модуле - 8 'Если не определена, то находится максимальное значение счетчика (КодОрганизацииГМ) таблицы АмбулаторныйПрием не изменил - в таблице АмбулаторныйПрием на - в таблице - ГлавноеМеню 0

mobile 26828 / 14509 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	16.08.2013, 22:16
	Есть понятие - пределы видимости переменных. Переменная, объявленная в процедуре, видна только в этой процедуре, во всех остальных значение этой переменной не определено. Переменная, обявленная в области определения модуля формы, видна только в этом модуле, во всех его процедурах. Публичная переменная, объявленная в области определения модуля формы, видна во всех контролах этой формы. Публичная переменная, объявленная в области определения общего модуля, видна повсюду. Отсюда следует, что в любой процедуре могут переменные с одним и тем же названием, но ничего общего между собой не имеющие, если они объявлены внутри процедуры. Это так назывемые локальные переменные. В хелпе все это подробно расписано про область видимости переменных и функций. 2

@VinniPuh 9147 / 6179 / 594 Регистрация: 27.03.2013 Сообщений: 20,049
	16.08.2013, 22:23 [ТС]
	mobile - Огромное спасибо, Вы меня на шаг породвитнули в освоении ВБА 0

@VinniPuh 9147 / 6179 / 594 Регистрация: 27.03.2013 Сообщений: 20,049
	18.08.2013, 07:57 [ТС]
	mobile - Все равно работает не так как надо. Открываю БД, открываю форму - #ГлавноеМеню, меняю значения в полях со списком - Организация и - Сотрудник, Открываю форму - АмбулаторныйПрием - Добавить новую запись, а в полях - Организация и - Сотрудник, значения по умолчанию = тем, что были при открытии БД, или только одно значение изменилось, а второе (В основном - Сотрудник) нет. Приходится закрывать БД и снова открывать. Может нужно что то еще прописать, типа обновить всю БД или что то еще. Если обновляю обе формы это не помогает. 0

@VinniPuh 9147 / 6179 / 594 Регистрация: 27.03.2013 Сообщений: 20,049
	19.08.2013, 14:17 [ТС]
	mobile - Преогромное спасибо , сам я что то и не догадался туда глянуть. Добавлено через 12 минут А то уже хотел по старинке, даже начал делать - в значении по умолчанию = Выражение и форму - #ГлавноеМеню свертывать и отключать кнопку закрытия формы. УФФ. Добавлено через 21 час 56 минут Всем доброго дня/вечера! Задумал я в форме - АмбулаторныйПрием создать 2 кнопочки для перехода только по вкладкам - вперед / назад. Предполагаю, что нужно указывать индекс вкладки или ее имя, а как это сделать не знаю. Хотя указывать имя вкладки наверное не подойдет для этой задачи, т. к. они могут добавляться / удаляться / изменяться. Сам я с подобным ранее не сталкивался, макросиками сделать наверное не смогу, а ВБА практически не знаю. Кто знает как, помогите. 0

mobile 26828 / 14509 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	19.08.2013, 15:13
	Добавлю. В форме АмбулаторныйПрием все точно также надо сделать. Но имя набора вкладок будет не НаборВкладок14, а НаборВкладок32 1