📄 shuji.dob
字号:
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column05
DataField = "ISBN编号"
Caption = "ISBN编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column06
DataField = "出版处"
Caption = "出版处"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column07
DataField = "内容简介"
Caption = "内容简介"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column08
DataField = "页数"
Caption = "页数"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column09
DataField = "购买价格"
Caption = "购买价格"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column10
DataField = "购买数量"
Caption = "购买数量"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column11
DataField = "购买日期"
Caption = "购买日期"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column12
DataField = "书架编号"
Caption = "书架编号"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column13
DataField = "附注"
Caption = "附注"
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
Object.Visible = 0 'False
ColumnWidth = 1094.74
EndProperty
BeginProperty Column01
ColumnWidth = 2085.166
EndProperty
BeginProperty Column02
ColumnWidth = 1094.74
EndProperty
BeginProperty Column03
ColumnWidth = 734.74
EndProperty
BeginProperty Column04
ColumnWidth = 2085.166
EndProperty
BeginProperty Column05
ColumnWidth = 2085.166
EndProperty
BeginProperty Column06
ColumnWidth = 2085.166
EndProperty
BeginProperty Column07
ColumnWidth = 2085.166
EndProperty
BeginProperty Column08
ColumnWidth = 734.74
EndProperty
BeginProperty Column09
ColumnWidth = 2085.166
EndProperty
BeginProperty Column10
ColumnWidth = 1094.74
EndProperty
BeginProperty Column11
ColumnWidth = 2085.166
EndProperty
BeginProperty Column12
ColumnWidth = 2085.166
EndProperty
BeginProperty Column13
ColumnWidth = 2085.166
EndProperty
EndProperty
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "总号:"
Height = 180
Index = 1
Left = 360
TabIndex = 31
Top = 525
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "书号:"
Height = 180
Index = 2
Left = 3300
TabIndex = 30
Top = 525
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "书名:"
Height = 180
Index = 3
Left = 360
TabIndex = 29
Top = 945
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "ISBN编号:"
Height = 180
Index = 4
Left = 360
TabIndex = 28
Top = 1365
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "出版处:"
Height = 180
Index = 5
Left = 3780
TabIndex = 27
Top = 1365
Width = 690
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "内容简介:"
Height = 180
Index = 6
Left = 360
TabIndex = 26
Top = 1785
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "著者:"
Height = 180
Index = 7
Left = 7680
TabIndex = 25
Top = 945
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "购买价格:"
Height = 180
Index = 8
Left = 360
TabIndex = 24
Top = 4725
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "购买数量:"
Height = 180
Index = 9
Left = 2820
TabIndex = 23
Top = 4725
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "购买日期:"
Height = 180
Index = 10
Left = 5220
TabIndex = 22
Top = 4725
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "页数:"
Height = 180
Index = 11
Left = 7680
TabIndex = 21
Top = 1365
Width = 450
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "书架编号:"
Height = 180
Index = 12
Left = 7320
TabIndex = 20
Top = 4725
Width = 810
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "附注:"
Height = 180
Index = 13
Left = 360
TabIndex = 19
Top = 5145
Width = 450
End
End
End
Attribute VB_Name = "ShuJi"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
Const strSource As String = "select 书籍序号,总号,书号,书名,著者,ISBN编号,出版处,内容简介,页数,购买价格,购买数量,购买日期,书架编号,附注 from 书籍"
Private Sub cmdOK_Click()
Dim strSearch As String
End Sub
Private Sub datPrimaryRS_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
'错误处理程序代码置于此处
'想要忽略错误，注释掉下一行
'想要捕获它们，在此添加代码以处理它们
MsgBox "Data error event hit err:" & Description
End Sub
Private Sub cmdAdd_Click()
On Error GoTo AddErr
datPrimaryRS.Recordset.AddNew
Exit Sub
AddErr:
MsgBox Err.Description
End Sub
Private Sub cmdDelete_Click()
On Error GoTo DeleteErr
With datPrimaryRS.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
Exit Sub
DeleteErr:
MsgBox Err.Description
End Sub
Private Sub cmdRefresh_Click()
'只有多用户应用程序需要
On Error GoTo RefreshErr
datPrimaryRS.Refresh
Exit Sub
RefreshErr:
MsgBox Err.Description
End Sub
Private Sub cmdUpdate_Click()
On Error GoTo UpdateErr
datPrimaryRS.Recordset.UpdateBatch adAffectAll
Exit Sub
UpdateErr:
MsgBox Err.Description
End Sub
Private Sub UserDocument_Initialize()
With datPrimaryRS
.ConnectionString = pConn
.RecordSource = "select 书籍序号,总号,书号,书名,著者,ISBN编号,出版处,内容简介,页数,购买价格,购买数量,购买日期,书架编号,附注 from 书籍"
.Refresh
End With
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -