📄 frmborrowreturn.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"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmBorrowReturn
Caption = "借还书作业"
ClientHeight = 9090
ClientLeft = 375
ClientTop = 1560
ClientWidth = 11595
Icon = "frmBorrowReturn.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 9090
ScaleWidth = 11595
WindowState = 2 'Maximized
Begin TabDlg.SSTab SSTab1
Height = 8895
Left = 120
TabIndex = 0
Top = 120
Width = 11415
_ExtentX = 20135
_ExtentY = 15690
_Version = 393216
Tabs = 2
Tab = 1
TabHeight = 520
ForeColor = 33023
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "华文行楷"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TabCaption(0) = "借书作业"
TabPicture(0) = "frmBorrowReturn.frx":0442
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Frame1(0)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Frame2(0)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "cmdBorrowRecord(0)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "cmdClose(0)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "DBGrid1(0)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "DBGrid2(0)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "Data1(0)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "Data2(0)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).ControlCount= 8
TabCaption(1) = "还书作业"
TabPicture(1) = "frmBorrowReturn.frx":045E
Tab(1).ControlEnabled= -1 'True
Tab(1).Control(0)= "DBGrid2(1)"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "DBGrid1(1)"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Frame2(1)"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "cmdBorrowRecord(1)"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "cmdClose(1)"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).Control(5)= "Data1(1)"
Tab(1).Control(5).Enabled= 0 'False
Tab(1).Control(6)= "Data2(1)"
Tab(1).Control(6).Enabled= 0 'False
Tab(1).Control(7)= "Frame1(1)"
Tab(1).Control(7).Enabled= 0 'False
Tab(1).ControlCount= 8
Begin VB.Frame Frame1
Caption = "还书情况"
Height = 2895
Index = 1
Left = 120
TabIndex = 31
Top = 360
Width = 5895
Begin VB.TextBox txtAllFee
Height = 270
Left = 1320
TabIndex = 45
Top = 1920
Width = 4335
End
Begin VB.TextBox txtBookName
Enabled = 0 'False
Height = 270
Index = 1
Left = 1080
TabIndex = 42
Top = 1425
Width = 3015
End
Begin VB.CheckBox chkLost
Caption = "是否遗失该书"
Enabled = 0 'False
Height = 255
Left = 4200
TabIndex = 43
Top = 1433
Width = 1455
End
Begin VB.CommandButton cmdRightArrow
Caption = "->"
Height = 255
Index = 1
Left = 2280
TabIndex = 34
Top = 480
Width = 375
End
Begin VB.CommandButton cmdReturn
Caption = "还书(&R)"
Enabled = 0 'False
Height = 375
Left = 1320
TabIndex = 46
Top = 2400
Width = 1095
End
Begin VB.CommandButton cmdCancel
Caption = "取消(&C)"
Height = 375
Index = 1
Left = 3360
TabIndex = 47
Top = 2400
Width = 1095
End
Begin VB.TextBox txtNo
Height = 270
Index = 1
Left = 1080
TabIndex = 33
Top = 435
Width = 1215
End
Begin VB.TextBox txtBookNo
Enabled = 0 'False
Height = 270
Index = 1
Left = 1080
TabIndex = 36
Top = 930
Width = 1215
End
Begin MSComCtl2.DTPicker DTDueReturnDate
Height = 255
Index = 1
Left = 3720
TabIndex = 40
Top = 938
Width = 1935
_ExtentX = 3413
_ExtentY = 450
_Version = 393216
Format = 53542913
CurrentDate = 38134
End
Begin MSComCtl2.DTPicker DTReturnDate
Height = 255
Left = 3720
TabIndex = 38
Top = 443
Width = 1935
_ExtentX = 3413
_ExtentY = 450
_Version = 393216
Format = 53542913
CurrentDate = 38134
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "应还书日期:"
Height = 180
Index = 1
Left = 2760
TabIndex = 39
Top = 975
Width = 990
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "还书日期:"
Height = 180
Index = 1
Left = 2760
TabIndex = 37
Top = 480
Width = 810
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "借书总费用:"
Height = 180
Left = 240
TabIndex = 44
Top = 1965
Width = 990
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "借书证号:"
Height = 180
Index = 1
Left = 240
TabIndex = 32
Top = 480
Width = 810
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "图书编号:"
Height = 180
Index = 1
Left = 240
TabIndex = 35
Top = 975
Width = 810
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "图书名称:"
Height = 180
Index = 1
Left = 240
TabIndex = 41
Top = 1470
Width = 810
End
End
Begin VB.Data Data2
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 405
Index = 1
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 8400
Width = 11175
End
Begin VB.Data Data1
Connect = "Access 2000;"
DatabaseName = ""
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Index = 1
Left = 120
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 5760
Width = 11175
End
Begin VB.CommandButton cmdClose
Caption = "关闭(&X)"
Height = 375
Index = 1
Left = 9480
TabIndex = 64
Top = 480
Width = 1335
End
Begin VB.CommandButton cmdBorrowRecord
Caption = "借书记录(&R)"
Enabled = 0 'False
Height = 375
Index = 1
Left = 7200
TabIndex = 63
Top = 480
Width = 1335
End
Begin VB.Frame Frame2
Caption = "读者基本情况"
Height = 2295
Index = 1
Left = 6120
TabIndex = 48
Top = 960
Width = 5175
Begin VB.TextBox txtCardNo
Height = 270
Index = 1
Left = 1080
TabIndex = 50
Top = 360
Width = 1335
End
Begin VB.TextBox txtClass
Height = 270
Index = 1
Left = 3600
TabIndex = 56
Top = 360
Width = 1335
End
Begin VB.TextBox txtName
Height = 270
Index = 1
Left = 1080
TabIndex = 52
Top = 1020
Width = 1335
End
Begin VB.TextBox txtBorrowTime
Height = 270
Index = 1
Left = 3600
TabIndex = 58
Top = 1020
Width = 1335
End
Begin VB.TextBox txtDepartment
Height = 270
Index = 1
Left = 1080
TabIndex = 54
Top = 1680
Width = 1335
End
Begin VB.TextBox txtBorrowCount
Height = 270
Index = 1
Left = 3600
TabIndex = 60
Top = 1680
Width = 1335
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "类别:"
Height = 180
Index = 1
Left = 2640
TabIndex = 55
Top = 405
Width = 450
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "借书次数:"
Height = 180
Index = 1
Left = 2640
TabIndex = 57
Top = 1065
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -