📄 frmstat.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmStat
BorderStyle = 3 'Fixed Dialog
Caption = "统计选项"
ClientHeight = 5010
ClientLeft = 45
ClientTop = 330
ClientWidth = 6270
Icon = "frmStat.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5010
ScaleWidth = 6270
ShowInTaskbar = 0 'False
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame3
Caption = "统计类型"
Height = 795
Left = 120
TabIndex = 23
Top = 60
Width = 6015
Begin VB.OptionButton optReportType
Caption = "工作量明细报告"
Height = 255
Index = 1
Left = 2520
TabIndex = 25
Top = 360
Width = 1815
End
Begin VB.OptionButton optReportType
Caption = "收入综合统计"
Height = 255
Index = 0
Left = 420
TabIndex = 24
Top = 360
Value = -1 'True
Width = 1815
End
End
Begin VB.Frame fraRegion
Caption = "部位"
Height = 855
Left = 120
TabIndex = 19
Top = 3360
Width = 6015
Begin MSComctlLib.ImageCombo icbRegion
Height = 330
Left = 1920
TabIndex = 21
Top = 300
Width = 3975
_ExtentX = 7011
_ExtentY = 582
_Version = 393216
ForeColor = -2147483640
BackColor = -2147483643
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "只统计该部位的报告:"
Height = 255
Left = 120
TabIndex = 20
Top = 360
Width = 1935
End
End
Begin VB.Frame fraTime
Caption = "统计时间"
Height = 2295
Left = 120
TabIndex = 1
Top = 960
Width = 3795
Begin MSComCtl2.DTPicker dtpStart
Height = 315
Left = 2355
TabIndex = 11
Top = 990
Width = 1335
_ExtentX = 2355
_ExtentY = 556
_Version = 393216
Enabled = 0 'False
Format = 23855105
CurrentDate = 35969
End
Begin VB.OptionButton optTime
Caption = "自定义"
Height = 315
Index = 4
Left = 255
TabIndex = 10
Tag = "指定"
Top = 960
Width = 915
End
Begin VB.OptionButton optTime
Caption = "当天"
Height = 315
Index = 3
Left = 2820
TabIndex = 9
Tag = "日"
Top = 405
Value = -1 'True
Width = 855
End
Begin VB.OptionButton optTime
Caption = "本周"
Height = 315
Index = 2
Left = 1980
TabIndex = 8
Tag = "周"
Top = 420
Width = 795
End
Begin VB.OptionButton optTime
Caption = "本月"
Height = 315
Index = 1
Left = 1200
TabIndex = 7
Tag = "月"
Top = 420
Width = 855
End
Begin VB.OptionButton optTime
Caption = "本年度"
Height = 315
Index = 0
Left = 255
TabIndex = 6
Tag = "年"
Top = 420
Width = 1515
End
Begin MSComCtl2.DTPicker dtpEnd
Height = 315
Left = 2355
TabIndex = 14
Top = 1470
Width = 1335
_ExtentX = 2355
_ExtentY = 556
_Version = 393216
Enabled = 0 'False
Format = 23855105
CurrentDate = 35969
End
Begin VB.Label Label2
Caption = "结束时间:"
Height = 315
Left = 1425
TabIndex = 13
Top = 1485
Width = 975
End
Begin VB.Label Label1
Caption = "开始时间:"
Height = 315
Left = 1425
TabIndex = 12
Top = 1005
Width = 975
End
End
Begin VB.Frame fraType
Caption = "统计方式"
Height = 2295
Left = 3975
TabIndex = 0
Top = 960
Width = 2160
Begin VB.OptionButton optType
Caption = "按送检医师"
Height = 315
Index = 3
Left = 420
TabIndex = 18
Top = 1665
Width = 1695
End
Begin VB.OptionButton optType
Caption = "按病人类型"
Height = 315
Index = 2
Left = 420
TabIndex = 17
Top = 1200
Width = 1695
End
Begin VB.OptionButton optType
Caption = "按医师"
Height = 315
Index = 1
Left = 420
TabIndex = 16
Top = 795
Width = 1335
End
Begin VB.OptionButton optType
Caption = "按超声种类"
Height = 315
Index = 0
Left = 420
TabIndex = 15
Top = 390
Value = -1 'True
Width = 1695
End
End
Begin VB.PictureBox picCmd
Align = 2 'Align Bottom
BorderStyle = 0 'None
Height = 750
Left = 0
ScaleHeight = 750
ScaleWidth = 6270
TabIndex = 2
Top = 4260
Width = 6270
Begin VB.Frame Frame2
Height = 75
Left = 120
TabIndex = 22
Top = 0
Width = 6075
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "取消 [ESC]"
Height = 375
Left = 4860
TabIndex = 5
Top = 240
Width = 1275
End
Begin VB.CommandButton cmdHelp
Caption = "帮助 [F1]"
Height = 375
Left = 240
TabIndex = 4
Top = 240
Visible = 0 'False
Width = 1275
End
Begin VB.CommandButton cmdOK
Caption = "确定 [ENTER]"
Default = -1 'True
Height = 375
Left = 3495
TabIndex = 3
Top = 240
Width = 1275
End
End
End
Attribute VB_Name = "frmStat"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
'------------------
'退出窗体
'------------------
Unload Me
End Sub
Private Sub cmdOK_Click()
'---------------------------
'显示查询的结果
'---------------------------
Dim strStat As String
Dim strTotal As String
Dim strTempFile As String
Dim strStatType As String
Dim strContTemp As String
Dim strTemp As String '临时的字符串
Dim strStatDateType As String '统计的时间类型
Dim strOrgan As String '统计的部位
Dim strCont As String
Dim str As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -