📄 frmfigurequery.frm
字号:
VERSION 5.00
Object = "{AA0D501B-0C16-11D4-8531-00E098160F52}#4.0#0"; "COMNBUTTONS.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Begin VB.Form frmFigureQuery
BorderStyle = 1 'Fixed Single
Caption = "划价查询"
ClientHeight = 3645
ClientLeft = 3285
ClientTop = 3225
ClientWidth = 5850
Icon = "frmFigureQuery.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3645
ScaleWidth = 5850
Begin VB.TextBox txtHandler
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3870
TabIndex = 3
Text = "txtHandler"
Top = 615
Width = 1770
End
Begin VB.Frame frame1
Caption = "类型"
ForeColor = &H8000000D&
Height = 1290
Left = 0
TabIndex = 16
Top = 1695
Width = 2910
Begin VB.OptionButton OptKind
Caption = "所 有"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 0
Left = 270
TabIndex = 19
Top = 225
Width = 1545
End
Begin VB.OptionButton OptKind
Caption = "正 常"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 1
Left = 270
TabIndex = 18
Top = 540
Width = 1545
End
Begin VB.OptionButton OptKind
Caption = "作 废"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Index = 2
Left = 270
TabIndex = 17
Top = 900
Width = 1545
End
End
Begin VB.Frame Frame2
Caption = "状态"
ForeColor = &H8000000D&
Height = 1290
Left = 2970
TabIndex = 12
Top = 1695
Width = 2865
Begin VB.CheckBox chkRev
Caption = "收费"
Height = 240
Left = 360
TabIndex = 15
Top = 285
Width = 900
End
Begin VB.CheckBox chkDrug
Caption = "取药"
Height = 240
Left = 360
TabIndex = 14
Top = 600
Width = 900
End
Begin VB.CheckBox chkAll
Caption = "全部"
Height = 240
Left = 360
TabIndex = 13
Top = 930
Width = 900
End
End
Begin VB.TextBox txtName
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 3885
TabIndex = 1
Text = "txtName"
Top = 60
Width = 1770
End
Begin VB.TextBox txtDepart
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1005
TabIndex = 2
Text = "txtDepart"
Top = 630
Width = 1770
End
Begin VB.TextBox txtID
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 1005
TabIndex = 0
Text = "txtID"
Top = 45
Width = 1770
End
Begin MSMask.MaskEdBox mskDate
Height = 330
Index = 0
Left = 990
TabIndex = 4
Top = 1260
Width = 1770
_ExtentX = 3122
_ExtentY = 582
_Version = 393216
AutoTab = -1 'True
MaxLength = 10
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mask = "####-##-##"
PromptChar = " "
End
Begin MSMask.MaskEdBox mskDate
Height = 330
Index = 1
Left = 3855
TabIndex = 5
Top = 1260
Width = 1770
_ExtentX = 3122
_ExtentY = 582
_Version = 393216
AutoTab = -1 'True
MaxLength = 10
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Mask = "####-##-##"
PromptChar = " "
End
Begin ComnButtons.ButtonGroup ButtonGroup1
Height = 525
Left = 3150
TabIndex = 20
Top = 3150
Width = 2745
_ExtentX = 4842
_ExtentY = 926
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BackColor = -2147483638
ButtonCount = 3
ButtonCaption = "&A.确定 &C.取消 &E.关闭"
KeyEnabled = "1#1#1#"
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "划 价 人"
BeginProperty Font
Name = "宋体"
Size = 10.5
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -