📄 yj3_form_list.frm
字号:
VERSION 5.00
Object = "{FAEEE763-117E-101B-8933-08002B2F4F5A}#1.1#0"; "DBLIST32.OCX"
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{C932BA88-4374-101B-A56C-00AA003668DC}#1.1#0"; "MSMASK32.OCX"
Object = "{F6125AB1-8AB1-11CE-A77F-08002B2F4E98}#2.0#0"; "MSRDC20.OCX"
Object = "{FE0065C0-1B7B-11CF-9D53-00AA003C9CB6}#1.1#0"; "COMCT232.OCX"
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#3.0#0"; "RESIZE32.OCX"
Begin VB.Form yj3_form_list
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "药品核算表"
ClientHeight = 6975
ClientLeft = 45
ClientTop = 330
ClientWidth = 9570
ForeColor = &H00400000&
Icon = "yj3_form_list.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
Moveable = 0 'False
ScaleHeight = 6975
ScaleWidth = 9570
StartUpPosition = 3 '窗口缺省
Begin ResizeLibCtl.ReSize ReSize1
Left = 5400
Top = 4980
_Version = 196608
_ExtentX = 741
_ExtentY = 741
_StockProps = 64
Enabled = -1 'True
Enabled = -1 'True
FormMinWidth = 0
FormMinHeight = 0
AutoCenterFormOnLoad= -1 'True
FormDesignHeight= 6975
FormDesignWidth = 9570
End
Begin VB.Frame Frame2
Caption = "药品分类"
ForeColor = &H00800080&
Height = 1755
Index = 0
Left = 120
TabIndex = 4
Top = 30
Width = 5520
Begin VB.ComboBox drug_kind
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "隶书"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4005
Style = 2 'Dropdown List
TabIndex = 6
ToolTipText = "药品类型"
Top = 195
Width = 1470
End
Begin MSDBCtls.DBCombo show_att
Bindings = "yj3_form_list.frx":030A
Height = 360
Left = 4005
TabIndex = 5
ToolTipText = "药品属性"
Top = 570
Width = 1470
_ExtentX = 2593
_ExtentY = 635
_Version = 393216
Style = 2
BackColor = 12640511
ListField = "f_name"
Text = ""
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
End
Begin MSDBCtls.DBCombo show_little
Bindings = "yj3_form_list.frx":031D
Height = 360
Left = 1155
TabIndex = 7
ToolTipText = "药理分类<小类>"
Top = 1335
Width = 4320
_ExtentX = 7620
_ExtentY = 635
_Version = 393216
Style = 2
BackColor = 12640511
Text = ""
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
End
Begin MSDBCtls.DBCombo show_big
Bindings = "yj3_form_list.frx":0333
Height = 360
Left = 1155
TabIndex = 8
ToolTipText = "药理分类<大类>"
Top = 960
Width = 4320
_ExtentX = 7620
_ExtentY = 635
_Version = 393216
Style = 2
BackColor = 12640511
ListField = ""
BoundColumn = ""
Text = ""
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
End
Begin ComCtl2.UpDown UpDown_E
Height = 315
Left = 2445
TabIndex = 13
Top = 600
Width = 270
_ExtentX = 423
_ExtentY = 556
_Version = 327681
Enabled = -1 'True
End
Begin ComCtl2.UpDown UpDown_B
Height = 315
Left = 2445
TabIndex = 14
Top = 210
Width = 270
_ExtentX = 423
_ExtentY = 556
_Version = 327681
Enabled = -1 'True
End
Begin MSMask.MaskEdBox e_date
Height = 375
Left = 1170
TabIndex = 15
Top = 570
Width = 1575
_ExtentX = 2778
_ExtentY = 661
_Version = 393216
BackColor = 12640511
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 b_date
Height = 375
Left = 1185
TabIndex = 16
Top = 180
Width = 1560
_ExtentX = 2752
_ExtentY = 661
_Version = 393216
BackColor = 12640511
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
BackColor = &H00C0C0C0&
Caption = "起始日期："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Index = 1
Left = 75
TabIndex = 18
Top = 225
Width = 1335
End
Begin VB.Label Label2
BackColor = &H00C0C0C0&
Caption = "结束日期："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 375
Left = 105
TabIndex = 17
Top = 615
Width = 1335
End
Begin VB.Label Label1
BackColor = &H80000000&
BackStyle = 0 'Transparent
Caption = "...详细："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000006&
Height = 255
Index = 19
Left = 240
TabIndex = 12
Top = 1425
Width = 1005
End
Begin VB.Label Label1
BackColor = &H80000000&
BackStyle = 0 'Transparent
Caption = "药理分类："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000006&
Height = 255
Index = 13
Left = 135
TabIndex = 11
Top = 1035
Width = 1110
End
Begin VB.Label Label1
BackColor = &H80000000&
BackStyle = 0 'Transparent
Caption = "西药属性："
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000006&
Height = 255
Index = 10
Left = 2910
TabIndex = 10
Top = 645
Width = 1110
End
Begin VB.Label Label1
BackColor = &H80000000&
BackStyle = 0 'Transparent
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -