frmyb2.frm

这是一个医院管理系统中的院长查询模块

Dim dd As Excel.Application
Set dd = CreateObject("Excel.Application")
dd.Workbooks.Open ("C:\PP\SB\医院诊断质量综合指标统计表")
dd.Range("H2").Select: dd.ActiveCell.FormulaR1C1 = " 统计日期：" + CStr(DATE1) + " 至 " + DATE2
dd.Range("C17").Select: dd.ActiveCell.FormulaR1C1 = "制 表：" + Form3.sbar.Panels(2) + " " + CStr(Date) + " " + CStr(Time)
dd.Visible = True
Do While Not Data1.Recordset.EOF
If Data1.Recordset!科室代码 = "01" Then
dd.Range("C6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊_出院诊断符合率)
dd.Range("D6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床初诊_确诊符合率)
dd.Range("E6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前后诊断符合率)
dd.Range("F6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床_病理诊断符合率)
dd.Range("G6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!放射线_术后诊断符合率)
dd.Range("H6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院三日确诊率)
dd.Range("I6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊待诊率)
dd.Range("J6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊率)
End If
If Data1.Recordset!科室代码 = "02" Then
dd.Range("C7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊_出院诊断符合率)
dd.Range("D7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床初诊_确诊符合率)
dd.Range("E7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前后诊断符合率)
dd.Range("F7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床_病理诊断符合率)
dd.Range("G7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!放射线_术后诊断符合率)
dd.Range("H7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院三日确诊率)
dd.Range("I7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊待诊率)
dd.Range("J7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊率)
End If
If Data1.Recordset!科室代码 = "03" Then
dd.Range("C8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊_出院诊断符合率)
dd.Range("D8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床初诊_确诊符合率)
dd.Range("E8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前后诊断符合率)
dd.Range("F8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床_病理诊断符合率)
dd.Range("G8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!放射线_术后诊断符合率)
dd.Range("H8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院三日确诊率)
dd.Range("I8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊待诊率)
dd.Range("J8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊率)
End If
If Data1.Recordset!科室代码 = "04" Then
dd.Range("C9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊_出院诊断符合率)
dd.Range("D9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床初诊_确诊符合率)
dd.Range("E9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前后诊断符合率)
dd.Range("F9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床_病理诊断符合率)
dd.Range("G9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!放射线_术后诊断符合率)
dd.Range("H9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院三日确诊率)
dd.Range("I9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊待诊率)
dd.Range("J9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊率)
End If
If Data1.Recordset!科室代码 = "40" Then
dd.Range("C10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊_出院诊断符合率)
dd.Range("D10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床初诊_确诊符合率)
dd.Range("E10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前后诊断符合率)
dd.Range("F10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床_病理诊断符合率)
dd.Range("G10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!放射线_术后诊断符合率)
dd.Range("H10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院三日确诊率)
dd.Range("I10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊待诊率)
dd.Range("J10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊率)
End If
If Data1.Recordset!科室代码 = "05" Then
dd.Range("C11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊_出院诊断符合率)
dd.Range("D11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床初诊_确诊符合率)
dd.Range("E11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前后诊断符合率)
dd.Range("F11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床_病理诊断符合率)
dd.Range("G11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!放射线_术后诊断符合率)
dd.Range("H11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院三日确诊率)
dd.Range("I11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊待诊率)
dd.Range("J11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊率)
End If
If Data1.Recordset!科室代码 = "06" Then
dd.Range("C12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊_出院诊断符合率)
dd.Range("D12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床初诊_确诊符合率)
dd.Range("E12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前后诊断符合率)
dd.Range("F12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床_病理诊断符合率)
dd.Range("G12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!放射线_术后诊断符合率)
dd.Range("H12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院三日确诊率)
dd.Range("I12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊待诊率)
dd.Range("J12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊率)
End If
If Data1.Recordset!科室代码 = "07" Then
dd.Range("C13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊_出院诊断符合率)
dd.Range("D13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床初诊_确诊符合率)
dd.Range("E13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前后诊断符合率)
dd.Range("F13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床_病理诊断符合率)
dd.Range("G13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!放射线_术后诊断符合率)
dd.Range("H13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院三日确诊率)
dd.Range("I13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊待诊率)
dd.Range("J13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊率)
End If
If Data1.Recordset!科室代码 = "41" Then
dd.Range("C14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊_出院诊断符合率)
dd.Range("D14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床初诊_确诊符合率)
dd.Range("E14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前后诊断符合率)
dd.Range("F14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床_病理诊断符合率)
dd.Range("G14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!放射线_术后诊断符合率)
dd.Range("H14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院三日确诊率)
dd.Range("I14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊待诊率)
dd.Range("J14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊率)
End If
If Data1.Recordset!科室代码 = "08" Then
dd.Range("C15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊_出院诊断符合率)
dd.Range("D15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床初诊_确诊符合率)
dd.Range("E15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前后诊断符合率)
dd.Range("F15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床_病理诊断符合率)
dd.Range("G15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!放射线_术后诊断符合率)
dd.Range("H15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院三日确诊率)
dd.Range("I15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊待诊率)
dd.Range("J15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊率)
End If
If Data1.Recordset!科室代码 = "09" Then
dd.Range("C16").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊_出院诊断符合率)
dd.Range("D16").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床初诊_确诊符合率)
dd.Range("E16").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前后诊断符合率)
dd.Range("F16").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!临床_病理诊断符合率)
dd.Range("G16").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!放射线_术后诊断符合率)
dd.Range("H16").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院三日确诊率)
dd.Range("I16").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!门诊待诊率)
dd.Range("J16").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊率)
End If
Data1.Recordset.MoveNext
Loop
DDSS:
dd.Visible = True
dd.ActiveWorkbook.PrintPreview
dd.ActiveWorkbook.Saved = True
dd.ActiveWorkbook.Close
dd.Quit
End Sub


Sub PRINT_5() '科室手术情况统计表
Dim dd As Excel.Application
Set dd = CreateObject("Excel.Application")
dd.Workbooks.Open ("C:\PP\SB\科室手术情况统计表")
dd.Range("L2").Select: dd.ActiveCell.FormulaR1C1 = " 统计日期：" + CStr(DATE1) + " 至 " + DATE2
dd.Range("J17").Select: dd.ActiveCell.FormulaR1C1 = "制 表：" + Form3.sbar.Panels(2) + " " + CStr(Date) + " " + CStr(Time)
dd.Visible = True
Do While Not Data1.Recordset.EOF
If Data1.Recordset!科室代码 = "01" Then
dd.Range("B6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅰ_甲)
dd.Range("C6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅰ_乙)
dd.Range("D6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅰ_丙)
dd.Range("E6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅱ_甲)
dd.Range("F6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅱ_乙)
dd.Range("G6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅱ_丙)
dd.Range("H6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅲ_甲)
dd.Range("I6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅲ_乙)
dd.Range("J6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅲ_丙)
dd.Range("L6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术人数)
dd.Range("M6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术并发症人数)
dd.Range("O6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前住院总日数)
dd.Range("P6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!平均术前住院日)
End If
If Data1.Recordset!科室代码 = "02" Then
dd.Range("B7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅰ_甲)
dd.Range("C7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅰ_乙)
dd.Range("D7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅰ_丙)
dd.Range("E7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅱ_甲)
dd.Range("F7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅱ_乙)
dd.Range("G7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅱ_丙)
dd.Range("H7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅲ_甲)
dd.Range("I7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅲ_乙)
dd.Range("J7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅲ_丙)
dd.Range("L7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术人数)
dd.Range("M7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术并发症人数)
dd.Range("O7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前住院总日数)
dd.Range("P7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!平均术前住院日)
End If
If Data1.Recordset!科室代码 = "03" Then
dd.Range("B8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅰ_甲)
dd.Range("C8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅰ_乙)
dd.Range("D8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅰ_丙)
dd.Range("E8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅱ_甲)
dd.Range("F8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅱ_乙)
dd.Range("G8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅱ_丙)
dd.Range("H8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅲ_甲)
dd.Range("I8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅲ_乙)
dd.Range("J8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅲ_丙)
dd.Range("L8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术人数)
dd.Range("M8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术并发症人数)
dd.Range("O8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!手术前住院总日数)
dd.Range("P8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!平均术前住院日)
End If
If Data1.Recordset!科室代码 = "04" Then
dd.Range("B9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅰ_甲)
dd.Range("C9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅰ_乙)
dd.Range("D9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅰ_丙)
dd.Range("E9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅱ_甲)
dd.Range("F9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅱ_乙)
dd.Range("G9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!Ⅱ_丙)
dd.Range("H9").Select: dd.ActiveCell.FormulaR1C