📄 ihms_existingpatient.frm
字号:
Left = 240
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 12
Top = 1200
Width = 3015
End
Begin VB.TextBox txtSName
BackColor = &H80000016&
DataField = "Surname"
DataSource = "datPerInfo"
Height = 285
Left = 1560
TabIndex = 4
Top = 240
Width = 1695
End
Begin VB.TextBox txtFName
BackColor = &H80000016&
DataField = "First_Name"
DataSource = "datPerInfo"
Height = 285
Left = 4560
TabIndex = 6
Top = 240
Width = 1695
End
Begin VB.TextBox txtDOB
BackColor = &H80000016&
DataField = "Date_of_Birth"
DataSource = "datPerInfo"
Height = 285
Left = 1560
TabIndex = 8
ToolTipText = "DD/MM/YYYY"
Top = 600
Width = 1695
End
Begin VB.TextBox txtOccupation
BackColor = &H80000016&
DataSource = "datPerInfo"
Height = 285
Left = 4560
TabIndex = 16
Top = 1320
Width = 1695
End
Begin VB.Label Label19
Alignment = 1 'Right Justify
Caption = "省份:"
Height = 255
Left = 3360
TabIndex = 13
Top = 960
Width = 1095
End
Begin VB.Label lblHomeAdd
Caption = "地址:"
Height = 255
Left = 240
TabIndex = 11
Top = 960
Width = 1335
End
Begin VB.Label lblSName
Alignment = 1 'Right Justify
Caption = "病人姓:"
Height = 255
Left = 120
TabIndex = 3
Top = 240
Width = 1335
End
Begin VB.Label lblFName
Alignment = 1 'Right Justify
Caption = "病人名称:"
Height = 255
Left = 3360
TabIndex = 5
Top = 240
Width = 1095
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
Caption = "出生年月:"
Height = 255
Left = 360
TabIndex = 7
ToolTipText = "DD/MM/YYYY"
Top = 600
Width = 1095
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
Caption = "性别:"
Height = 255
Left = 4080
TabIndex = 9
Top = 600
Width = 375
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
Caption = "职业:"
Height = 255
Left = 3360
TabIndex = 15
Top = 1320
Width = 1095
End
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "PS: You need to ADMIT a patient before he/she can be DIAGNOSED."
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 195
Left = 2475
TabIndex = 31
Top = 4560
Width = 5985
End
Begin VB.Label lblHeading
Alignment = 2 'Center
Caption = "病例号#"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 495
Left = 3000
TabIndex = 30
Top = 120
Width = 5175
End
Begin VB.Label lblHospNo
Caption = "挂号编号(&H):"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 0
Top = 720
Width = 1575
End
End
Attribute VB_Name = "frmOldPatient"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
' ：） 人人为我，我为人人 ：）
'枕善居汉化收藏整理
'发布日期：06/02/21
'描 述：智能医院管理系统 Version 1.0
'网 站：http://www.mndsoft.com/
'e-mail ：mnd@mndsoft.com
'OICQ ：88382850
'****************************************************************************
Option Explicit
Private Sub cmdAdmit_Click()
frmAdmitExisting.Show 1
End Sub
Private Sub cmdCloseFile_Click()
If MsgBox("Unload and close patient file?", vbYesNo + vbQuestion) = vbYes Then Unload Me
End Sub
Private Sub cmdDiagnose_Click()
frmDiagnosis.Show 1
End Sub
Private Sub cmdDischarge_Click()
frmDischarge.Show 1
End Sub
Private Sub cmdViewContact_Click()
MsgBox "This function is still under development.", vbInformation
End Sub
Private Sub Form_Activate()
If somePatient.AdmissionStatus = "IN" Then
frmMain.tbrMainToolbar.Buttons(5).Enabled = True 'diagnose toolbar button
Else
frmMain.tbrMainToolbar.Buttons(5).Enabled = False 'diagnose toolbar button
End If
frmMain.tbrMainToolbar.Buttons(4).Enabled = True 'admit/discharge button
End Sub
Private Sub Form_Deactivate()
frmMain.tbrMainToolbar.Buttons(4).Enabled = False 'admit/discharge button
frmMain.tbrMainToolbar.Buttons(5).Enabled = False 'diagnose button
End Sub
Private Sub Form_Load()
'PERSONAL INFO
txtHospNo = somePatient.HospNo
txtSName = somePatient.SName
txtFName = somePatient.FName
'txtDOB = somePatient.DoB
txtSex = somePatient.Sex
txtHomeAdd = somePatient.HomeAdd
txtStateOfOrigin = somePatient.StateOfOrigin
txtOccupation = somePatient.Occupation
'LAB INFO
txtLabRefNo = somePatient.LabRefNo
txtBloodGroup = somePatient.BloodGrp
txtRHFactor = somePatient.RHFactor
txtAllergy = somePatient.Allergy
lblHeading.Caption = lblHeading.Caption + Str(somePatient.HospNo)
If somePatient.AdmissionStatus = "IN" Then
'Patient is currently admitted. therefore, the admit command is
'not available, but the discharge command is.
cmdDischarge.Enabled = True
cmdDiagnose.Enabled = True
frmMain.tbrMainToolbar.Buttons(5).Enabled = True 'diagnose toolbar button
Else
'Patient is currently NOT admitted. therefore, the admit command is
'available, but the discharge command is not.
'This part is also executed if no existing hospital history record is found for the patient
'i.e when somePatient.AdmissionStatus = ""
cmdAdmit.Enabled = True
cmdDiagnose.Enabled = False
frmMain.tbrMainToolbar.Buttons(5).Enabled = False 'diagnose toolbar button
End If
frmMain.tbrMainToolbar.Buttons(4).Enabled = True 'admit/discharge button
End Sub
Private Sub Form_Unload(Cancel As Integer)
frmMain.mnuClose.Enabled = False
frmMain.tbrMainToolbar.Buttons(4).Enabled = False 'admit/discharge button
frmMain.tbrMainToolbar.Buttons(5).Enabled = False 'diagnose button
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -