📄 library_manage.dsr
字号:
BeginProperty Field13
Precision = 3
Size = 1
Scale = 0
Type = 17
Name = "可借数"
Caption = "可借数"
EndProperty
BeginProperty Field14
Precision = 0
Size = 20
Scale = 0
Type = 200
Name = "库室名"
Caption = "库室名"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset6
CommandName = "BooksBibli"
CommDispId = 1024
RsDispId = 1026
CommandText = "dbo.图书书目"
ActiveConnectionName= "Library_Manage_Con"
CommandType = 2
dbObjectType = 1
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 10
BeginProperty Field1
Precision = 0
Size = 7
Scale = 0
Type = 129
Name = "条码"
Caption = "条码"
EndProperty
BeginProperty Field2
Precision = 0
Size = 25
Scale = 0
Type = 200
Name = "索书号"
Caption = "索书号"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "书名"
Caption = "书名"
EndProperty
BeginProperty Field4
Precision = 0
Size = 25
Scale = 0
Type = 200
Name = "作者"
Caption = "作者"
EndProperty
BeginProperty Field5
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "出版社"
Caption = "出版社"
EndProperty
BeginProperty Field6
Precision = 16
Size = 16
Scale = 0
Type = 135
Name = "出版日期"
Caption = "出版日期"
EndProperty
BeginProperty Field7
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "字数"
Caption = "字数"
EndProperty
BeginProperty Field8
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "页数"
Caption = "页数"
EndProperty
BeginProperty Field9
Precision = 0
Size = 200
Scale = 0
Type = 200
Name = "内容简介"
Caption = "内容简介"
EndProperty
BeginProperty Field10
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "关键词"
Caption = "关键词"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset7
CommandName = "NewBooksBibli"
CommDispId = 1027
RsDispId = 1053
CommandText = "dbo.图书书目"
ActiveConnectionName= "Library_Manage_Con"
CommandType = 2
dbObjectType = 1
Locktype = 3
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 10
BeginProperty Field1
Precision = 0
Size = 7
Scale = 0
Type = 129
Name = "条码"
Caption = "条码"
EndProperty
BeginProperty Field2
Precision = 0
Size = 25
Scale = 0
Type = 200
Name = "索书号"
Caption = "索书号"
EndProperty
BeginProperty Field3
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "书名"
Caption = "书名"
EndProperty
BeginProperty Field4
Precision = 0
Size = 25
Scale = 0
Type = 200
Name = "作者"
Caption = "作者"
EndProperty
BeginProperty Field5
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "出版社"
Caption = "出版社"
EndProperty
BeginProperty Field6
Precision = 16
Size = 16
Scale = 0
Type = 135
Name = "出版日期"
Caption = "出版日期"
EndProperty
BeginProperty Field7
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "字数"
Caption = "字数"
EndProperty
BeginProperty Field8
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "页数"
Caption = "页数"
EndProperty
BeginProperty Field9
Precision = 0
Size = 200
Scale = 0
Type = 200
Name = "内容简介"
Caption = "内容简介"
EndProperty
BeginProperty Field10
Precision = 0
Size = 50
Scale = 0
Type = 200
Name = "关键词"
Caption = "关键词"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset8
CommandName = "LendReturn"
CommDispId = 1031
RsDispId = 1049
CommandText = "dbo.图书借阅"
ActiveConnectionName= "Library_Manage_Con"
CommandType = 2
dbObjectType = 1
Locktype = 3
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 6
BeginProperty Field1
Precision = 0
Size = 7
Scale = 0
Type = 129
Name = "条码"
Caption = "条码"
EndProperty
BeginProperty Field2
Precision = 0
Size = 5
Scale = 0
Type = 200
Name = "证号"
Caption = "证号"
EndProperty
BeginProperty Field3
Precision = 16
Size = 16
Scale = 0
Type = 135
Name = "借期"
Caption = "借期"
EndProperty
BeginProperty Field4
Precision = 16
Size = 16
Scale = 0
Type = 135
Name = "还期"
Caption = "还期"
EndProperty
BeginProperty Field5
Precision = 0
Size = 2
Scale = 0
Type = 11
Name = "已还"
Caption = "已还"
EndProperty
BeginProperty Field6
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "库号"
Caption = "库号"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset9
CommandName = "BooksLends"
CommDispId = 1044
RsDispId = 1050
CommandText = "dbo.图书借阅"
ActiveConnectionName= "Library_Manage_Con"
CommandType = 2
dbObjectType = 1
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 6
BeginProperty Field1
Precision = 0
Size = 7
Scale = 0
Type = 129
Name = "条码"
Caption = "条码"
EndProperty
BeginProperty Field2
Precision = 0
Size = 5
Scale = 0
Type = 200
Name = "证号"
Caption = "证号"
EndProperty
BeginProperty Field3
Precision = 16
Size = 16
Scale = 0
Type = 135
Name = "借期"
Caption = "借期"
EndProperty
BeginProperty Field4
Precision = 16
Size = 16
Scale = 0
Type = 135
Name = "还期"
Caption = "还期"
EndProperty
BeginProperty Field5
Precision = 0
Size = 2
Scale = 0
Type = 11
Name = "已还"
Caption = "已还"
EndProperty
BeginProperty Field6
Precision = 10
Size = 4
Scale = 0
Type = 3
Name = "库号"
Caption = "库号"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
End
Attribute VB_Name = "Library_Manage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub rsBooksLends_分组_WillChangeField(ByVal cFields As Long, ByVal Fields As Variant, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -