sk_hj03.frm

小型医院管理

v_name.Text = rs("姓名")
Else
b1 = MsgBox("警告，此卡号不存在！", vbQuestion, "系统提示！")

End If


End Sub

Private Sub Command2_Click()
v_session_id1 = v_bianma.Text
sk_fu_yao1.Show
End Sub

Private Sub Command3_Click()
sk_jyjia.Show
End Sub

Private Sub Command4_Click()

On Error Resume Next



b1 = MsgBox("您确实继续吗？", vbOKCancel, "系统提示！")
If b1 = 1 Then


If v_name.Text = "" Then
b1 = MsgBox("警告，姓名不能为空值！", vbQuestion, "系统提示！")
v_name.SetFocus
Exit Sub
End If



If v_count = 0 Then
b1 = MsgBox("警告，合计金额为0，不能进行打印！", vbQuestion, "系统提示！")
Exit Sub
End If


'分钱处理#######################################################

Dim rs As New ADODB.Recordset
Dim sql As String
sql = "select * from 临时表 where 操作员='" + Trim(CStr(v_denglu.v_name1)) + "'"
rs.Open sql, db

'---------------------------------循环开始


bb = 0
Do While Not rs.EOF




v_xmname = rs("项目名称")
v_jiage = rs("价格")
v_flag = rs("状态")
v_shuliang = rs("数量")



'没有记录和小项比较

Dim rs3 As New ADODB.Recordset
Dim sql3 As String
sql3 = "select * from 单收费明细 where 项目='" + Trim(v_xmname) + "'"
rs3.Open sql3, db

If Not rs3.EOF Then
v_kb3 = rs3("科别") '

Else


Dim rs36 As New ADODB.Recordset
Dim sql36 As String
sql36 = "select 类别 from 药品简码 where 药品名称='" + Trim(v_xmname) + "'"
rs36.Open sql36, db

If Not rs36.EOF Then
v_kb3 = rs36("类别")
Else
v_kb3 = "无"
End If


Set rs36 = Nothing


End If



Set rs3 = Nothing

Dim rs31 As New ADODB.Recordset
Dim sql31 As String
sql31 = "insert into 消耗表(卡号,项目,科别,价格,操作员,数量,患者名称,flag) values ('" + Trim(v_car.Text) + "','" + Trim(v_xmname) + "','" + Trim(v_kb3) + "','" + Trim(v_jiage) + "','" + Trim(v_denglu.v_name1) + "','" + CStr(v_shuliang) + "','" + CStr(v_name.Text) + "','" + CStr(v_flag) + "')"
rs31.Open sql31, db

Set rs31 = Nothing



rs.MoveNext
bb = bb + 1
Loop




'分钱处理######################################################


'插入数据

'-----------------获得合计数据


'药费

Dim v_ke01, v_yaofei As String

v_ke01 = "西药"

Dim ra As New ADODB.Recordset
Dim sqla As String
sqla = "select * from [消耗表] where 科别='" & Trim(v_ke01) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
ra.Open sqla, db

If Not ra.EOF Then


Dim ra1 As New ADODB.Recordset
Dim sqla1 As String
sqla1 = "select sum(价格) as 西药费 from [消耗表] where 科别='" & Trim(v_ke01) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
ra1.Open sqla1, db

v_xiyao = ra1("西药费")

Else
v_xiyao = 0
End If



'-----------------------------

'中成药

Dim v_ke02, v_chusheng As String

v_ke02 = "中成药"

Dim rb As New ADODB.Recordset
Dim sqlb As String
sqlb = "select * from [消耗表] where 科别='" & Trim(v_ke02) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rb.Open sqlb, db

If Not rb.EOF Then


Dim rb1 As New ADODB.Recordset
Dim sqlb1 As String
sqlb1 = "select sum(价格) as 中成药 from [消耗表] where 科别='" & Trim(v_ke02) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rb1.Open sqlb1, db

v_zhongcheng = rb1("中成药")

Else
v_zhongcheng = 0
End If

'MsgBox (v_chusheng)

'----------------------------------------------------

'中草药

Dim v_ke03, v_funian As String

v_ke03 = "中草药"

Dim rc As New ADODB.Recordset
Dim sqlc As String
sqlc = "select * from [消耗表] where 科别='" & Trim(v_ke03) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rc.Open sqlc, db

If Not rc.EOF Then


Dim rc1 As New ADODB.Recordset
Dim sqlc1 As String
sqlc1 = "select sum(价格) as 中草药 from [消耗表] where 科别='" & Trim(v_ke03) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rc1.Open sqlc1, db

v_zhongcao = rc1("中草药")

Else
v_zhongcao = 0
End If

'MsgBox (v_fujian)


'------------------------------------

'检查费

Dim v_ke04, v_fuke As String

v_ke04 = "检查费"

Dim rd As New ADODB.Recordset
Dim sqld As String
sqld = "select * from [消耗表] where 科别='" & Trim(v_ke04) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rd.Open sqld, db

If Not rd.EOF Then


Dim rd1 As New ADODB.Recordset
Dim sqld1 As String
sqld1 = "select sum(价格) as 检查费 from [消耗表] where 科别='" & Trim(v_ke04) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rd1.Open sqld1, db

v_jianchafei = rd1("检查费")

Else
v_jianchafei = 0
End If

'MsgBox (v_fuke)


'------------------------------

'电诊费

Dim v_ke05, v_chuzhi As String

v_ke05 = "电诊费"

Dim re As New ADODB.Recordset
Dim sqle As String
sqle = "select * from [消耗表] where 科别='" & Trim(v_ke05) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
re.Open sqle, db

If Not re.EOF Then


Dim re1 As New ADODB.Recordset
Dim sqle1 As String
sqle1 = "select sum(价格) as 电诊费 from [消耗表] where 科别='" & Trim(v_ke05) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
re1.Open sqle1, db

v_dianzhenfei = re1("电诊费")

Else
v_dianzhenfei = 0
End If

'MsgBox (v_chuzhi)


'------------------------------------------------------

'化验费

Dim v_ke06, v_fangshi As String

v_ke06 = "化验费"

Dim rf As New ADODB.Recordset
Dim sqlf As String
sqlf = "select * from [消耗表] where 科别='" & Trim(v_ke06) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rf.Open sqlf, db

If Not rf.EOF Then


Dim rf1 As New ADODB.Recordset
Dim sqlf1 As String
sqlf1 = "select sum(价格) as 化验费 from [消耗表] where 科别='" & Trim(v_ke06) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rf1.Open sqlf1, db

v_huayanfei = rf1("化验费")

Else
v_huayanfei = 0
End If

'MsgBox (v_fangshi)


'------------------------------------------------------

'照透费

Dim v_ke07, v_erjian As String

v_ke07 = "照透费"

Dim rg As New ADODB.Recordset
Dim sqlg As String
sqlg = "select * from [消耗表] where 科别='" & Trim(v_ke07) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rg.Open sqlg, db

If Not rg.EOF Then


Dim rg1 As New ADODB.Recordset
Dim sqlg1 As String
sqlg1 = "select sum(价格) as 照透费 from [消耗表] where 科别='" & Trim(v_ke07) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rg1.Open sqlg1, db
v_zhaotoufei = rg1("照透费")
Else
v_zhaotoufei = 0
End If

'MsgBox (v_erjian)


'------------------------------------------------------
'治疗费

Dim v_ke08 As String

v_ke08 = "治疗费"

Dim rh As New ADODB.Recordset
Dim sqlh As String
sqlh = "select * from [消耗表] where 科别='" & Trim(v_ke08) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rh.Open sqlh, db

If Not rh.EOF Then


Dim rh1 As New ADODB.Recordset
Dim sqlh1 As String
sqlh1 = "select sum(价格) as 治疗费 from [消耗表] where 科别='" & Trim(v_ke08) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rh1.Open sqlh1, db
v_zhiliaofei = rh1("治疗费")
Else
v_zhiliaofei = 0
End If


'----------------------
'处置费

Dim v_ke09, v_jianchan As String

v_ke09 = "处置费"

Dim ri As New ADODB.Recordset
Dim sqli As String
sqli = "select * from [消耗表] where 科别='" & Trim(v_ke09) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
ri.Open sqli, db

If Not ri.EOF Then


Dim ri1 As New ADODB.Recordset
Dim sqli1 As String
sqli1 = "select sum(价格) as 处置费 from [消耗表] where 科别='" & Trim(v_ke09) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
ri1.Open sqli1, db
v_chuzhifei = ri1("处置费")
Else
v_chuzhifei = 0
End If




'-----------------------------------


'手术费

Dim v_ke10, v_shoushu As String

v_ke10 = "手术费"

Dim rj As New ADODB.Recordset
Dim sqlj As String
sqlj = "select * from [消耗表] where 科别='" & Trim(v_ke10) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rj.Open sqlj, db

If Not rj.EOF Then


Dim rj1 As New ADODB.Recordset
Dim sqlj1 As String
sqlj1 = "select sum(价格) as 手术费 from [消耗表] where 科别='" & Trim(v_ke10) & "' and  操作员='" + Trim(v_denglu.v_name1) + "'"
rj1.Open sqlj1, db
v_shoushufei = rj1("手术费")
Else
v_shoushufei = 0
End If