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