📄 rl_readermanage.frm
字号:
Top = 1665
Width = 750
End
Begin VB.TextBox txt_AllowBorrowDay
Height = 300
Left = 4875
TabIndex = 12
Top = 1305
Width = 750
End
Begin MSComCtl2.DTPicker dtp_BooksRegisterDate
Height = 300
Left = 1365
TabIndex = 8
Top = 3075
Width = 1590
_ExtentX = 2805
_ExtentY = 529
_Version = 393216
Format = 24576001
CurrentDate = 38421
End
Begin VB.Label Label5
Caption = "次"
Height = 210
Left = 5790
TabIndex = 63
Top = 2085
Width = 240
End
Begin VB.Label Label4
Caption = "次"
Height = 210
Left = 5790
TabIndex = 62
Top = 1740
Width = 240
End
Begin VB.Label Label3
Caption = "天"
Height = 300
Left = 5790
TabIndex = 61
Top = 1380
Width = 405
End
Begin VB.Label Label2
Caption = "本"
Height = 300
Left = 5790
TabIndex = 60
Top = 645
Width = 405
End
Begin VB.Label lbl_Remark
Caption = "备注(&R)"
Height = 330
Left = 3360
TabIndex = 59
Top = 2430
Width = 1080
End
Begin VB.Label lbl_RestrictAmmount
Caption = "借书数量上限(&L)"
Height = 240
Left = 3360
TabIndex = 50
Top = 300
Width = 1365
End
Begin VB.Label lbl_AllowContinueTime
Caption = "允许续借次数(&O)"
Height = 240
Left = 3360
TabIndex = 49
Top = 990
Width = 1485
End
Begin VB.Label lbl_AllowBorrowDay
Caption = "允许借书期限(&E)"
Height = 240
Left = 3360
TabIndex = 48
Top = 1350
Width = 1485
End
Begin VB.Label lbl_BorrowTime
Caption = "借书次数(&Z)"
Height = 240
Left = 3360
TabIndex = 47
Top = 1710
Width = 1485
End
Begin VB.Label lbl_NonceHoldAmount
Caption = "目前已借数量(&R)"
Height = 240
Left = 3360
TabIndex = 46
Top = 630
Width = 1365
End
Begin VB.Label lbl_GiveBackTime
Caption = "归还次数(&F)"
Height = 240
Left = 3360
TabIndex = 45
Top = 2070
Width = 1125
End
Begin VB.Label lbl_Department
Caption = "部门(&5)"
Height = 240
Left = 180
TabIndex = 44
Top = 1710
Width = 1125
End
Begin VB.Label lbl_ReaderRegisterDate
Caption = "注册日期(&9)"
Height = 240
Left = 180
TabIndex = 43
Top = 3165
Width = 1125
End
Begin VB.Label lbl_Address
Caption = "住址(&8)"
Height = 240
Left = 180
TabIndex = 42
Top = 2790
Width = 1125
End
Begin VB.Label lbl_TelNumber
Caption = "联系电话(&7)"
Height = 240
Left = 180
TabIndex = 41
Top = 2430
Width = 1125
End
Begin VB.Label lbl_ReaderType
Caption = "类别(&6)"
Height = 240
Left = 180
TabIndex = 40
Top = 2070
Width = 1125
End
Begin VB.Label lbl_IDCard
Caption = "身份证号(&4)"
Height = 240
Left = 180
TabIndex = 39
Top = 1350
Width = 1125
End
Begin VB.Label lbl_Number
Caption = "学号(&3)"
Height = 240
Left = 180
TabIndex = 38
Top = 990
Width = 1125
End
Begin VB.Label lbl_ReaderName
Caption = "姓名(&2)"
Height = 240
Left = 180
TabIndex = 37
Top = 630
Width = 1125
End
Begin VB.Label lbl_ReaderID
Caption = "读者编号(&1)"
Height = 240
Left = 180
TabIndex = 36
Top = 300
Width = 1125
End
Begin VB.Label Label17
Caption = "本"
Height = 300
Left = 5790
TabIndex = 35
Top = 255
Width = 405
End
Begin VB.Label Label18
Caption = "次"
Height = 210
Left = 5790
TabIndex = 34
Top = 1005
Width = 240
End
End
Begin VB.CommandButton cmd_Previous
Caption = "上一条记录(&P)"
Height = 345
Left = 105
TabIndex = 28
Top = 5970
Width = 1370
End
Begin VB.CommandButton cmd_Next
Caption = "下一条记录(&N)"
Height = 345
Left = 1575
TabIndex = 29
Top = 5970
Width = 1370
End
Begin VB.CommandButton cmd_Add
Caption = "添加(&A)"
Height = 345
Left = 5250
TabIndex = 16
Top = 5970
Width = 1095
End
Begin VB.CommandButton cmd_Modification
Caption = "修改(&M)"
Height = 345
Left = 6465
TabIndex = 17
Top = 5970
Width = 1095
End
Begin VB.CommandButton cmd_Delete
Caption = "删除(&D)"
Height = 345
Left = 7665
TabIndex = 18
Top = 5970
Width = 1095
End
Begin VB.CommandButton cmd_Excel
Caption = "导出Excel(&X)"
Height = 345
Left = 3045
TabIndex = 30
Top = 5970
Width = 1370
End
End
Attribute VB_Name = "RL_ReaderManage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub lbl_Price_Click()
End Sub
Private Sub lbl_sWriter_Click()
End Sub
Private Sub lbl_Department_Click()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -