www.pudn.com > 图书管理系统包括VB,ASP各一份代码.rar > ShuJi.dob
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.UserDocument ShuJi
BackColor = &H8000000E&
ClientHeight = 7125
ClientLeft = 0
ClientTop = 0
ClientWidth = 10005
HScrollSmallChange= 225
ScaleHeight = 7125
ScaleWidth = 10005
VScrollSmallChange= 225
Begin TabDlg.SSTab SSTab1
Height = 6315
Left = 60
TabIndex = 0
Top = 60
Width = 9825
_ExtentX = 17330
_ExtentY = 11139
_Version = 393216
TabsPerRow = 6
TabHeight = 520
BackColor = -2147483639
TabCaption(0) = "记帐单"
TabPicture(0) = "ShuJi.dox":0000
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "lblLabels(13)"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "lblLabels(12)"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "lblLabels(11)"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "lblLabels(10)"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "lblLabels(9)"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "lblLabels(8)"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "lblLabels(7)"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "lblLabels(6)"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "lblLabels(5)"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "lblLabels(4)"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "lblLabels(3)"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "lblLabels(2)"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "lblLabels(1)"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).Control(13)= "datPrimaryRS"
Tab(0).Control(13).Enabled= 0 'False
Tab(0).Control(14)= "picButtons"
Tab(0).Control(14).Enabled= 0 'False
Tab(0).Control(15)= "txtFields(13)"
Tab(0).Control(15).Enabled= 0 'False
Tab(0).Control(16)= "txtFields(12)"
Tab(0).Control(16).Enabled= 0 'False
Tab(0).Control(17)= "txtFields(11)"
Tab(0).Control(17).Enabled= 0 'False
Tab(0).Control(18)= "txtFields(10)"
Tab(0).Control(18).Enabled= 0 'False
Tab(0).Control(19)= "txtFields(9)"
Tab(0).Control(19).Enabled= 0 'False
Tab(0).Control(20)= "txtFields(8)"
Tab(0).Control(20).Enabled= 0 'False
Tab(0).Control(21)= "txtFields(7)"
Tab(0).Control(21).Enabled= 0 'False
Tab(0).Control(22)= "txtFields(6)"
Tab(0).Control(22).Enabled= 0 'False
Tab(0).Control(23)= "txtFields(5)"
Tab(0).Control(23).Enabled= 0 'False
Tab(0).Control(24)= "txtFields(4)"
Tab(0).Control(24).Enabled= 0 'False
Tab(0).Control(25)= "txtFields(3)"
Tab(0).Control(25).Enabled= 0 'False
Tab(0).Control(26)= "txtFields(2)"
Tab(0).Control(26).Enabled= 0 'False
Tab(0).Control(27)= "txtFields(1)"
Tab(0).Control(27).Enabled= 0 'False
Tab(0).ControlCount= 28
TabCaption(1) = "清单"
TabPicture(1) = "ShuJi.dox":001C
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "DataGrid1"
Tab(1).ControlCount= 1
TabCaption(2) = "查询"
TabPicture(2) = "ShuJi.dox":0038
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "DataGrid2"
Tab(2).Control(1)= "Frame1"
Tab(2).ControlCount= 2
Begin VB.Frame Frame1
Caption = "查询条件"
Height = 1155
Left = -74820
TabIndex = 33
Top = 480
Width = 9435
Begin VB.TextBox txtFields
Height = 285
Index = 16
Left = 3600
TabIndex = 39
Top = 300
Width = 1275
End
Begin VB.CommandButton cmdOK
Caption = "确定(&O)"
Height = 375
Left = 7680
TabIndex = 38
Top = 420
Width = 1095
End
Begin VB.TextBox txtFields
Height = 285
Index = 15
Left = 780
TabIndex = 35
Top = 660
Width = 5895
End
Begin VB.TextBox txtFields
Height = 285
Index = 14
Left = 780
TabIndex = 34
Top = 300
Width = 1575
End
Begin VB.Label lblLabels
AutoSize = -1 'True
Caption = "著者:"
Height = 180
Index = 16
Left = 3060
TabIndex = 40
Top = 345
Width = 450
End
Begin VB.Label lblLabels
Caption = "书名:"
Height = 255
Index = 15
Left = 240
TabIndex = 37
Top = 675
Width = 1815
End
Begin VB.Label lblLabels
Caption = "书号:"
Height = 255
Index = 14
Left = 240
TabIndex = 36
Top = 360
Width = 1815
End
End
Begin MSDataGridLib.DataGrid DataGrid1
Bindings = "ShuJi.dox":0054
Height = 5655
Left = -74820
TabIndex = 32
Top = 480
Width = 9435
_ExtentX = 16642
_ExtentY = 9975
_Version = 393216
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 14
BeginProperty Column00
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 Column01
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 Column02
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 Column03
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 Column04
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 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.TextBox txtFields
DataField = "总号"
DataSource = "datPrimaryRS"
Height = 285
Index = 1
Left = 1260
TabIndex = 18
Top = 480
Width = 1515
End
Begin VB.TextBox txtFields
DataField = "书号"
DataSource = "datPrimaryRS"
Height = 285
Index = 2
Left = 3840
TabIndex = 17
Top = 480
Width = 1515
End
Begin VB.TextBox txtFields
DataField = "书名"
DataSource = "datPrimaryRS"
Height = 285
Index = 3
Left = 1260
TabIndex = 16
Top = 900
Width = 5895
End
Begin VB.TextBox txtFields
DataField = "ISBN编号"
DataSource = "datPrimaryRS"
Height = 285
Index = 4
Left = 1260
TabIndex = 15
Top = 1320
Width = 1995
End
Begin VB.TextBox txtFields
DataField = "出版处"
DataSource = "datPrimaryRS"
Height = 285
Index = 5
Left = 4500
TabIndex = 14
Top = 1320
Width = 2655
End
Begin VB.TextBox txtFields
DataField = "内容简介"
DataSource = "datPrimaryRS"
Height = 2805
Index = 6
Left = 1260
TabIndex = 13
Top = 1740
Width = 8235
End
Begin VB.TextBox txtFields
DataField = "著者"
DataSource = "datPrimaryRS"
Height = 285
Index = 7
Left = 8220
TabIndex = 12
Top = 900
Width = 1275
End
Begin VB.TextBox txtFields
DataField = "购买价格"
DataSource = "datPrimaryRS"
Height = 285
Index = 8
Left = 1260
TabIndex = 11
Top = 4680
Width = 1455
End
Begin VB.TextBox txtFields
DataField = "购买数量"
DataSource = "datPrimaryRS"
Height = 285
Index = 9
Left = 3720
TabIndex = 10
Top = 4680
Width = 1095
End
Begin VB.TextBox txtFields
DataField = "购买日期"
DataSource = "datPrimaryRS"
Height = 285
Index = 10
Left = 6120
TabIndex = 9
Top = 4680
Width = 1455
End
Begin VB.TextBox txtFields
DataField = "页数"
DataSource = "datPrimaryRS"
Height = 285
Index = 11
Left = 8220
TabIndex = 8
Top = 1320
Width = 1275
End
Begin VB.TextBox txtFields
DataField = "书架编号"
DataSource = "datPrimaryRS"
Height = 285
Index = 12
Left = 8220
TabIndex = 7
Top = 4680
Width = 1275
End
Begin VB.TextBox txtFields
DataField = "附注"
DataSource = "datPrimaryRS"
Height = 285
Index = 13
Left = 1260
TabIndex = 6
Top = 5100
Width = 8235
End
Begin VB.PictureBox picButtons
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 300
Left = 3600
ScaleHeight = 300
ScaleWidth = 4725
TabIndex = 1
Top = 5820
Width = 4725
Begin VB.CommandButton cmdRefresh
Caption = "刷新(&R)"
Height = 300
Left = 3521
TabIndex = 5
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdDelete
Caption = "删除(&D)"
Height = 300
Left = 2367
TabIndex = 4
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdUpdate
Caption = "更新(&U)"
Height = 300
Left = 1213
TabIndex = 3
Top = 0
Width = 1095
End
Begin VB.CommandButton cmdAdd
Caption = "添加(&A)"
Height = 300
Left = 59
TabIndex = 2
Top = 0
Width = 1095
End
End
Begin MSAdodcLib.Adodc datPrimaryRS
Height = 330
Left = 480
Top = 5700
Visible = 0 'False
Width = 1845
_ExtentX = 3254
_ExtentY = 582
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 1
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = ""
OLEDBString = ""
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = ""
Caption = " "
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin MSDataGridLib.DataGrid DataGrid2
Bindings = "ShuJi.dox":006F
Height = 4395
Left = -74820
TabIndex = 41
Top = 1740
Width = 9435
_ExtentX = 16642
_ExtentY = 7752
_Version = 393216
HeadLines = 1
RowHeight = 15
FormatLocked = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 14
BeginProperty Column00
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 Column01
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 Column02
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 Column03
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 Column04
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 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