📄 bltj.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form BLTJ
Caption = "疾病统计查询"
ClientHeight = 3930
ClientLeft = 1845
ClientTop = 2265
ClientWidth = 6420
ControlBox = 0 'False
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "BLTJ.frx":0000
LinkTopic = "Form8"
Moveable = 0 'False
ScaleHeight = 3930
ScaleWidth = 6420
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "返 回&Q"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 8430
TabIndex = 8
Top = 8100
Width = 1650
End
Begin VB.CommandButton Command2
Caption = "查 询&C"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 1620
TabIndex = 7
Top = 8100
Width = 1650
End
Begin VB.CommandButton Command3
Caption = "打印预览"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 400
Left = 4950
TabIndex = 6
Top = 8100
Width = 1650
End
Begin VB.Data Data1
BackColor = &H00C0E0FF&
Connect = "Access"
DatabaseName = ""
DefaultCursorType= 1 'ODBCCursor
DefaultType = 1 'UseODBC
Exclusive = 0 'False
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C00000&
Height = 345
Left = 90
Options = 0
ReadOnly = 0 'False
RecordsetType = 2 'Snapshot
RecordSource = ""
Top = 7680
Width = 11685
End
Begin VB.Frame Frame1
ForeColor = &H00FF0000&
Height = 780
Left = 30
TabIndex = 3
Top = 45
Width = 11805
Begin VB.TextBox TEXT1
BackColor = &H00C0C0FF&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 6960
MaxLength = 8
TabIndex = 9
Top = 300
Width = 4605
End
Begin MSMask.MaskEdBox DATE1
Height = 360
Left = 1560
TabIndex = 0
Top = 300
Width = 1485
_ExtentX = 2619
_ExtentY = 635
_Version = 393216
BackColor = 12632319
MaxLength = 10
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mask = "####-##-##"
PromptChar = " "
End
Begin MSMask.MaskEdBox DATE2
Height = 360
Left = 3630
TabIndex = 1
Top = 300
Width = 1485
_ExtentX = 2619
_ExtentY = 635
_Version = 393216
BackColor = 12632319
MaxLength = 10
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mask = "####-##-##"
PromptChar = " "
End
Begin VB.Label Label1
Caption = "统计编码："
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Index = 0
Left = 5490
TabIndex = 10
Top = 330
Width = 1605
End
Begin VB.Label Label1
Caption = "至"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Index = 2
Left = 3180
TabIndex = 5
Top = 330
Width = 465
End
Begin VB.Label Label1
Caption = "统计区间："
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 330
Index = 1
Left = 210
TabIndex = 4
Top = 330
Width = 1635
End
End
Begin MSDBGrid.DBGrid DBGrid1
Bindings = "BLTJ.frx":030A
Height = 6795
Left = 30
OleObjectBlob = "BLTJ.frx":031A
TabIndex = 2
TabStop = 0 'False
Top = 870
Width = 11805
End
End
Attribute VB_Name = "BLTJ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub PRINT_2() '疾病抢救、院内感染、护理、文档质量统计表
Dim dd As Excel.Application
Set dd = CreateObject("Excel.Application")
dd.Workbooks.Open ("C:\PP\SB\疾病抢救、院内感染、护理、文档质量统计表")
dd.Range("F2").Select: dd.ActiveCell.FormulaR1C1 = " 统计日期：" + CStr(DATE1) + " 至 " + DATE2
yyy = 1
dd.Range("F26").Select: dd.ActiveCell.FormulaR1C1 = "第" + CStr(yyy) + "页 " + Data1.Caption + " 制 表：" + Form3.sbar.Panels(2) + " " + CStr(Date) + " " + CStr(Time)
dd.Visible = True
xxx = 5
Do While Not Data1.Recordset.EOF
dd.Range("A" + CStr(xxx) + "").Select: dd.ActiveCell.FormulaR1C1 = Trim(Data1.Recordset!疾病名称)
dd.Range("B" + CStr(xxx) + "").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!院内感染人数)
dd.Range("C" + CStr(xxx) + "").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!院内感染发生率)
dd.Range("D" + CStr(xxx) + "").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!组织抢救次数)
dd.Range("E" + CStr(xxx) + "").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!抢救成功次数)
dd.Range("G" + CStr(xxx) + "").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!特护人数)
dd.Range("H" + CStr(xxx) + "").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!特护日数)
dd.Range("I" + CStr(xxx) + "").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!一级护理人数)
dd.Range("J" + CStr(xxx) + "").Select: dd.ActiveCell.FormulaR1C1 = DxCStr(Data1.Recordset!一级护理日数)
Data1.Recordset.MoveNext
xxx = xxx + 1
If xxx > 25 Then
dd.ActiveWorkbook.PrintPreview
yyy = yyy + 1
dd.Range("F26").Select: dd.ActiveCell.FormulaR1C1 = "第" + CStr(yyy) + "页 " + Data1.Caption + " 制 表：" + Form3.sbar.Panels(2) + " " + CStr(Date) + " " + CStr(Time)
xxx = 5
End If
Loop
DDSS:
dd.Visible = True
If xxx <> 5 Then
dd.ActiveWorkbook.PrintPreview
End If
dd.ActiveWorkbook.Saved = True
dd.ActiveWorkbook.Close
dd.Quit
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -