📄 editbookid.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form EditBookId
Caption = "编辑借书证"
ClientHeight = 5730
ClientLeft = 60
ClientTop = 345
ClientWidth = 7320
LinkTopic = "Form1"
ScaleHeight = 5730
ScaleWidth = 7320
Begin VB.CommandButton cmdClose
Caption = "关闭"
Height = 495
Left = 6240
TabIndex = 5
Top = 240
Width = 1095
End
Begin VB.CommandButton cmdSearch
Caption = "查找"
Height = 495
Left = 3120
TabIndex = 4
Top = 240
Width = 1095
End
Begin VB.CommandButton cmdEdit
Caption = "修改"
Height = 495
Left = 1560
TabIndex = 3
Top = 240
Width = 1095
End
Begin VB.CommandButton cmdDelete
Caption = "删除"
Height = 495
Left = 4680
TabIndex = 2
Top = 240
Width = 1095
End
Begin VB.CommandButton cmdAdd
Caption = "添加"
Height = 495
Left = 0
TabIndex = 1
Top = 240
Width = 1095
End
Begin MSComctlLib.ListView mLv
Height = 4815
Left = 0
TabIndex = 0
Top = 840
Width = 7305
_ExtentX = 12885
_ExtentY = 8493
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483624
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 0
End
Begin VB.Menu PoMnu
Caption = "PoMnu"
Visible = 0 'False
Begin VB.Menu AddMnu
Caption = "添加(&A)"
Shortcut = ^A
End
Begin VB.Menu EditMnu
Caption = "修改(&E)"
Shortcut = ^E
End
Begin VB.Menu DeleteMnu
Caption = "删除(&D)"
Shortcut = ^D
End
Begin VB.Menu s1
Caption = "-"
End
Begin VB.Menu SearchMnu
Caption = "查找(&S)"
Shortcut = ^S
End
Begin VB.Menu ShowAllMnu
Caption = "显示所有人员"
Shortcut = {F3}
End
Begin VB.Menu s2
Caption = "-"
End
Begin VB.Menu ExitMnu
Caption = "退出(&X)"
End
End
End
Attribute VB_Name = "EditBookId"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' **********************************************************************
' 描 述：银龙图书管理系统
' 中国VB网收集整理 http://www.ChinaVB.net
' QQ交流群：13047826 14356878
' 发表源码或文章请发邮件到:info@chinavb.net
' **********************************************************************Dim i As Integer
'定义db为数据库类型，rst为记录类型，Rec为整型变量
Dim db As Database
Dim rst As Recordset
Dim Rec As Integer
Private Sub AddMnu_Click()
'弹出菜单--添加
cmdAdd_Click
End Sub
Private Sub cmdAdd_Click()
'添加按钮
'定义loop1标号,作为循环体使用，以便一直继续输入
loop1:
'显示AddBookId（修改借书人员）窗体
AddBookId.Show (1)
'如果模块级变量mSave为真，则增加新记录到数据库
If mSave Then
rst.AddNew
rst.Fields("借书证号") = mAddEditId
rst.Fields("姓名") = mAddEditIdName
rst.Fields("班级") = mAddEditIdClass
rst.Fields("部门") = mAddEditIdDepart
rst.Fields("职称") = mAddEditIdZhi
rst.Update
DispId
'保存成功，重设模块级变量mSave为假，给出成功提示
mSave = False
If MsgBox("已成功添加，要继续添加按回车，否则按取消！", 4 + 32, "添加成功") = vbYes Then
'跳转到标号为loop1的位置继续执行
GoTo loop1
Else
Exit Sub
End If
End If
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub cmdDelete_Click()
'删除按钮
'定义TiShi为字符型变量，作为提示确定删除记录使用
Dim TiShi As String
TiShi = "确实要删除 " & mLv.SelectedItem.Text & mLv.SelectedItem.SubItems(1) & " 吗？"
'如果点击确定按钮，删除数据库相应记录
If MsgBox(TiShi, 4 + 32, "删除") = vbYes Then
rst.Seek "=", mLv.SelectedItem.Text
rst.Delete
DispId
End If
End Sub
Private Sub cmdEdit_Click()
'修改按钮
'将数据库相应内容赋给相应变量
Dim i As Integer
i = mLv.SelectedItem.Index
rst.Seek "=", mLv.SelectedItem.Text
mAddEditId = rst.Fields("借书证号")
mAddEditIdName = rst.Fields("姓名")
mAddEditIdClass = rst.Fields("班级")
mAddEditIdDepart = rst.Fields("部门")
mAddEditIdZhi = rst.Fields("职称")
'显示AEditBookId（修改借书人员）窗体
AEditBookId.Show (1)
'保存图书基本信息
If mSave Then
rst.Edit
rst.Fields("借书证号") = mAddEditId
rst.Fields("姓名") = mAddEditIdName
rst.Fields("班级") = mAddEditIdClass
rst.Fields("部门") = mAddEditIdDepart
rst.Fields("职称") = mAddEditIdZhi
rst.Update
'使ListView控件的字段显示数据库姓名、班级、部门、职称字段
With mLv.ListItems(i)
.SubItems(1) = rst.Fields("姓名")
.SubItems(2) = rst.Fields("班级")
.SubItems(3) = rst.Fields("部门")
.SubItems(4) = rst.Fields("职称")
End With
'DispId
mSave = False
End If
End Sub
Private Sub cmdSearch_Click()
'显示Searchid（查找图书编号）窗体
Searchid.Show (1)
If SearchFlag Then
'对输入编号和数据库进行比较，如果没有找到给出提示
rst.Seek "=", BookBianHao
If rst.NoMatch Then
MsgBox "没有找到匹配记录！", 0 + 48, "查找失败"
Exit Sub
End If
'清空ListView控件内容
mLv.ListItems.Clear
'使ListView控件显示数据库字段为借书证号字段
mLv.ListItems.Add , , rst.Fields("借书证号")
'使ListView控件的字段显示数据库姓名、班级、部门、职称字段
With mLv.ListItems(1)
.SubItems(1) = rst.Fields("姓名")
.SubItems(2) = rst.Fields("班级")
.SubItems(3) = rst.Fields("部门")
.SubItems(4) = rst.Fields("职称")
End With
SearchFlag = False
End If
End Sub
Private Sub DeleteMnu_Click()
'弹出菜单--删除
cmdDelete_Click
End Sub
Private Sub EditMnu_Click()
'弹出菜单--修改
cmdEdit_Click
End Sub
Private Sub ExitMnu_Click()
'弹出菜单--退出
Unload Me
End Sub
Private Sub Form_Load()
'打开Database目录下的Data.mdb数据库和Personal表
DBpath = App.Path + "\DataBase\Data.mdb"
Set db = Workspaces(0).OpenDatabase(DBpath, False)
Set rst = db.OpenRecordset("Personal", dbOpenTable)
'建立借书证号索引
rst.Index = "借书证号"
'设置ListView控件相应参数
mLv.View = lvwReport
mLv.GridLines = True
'设置ListView控件的字段
mLv.ColumnHeaders.Add , , "借书证号"
mLv.ColumnHeaders.Add , , "姓名"
mLv.ColumnHeaders.Add , , "班级"
mLv.ColumnHeaders.Add , , "部门"
mLv.ColumnHeaders.Add , , "职称"
'如果记录不为空，调用DispId过程
If rst.RecordCount <> 0 Then
DispId
End If
End Sub
'定义DispId过程，用于显示数据库所有记录
Public Sub DispId()
mLv.ListItems.Clear
rst.MoveLast
Rec = rst.RecordCount
rst.MoveFirst
For i = 1 To Rec
mLv.ListItems.Add i, , rst.Fields("借书证号")
With mLv.ListItems(i)
.SubItems(1) = rst.Fields("姓名")
.SubItems(2) = rst.Fields("班级")
.SubItems(3) = rst.Fields("部门")
.SubItems(4) = rst.Fields("职称")
End With
rst.MoveNext
If rst.EOF Then Exit For
Next
End Sub
Private Sub Form_Unload(Cancel As Integer)
'关闭窗体时，关闭数据库
rst.Close
db.Close
End Sub
Private Sub mLv_DblClick()
'双击ListView控件时，调用cmdEdit_Click过程
cmdEdit_Click
End Sub
Private Sub mLv_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'如果单击鼠标右键，弹出快捷菜单，菜单名为PoMnu
If Button = 2 Then
PopupMenu PoMnu
End If
End Sub
Private Sub SearchMnu_Click()
'弹出菜单--查找
cmdSearch_Click
End Sub
Private Sub ShowAllMnu_Click()
'弹出菜单--显示所有人员
Call DispId
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -