?? 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 + -