📄 frmtjpq.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "Comdlg32.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{0B81E4A9-BE4E-4AEF-9272-33AB5B51C6FC}#1.0#0"; "XPControls.ocx"
Begin VB.Form FrmTJPQ
BackColor = &H80000018&
BorderStyle = 1 'Fixed Single
Caption = "体检排期"
ClientHeight = 7110
ClientLeft = 45
ClientTop = 330
ClientWidth = 10275
Icon = "FrmTJPQ.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 7110
ScaleWidth = 10275
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame5
BackColor = &H80000018&
Caption = "日期选择"
Height = 645
Left = 150
TabIndex = 13
Top = 840
Width = 4185
Begin MSComCtl2.DTPicker DTP1
Height = 375
Left = 1140
TabIndex = 14
Top = 180
Width = 1665
_ExtentX = 2937
_ExtentY = 661
_Version = 393216
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Format = 61603841
CurrentDate = 38105
MaxDate = 73415
MinDate = 36526
End
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 4890
Top = 3315
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.TextBox txtHJRS
Appearance = 0 'Flat
BackColor = &H80000009&
Enabled = 0 'False
ForeColor = &H00FF0000&
Height = 285
Left = 2025
Locked = -1 'True
TabIndex = 11
Top = 1650
Width = 1230
End
Begin VB.Frame Frame4
BackColor = &H80000018&
Caption = "预约类别"
Height = 600
Left = 150
TabIndex = 7
Top = 120
Width = 4230
Begin VB.OptionButton optGRen
BackColor = &H80000018&
Caption = "个人预约"
Height = 315
Left = 600
TabIndex = 9
Top = 180
Value = -1 'True
Width = 1110
End
Begin VB.OptionButton optTTi
BackColor = &H80000018&
Caption = "团体预约"
Height = 315
Left = 2340
TabIndex = 8
Top = 180
Width = 1125
End
End
Begin VB.Frame Frame2
BackColor = &H80000018&
Caption = "人员列表"
Height = 5790
Left = 4530
TabIndex = 5
Top = 150
Width = 5595
Begin MSComctlLib.ListView lvwPerson
Height = 5025
Left = 120
TabIndex = 6
Top = 270
Width = 5310
_ExtentX = 9366
_ExtentY = 8864
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = 12648384
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 6
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "系统档案号"
Object.Width = 2822
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "自定义档案号"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "姓名"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "性别"
Object.Width = 1235
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "年龄"
Object.Width = 1235
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "体检状态"
Object.Width = 2470
EndProperty
End
Begin VB.Label lblRS
BackStyle = 0 'Transparent
Caption = "当日预约人数合计："
Height = 285
Left = 150
TabIndex = 15
Top = 5400
Width = 5265
End
End
Begin VB.Frame Frame1
BackColor = &H80000018&
Caption = "单位列表"
Height = 4740
Left = 150
TabIndex = 3
Top = 2145
Width = 4230
Begin MSComctlLib.TreeView tvwDWei
Height = 4350
Left = 195
TabIndex = 4
Top = 270
Width = 3870
_ExtentX = 6826
_ExtentY = 7673
_Version = 393217
HideSelection = 0 'False
LabelEdit = 1
Style = 7
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Frame Frame3
BackColor = &H80000018&
Height = 885
Left = 4545
TabIndex = 0
Top = 6000
Width = 5595
Begin XPControls.XPCommandButton cmdExit
Cancel = -1 'True
Height = 405
Left = 3510
TabIndex = 1
Top = 300
Width = 1125
_ExtentX = 1984
_ExtentY = 714
Caption = "退 出"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin XPControls.XPCommandButton cmdPrint
Height = 405
Left = 1230
TabIndex = 2
Top = 300
Width = 1125
_ExtentX = 1984
_ExtentY = 714
Enabled = 0 'False
Caption = "打 印"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "人"
Height = 285
Left = 3375
TabIndex = 12
Top = 1695
Width = 360
End
Begin VB.Label LblHJRS
BackStyle = 0 'Transparent
Caption = "当日预约人数合计："
Height = 285
Left = 255
TabIndex = 10
Top = 1710
Width = 1665
End
End
Attribute VB_Name = "FrmTJPQ"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mstrSQL As String
Private Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdPrint_Click()
PrintReport
End Sub
Private Sub DTP1_Change()
cmdQueryClick
End Sub
Private Sub Form_Load()
'默认显示当前日期
DTP1.Value = Date
'用当前时间执行一次查询
cmdQueryClick
End Sub
'根据设置查询符合条件的记录
Private Sub cmdQueryClick()
On Error GoTo ErrMsg
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -