导航:首页 > 编程语言 > 医院信息管理系统源代码

医院信息管理系统源代码

发布时间:2024-06-16 02:57:58

❶ 别人用excel表格做的管理系统怎么查看此管理系统的源码

  1. 新建excel文件,alt+F11进入VBA编辑器,插入模块,输入以下代码

Sub MoveProtect()


Dim FileName As String

FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解")

If FileName = CStr(False) Then

Exit Sub

Else

VBAPassword FileName, False ' 引用下面的自定义函数

End If

End Sub


Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)

If Dir(FileName) = "" Then

Exit Function

Else

FileCopy FileName, FileName & ".bak"

End If


Dim GetData As String * 5

Open FileName For Binary As #1

Dim CMGs As Long

Dim DPBo As Long

For i = 1 To LOF(1)

Get #1, i, GetData

If GetData = "CMG=""" Then CMGs = i

If GetData = "[Host" Then DPBo = i - 2: Exit For

Next

If CMGs = 0 Then

MsgBox "请先对VBA编码设置一个保护密码...", 32, "提示"

Exit Function

End If

If Protect = False Then

Dim St As String * 2

Dim s20 As String * 1 '取得一个0D0A十六进制字串

Get #1, CMGs - 2, St '取得一个20十六制字串

Get #1, DPBo + 16, s20 '替换加密部份机码

For i = CMGs To DPBo Step 2

Put #1, i, St

Next '加入不配对符号

If (DPBo - CMGs) Mod 2 <> 0 Then

Put #1, DPBo + 1, s20

End If

MsgBox "文件解密成功......", 32, "提示"

Else

Dim MMs As String * 5

MMs = "DPB="""

Put #1, CMGs, MMs

MsgBox "对文件特殊加密成功......", 32, "提示"

End If

Close #1

End Function

2. 运行上面的代码,选择你的文件,移除密码成功后打开文件,按alt+F11查看源码:

❷ HL7的基本信息

HL7 卫生信息交换标准(Health Level 7)标准化的卫生信息传输协议,是医疗领域不同应用专之间电子传输的属协议。HL7汇集了不同厂商用来设计应用软件之间接口的标准格式,它将允许各个医疗机构在异构系统之间,进行数据交互。

HL7的主要应用领域是HIS/RIS,主要是规范HIS/RIS系统及其设备之间的通信,HL7的宗旨是开发和研制医院数据信息传输协议和标准,规范临床医学和管理信息格式,降低医院信息系统互连的成本,提高医院信息系统之间数据信息共享的程度。

(2)医院信息管理系统源代码扩展阅读:

HL7(Health Level Severn,)组织是一家非盈利性质的国际性组织,主要从事卫生保健环境临床和管理电子数据交换的标准开发。

HL7组织参考了国际标准组织ISO(International Standards Organization),采用开放式系统互联OSI (Open System Interconnection)的通信模式,将HL7纳为最高的一层,也就是应用层。

阅读全文

与医院信息管理系统源代码相关的资料

热点内容
魅族mx3提示网络可能会受到监控 浏览:308
如何判断复制文件是否完整 浏览:803
qq接收的语音文件在 浏览:408
手机qq禁止查看动态 浏览:923
如何用编程求解二重积分 浏览:366
在桌面上搜索不到文件夹 浏览:723
中外文专利网站有哪些 浏览:682
尖刀车端面槽怎么编程 浏览:70
电脑重装会把所有文件都删掉吗 浏览:982
java匿名内部类构造函数 浏览:573
如何ftp文件到linux 浏览:894
win10文件夹的图片自动排列 浏览:155
安卓电脑文件管理器 浏览:512
联想手机k860刷机教程 浏览:356
oa删除已发文件 浏览:397
win7asp配置文件 浏览:362
java网页能做心跳机制 浏览:817
逆战文件应用在哪里 浏览:102
红头文件订书红线在哪里 浏览:851
excel怎么做文件头 浏览:703

友情链接