📄 frmhousebus.frm
字号:
VERSION 5.00
Object = "{B02F3647-766B-11CE-AF28-C3A2FBE76A13}#2.5#0"; "SS32X25.OCX"
Object = "{33E9552B-797C-11D2-900E-444553540000}#31.0#0"; "LSTCTL.OCX"
Object = "{3656C817-4709-11D2-900E-444553540000}#61.0#0"; "MAINTAINCTL.OCX"
Begin VB.Form frmHouseBus
BorderStyle = 1 'Fixed Single
Caption = "药房业务"
ClientHeight = 5370
ClientLeft = 1095
ClientTop = 1395
ClientWidth = 9180
Icon = "frmHouseBus.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
Moveable = 0 'False
ScaleHeight = 5370
ScaleWidth = 9180
Begin FPSpread.vaSpread spd
Height = 2880
Left = 30
OleObjectBlob = "frmHouseBus.frx":0442
TabIndex = 2
Top = 975
Width = 9135
End
Begin VB.TextBox txtMarker
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 330
Left = 7320
MaxLength = 20
TabIndex = 4
Text = "txtMarker"
Top = 4320
Width = 1380
End
Begin VB.TextBox Text1
Height = 315
Left = 2310
MultiLine = -1 'True
TabIndex = 23
TabStop = 0 'False
Text = "frmHouseBus.frx":2E00
Top = 120
Visible = 0 'False
Width = 1035
End
Begin VB.Frame fra
BorderStyle = 0 'None
Height = 660
Left = 6900
TabIndex = 18
Top = -120
Width = 2820
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "时 间:"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 192
Left = 72
TabIndex = 22
Top = 168
Width = 672
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 = 192
Left = 888
TabIndex = 21
Top = 432
Width = 1056
End
Begin VB.Label lblTHandler
AutoSize = -1 'True
Caption = "操作员:"
BeginProperty Font
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C000C0&
Height = 192
Left = 72
TabIndex = 20
Top = 432
Width = 696
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 = 192
Left = 888
TabIndex = 19
Top = 192
Width = 732
End
End
Begin VB.TextBox txtSheetID
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000002&
Height = 330
Left = 1020
MaxLength = 20
TabIndex = 0
Text = "txtSheetID"
Top = 636
Width = 1770
End
Begin VB.TextBox txtComment
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
IMEMode = 1 'ON
Left = 1200
ScrollBars = 2 'Vertical
TabIndex = 3
Text = "txtComment"
Top = 4320
Width = 4920
End
Begin LstCtl.ListCtl lct
Height = 345
Left = 30
TabIndex = 11
Top = 4950
Width = 2445
_ExtentX = 4313
_ExtentY = 609
End
Begin UseMaintainCtl.MaiControl mcr
Height = 585
Left = 4230
TabIndex = 5
Top = 4800
Width = 4950
_ExtentX = 8731
_ExtentY = 1032
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
Status = 0
BackColorForAdd = -2147483638
BackColorForUpdate= -2147483638
ButtonCaption = "&R.更新 &A.增加 &D.作废 &C.清除 &T.转换 &Q.查询 &P.打印 &E退出"
KeyEnabled = "0#1#1#1#1#1#1#1#"
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 = 4035
TabIndex = 1
Text = "txtDepart"
Top = 636
Width = 2085
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "经办人："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 210
Left = 6420
TabIndex = 24
Tag = "Dyn"
Top = 4380
Width = 840
End
Begin VB.Line Line4
BorderColor = &H80000005&
X1 = -180
X2 = 9240
Y1 = 4770
Y2 = 4770
End
Begin VB.Line Line3
BorderColor = &H80000003&
X1 = -180
X2 = 9240
Y1 = 4785
Y2 = 4785
End
Begin VB.Label Label2
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 = 5190
TabIndex = 17
Top = 3960
Width = 975
End
Begin VB.Label lblCGMoney
AutoSize = -1 'True
Caption = "lblCGMoney"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 210
Left = 6255
TabIndex = 16
Tag = "Dyn"
Top = 3960
Width = 1050
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "单 据 号"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 192
Left = 36
TabIndex = 15
Top = 696
Width = 936
End
Begin VB.Label LblYY
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备注:"
BeginProperty Font
Name = "宋体"
Size = 11.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
StrIkethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 225
Left = 480
TabIndex = 14
Top = 4380
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -