?? jieyue.frm
字號:
Caption = "借閱日期："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 9
Top = 2040
Width = 1575
End
Begin VB.Label Label4
BackColor = &H00C0FFC0&
Caption = "應歸還日期："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 8
Top = 840
Width = 1335
End
Begin VB.Label Label5
BackColor = &H00C0FFC0&
Caption = "實際歸還日期："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 7
Top = 1440
Width = 1335
End
Begin VB.Label Label6
BackColor = &H00C0FFC0&
Caption = "續(xù)借："
BeginProperty Font
Name = "宋體"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4800
TabIndex = 6
Top = 2040
Width = 1335
End
End
Attribute VB_Name = "jieyue"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim isAdding As Boolean '定義操作狀態(tài)標志
Dim objAdmin As Recordset '用于保存管理員數(shù)據(jù)表記錄
Dim objCn As Connection '用于建立數(shù)據(jù)庫聯(lián)接
Private Sub cmdadd_Click()
txtnews = "添加新記錄"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
isAdding = True
End Sub
Private Sub cmddelete_Click()
'根據(jù)是否處于添加記錄狀態(tài)執(zhí)行不同的操作
If isAdding Then
'退出添加記錄狀態(tài)，顯示當前記錄
isAdding = False
If objAdmin.BOF And objAdmin.EOF Then
txtnews = "記錄：無" '顯示無記錄提示
Else
'顯示當前記錄數(shù)據(jù)
Text1 = objAdmin.Fields("證號")
Text2 = objAdmin.Fields("書號")
Text3 = objAdmin.Fields("借閱日期")
Text4 = objAdmin.Fields("應歸還日期")
Text5 = objAdmin.Fields("實際歸還日期")
Text6 = objAdmin.Fields("續(xù)借")
'顯示當前記錄編號和記錄總數(shù)
txtnews = "記錄：" & objAdmin.AbsolutePosition & "/" & objAdmin.RecordCount
End If
Else
If objAdmin.RecordCount > 0 Then
If MsgBox("是否刪除當前記錄？", vbYesNo + vbQuestion, "借閱信息管理") = vbYes Then
objAdmin.Delete '執(zhí)行刪除當前記錄操作
cmdmove(2).Value = True '顯示下一記錄數(shù)據(jù)
Else
'顯示當前記錄數(shù)據(jù)
Text1 = objAdmin.Fields("證號")
Text2 = objAdmin.Fields("書號")
Text3 = objAdmin.Fields("借閱日期")
Text4 = objAdmin.Fields("應歸還日期")
Text5 = objAdmin.Fields("實際歸還日期")
Text6 = objAdmin.Fields("續(xù)借")
'顯示當前記錄編號和記錄總數(shù)
txtnews = "記錄：" & objAdmin.AbsolutePosition & "/" & objAdmin.RecordCount
End If
End If
End If
End Sub
Private Sub cmdexit_Click()
Unload Me
End Sub
Private Sub cmdmove_Click(Index As Integer)
With objAdmin
Select Case Index '切換當前記錄
Case 0 '使第一個記錄成為當前記錄
If .RecordCount > 0 And Not .BOF Then .MoveFirst
Case 1 '使上一個記錄成為當前記錄
If .RecordCount > 0 And Not .BOF Then
.MovePrevious
If .BOF Then .MoveFirst
End If
Case 2 '使下一個記錄成為當前記錄
If .RecordCount > 0 And Not .EOF Then
.MoveNext
If .EOF Then .MoveLast
End If
Case 3 '使最后一個記錄成為當前記錄
If .RecordCount > 0 And Not .EOF Then .MoveLast
End Select
If .RecordCount < 1 Then
txtnews = "記錄：無" '顯示無記錄提示
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Else
'顯示當前記錄數(shù)據(jù)
Text1 = objAdmin.Fields("證號")
Text2 = objAdmin.Fields("書號")
Text3 = .Fields("借閱日期")
Text4 = .Fields("應歸還日期")
Text5 = .Fields("實際歸還日期")
Text6 = .Fields("續(xù)借")
'顯示當前記錄編號和記錄總數(shù)
txtnews = "記錄：" & .AbsolutePosition & "/" & .RecordCount
End If
End With
If isAdding Then isAdding = False '改變當前記錄則退出當前添加記錄狀態(tài)
End Sub
Private Sub cmdsave_Click()
Dim objCopy As New Recordset
If Trim(Text1) = "" Or Trim(Text2) = "" Then
MsgBox "證號，書號不能為空！", vbCritical, "借閱信息管理"
Text1.SetFocus
Text2.SetFocus
Text1 = ""
Text2 = ""
Else
Set objCopy = objAdmin.Clone
With objCopy
If .RecordCount > 0 Then
'檢查用戶名是否被使用
.MoveFirst
.Find "證號='" & Trim(Text1) & "'"
.Find "書號='" & Trim(Text2) & "'"
If (isAdding And Not .EOF) Or (Not isAdding And Not .EOF And _
.AbsolutePosition <> objAdmin.AbsolutePosition) Then
MsgBox "證號：" & Trim(Text1) & "已被使用，請使用其他證號！", _
vbCritical, "借閱信息管理"
Text1.SetFocus
Text2.SetFocus
Text1.SelStart = 0
Text2.SelStart = 0
Text1.SelLength = Len(Text1)
Text2.SelLength = Len(Text2)
Exit Sub
End If
End If
End With
'保存或添加記錄
If isAdding Then objAdmin.AddNew
objAdmin.Fields("證號") = Trim(Text1)
objAdmin.Fields("書號") = Trim(Text2)
objAdmin.Fields("借閱日期") = Trim(Text3)
objAdmin.Fields("應歸還日期") = Trim(Text4)
objAdmin.Fields("實際歸還日期") = Trim(Text5)
objAdmin.Fields("續(xù)借") = Trim(Text6)
objAdmin.Update
MsgBox "數(shù)據(jù)保存成功！", vbInformation, "借閱信息管理"
isAdding = False
'顯示當前記錄編號和記錄總數(shù)
txtnews = "記錄：" & objAdmin.AbsolutePosition & "/" & objAdmin.RecordCount
End If
End Sub
Private Sub cmdseek_Click()
Dim strKey$
strKey = InputBox("請輸入要查詢的證號！", "查詢借閱信息")
If strKey = "" Then
MsgBox "輸入無效！", vbInformation, "借閱信息管理"
Else
With objAdmin
If .RecordCount > 0 Then
.MoveFirst
.Find "證號 like '*" & strKey & "*'"
If .EOF Then
MsgBox "無證號為 " & strKey & " 的借閱記錄！", vbInformation, "借閱信息管理"
Else
'顯示當前記錄數(shù)據(jù)
Text1 = objAdmin.Fields("證號")
Text2 = objAdmin.Fields("書號")
Text3 = .Fields("借閱日期")
Text4 = .Fields("應歸還日期")
Text5 = .Fields("實際歸還日期")
Text6 = .Fields("續(xù)借")
'顯示當前記錄編號和記錄總數(shù)
txtnews = "記錄：" & .AbsolutePosition & "/" & .RecordCount
End If
Else
MsgBox "借閱記錄！", vbInformation, "借閱信息管理"
End If
End With
End If
End Sub
Private Sub Form_Load()
'建立數(shù)據(jù)庫聯(lián)接
Set objCn = New Connection '實例化聯(lián)接對象
With objCn '建立數(shù)據(jù)庫聯(lián)接
.Provider = "SQLOLEDB"
.ConnectionString = "User ID=sa;PWD=;Data Source=(local);" & _
"Initial Catalog=datatushu"
.Open
End With
'獲取管理員記錄
Set objAdmin = New Recordset '實例化objAdmin對象
With objAdmin
Set .ActiveConnection = objCn
.CursorLocation = adUseClient '指定使用客戶端游標
.CursorType = adOpenStatic '指定使用靜態(tài)游標
.LockType = adLockOptimistic
.Open "SELECT * FROM 借閱信息" '獲取借閱信息
End With
'觸發(fā)按鈕單擊事件，顯示第一個記錄
cmdmove(0).Value = True
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -