Медицинский проект (автоматизация экспорта истории болезни в word)

Форумы Помощь по пакетуМедицинский проект (автоматизация экспорта истории болезни в word) ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 2

Рейтинг: 0

#1: 2016-04-25 23:40:44 ЛС | профиль | цитата

Кто поможет реализовать небольшой проект? Если вкратце, то для начала отмечаешь галочкой то, что из заложенной в программе базе она создавала и вставляла в ворд документ со всей разметкой.
Например, запускаешь .exe, там диалоговое окно, где есть несколько кнопок, допустим жмешь определенную кнопку, а потом она экспортирует данные в вордовский файл.
Примерно вот такого типа диалоговое окно

1 этап разработки
1. сделать список осмотра по всем системам, чтобы ты мог галочкой отмечать норма или нет
2. если норма то он из базы осмотра этой системы делает мол все хорошо
т.е. берет стандартный осмотр здорового по этой системе человека
мол Дыхательная система - ставишь нормально все
3. он автоматом в ворд пишет и заполняет все оформление общерпинятое
мол шумов нет, жалоб нет, перкуссия нормально, границы нормально
тебе дают пациента с инфарктом миокарда, ты е*ешься с ИБ с начала пишешь все. Подставляешь и т.д.
а тут экспресс 5 галок в*ебал уже работы меньше на 40 минут, когда все оформленно

сори за мат

Жду кто откликнется, очень нужна помощь профессионалов

------------ Дoбавленo в 23.40:
Кстати, уже нашел похожий алгоритм, его чуть доработать и будет конфетка

http://forum.hiasm.net/forum.html?q=3&p=268083

карма: 0

Ответов: 5227

Рейтинг: 587

#2: 2016-04-26 14:02:50 ЛС | профиль | цитата

fergamontbridge, делать надо на основе шаблонов документов Word + vbs

------------ Дoбавленo в 14.02:
пример список сервисов -> Word

Add(MainForm,2953706,182,119)
{
}
Add(VBJScript,112309,252,168)
{
 WorkPoints=#6:doWork|
 Script=#54:Dim objWord, objDoc, objRange, objWMIService, colItems|0:|18:Sub doWork(dt,idx)|48:  Set objWord = CreateObject("Word.Application")|24:  objWord.Visible = True|38:  Set objDoc = objWord.Documents.Add()|0:|31:  Set objRange = objDoc.Range()|32:  objDoc.Tables.Add objRange,1,3|33:  Set objTable = objDoc.Tables(1)|0:|5:  x=1|0:|19:  strComputer = "."|23:  Set objWMIService = _|58:    GetObject("winmgmts:\\" & strComputer & "\root\cimv2")|71:  Set colItems = objWMIService.ExecQuery("Select * from Win32_Service")|0:|30:  For Each objItem in colItems|17:    If x > 1 Then|27:        objTable.Rows.Add()|10:    End If|46:    objTable.Cell(x, 1).Range.Font.Bold = True|49:    objTable.Cell(x, 1).Range.Text = objItem.Name|56:    objTable.Cell(x, 2).Range.text = objItem.DisplayName|50:    objTable.Cell(x, 3).Range.text = objItem.State|13:    x = x + 1|9:  Next   |9:End Sub  |
 UseName=0
}
Add(Button,2868974,182,168)
{
 Left=15
 Top=20
 link(onClick,112309:doWork,[])
}

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

Ответов: 2

Рейтинг: 0

#3: 2016-04-26 18:23:13 ЛС | профиль | цитата

andrestudio писал(а):

поможешь? есть скайп или вк?

карма: 0

Ответов: 5227

Рейтинг: 587

#4: 2016-04-27 08:38:45 ЛС | профиль | цитата

Вот для примера, format_word.zip по аналогии делай к своей форме

карма: 4

Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...

файлы: 1

format_word.zip [52.7KB] [422]

Форумы Помощь по пакетуМедицинский проект (автоматизация экспорта истории болезни в word) ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)