📄 frmlostbook.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmlostbook
BorderStyle = 1 'Fixed Single
Caption = "书籍损失罚款"
ClientHeight = 7815
ClientLeft = 45
ClientTop = 435
ClientWidth = 8715
Icon = "frmlostbook.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 7815
ScaleWidth = 8715
Begin VB.ComboBox cmb罚款原因
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
ItemData = "frmlostbook.frx":19862
Left = 5400
List = "frmlostbook.frx":1986F
Style = 2 'Dropdown List
TabIndex = 37
Top = 4762
Width = 3015
End
Begin VB.CheckBox chkdel
Caption = "是否注销损失的图书"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 365
Left = 4560
TabIndex = 15
Top = 7200
Width = 2415
End
Begin VB.TextBox txt借阅日期
BackColor = &H8000000F&
BeginProperty DataFormat
Type = 1
Format = "yyyy-M-d"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 3
EndProperty
Enabled = 0 'False
Height = 390
Left = 1440
TabIndex = 35
Top = 7080
Width = 2415
End
Begin VB.CommandButton cmdexec
Caption = "执 行 交 款"
Enabled = 0 'False
Height = 375
Left = 2280
TabIndex = 10
Top = 4740
Width = 1815
End
Begin VB.CheckBox chk读者编号
Caption = "读者编号："
Height = 255
Left = 4440
TabIndex = 2
Top = 555
Width = 1215
End
Begin VB.CheckBox chk图书编号
Caption = "图书编号："
Height = 255
Left = 600
TabIndex = 0
Top = 555
Width = 1215
End
Begin VB.CommandButton cmdexit
Cancel = -1 'True
Caption = "退 出"
Height = 375
Left = 4080
TabIndex = 11
Top = 4740
Width = 1335
End
Begin VB.CommandButton cmdborrowed
Caption = "读者借阅信息列表"
Height = 375
Left = 240
TabIndex = 9
Top = 4740
Width = 2055
End
Begin VB.TextBox txt实收金额
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 390
Left = 5520
TabIndex = 14
Top = 6720
Width = 2415
End
Begin VB.TextBox txt应罚金额
BackColor = &H8000000F&
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Enabled = 0 'False
Height = 390
Left = 5520
TabIndex = 32
Top = 6360
Width = 2415
End
Begin VB.TextBox txt损失数量
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Height = 390
Left = 5520
TabIndex = 13
Top = 6000
Width = 2415
End
Begin VB.TextBox txt借阅数量
BackColor = &H8000000F&
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Enabled = 0 'False
Height = 390
Left = 5520
TabIndex = 29
Top = 5640
Width = 2415
End
Begin VB.TextBox txt图书价格
BackColor = &H8000000F&
BeginProperty DataFormat
Type = 1
Format = "0.00"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 1
EndProperty
Enabled = 0 'False
Height = 390
Left = 5520
TabIndex = 27
Top = 5280
Width = 2415
End
Begin VB.TextBox txt图书名称
BackColor = &H8000000F&
Enabled = 0 'False
Height = 390
Left = 1440
TabIndex = 25
Top = 6720
Width = 2415
End
Begin VB.TextBox txt图书编号
BackColor = &H8000000F&
Enabled = 0 'False
Height = 390
Index = 1
Left = 1440
TabIndex = 23
Top = 6360
Width = 2415
End
Begin VB.TextBox txt读者姓名
BackColor = &H8000000F&
Enabled = 0 'False
Height = 390
Left = 1440
TabIndex = 21
Top = 6000
Width = 2415
End
Begin VB.TextBox txt读者编号
BackColor = &H8000000F&
Enabled = 0 'False
Height = 390
Index = 1
Left = 1440
TabIndex = 19
Top = 5640
Width = 2415
End
Begin VB.CheckBox chk罚款日期
Caption = "罚款日期："
Height = 180
Left = 600
TabIndex = 4
Top = 1170
Width = 1215
End
Begin VB.CommandButton cmdqueue
Caption = "查 询"
Default = -1 'True
Height = 375
Left = 6840
TabIndex = 7
Top = 1080
Width = 1215
End
Begin VB.TextBox txt读者编号
Enabled = 0 'False
Height = 390
Index = 0
Left = 5640
TabIndex = 3
Top = 480
Width = 2415
End
Begin VB.TextBox txt图书编号
Enabled = 0 'False
Height = 390
Index = 0
Left = 1800
TabIndex = 1
Top = 480
Width = 2415
End
Begin MSComCtl2.DTPicker DTP罚款日期
Height = 375
Index = 0
Left = 1920
TabIndex = 5
Top = 1080
Width = 1935
_ExtentX = 3413
_ExtentY = 661
_Version = 393216
Enabled = 0 'False
Format = 25296897
CurrentDate = 38842
End
Begin MSComCtl2.DTPicker DTP罚款日期
Height = 375
Index = 1
Left = 4680
TabIndex = 6
Top = 1080
Width = 1935
_ExtentX = 3413
_ExtentY = 661
_Version = 393216
Enabled = 0 'False
Format = 25296897
CurrentDate = 38842
End
Begin MSFlexGridLib.MSFlexGrid fineGrid
Height = 3015
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -