?? 還書信息.frm
字號:
VERSION 5.00
Begin VB.Form 還書信息
Caption = "還書信息"
ClientHeight = 6075
ClientLeft = 4515
ClientTop = 2445
ClientWidth = 7650
LinkTopic = "Form1"
ScaleHeight = 6075
ScaleWidth = 7650
Begin VB.CommandButton Command4
Caption = "刪 除"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6240
TabIndex = 22
Top = 5280
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "修 改"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 720
TabIndex = 21
Top = 5280
Width = 1215
End
Begin VB.TextBox Text6
DataField = "出借日期"
DataSource = "Data1"
Height = 375
Left = 4920
TabIndex = 20
Top = 1200
Width = 1935
End
Begin VB.TextBox Text5
DataField = "讀者姓名"
DataSource = "Data1"
Height = 375
Left = 1800
TabIndex = 19
Top = 1200
Width = 1935
End
Begin VB.TextBox Text4
DataField = "書籍名稱"
DataSource = "Data1"
Height = 375
Left = 4920
TabIndex = 18
Top = 600
Width = 1935
End
Begin VB.TextBox Text3
DataField = "讀者編號"
DataSource = "Data1"
Height = 375
Left = 1800
TabIndex = 17
Top = 600
Width = 1935
End
Begin VB.TextBox Text2
DataSource = "Data1"
Height = 300
Left = 2640
TabIndex = 16
Top = 4440
Width = 735
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "D:\圖書管理系統(tǒng)\圖書館管理信息系統(tǒng).mdb"
DefaultCursorType= 0 '缺省游標
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 495
Left = 3960
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "借閱信息"
Top = 120
Visible = 0 'False
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "下一條"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4200
TabIndex = 15
Top = 5280
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "上一條"
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2400
TabIndex = 14
Top = 5280
Width = 1215
End
Begin VB.ComboBox Combo7
DataSource = "Data1"
Height = 300
Left = 5400
TabIndex = 10
Top = 4440
Width = 615
End
Begin VB.ComboBox Combo6
DataSource = "Data1"
Height = 300
Left = 4200
TabIndex = 9
Top = 4440
Width = 615
End
Begin VB.Frame Frame2
Caption = "還書日期"
Height = 975
Left = 600
TabIndex = 7
Top = 4080
Width = 6375
Begin VB.Label Label9
Caption = "日"
Height = 255
Left = 5640
TabIndex = 13
Top = 480
Width = 495
End
Begin VB.Label Label8
Caption = "月"
Height = 255
Left = 4440
TabIndex = 12
Top = 480
Width = 375
End
Begin VB.Label Label7
Caption = "年"
Height = 255
Left = 3120
TabIndex = 11
Top = 480
Width = 375
End
Begin VB.Label Label6
Caption = "請設置還書日期："
Height = 255
Left = 360
TabIndex = 8
Top = 360
Width = 1455
End
End
Begin VB.TextBox Text1
DataSource = "Data1"
Height = 1455
Left = 720
TabIndex = 6
Top = 2160
Width = 6255
End
Begin VB.Frame Frame1
Caption = "借書信息"
Height = 3615
Left = 360
TabIndex = 0
Top = 240
Width = 6855
Begin VB.Label Label5
Caption = "備 注 信 息："
Height = 255
Left = 360
TabIndex = 5
Top = 1560
Width = 1455
End
Begin VB.Label Label4
Caption = "借書日期："
Height = 255
Left = 3600
TabIndex = 4
Top = 1080
Width = 975
End
Begin VB.Label Label3
Caption = "書籍名稱："
Height = 255
Left = 3600
TabIndex = 3
Top = 480
Width = 1095
End
Begin VB.Label Label2
Caption = "讀者姓名："
Height = 255
Left = 360
TabIndex = 2
Top = 1080
Width = 975
End
Begin VB.Label Label1
Caption = "讀者編號："
Height = 255
Left = 360
TabIndex = 1
Top = 480
Width = 975
End
End
End
Attribute VB_Name = "還書信息"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
MsgBox "修改記錄成功！", 48, "修改"
Data1.Recordset.MoveNext
End Sub
Private Sub Command1_Click()
If Data1.Recordset.BOF = False Then
Data1.Recordset.MovePrevious
Else
Data1.Recordset.MoveNext
End If
End Sub
Private Sub Command2_Click()
If Data1.Recordset.EOF = False Then
Data1.Recordset.MoveNext
Else
Data1.Recordset.MovePrevious
End If
End Sub
Private Sub Command3_Click()
'this is really only needed for multi user apps
Data1.Refresh
End Sub
Private Sub Command4_Click()
'this may produce an error if you delete the last
'record or the only record in the recordset
a = MsgBox("是否刪除當前記錄嗎？", 1 + 32, "請確認")
If a = 1 Then
On Error Resume Next
With Data1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
End If
End Sub
Private Sub Form_Load()
Dim num As Integer
For num = 1 To num
Combo6.AddItem num
Next num
Combo6.AddItem "1"
Combo6.AddItem "2"
Combo6.AddItem "3"
Combo6.AddItem "4"
Combo6.AddItem "5"
Combo6.AddItem "6"
Combo6.AddItem "7"
Combo6.AddItem "8"
Combo6.AddItem "9"
Combo6.AddItem "10"
Combo6.AddItem "11"
Combo6.AddItem "12"
For n = 1 To n
Combo7.AddItem num
Next n
Combo7.AddItem "1"
Combo7.AddItem "2"
Combo7.AddItem "3"
Combo7.AddItem "4"
Combo7.AddItem "5"
Combo7.AddItem "6"
Combo7.AddItem "7"
Combo7.AddItem "8"
Combo7.AddItem "9"
Combo7.AddItem "10"
Combo7.AddItem "11"
Combo7.AddItem "12"
Combo7.AddItem "13"
Combo7.AddItem "14"
Combo7.AddItem "15"
Combo7.AddItem "16"
Combo7.AddItem "17"
Combo7.AddItem "18"
Combo7.AddItem "19"
Combo7.AddItem "20"
Combo7.AddItem "21"
Combo7.AddItem "22"
Combo7.AddItem "23"
Combo7.AddItem "24"
Combo7.AddItem "25"
Combo7.AddItem "26"
Combo7.AddItem "27"
Combo7.AddItem "28"
Combo7.AddItem "29"
Combo7.AddItem "30"
Combo7.AddItem "31"
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -