'-----------------------------------
'床費

Dim v_ke11, v_zhaoxiang As String

v_ke11 = "床費"

Dim rk As New ADODB.Recordset
Dim sqlk As String
sqlk = "select * from [消耗表] where 科別='" & Trim(v_ke11) & "' and  操作員='" + Trim(v_denglu.v_name1) + "'"
rk.Open sqlk, db

If Not rk.EOF Then


Dim rk1 As New ADODB.Recordset
Dim sqlk1 As String
sqlk1 = "select sum(價格) as 床費 from [消耗表] where 科別='" & Trim(v_ke11) & "' and  操作員='" + Trim(v_denglu.v_name1) + "'"
rk1.Open sqlk1, db
v_chuangfei = rk1("床費")
Else
v_chuangfei = 0
End If




'-----------------------------------
'體檢費
Dim v_ke12, v_bc As String

v_ke12 = "體檢費"

Dim rm As New ADODB.Recordset
Dim sqlm As String
sqlm = "select * from [消耗表] where 科別='" & Trim(v_ke12) & "' and  操作員='" + Trim(v_denglu.v_name1) + "'"
rm.Open sqlm, db

If Not rm.EOF Then


Dim rm1 As New ADODB.Recordset
Dim sqlm1 As String
sqlm1 = "select sum(價格) as 體檢費 from [消耗表] where 科別='" & Trim(v_ke12) & "' and  操作員='" + Trim(v_denglu.v_name1) + "'"
rm1.Open sqlm1, db
v_tijianfei = rm1("體檢費")
Else
v_tijianfei = 0
End If

'MsgBox (v_bc)



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


'裝換大小寫
 Dim txtJE As Double
 txtJE = v_count.Caption
 
 
'Call Num2Chi(txtJE)
 
 Call strUCaseMoney(txtJE)
 
 
v_zt = "0"
Dim rs8 As New ADODB.Recordset
Dim sql8 As String
sql8 = "insert into 收費表 (編碼,姓名,性別,醫生,科別,日期,金額,西藥費,中成藥,中草藥,檢查費,電診費,化驗費,照透費,治療費,處置費,手術費,床費,體檢費,操作員,狀態,大寫金額) values ('" + Trim(v_car.Text) + "','" + Trim(v_name.Text) + "','" + Trim(v_sex.Text) + "','" + Trim(v_ys.Text) + "','" + Trim(v_bumen.Text) + "','" + Trim(v_sj.Value) + "','" + Trim(v_count.Caption) + "','" + Trim(v_xiyao) + "','" + Trim(v_zhongcheng) + "','" + Trim(v_zhongcao) + "','" + Trim(v_jianchafei) + "','" + Trim(v_dianzhenfei) + "','" + Trim(v_huayanfei) + "','" + Trim(v_zhaotoufei) + "','" + Trim(v_zhiliaofei) + "','" + Trim(v_chuzhifei) + "','" + Trim(v_shoushufei) + "','" + Trim(v_chuangfei) + "','" + Trim(v_tijianfei) + "','" + Trim(v_denglu.v_name1) + "','" + Trim(v_zt) + "','" + CStr(v_daxie.Caption) + "')"
rs8.Open sql8, db



'清空臨時表數據

Dim rs0 As New ADODB.Recordset
Dim sql0 As String
sql0 = "delete 臨時表 where 操作員='" + Trim(CStr(v_denglu.v_name1)) + "' "
rs0.Open sql0, db


'把消耗表里是化驗的數據寫入收費明細表


Dim rs001 As New ADODB.Recordset
Dim sql001 As String
sql001 = "select * from 消耗表 where 操作員='" + Trim(CStr(v_denglu.v_name1)) + "'"
rs001.Open sql001, db

bb001 = 0
Do While Not rs001.EOF


    If Trim(rs001("flag")) = 1 Then

        Dim sqlu As String
        Dim rsu As New ADODB.Recordset
        sqlu = "insert into 藥品銷售表 (卡號,藥品名稱,單價,數量,金額,操作員,日期) values ('" + Trim(rs001("卡號")) + "','" + Trim(rs001("項目")) + "','" + Trim(rs001("價格")) + "','" + Trim(rs001("數量")) + "','" + Trim(rs001("價格") * rs001("數量")) + "','" + CStr(v_denglu.v_name1) + "','" + CStr(v_sj.Value) + "')"
        rsu.Open sqlu, db
        Set rsu = Nothing
        
    End If
    
    
    
        Dim rs002 As New ADODB.Recordset
        Dim sql0002 As String
        v_bm = "0"
        sql002 = "insert into 收費明細表 (卡號,項目,價格,科別,醫生,時間,部門,數量,患者名稱,flag) values ('" + Trim(rs001("卡號")) + "','" + rs001("項目") + "','" + CStr(rs001("價格")) + "','" + rs001("科別") + "','" + v_ys.Text + "','" + CStr(Date) + "','" + CStr(v_bm) + "','" + CStr(rs001("數量")) + "','" + CStr(rs001("患者名稱")) + "','" + rs001("flag") + "')"
        rs002.Open sql002, db
        Set rs002 = Nothing
    

rs001.MoveNext
bb001 = bb001 + 1
Loop




'清空消耗表數據

Dim rs01 As New ADODB.Recordset
Dim sql01 As String
sql01 = "delete 消耗表 where 操作員='" + Trim(CStr(v_denglu.v_name1)) + "' "
rs01.Open sql01, db




'清空藥品臨時表







Dim rs0a As New ADODB.Recordset
Dim sql0a As String
sql0a = "delete 藥品臨時表 where 操作員='" + Trim(CStr(v_denglu.v_name1)) + "' "
rs0a.Open sql0a, db

'-----------------------------------------------
c = MsgBox("是否打印發票？", vbOKCancel, "系統提示")

If c = 1 Then

sk_hj04.Show
Unload Me

Else

b1 = MsgBox("提示，收款完畢！", vbQuestion, "系統提示！")
End If
Exit Sub


End If

End Sub

Private Sub Command5_Click()

b1 = MsgBox("是否清空數據？", vbOKCancel, "系統提示！")
If b1 = 1 Then

'清空藥品臨時表數據

'Dim rs1 As New ADODB.Recordset
'Dim sql1 As String
'sql1 = "delete 藥品臨時表 where 操作員='" + Trim(CStr(v_denglu.v_name1)) + "'"
'rs1.Open sql1, db



'清空臨時表數據

Dim rs0 As New ADODB.Recordset
Dim sql0 As String
sql0 = "delete 臨時表 where 操作員='" + Trim(CStr(v_denglu.v_name1)) + "'"
rs0.Open sql0, db

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

If Not rs.EOF Then
Set DataGrid1.DataSource = rs
End If


Adodc1.CommandType = adCmdText
Adodc1.ConnectionString = db
Adodc1.RecordSource = sql
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End If
End Sub

Private Sub Command6_Click()
Dim sql1 As String
If Option1.Value = True Then
sql1 = "select * from 兒保信息 where 姓名='" + Trim(s_ma.Text) + "'order by -id"
End If

If Option2.Value = True Then
sql1 = "select * from 兒保信息 where 母親姓名='" + Trim(s_ma.Text) + "'order by -id"
End If

If Option3.Value = True Then
sql1 = "select * from 兒保信息 where 編碼='" + Trim(s_ma.Text) + "'order by -id"
End If

Dim rs1 As New ADODB.Recordset
rs1.Open sql1, db
If Not rs1.EOF Then

v_bianma = Trim(rs1("編碼"))
v_name = Trim(rs1("姓名"))
v_sex = Trim(rs1("性別"))
v_mama = Trim(rs1("母親姓名"))
v_mama = Trim(rs1("母親姓名"))
v_xingbie = Trim(rs1("性別"))
v_hk = Trim(rs1("戶口"))
v_danwei = Trim(rs1("工作單位"))
v_souce = Trim(rs1("保健手冊"))
v_tel = Trim(rs1("聯系電話"))



Else
b1 = MsgBox("警告，沒有查到數據！", vbQuestion, "系統提示！")
v_name.Text = ""
s_ma.SetFocus

Exit Sub

End If
End Sub

Private Sub Command7_Click()
sk_danshou.Show
End Sub

Private Sub Command8_Click()
b1 = MsgBox("是否放棄？", vbOKCancel, "系統提示！")
If b1 = 1 Then


'清空藥品臨時表數據

Dim rs As New ADODB.Recordset
Dim sql As String
sql = "delete 藥品臨時表 where 操作員='" + Trim(CStr(v_denglu.v_name1)) + "'"
rs.Open sql, db



'清空臨時表數據

Dim rs0 As New ADODB.Recordset
Dim sql0 As String
sql0 = "delete 臨時表 where 操作員='" + Trim(CStr(v_denglu.v_name1)) + "'"
rs0.Open sql0, db

Unload Me
End If
End Sub

Private Sub Command9_Click()

If v_name.Text = "" Then
a = MsgBox("先輸入姓名才能生成編碼？", vbInformation, "系統提示！")
v_name.SetFocus

Else

Dim v_bianma1, v_name1, v_sex1, v_nian1, v_ys1, v_bumen1, v_hk1, v_sj1

v_bianma1 = Trim(v_bianma.Text)
v_name1 = Trim(v_name.Text)
v_sex1 = Trim(v_sex.Text)
v_sj1 = Trim(v_sj.Value)
v_hk1 = Trim(v_hk.Text)
v_bumen1 = Trim(v_bumen.Text)
v_ys1 = Trim(v_ys.Text)



'#####################################################生成編碼號


v_nian1 = "200419"


'獲得出始數，然后遞增1

Dim sql1 As String
sql1 = "select * from 兒保信息 where 戶口編碼='" + CStr(v_hkma) + "'order by -id"
Dim rs1 As New ADODB.Recordset
rs1.Open sql1, db
If Not rs1.EOF Then
v_chu = rs1("開始數")
v_chu = v_chu + 1
Else
v_chu = 1000
End If

v_bianma = Trim(v_nian1 & v_chu)
v_bianma.Text = v_bianma



Dim sql As String
sql = "insert into 兒保信息(編碼,開始數,姓名,出生日期,戶口,母親姓名,聯系電話,工作單位,保嘗,保健手冊,高危兒,醫生,性別,時間,年齡,戶口編碼) values ('" & v_bianma & "','" & v_chu & "','" & v_name1 & "','" & v_sj & "','" & v_hk & "','" & v_ma & "','" & v_tel & "','" & v_address & "','" & v_bc & "','" & v_sc & "','" & v_gw & "','" & v_ys & "','" & v_sex1 & "','" & CStr(Date) & "','" & v_old & "','" & v_hkma & "')"
Dim rs As New ADODB.Recordset
rs.Open sql, db

v_hk.Text = "其它"
MsgBox ("自動生成編碼為：" + v_bianma)
End If
End Sub

Private Sub Form_Load()
v_sj.Value = Date

'獲的醫生姓名


Dim v_bumen As String
v_bumen = "兒保"
v_bumen1 = "婦保"

Dim rs48 As New ADODB.Recordset
Dim sql48 As String

sql48 = "select distinct(姓名) from 人名 where 部門='" + Trim(v_bumen) + "' or 部門='" + Trim(v_bumen1) + "'"
rs48.Open sql48, db

While Not rs48.EOF
v_ys.AddItem IIf(IsNull(rs48!姓名), "", rs48!姓名)
rs48.MoveNext
Wend


End Sub

Private Sub Timer1_Timer()

Dim sql As String
sql = "select 項目名稱,價格  from 臨時表 where 操作員='" + Trim(CStr(v_denglu.v_name1)) + "'"
Dim rs As New ADODB.Recordset
rs.Open sql, db

If Not rs.EOF Then
Set DataGrid1.DataSource = rs
End If


Adodc1.CommandType = adCmdText
Adodc1.ConnectionString = db
Adodc1.RecordSource = sql
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh


'獲得金額

Dim rs1 As New ADODB.Recordset
Dim sql1 As String
sql1 = "select sum(價格) as 金額 from 臨時表 where 操作員='" + Trim(CStr(v_denglu.v_name1)) + "'"
rs1.Open sql1, db
If Not rs.EOF Then
v_count = rs1("金額")
Else
v_count = 0
End If

v_count.Caption = v_count

End Sub

Private Sub v_ys_Click()

Dim sql1 As String
sql1 = "select distinct(部門) from 人名 where 姓名='" & Trim(v_ys.Text) & "' "
Dim rs1 As New ADODB.Recordset
rs1.Open sql1, db
If Not rs1.EOF Then

v_bumen = rs1("部門")

Else

v_bumen = "無"

End If
End Sub