📄 datae1.dsr
字号:
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset3
CommandName = "Command3"
CommDispId = 1061
RsDispId = 1064
CommandText = "kcb"
ActiveConnectionName= "Connection1"
CommandType = 2
dbObjectType = 1
IsRSReturning = -1 'True
NumFields = 14
BeginProperty Field1
Precision = 0
Size = 10
Scale = 0
Type = 200
Name = "书号"
Caption = "书号"
EndProperty
BeginProperty Field2
Precision = 0
Size = 20
Scale = 0
Type = 200
Name = "条形码"
Caption = "条形码"
EndProperty
BeginProperty Field3
Precision = 0
Size = 200
Scale = 0
Type = 200
Name = "书名"
Caption = "书名"
EndProperty
BeginProperty Field4
Precision = 0
Size = 20
Scale = 0
Type = 200
Name = "作者"
Caption = "作者"
EndProperty
BeginProperty Field5
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "出版社"
Caption = "出版社"
EndProperty
BeginProperty Field6
Precision = 0
Size = 20
Scale = 0
Type = 200
Name = "图书类别"
Caption = "图书类别"
EndProperty
BeginProperty Field7
Precision = 0
Size = 10
Scale = 0
Type = 200
Name = "存放位置"
Caption = "存放位置"
EndProperty
BeginProperty Field8
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "图书总数"
Caption = "图书总数"
EndProperty
BeginProperty Field9
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "单价"
Caption = "单价"
EndProperty
BeginProperty Field10
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "现存数量"
Caption = "现存数量"
EndProperty
BeginProperty Field11
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "金额"
Caption = "金额"
EndProperty
BeginProperty Field12
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "借出次数"
Caption = "借出次数"
EndProperty
BeginProperty Field13
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "库存上限"
Caption = "库存上限"
EndProperty
BeginProperty Field14
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "库存下限"
Caption = "库存下限"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
BeginProperty Recordset4
CommandName = "Command4"
CommDispId = 1066
RsDispId = 1069
CommandText = "reads"
ActiveConnectionName= "Connection1"
CommandType = 2
dbObjectType = 1
Expanded = -1 'True
IsRSReturning = -1 'True
NumFields = 15
BeginProperty Field1
Precision = 0
Size = 20
Scale = 0
Type = 200
Name = "书证号"
Caption = "书证号"
EndProperty
BeginProperty Field2
Precision = 0
Size = 10
Scale = 0
Type = 200
Name = "姓名"
Caption = "姓名"
EndProperty
BeginProperty Field3
Precision = 0
Size = 2
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 = 30
Scale = 0
Type = 200
Name = "单位"
Caption = "单位"
EndProperty
BeginProperty Field6
Precision = 0
Size = 30
Scale = 0
Type = 200
Name = "家庭住址"
Caption = "家庭住址"
EndProperty
BeginProperty Field7
Precision = 0
Size = 40
Scale = 0
Type = 200
Name = "联系电话"
Caption = "联系电话"
EndProperty
BeginProperty Field8
Precision = 0
Size = 4
Scale = 0
Type = 200
Name = "读者类别"
Caption = "读者类别"
EndProperty
BeginProperty Field9
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "办证价格"
Caption = "办证价格"
EndProperty
BeginProperty Field10
Precision = 0
Size = 6
Scale = 0
Type = 200
Name = "期限"
Caption = "期限"
EndProperty
BeginProperty Field11
Precision = 19
Size = 16
Scale = 0
Type = 135
Name = "办证日期"
Caption = "办证日期"
EndProperty
BeginProperty Field12
Precision = 5
Size = 2
Scale = 0
Type = 2
Name = "已借书数"
Caption = "已借书数"
EndProperty
BeginProperty Field13
Precision = 0
Size = 200
Scale = 0
Type = 200
Name = "相片路径"
Caption = "相片路径"
Control = "Microsoft Picture Clip Control, version 6.0"
ControlGuid = "{27395F85-0C0C-101B-A3C9-08002B2F49FB}"
EndProperty
BeginProperty Field14
Precision = 19
Size = 8
Scale = 0
Type = 6
Name = "收费标准"
Caption = "收费标准"
EndProperty
BeginProperty Field15
Precision = 19
Size = 16
Scale = 0
Type = 135
Name = "到期日期"
Caption = "到期日期"
EndProperty
NumGroups = 0
ParamCount = 0
RelationCount = 0
AggregateCount = 0
EndProperty
End
Attribute VB_Name = "DataE1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub DataEnvironment_Initialize()
DataE1.Connection1.ConnectionString = "DSN=NBooks"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -