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

@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() - , что бы не проверялось на наличие пустого поля, т. к. именно оно у меня присутствует как одно из значений.
Обошел его указав, что вместо пустого значения твердый знак, но думаю это не правильно, как убрать это условие из этой функции не знаю.
Подскажите пожалуйста.

Новые блоги и статьи Все статьи Все блоги /
[golang] Pipeline alhaos 08.06.2026 Pipeline Pipeline — паттерн конкурентной обработки данных в Go. Суть: данные проходят через цепочку независимых стадий, каждая из которых работает в своей горутине и общается с соседями через. . .	Свет внутри себя kumehtar 07.06.2026 Пусть это будет здесь lIs4oanZS9Y	Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 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 Эту штуку написал я достаточно давно. Но сейчас вот понадобилось настроить датчик грозы, но при этом не отключать его от "метеодемона". Соответственно, надо запустить этот "прокси": метеодемон будет. . .

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

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

@VinniPuh 9147 / 6176 / 594 Регистрация: 27.03.2013 Сообщений: 20,046
	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