📄 dlgxtcs.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 = "{0B81E4A9-BE4E-4AEF-9272-33AB5B51C6FC}#1.0#0"; "XPControls.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form dlgXTCS
BackColor = &H00D3DABC&
BorderStyle = 3 'Fixed Dialog
Caption = "系统参数设置"
ClientHeight = 5970
ClientLeft = 2040
ClientTop = 3750
ClientWidth = 7800
Icon = "dlgXTCS.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5970
ScaleWidth = 7800
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin MSComDlg.CommonDialog CommonDialog1
Left = 3180
Top = 2610
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin XPControls.XPCommandButton cmdCancel
Cancel = -1 'True
Height = 435
Left = 3330
TabIndex = 6
Top = 5460
Width = 1125
_ExtentX = 1984
_ExtentY = 767
Caption = "关闭(&C)"
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 TabDlg.SSTab SSTab1
Height = 5235
Left = 180
TabIndex = 0
Top = 120
Width = 7425
_ExtentX = 13097
_ExtentY = 9234
_Version = 393216
Tabs = 6
Tab = 5
TabsPerRow = 7
TabHeight = 520
BackColor = 13884092
TabCaption(0) = "支付方式"
TabPicture(0) = "dlgXTCS.frx":1982
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "fraZFFS"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).ControlCount= 1
TabCaption(1) = "会员设置"
TabPicture(1) = "dlgXTCS.frx":199E
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame1"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).ControlCount= 1
TabCaption(2) = "条形码设置"
TabPicture(2) = "dlgXTCS.frx":19BA
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "fraBC"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).ControlCount= 1
TabCaption(3) = "基本参数"
TabPicture(3) = "dlgXTCS.frx":19D6
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "fraHealthIDShow"
Tab(3).Control(0).Enabled= 0 'False
Tab(3).ControlCount= 1
TabCaption(4) = "建议设置"
TabPicture(4) = "dlgXTCS.frx":19F2
Tab(4).ControlEnabled= 0 'False
Tab(4).Control(0)= "Frame6"
Tab(4).Control(0).Enabled= 0 'False
Tab(4).ControlCount= 1
TabCaption(5) = "其它"
TabPicture(5) = "dlgXTCS.frx":1A0E
Tab(5).ControlEnabled= -1 'True
Tab(5).Control(0)= "Frame9"
Tab(5).Control(0).Enabled= 0 'False
Tab(5).ControlCount= 1
Begin VB.Frame Frame9
BackColor = &H00D3DABC&
Height = 4665
Left = 180
TabIndex = 120
Top = 420
Width = 7065
Begin VB.Frame fraGuiderType
BackColor = &H00D3DABC&
Caption = "导引单格式"
Height = 735
Left = 3870
TabIndex = 147
Top = 1890
Width = 3045
Begin VB.ComboBox cmbGuiderType
Enabled = 0 'False
Height = 300
ItemData = "dlgXTCS.frx":1A2A
Left = 240
List = "dlgXTCS.frx":1A34
Style = 2 'Dropdown List
TabIndex = 148
Top = 270
Width = 2595
End
End
Begin VB.Frame fraPersonAffirm
BackColor = &H00D3DABC&
Caption = "体检登记功能定制"
Height = 1575
Left = 3870
TabIndex = 144
Top = 210
Width = 3045
Begin VB.CheckBox chkChargingInAffirm
BackColor = &H00D3DABC&
Caption = "启用收费功能"
Enabled = 0 'False
Height = 315
Left = 240
TabIndex = 146
Top = 825
Width = 2085
End
Begin VB.CheckBox chkPriceInAffirm
BackColor = &H00D3DABC&
Caption = "启用计价功能"
Enabled = 0 'False
Height = 315
Left = 240
TabIndex = 145
Top = 330
Width = 2085
End
End
Begin VB.Frame fraPersonRegister
BackColor = &H00D3DABC&
Caption = "个人预约功能定制"
Height = 2775
Left = 150
TabIndex = 139
Top = 1740
Width = 3525
Begin VB.CheckBox chkChargingInPersonRegister
BackColor = &H00D3DABC&
Caption = "启用收费功能"
Enabled = 0 'False
Height = 315
Left = 330
TabIndex = 143
Top = 1830
Width = 2805
End
Begin VB.CheckBox chkPriceInPersonRegister
BackColor = &H00D3DABC&
Caption = "启用计价功能"
Enabled = 0 'False
Height = 315
Left = 330
TabIndex = 142
Top = 1340
Width = 2805
End
Begin VB.CheckBox chkShowGuiderInPersonRegister
BackColor = &H00D3DABC&
Caption = "显示导引单打印按钮"
Enabled = 0 'False
Height = 315
Left = 330
TabIndex = 141
Top = 850
Width = 2805
End
Begin VB.CheckBox chkShowBarCodeInPersonRegister
BackColor = &H00D3DABC&
Caption = "显示条形码打印按钮"
Enabled = 0 'False
Height = 315
Left = 330
TabIndex = 140
ToolTipText = "仅在启用条形码打印功能后，该选项才起作用"
Top = 360
Width = 2805
End
End
Begin VB.Frame fraInputMode
BackColor = &H00D3DABC&
Caption = "录入模式"
Height = 1365
Left = 150
TabIndex = 124
Top = 210
Width = 3525
Begin VB.CheckBox chkShowCurrent
BackColor = &H00D3DABC&
Caption = "未做科室小结时总显示当前登录人员"
Height = 705
Left = 1620
TabIndex = 128
Top = 150
Width = 1845
End
Begin VB.OptionButton optWorkstation
BackColor = &H00D3DABC&
Caption = "工作站录入"
Enabled = 0 'False
Height = 375
Left = 330
TabIndex = 126
Top = 840
Width = 2655
End
Begin VB.OptionButton optCentralize
BackColor = &H00D3DABC&
Caption = "集中录入"
Enabled = 0 'False
Height = 375
Left = 330
TabIndex = 125
Top = 330
Width = 1095
End
End
Begin VB.Frame FrameCmd
BackColor = &H00D3DABC&
Caption = "操作"
Height = 915
Index = 4
Left = 3870
TabIndex = 121
Top = 3600
Width = 3045
Begin XPControls.XPCommandButton cmdInputModeSave
Height = 375
Left = 1890
TabIndex = 122
Top = 360
Width = 825
_ExtentX = 1455
_ExtentY = 661
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
Begin XPControls.XPCommandButton cmdInputModeModify
Height = 375
Left = 390
TabIndex = 123
Top = 360
Width = 825
_ExtentX = 1455
_ExtentY = 661
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
End
Begin VB.Frame Frame6
BackColor = &H00D3DABC&
Height = 4665
Left = -74820
TabIndex = 100
Top = 420
Width = 7065
Begin MSComctlLib.ListView lvwJYi
Height = 4245
Left = 150
TabIndex = 113
Top = 240
Width = 3105
_ExtentX = 5477
_ExtentY = 7488
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -