📄 frmfigurebus.frm
字号:
IMEMode = 1 'ON
Left = 3495
TabIndex = 1
TabStop = 0 'False
Text = "txtName"
Top = 855
Width = 1575
End
Begin VB.CommandButton cmdNextRecipeNum
Caption = "&N.下一处方"
Enabled = 0 'False
Height = 345
Left = 8070
TabIndex = 18
Top = 1185
Width = 1170
End
Begin VB.CommandButton cmdPrevRecipeNum
Caption = "&U.上一处方"
Height = 345
Left = 8070
TabIndex = 17
Top = 840
Width = 1170
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 = 315
Left = 870
TabIndex = 0
Text = "txtID"
Top = 840
Width = 1575
End
Begin VB.TextBox txtDoctor
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 870
TabIndex = 3
Text = "txtDoctor"
Top = 1200
Width = 1575
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 = 315
Left = 3495
TabIndex = 4
Text = "txtDepart"
Top = 1230
Width = 1575
End
Begin LstCtl.ListCtl ListCtl1
Height = 330
Left = 15
TabIndex = 12
Top = 6015
Width = 3030
_ExtentX = 5345
_ExtentY = 582
End
Begin VB.Label Label7
AutoSize = -1 'True
Caption = "红字的药品库存不够"
ForeColor = &H000000FF&
Height = 180
Left = 390
TabIndex = 47
Top = 6090
Width = 1620
End
Begin VB.Label lblType
AutoSize = -1 'True
Caption = "lblType"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00404080&
Height = 240
Left = 5280
TabIndex = 44
Top = 1290
Width = 960
End
Begin VB.Label lblHander
AutoSize = -1 'True
Caption = "lblHandler"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 195
Left = 7935
TabIndex = 30
Tag = "Dyn"
Top = 405
Visible = 0 'False
Width = 1050
End
Begin VB.Label lblDate
AutoSize = -1 'True
Caption = "lblDate"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 195
Left = 5745
TabIndex = 29
Top = 405
Visible = 0 'False
Width = 735
End
Begin VB.Label lblFetch
AutoSize = -1 'True
Caption = "取药"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Left = 8535
TabIndex = 28
Top = 90
Width = 525
End
Begin VB.Label lblRev
AutoSize = -1 'True
Caption = "收费"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Left = 7815
TabIndex = 27
Top = 90
Width = 525
End
Begin VB.Label Label13
AutoSize = -1 'True
Caption = "病人类型:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 5130
TabIndex = 26
Top = 915
Width = 1050
End
Begin VB.Shape Shape2
Height = 345
Left = 7380
Top = 1170
Width = 645
End
Begin VB.Shape Shape4
Height = 345
Left = 7380
Top = 840
Width = 645
End
Begin VB.Label lblCancel
AutoSize = -1 'True
Caption = "作废"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 240
Left = 7110
TabIndex = 24
Top = 90
Width = 525
End
Begin VB.Label Label14
AutoSize = -1 'True
Caption = "共"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 7470
TabIndex = 23
Top = 900
Width = 225
End
Begin VB.Label lblRecipeTotal
AutoSize = -1 'True
Caption = "N"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 210
Left = 7770
TabIndex = 22
Top = 870
Width = 135
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "第"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 7470
TabIndex = 21
Top = 1215
Width = 210
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "姓 名:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 2520
TabIndex = 20
Top = 915
Width = 1050
End
Begin VB.Label lblRecipeNum
AutoSize = -1 'True
Caption = "1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF00FF&
Height = 210
Left = 7770
TabIndex = 19
Top = 1185
Width = 135
End
Begin VB.Label lblCaption
AutoSize = -1 'True
Caption = "划 价"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 315
Left = 3870
TabIndex = 16
Top = 120
Width = 1020
End
Begin VB.Line Line4
BorderColor = &H8000000C&
X1 = 0
X2 = 9450
Y1 = 660
Y2 = 660
End
Begin VB.Line Line1
BorderColor = &H80000009&
X1 = 0
X2 = 9450
Y1 = 645
Y2 = 645
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "病人ID:"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -