?? global.bas

?? 一個醫院系統的VB源碼
?? BAS
?? 第 1 頁 / 共 2 頁
字號:
上一頁 12
              End If
           End If
       Loop
    End If
End If

End Sub
'打印月報表
Public Sub printybb()

'**********按醫生人數進行醫藥費的匯總***************
Call check_condatabase

Dim rs_month_temp As ADODB.Recordset
Dim rs_month As ADODB.Recordset
Set rs_month_temp = New ADODB.Recordset
Set rs_month = New ADODB.Recordset
rs_month.open "select * from " & Mtable_name & "", cn, adOpenStatic, adLockPessimistic
rs_month_temp.open "select * from YF_month_temp", cn, adOpenStatic, adLockPessimistic

If rs_month_temp.BOF <> True And rs_month_temp.EOF <> True Then
   Do Until rs_month_temp.EOF
            rs_month_temp.Delete
            rs_month_temp.MoveNext
   Loop
End If

Do Until rs_month.EOF
         rs_month_temp.AddNew
         For i = 0 To 7
             rs_month_temp.Fields(i).Value = rs_month.Fields(i).Value
         Next
             rs_month.MoveNext
             rs_month_temp.Update
Loop


Dim rsdatareport As ADODB.Recordset
Set rsdatareport = New ADODB.Recordset
    rsdatareport.open "SELECT doctor.id,doctor.DOCTOR_NAME AS 醫生, COUNT(YF_month_temp.醫生) AS 處方量," & _
                      "SUM(YF_month_temp.醫藥費) AS 醫藥費, " & _
                      "SUM(YF_month_temp.自負金) As 自負金 " & _
                      "From doctor, YF_month_temp " & _
                      "Where doctor.Id = YF_month_temp.醫生 " & _
                      "GROUP BY doctor.DOCTOR_NAME,doctor.id ", cn, adOpenStatic, adLockPessimistic


'****************************************************************
'以上為從YF_month_temp表中獲取統計和獲取數據
If rsdatareport.BOF <> True And rsdatareport.EOF <> True Then
    '復制數據到DATAREPORT表中
    Set rstemp = New ADODB.Recordset
        rstemp.open "select * from datareport", cn, adOpenStatic, adLockPessimistic
    If rstemp.BOF <> True And rstemp.EOF <> True Then
       Do Until rstemp.EOF
          rstemp.Delete
          rstemp.MoveNext
       Loop
    End If
    If rstemp.State = 1 Then rstemp.close
    rstemp.open "select * from datareport", cn, adOpenStatic, adLockPessimistic

    '設置中間記錄，當復制時刪除原來的記錄，再打開該表
    Do Until rsdatareport.EOF
       rstemp.AddNew
       For i = 0 To 4
           If i = 4 Then
              rstemp.Fields(i + 1).Value = rsdatareport.Fields(i).Value
              rstemp.Fields(i).Value = rsdatareport.Fields(3) / rsdatareport.Fields(2)
           Else
               rstemp.Fields(i).Value = rsdatareport.Fields(i).Value
           End If
       Next i
       rstemp.Update
       rsdatareport.MoveNext
    Loop
    '使數據能夠按照醫生的實際人數進行匯總（有可能某醫生當天未參加門診）
    Set rsdoctor = New ADODB.Recordset
    If rsdoctor.State = 0 Then rsdoctor.open "select * from doctor", cn, adOpenStatic, adLockPessimistic
    '如果的確有醫生未參加該天的門診，則進行數據的人工輔助匯總
    If rsdatareport.recordcount <> rsdoctor.recordcount Then
       rstemp.close
       rstemp.open "select * from datareport", cn, adOpenStatic, adLockPessimistic
       Do Until rsdoctor.EOF
           If rstemp.EOF Then
              Do Until rsdoctor.EOF
                 rstemp.AddNew
                 rstemp.Fields(0).Value = rsdoctor.Fields("id").Value
                 rstemp.Fields(1).Value = rsdoctor.Fields("doctor_name").Value
                 For i = 2 To 5
                     rstemp.Fields(i).Value = 0
                 Next i
                 rstemp.Update
                 rsdoctor.MoveNext
              Loop
           Else
              If rsdoctor.Fields("id").Value <> rstemp.Fields("id").Value Then
                 rstemp.AddNew
                 rstemp.Fields(0).Value = rsdoctor.Fields("id").Value
                 rstemp.Fields(1).Value = rsdoctor.Fields("doctor_name").Value
                 For i = 2 To 5
                     rstemp.Fields(i).Value = 0
                 Next i
                 With rstemp
                      .Update
                      .close
                      .open "select * from datareport", cn, adOpenStatic, adLockPessimistic
                 End With
                 rsdoctor.MoveFirst
              Else
                 rstemp.MoveNext
                 rsdoctor.MoveNext
              End If
           End If
       Loop
    End If
End If
End Sub
'打印月報表
Public Sub printybb_query()
Dim table_name As String
table_name = frmquerybook.Combo2.Text
If table_name < 10 Then
   table_name = "YF0" & table_name
Else
   table_name = "YF" & table_name
End If
'**********按醫生人數進行醫藥費的匯總***************
Call check_condatabase

Dim rs_month_temp As ADODB.Recordset
Dim rs_month As ADODB.Recordset
Set rs_month_temp = New ADODB.Recordset
Set rs_month = New ADODB.Recordset
rs_month.open "select * from " & table_name & "", cn, adOpenStatic, adLockPessimistic
rs_month_temp.open "select * from YF_month_temp", cn, adOpenStatic, adLockPessimistic
If rs_month_temp.BOF <> True And rs_month_temp.EOF <> True Then
   Do Until rs_month_temp.EOF
            rs_month_temp.Delete
            rs_month_temp.MoveNext
   Loop
End If
Do Until rs_month.EOF
         rs_month_temp.AddNew
         For i = 0 To 7
             rs_month_temp.Fields(i).Value = rs_month.Fields(i).Value
         Next
             rs_month.MoveNext
             rs_month_temp.Update
Loop

Dim rsdatareport As ADODB.Recordset
Set rsdatareport = New ADODB.Recordset
    rsdatareport.open "SELECT doctor.id,doctor.DOCTOR_NAME AS 醫生, COUNT(YF_month_temp.醫生) AS 處方量," & _
                      "SUM(YF_month_temp.醫藥費) AS 醫藥費, " & _
                      "SUM(YF_month_temp.自負金) As 自負金 " & _
                      "From doctor, YF_month_temp " & _
                      "Where doctor.Id = YF_month_temp.醫生 " & _
                      "GROUP BY doctor.DOCTOR_NAME,doctor.id ", cn, adOpenStatic, adLockPessimistic


'****************************************************************
'以上為從YF_month_temp表中獲取統計和獲取數據
If rsdatareport.BOF <> True And rsdatareport.EOF <> True Then
    '復制數據到DATAREPORT表中
    Set rstemp = New ADODB.Recordset
        rstemp.open "select * from datareport", cn, adOpenStatic, adLockPessimistic
    If rstemp.BOF <> True And rstemp.EOF <> True Then
       Do Until rstemp.EOF
          rstemp.Delete
          rstemp.MoveNext
       Loop
    End If
    If rstemp.State = 1 Then rstemp.close
    rstemp.open "select * from datareport", cn, adOpenStatic, adLockPessimistic

    '設置中間記錄，當復制時刪除原來的記錄，再打開該表
    Do Until rsdatareport.EOF
       rstemp.AddNew
       For i = 0 To 4
           If i = 4 Then
              rstemp.Fields(i + 1).Value = rsdatareport.Fields(i).Value
              rstemp.Fields(i).Value = rsdatareport.Fields(3) / rsdatareport.Fields(2)
           Else
               rstemp.Fields(i).Value = rsdatareport.Fields(i).Value
           End If
       Next i
       rstemp.Update
       rsdatareport.MoveNext
    Loop
    '使數據能夠按照醫生的實際人數進行匯總（有可能某醫生當天未參加門診）
    Set rsdoctor = New ADODB.Recordset
    If rsdoctor.State = 0 Then rsdoctor.open "select * from doctor", cn, adOpenStatic, adLockPessimistic
    '如果的確有醫生未參加該天的門診，則進行數據的人工輔助匯總
    If rsdatareport.recordcount <> rsdoctor.recordcount Then
       rstemp.close
       rstemp.open "select * from datareport", cn, adOpenStatic, adLockPessimistic
       Do Until rsdoctor.EOF
           If rstemp.EOF Then
              Do Until rsdoctor.EOF
                 rstemp.AddNew
                 rstemp.Fields(0).Value = rsdoctor.Fields("id").Value
                 rstemp.Fields(1).Value = rsdoctor.Fields("doctor_name").Value
                 For i = 2 To 5
                     rstemp.Fields(i).Value = 0
                 Next i
                 rstemp.Update
                 rsdoctor.MoveNext
              Loop
           Else
              If rsdoctor.Fields("id").Value <> rstemp.Fields("id").Value Then
                 rstemp.AddNew
                 rstemp.Fields(0).Value = rsdoctor.Fields("id").Value
                 rstemp.Fields(1).Value = rsdoctor.Fields("doctor_name").Value
                 For i = 2 To 5
                     rstemp.Fields(i).Value = 0
                 Next i
                 With rstemp
                      .Update
                      .close
                      .open "select * from datareport", cn, adOpenStatic, adLockPessimistic
                 End With
                 rsdoctor.MoveFirst
              Else
                 rstemp.MoveNext
                 rsdoctor.MoveNext
              End If
           End If
       Loop
    End If
End If
End Sub


'主要用于將記錄拷貝到月表中去
Public Function RescordSet_Copy_Month(rs_source As ADODB.Recordset, rs_destinate As ADODB.Recordset)
'檢查源記錄表中是否有數據,如果沒有,跳出該函數
If rs_source.EOF <> True Then
    If rs_destinate.EOF <> True And rs_destinate.BOF <> True Then  '如果目的表的記錄不為空
            Dim id As String
            id = rs_destinate.Fields(0)  '記錄編號的變化
            Do Until rs_source.EOF
               rs_destinate.AddNew
               For i = 1 To 7
                   rs_destinate.Fields(i).Value = rs_source.Fields(i).Value
               Next
               id = id + 1
               rs_destinate.Fields(0).Value = id
               rs_destinate.Update
               rs_destinate.MoveNext
               rs_source.MoveNext
            Loop
    
    Else              '**************如果目的表的記錄為空
           Do Until rs_source.EOF
              rs_destinate.AddNew
           For i = 0 To 7
               rs_destinate.Fields(i).Value = rs_source.Fields(i).Value
           Next
           rs_destinate.Update
           rs_destinate.MoveNext
           rs_source.MoveNext
        Loop

    End If
End If
End Function
上一頁 12
?? 文件大小 447 K
?? 上傳用戶 wylyyzjz
?? 所屬分類數據庫系統
??? 相關標簽

#源碼
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? global.bas

?? 快捷鍵說明
