📄 图书库操作.frm
字号:
VERSION 5.00
Begin VB.Form 图书库操作
Caption = "图书管理系统"
ClientHeight = 3345
ClientLeft = 6420
ClientTop = 5055
ClientWidth = 5850
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 3345
ScaleWidth = 5850
Begin VB.CommandButton op
Caption = "保存"
Height = 375
Index = 5
Left = 4680
TabIndex = 17
Top = 2400
Width = 855
End
Begin VB.TextBox txtID
BackColor = &H80000000&
DataField = "BookID"
DataMember = "Book"
DataSource = "de"
Enabled = 0 'False
ForeColor = &H80000006&
Height = 285
Left = 1200
Locked = -1 'True
TabIndex = 10
Top = 240
Width = 3015
End
Begin VB.TextBox txtName
DataField = "BookName"
DataMember = "Book"
DataSource = "de"
Height = 270
Left = 1200
TabIndex = 9
Top = 720
Width = 3015
End
Begin VB.TextBox Txtauthor
DataField = "Author"
DataMember = "Book"
DataSource = "de"
Height = 285
Left = 1200
TabIndex = 8
Top = 1200
Width = 3015
End
Begin VB.TextBox txtpress
DataField = "Publisher"
DataMember = "Book"
DataSource = "de"
Height = 285
Left = 1200
TabIndex = 7
Top = 1680
Width = 3015
End
Begin VB.TextBox txtPrice
DataField = "BookPrice"
DataMember = "Book"
DataSource = "de"
Height = 285
Left = 1200
TabIndex = 6
Top = 2160
Width = 3015
End
Begin VB.TextBox txtstatus
DataField = "BookStatus"
DataMember = "Book"
DataSource = "de"
Height = 285
Left = 1200
TabIndex = 5
Top = 2640
Width = 3015
End
Begin VB.CommandButton op
Caption = "修改"
Height = 375
Index = 4
Left = 4680
TabIndex = 4
Top = 2040
Width = 855
End
Begin VB.CommandButton op
Caption = "删除"
Height = 375
Index = 3
Left = 4680
TabIndex = 3
Top = 1650
Width = 855
End
Begin VB.CommandButton op
Caption = "添加"
Height = 375
Index = 2
Left = 4680
TabIndex = 2
Top = 1260
Width = 855
End
Begin VB.CommandButton op
Caption = "下移"
Height = 375
Index = 1
Left = 4680
TabIndex = 1
Top = 870
Width = 855
End
Begin VB.CommandButton op
Caption = "上移"
Height = 375
Index = 0
Left = 4680
TabIndex = 0
Top = 480
Width = 855
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "图书编号"
Height = 195
Left = 240
TabIndex = 16
Top = 240
Width = 720
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "图书书名"
Height = 195
Left = 240
TabIndex = 15
Top = 735
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "图书作者"
Height = 195
Left = 240
TabIndex = 14
Top = 1215
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "图书出版社"
Height = 180
Left = 240
TabIndex = 13
Top = 1710
Width = 900
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "图书单价"
Height = 195
Left = 240
TabIndex = 12
Top = 2190
Width = 720
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "图书状态"
Height = 195
Left = 240
TabIndex = 11
Top = 2640
Width = 720
End
End
Attribute VB_Name = "图书库操作"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
CanBrowse
End Sub
Private Sub Form_Unload(Cancel As Integer)
系统操作.Show
End Sub
Private Sub op_Click(Index As Integer) '注意：数据环境中的READER中的LOCKED应改为Optimistic
Dim rst As ADODB.Recordset
Dim strsql As String
Dim tmpID As String, temp As String
Set rst = de.rsBook
Select Case Index
Case 0: '上移
rst.MovePrevious
If rst.BOF = True Then rst.MoveFirst
Case 1: '下移
rst.MoveNext
If rst.EOF = True Then rst.MoveLast
Case 2: '增加
tmpID = Len(CStr(rst.RecordCount + 1)) '自动产生ID号
'此举产生ID号为01和11的效果
If tmpID > 1 Then
tmpID = CStr(rst.RecordCount + 1)
Else
tmpID = "0" + CStr(rst.RecordCount + 1)
End If
rst.AddNew
txtID.Text = tmpID
CanModify
Case 3: '删除
If MsgBox("确实要删除该记录吗？", vbOKCancel) = vbOK Then
rst.Delete adAffectCurrent
rst.MoveNext
If rst.EOF Then rst.MoveFirst
End If
Case 4: '修改
CanModify
Case 5: '保存到数据库中
If Not Trim(TxtName) = "" Then
With rst
!bookname = TxtName '权限可以不填
If Not Trim(txtPrice) = "" Then '若你填的不正确，会自动设成默认值
If Len(txtPrice) = Len(CStr(Val(txtPrice))) Then '判断此填数字的文本框中有无字母
!bookprice = txtPrice
Else
MsgBox "你所填状态信息有误，已改成默认值。若要修改，请按修改！"
!bookprice = 7
End If
Else
MsgBox "你未填状态信息，已改成默认值。若要修改，请按修改！"
!bookprice = 7
End If
If Not Trim(txtpress) = "" Then
!publisher = txtpress
Else
MsgBox "你未填权限信息，已改成默认值。若要修改，请按修改！"
!publisher = "USA"
End If
If Not Trim(txtstatus) = "" Then
!bookstatus = txtstatus
Else
MsgBox "你未填权限信息，已改成默认值。若要修改，请按修改！"
!bookstatus = "未借"
End If
If Not Trim(Txtauthor) = "" Then
!author = Txtauthor
Else
MsgBox "你未填权限信息，已改成默认值。若要修改，请按修改！"
!author = "@dsa.sohu.com"
End If
.Update
MsgBox "图书数据已保存"
End With
Else
MsgBox "所填信息不全或有误！数据库未被修改"
rst.CancelUpdate
End If
CanBrowse
End Select
End Sub
Private Sub CanModify()
'''''''''''''''''''''''''''''''''''''''''''''''''
'函数名： CanModify
'入口参数： 无
'出口参数： 无
'''''''''''''''''''''''''''''''''''''''''''''''''
'函数功能： 对数据库的浏览功能切换成可修改功能
' 用于添加、修改按钮和窗口初始化时
'''''''''''''''''''''''''''''''''''''''''''''''''
TxtName.Enabled = True
Txtauthor.Enabled = True
txtpress.Enabled = True
txtPrice.Enabled = True
txtstatus.Enabled = True
op(0).Enabled = False
op(1).Enabled = False
op(2).Enabled = False
op(3).Enabled = False
op(4).Enabled = False
op(5).Enabled = True
End Sub
Private Sub CanBrowse()
'''''''''''''''''''''''''''''''''''''''''''''''''
'函数名： CanBrowse
'入口参数： 无
'出口参数： 无
'''''''''''''''''''''''''''''''''''''''''''''''''
'函数功能： 对数据库的可修改功能切换成浏览功能
' 用于保存按钮
'''''''''''''''''''''''''''''''''''''''''''''''''
TxtName.Enabled = False
Txtauthor.Enabled = False
txtpress.Enabled = False
txtPrice.Enabled = False
txtstatus.Enabled = False
op(0).Enabled = True
op(1).Enabled = True
op(2).Enabled = True
op(3).Enabled = True
op(4).Enabled = True
op(5).Enabled = False
End Sub
' If de.rsReader.State = 0 Then de.Libarary.Open
' If de.rsReader.State = 0 Then de.Reader
' Dim oldop As Integer
' oldop = Index
' If Index = 4 Then
' With de.Libarary
' If .State = 0 Then .Open
' .Execute strSql
' End With
' End If
' Case 5: '保存
' If oldop = 2 Then
' strsql = "insert into reader values(" + txtid + ",'" + Trim(Txtname) + "','" + Trim(TxtAddr) + "'," + TxtTel + ",'" + Trim(TxtEmail) + "', " + Txtlevel + ") "
' de.Libarary.Execute strsql
' End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -