⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 tjcx.frm

📁 这是一个医院管理系统中的院长查询模块
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
            Name            =   "隶书"
            Size            =   14.25
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   330
         Index           =   1
         Left            =   210
         TabIndex        =   7
         Top             =   330
         Width           =   3135
      End
   End
   Begin MSDBGrid.DBGrid DBGrid1 
      Bindings        =   "TJCX.frx":030A
      Height          =   7305
      Left            =   60
      OleObjectBlob   =   "TJCX.frx":031A
      TabIndex        =   5
      TabStop         =   0   'False
      Top             =   870
      Width           =   11835
   End
End
Attribute VB_Name = "Form10"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Sub PRINT_1() '科室-入院
'科室抢救、院内感染、护理、文档质量统计表
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("K17").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("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("I6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊数)
dd.Range("K6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!三日确诊数)
dd.Range("M6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断符合数)
dd.Range("N6").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断不符数)
dd.Range("O6").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("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("I7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊数)
dd.Range("K7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!三日确诊数)
dd.Range("M7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断符合数)
dd.Range("N7").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断不符数)
dd.Range("O7").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("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("I8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊数)
dd.Range("K8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!三日确诊数)
dd.Range("M8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断符合数)
dd.Range("N8").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断不符数)
dd.Range("O8").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("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("I9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊数)
dd.Range("K9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!三日确诊数)
dd.Range("M9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断符合数)
dd.Range("N9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断不符数)
dd.Range("O9").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断无对照数)
End If
If Data1.Recordset!科室代码 = "40" Then
dd.Range("B10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!出院人数)
dd.Range("C10").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("I10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊数)
dd.Range("K10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!三日确诊数)
dd.Range("M10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断符合数)
dd.Range("N10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断不符数)
dd.Range("O10").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断无对照数)
End If
If Data1.Recordset!科室代码 = "05" Then
dd.Range("B11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!出院人数)
dd.Range("C11").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("I11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊数)
dd.Range("K11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!三日确诊数)
dd.Range("M11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断符合数)
dd.Range("N11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断不符数)
dd.Range("O11").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断无对照数)
End If
If Data1.Recordset!科室代码 = "06" Then
dd.Range("B12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!出院人数)
dd.Range("C12").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("I12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊数)
dd.Range("K12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!三日确诊数)
dd.Range("M12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断符合数)
dd.Range("N12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断不符数)
dd.Range("O12").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断无对照数)
End If
If Data1.Recordset!科室代码 = "07" Then
dd.Range("B13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!出院人数)
dd.Range("C13").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("I13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊数)
dd.Range("K13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!三日确诊数)
dd.Range("M13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断符合数)
dd.Range("N13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断不符数)
dd.Range("O13").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断无对照数)
End If
If Data1.Recordset!科室代码 = "41" Then
dd.Range("B14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!出院人数)
dd.Range("C14").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("I14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊数)
dd.Range("K14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!三日确诊数)
dd.Range("M14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断符合数)
dd.Range("N14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断不符数)
dd.Range("O14").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断无对照数)
End If
If Data1.Recordset!科室代码 = "08" Then
dd.Range("B15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!出院人数)
dd.Range("C15").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("I15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊数)
dd.Range("K15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!三日确诊数)
dd.Range("M15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断符合数)
dd.Range("N15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断不符数)
dd.Range("O15").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断无对照数)
End If
If Data1.Recordset!科室代码 = "09" Then
dd.Range("B16").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!出院人数)
dd.Range("C16").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("I16").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!初诊待诊数)
dd.Range("K16").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!三日确诊数)
dd.Range("M16").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断符合数)
dd.Range("N16").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!入院_出院诊断不符数)
dd.Range("O16").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_4() '科室抢救、院内感染、护理、文档质量统计表
Dim dd As Excel.Application
Set dd = CreateObject("Excel.Application")
dd.Workbooks.Open ("C:\PP\SB\科室抢救、院内感染、护理、文档质量统计表")
dd.Range("M2").Select: dd.ActiveCell.FormulaR1C1 = " 统计日期：" + CStr(DATE1) + " 至 " + DATE2
dd.Range("K17").Select: dd.ActiveCell.FormulaR1C1 = "制 表：" + Form3.sbar.Panels(2) + " " + CStr(Date) + " " + CStr(Time)
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -