📄 出院患者查询.frm
字号:
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Index = 14
Left = 165
TabIndex = 38
Top = 2088
Width = 1455
End
Begin VB.Label Label1
Caption = "身份证号"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Index = 10
Left = 165
TabIndex = 37
Top = 1164
Width = 1455
End
Begin VB.Label Label1
Caption = "民族"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Index = 8
Left = 6360
TabIndex = 36
Top = 702
Width = 975
End
Begin VB.Label Label1
Caption = "邮政编码"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Index = 13
Left = 5520
TabIndex = 35
Top = 1626
Width = 1455
End
Begin VB.Label Label1
Caption = "邮政编码"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Index = 15
Left = 5520
TabIndex = 34
Top = 2088
Width = 1455
End
Begin VB.Label Label1
Caption = "工作单位"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Index = 11
Left = 4050
TabIndex = 33
Top = 1170
Width = 1455
End
Begin VB.Label Label1
Caption = "籍贯"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Index = 32
Left = 2280
TabIndex = 32
Top = 702
Width = 855
End
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "出院患者查询.frx":0000
Height = 4755
Left = 120
OleObjectBlob = "出院患者查询.frx":0010
TabIndex = 53
Top = 810
Width = 9315
End
End
Attribute VB_Name = "frmLeaveHospitalQuery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub DisHz31()
Dim rs As Recordset
Dim r1 As Recordset
Set rs = db.OpenRecordset("SELECT * FROM ZY_CYHZ WHERE ZY_ZYID='" + Trim(txtZYH.Text) + "'")
If rs.EOF Then
rs.Close
' MsgBox "住院号输入错误！"
Data1.RecordSource = "SELECT MZFLOW AS 流水号,xmmx_table.XM_NAME AS 项目名称,SKRQ AS 收款日期,ZJE AS 项目收费,XM_DW AS 项目单位,sky_id as 操作员代码 FROM ZY_CYHZFYMX LEFT JOIN XMMX_TABLE ON ZY_CYHZFYMX.XMDM=XMMX_TABLE.XM_ID WHERE ZY_ID='" + Trim(txtZYH.Text) + "'"
Data1.Refresh
Exit Sub
End If
Text1(0).Text = rs!zy_name
If Not IsNull(rs!ZY_SEX) Then
Text1(1).Text = rs!ZY_SEX
End If
Text1(2).Text = CStr(rs!ZY_BIRTH)
Text1(3).Text = rs!ZY_AGE
Text1(4).Text = CStr(rs!ZY_MARRY)
Text1(5).Text = CStr(rs!ZY_ZY)
Text1(6).Text = CStr(rs!ZY_SHENG)
Text1(7).Text = CStr(rs!ZY_XIAN)
Text1(8).Text = CStr(rs!ZY_MZ)
Text1(9).Text = CStr(rs!ZY_GJ)
Text1(10).Text = CStr(rs!ZY_SFZH)
Text1(11).Text = rs!ZY_GZDW
Text1(12).Text = rs!ZY_DHHM
Text1(13).Text = rs!ZY_YZBM1
Text1(14).Text = rs!ZY_HKDZ
Text1(15).Text = rs!ZY_YZBM2
Text1(16).Text = rs!ZY_LXRNAME
Text1(17).Text = rs!ZY_GX
Text1(18).Text = rs!ZY_DZ
Text1(19).Text = rs!ZY_DH
If Trim(rs!ZY_RYKS) <> "" Then
Set r1 = db.OpenRecordset("SELECT * FROM KS_TABLE WHERE KS_ID='" + Trim(rs!ZY_RYKS) + "'")
If Not r1.EOF Then
Text3.Text = Trim(rs!ZY_RYKS) + "-" + r1!ks_name
End If
r1.Close
End If
If Not IsNull(rs!ZY_BS) Then
Text4.Text = rs!ZY_BS
End If
rs.Close
Cxzyh = Trim(txtZYH.Text)
Data1.RecordSource = "SELECT MZFLOW AS 流水号,zy_cyhzfymx.XM_NAME AS 项目名称,SKRQ AS 收款日期,ZJE AS 项目收费,xm_sl as 项目数量,XM_DW AS 项目单位,sky_id as 操作员代码 FROM ZY_CYHZFYMX LEFT JOIN XMMX_TABLE ON ZY_CYHZFYMX.XMDM=XMMX_TABLE.XM_ID WHERE ZY_ID='" + Trim(txtZYH.Text) + "' order by skrq"
Data1.Refresh
End Sub
Private Sub Command1_Click()
If Len(Trim(txtZYH.Text)) <> 8 Then
MsgBox "请输入正确的住院号！"
Exit Sub
End If
Cxzyh = txtZYH.Text
Me.Enabled = False
frmLeaveHospitalCollectQuery.Show
End Sub
Private Sub Command2_Click()
Dim maxD As Date
Dim M As Integer
Dim U1 As String
Dim U2 As String
Dim i As Integer
Dim minD As Date
Dim su As Currency
If Data1.RecordSource = "" Then
Exit Sub
End If
Data1.Refresh
If Data1.Recordset.EOF Then
MsgBox "无可打印数据"
Exit Sub
End If
Printer.Font = 17
Printer.CurrentX = 100
Printer.CurrentY = 10
If Data1.Recordset.Fields(0).Name = "流水号" Then
Printer.Print "患者: " + Text1(0).Text + " 费用清单"
M = 0
Else
Printer.Print "患者: " + Text1(0).Text + " 用药清单"
M = 1
End If
Printer.Print "──────────────────────────────────────────────────"
Printer.ScaleMode = 6
Printer.Font = "隶书"
Printer.FontSize = 10
U1 = U1 + Space(5)
For i = 0 To Data1.Recordset.Fields.Count - 1
U1 = U1 + Space(20 - DxLen(Data1.Recordset.Fields(i).Name)) + DxLeft(Data1.Recordset.Fields(i).Name, 20)
Next i
Printer.Print U1
su = 0
While Not Data1.Recordset.EOF
U2 = Space(5)
For i = 0 To Data1.Recordset.Fields.Count - 1
If Data1.Recordset.Fields(i).Name = "项目收费" Then
U2 = U2 + Space(20 - DxLen(CStr(Format(Data1.Recordset.Fields(i), "0.00")))) + DxLeft(CStr(Format(Data1.Recordset.Fields(i), "0.00")), 20)
Else
U2 = U2 + Space(20 - DxLen(CStr(Data1.Recordset.Fields(i)))) + DxLeft(CStr(Data1.Recordset.Fields(i)), 20)
End If
Next i
su = su + Data1.Recordset.Fields("项目收费")
Printer.Print U2
minD = Date + 1
If M = 0 Then
If Data1.Recordset!收款日期 > maxD Then
maxD = Data1.Recordset!收款日期
End If
If Data1.Recordset!收款日期 < minD Then
minD = Data1.Recordset!收款日期
End If
Else
If Data1.Recordset!划价日期 > maxD Then
maxD = Data1.Recordset!划价日期
End If
If Data1.Recordset!划价日期 < minD Then
minD = Data1.Recordset!划价日期
End If
End If
Data1.Recordset.MoveNext
Wend
Printer.Print "──────────────────────────────────────────────────"
Printer.FontSize = 15
Printer.Print Space(5) + "费用打印时间段：" + CStr(minD) + "----" + Left(CStr(maxD), 10) + " 合计金额：" + CStr(Format(su, "0.00"))
Printer.EndDoc
End Sub
Private Sub Command3_Click()
' Data1.RecordSource = "SELECT HJ_DATE AS 划价日期,HJ_ID AS 划价号,YP_NAME AS 药品名称,AMOUNT AS 数量,STANDARD AS 规格,UNIT AS 单位,HJ_MONEY AS 划价金额,TF_ID AS 统方号 FROM YJ3_HJ WHERE ZY_ID='" + Trim(txtZYH.Text) + "' AND JK_FLAG='1' " _
' & " UNION " & "SELECT HJ_DATE AS 划价日期,HJ_ID AS 划价号,YP_NAME AS 药品名称,AMOUNT AS 数量,STANDARD AS 规格,UNIT AS 单位,HJ_MONEY AS 划价金额,TF_ID AS 统方号 FROM YJ2_HJ WHERE ZY_ID='" + Trim(txtZYH.Text) + "'"
' Data1.Refresh
zzz = 31
Cxzyh = txtZYH
Me.Enabled = False
frmMedicineQuery.Show
frmMedicineQuery.Text1 = txtZYH
End Sub
Private Sub Command4_Click()
Frame1.Visible = Not Frame1.Visible
End Sub
Private Sub Command5_Click()
Unload Me
Form3.Enabled = True
Form3.SetFocus
End Sub
Private Sub Form_Load()
Data1.Connect = MyConnect
Data1.DatabaseName = MyDatabase
Me.Top = 0
Me.Left = 0
Me.Width = Screen.Width
Me.Height = Screen.Height
Dim t As Control
For Each t In frmLeaveHospitalQuery.Controls
If TypeOf t Is TextBox Then
t.Text = ""
End If
Next
End Sub
Private Sub txtZYH_Change()
Dim i As Integer
If Len(txtZYH.Text) = 8 Then
DisHz31
Exit Sub
End If
If Len(txtZYH.Text) = 1 Then
For i = 0 To 19
Text1(i).Text = ""
Next i
Text3.Text = ""
Text4.Text = ""
Cxzyh = ""
End If
End Sub
Private Sub txtZyh_GotFocus()
txtZYH.BackColor = vbWhite
Label2(0).ForeColor = vbRed
txtZYH.SelStart = 0
txtZYH.SelLength = Len(txtZYH.Text)
End Sub
Private Sub txtZyh_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 And txtZYH.Text <> "" Then
txtZYH.Text = Format(txtZYH, "00000000")
End If
End Sub
Private Sub txtZYH_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 222 Then
txtZYH.Text = ""
Exit Sub
End If
End Sub
Private Sub txtZYH_LostFocus()
txtZYH.BackColor = &HC0E0FF
Label2(0).ForeColor = &H8000&
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -