📄 rl_return.frm
字号:
VERSION 5.00
Object = "{00028C01-0000-0000-0000-000000000046}#1.0#0"; "DBGRID32.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form RL_Return
BorderStyle = 3 'Fixed Dialog
Caption = "还书"
ClientHeight = 5475
ClientLeft = 45
ClientTop = 330
ClientWidth = 6780
Icon = "RL_Return.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MDIChild = -1 'True
MinButton = 0 'False
ScaleHeight = 5475
ScaleWidth = 6780
ShowInTaskbar = 0 'False
Begin VB.CommandButton cmd_Quit
Caption = "关闭(&Q)"
Height = 345
Left = 5550
TabIndex = 9
Top = 4965
Width = 1059
End
Begin VB.CommandButton cmd_Clear
Caption = "清空(&C)"
Height = 345
Left = 4335
TabIndex = 8
Top = 4965
Width = 1059
End
Begin VB.CommandButton cmd_Return
Caption = "归还(&R)"
Height = 345
Left = 3105
TabIndex = 7
Top = 4965
Width = 1059
End
Begin MSComCtl2.DTPicker dtp_Date
Height = 300
Left = 1155
TabIndex = 34
Top = 4980
Width = 1590
_ExtentX = 2805
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 24707073
CurrentDate = 38422
End
Begin MSDBGrid.DBGrid dbg_Return
Height = 1275
Left = 120
OleObjectBlob = "RL_Return.frx":0CCA
TabIndex = 32
Top = 3480
Width = 6510
End
Begin VB.Frame Frame2
Height = 1095
Left = 105
TabIndex = 31
Top = 2235
Width = 6525
Begin VB.CommandButton cmd_Search
Caption = "搜索(&S)"
Height = 345
Left = 5175
TabIndex = 6
Top = 630
Width = 1095
End
Begin VB.TextBox txt_sBarCode
Height = 300
Left = 4680
TabIndex = 3
Top = 225
Width = 1590
End
Begin VB.TextBox txt_sReaderID
Height = 300
Left = 1365
TabIndex = 5
Top = 585
Width = 1590
End
Begin VB.TextBox txt_sBooksID
Height = 300
Left = 1365
TabIndex = 1
Top = 225
Width = 1590
End
Begin VB.Label lbl_sReaderID
Caption = "读者编码(&E)"
Height = 345
Left = 180
TabIndex = 4
Top = 660
Width = 990
End
Begin VB.Label lbl_sBarCode
Caption = "条形码(&A)"
Height = 240
Left = 3360
TabIndex = 2
Top = 270
Width = 1320
End
Begin VB.Label lbl_sBooksID
Caption = "图书编码(&B)"
Height = 330
Left = 180
TabIndex = 0
Top = 270
Width = 1275
End
End
Begin VB.Frame fra_BooksAndReader
Height = 2130
Left = 120
TabIndex = 20
Top = 0
Width = 6510
Begin MSComCtl2.DTPicker dtp_ReturnedDay
Height = 300
Left = 4680
TabIndex = 18
Top = 1305
Width = 1590
_ExtentX = 2805
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 24707073
CurrentDate = 38422
End
Begin VB.TextBox txt_PersonHandling
Enabled = 0 'False
Height = 300
Left = 4680
TabIndex = 19
Top = 1665
Width = 1590
End
Begin VB.TextBox txt_Department
Enabled = 0 'False
Height = 300
Left = 4680
TabIndex = 16
Top = 585
Width = 1590
End
Begin VB.TextBox txt_ReaderType
Enabled = 0 'False
Height = 300
Left = 4680
TabIndex = 15
Top = 225
Width = 1590
End
Begin VB.TextBox txt_ReaderName
Enabled = 0 'False
Height = 300
Left = 1365
TabIndex = 14
Top = 1665
Width = 1590
End
Begin VB.TextBox txt_ReaderID
Enabled = 0 'False
Height = 300
Left = 1365
TabIndex = 13
Top = 1305
Width = 1590
End
Begin VB.TextBox txt_BooksName
Enabled = 0 'False
Height = 300
Left = 1365
TabIndex = 12
Top = 945
Width = 1590
End
Begin VB.TextBox txt_BarCode
Enabled = 0 'False
Height = 300
Left = 1365
TabIndex = 11
Top = 585
Width = 1590
End
Begin VB.TextBox txt_BooksID
Enabled = 0 'False
Height = 300
Left = 1365
TabIndex = 10
Top = 225
Width = 1590
End
Begin MSComCtl2.DTPicker dtp_BorrowDay
Height = 300
Left = 4680
TabIndex = 17
Top = 945
Width = 1590
_ExtentX = 2805
_ExtentY = 529
_Version = 393216
Enabled = 0 'False
Format = 24707073
CurrentDate = 38422
End
Begin VB.Label lbl_PersonHandling
Caption = "借书经手人"
Height = 285
Left = 3360
TabIndex = 30
Top = 1755
Width = 1380
End
Begin VB.Label lbl_ReturnedDay
Caption = "约定归还日期"
Height = 255
Left = 3360
TabIndex = 29
Top = 1380
Width = 1305
End
Begin VB.Label lbl_BorrowDay
Caption = "借书日期"
Height = 270
Left = 3360
TabIndex = 28
Top = 1020
Width = 990
End
Begin VB.Label lbl_Department
Caption = "部门单位"
Height = 255
Left = 3360
TabIndex = 27
Top = 645
Width = 960
End
Begin VB.Label lbl_ReaderType
Caption = "读者类别"
Height = 315
Left = 3360
TabIndex = 26
Top = 270
Width = 1230
End
Begin VB.Label lbl_BarCode
Caption = "条形码"
Height = 210
Left = 180
TabIndex = 25
Top = 645
Width = 585
End
Begin VB.Label lbl_ReaderName
Caption = "读者姓名"
Height = 240
Left = 180
TabIndex = 24
Top = 1755
Width = 960
End
Begin VB.Label lbl_ReaderID
Caption = "读者编号"
Height = 255
Left = 180
TabIndex = 23
Top = 1380
Width = 1095
End
Begin VB.Label lbl_BooksName
Caption = "图书名称"
Height = 285
Left = 180
TabIndex = 22
Top = 1005
Width = 1065
End
Begin VB.Label lbl_BooksID
Caption = "图书编号"
Height = 240
Left = 180
TabIndex = 21
Top = 270
Width = 720
End
End
Begin VB.Label lbl_Date
Caption = "当前日期"
Height = 240
Left = 150
TabIndex = 33
Top = 5040
Width = 840
End
End
Attribute VB_Name = "RL_Return"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -