📄 frmbookinfo.frm
字号:
VERSION 5.00
Begin VB.Form frmBookInfo
Caption = "图书管理"
ClientHeight = 5475
ClientLeft = 120
ClientTop = 420
ClientWidth = 11850
LinkTopic = "Form2"
ScaleHeight = 5475
ScaleWidth = 11850
WindowState = 2 'Maximized
Begin VB.CommandButton cmdLast
BackColor = &H00FFFFFF&
Caption = "最后一条"
Height = 615
Left = 10440
TabIndex = 17
Top = 3600
Width = 1215
End
Begin VB.CommandButton cmdNext
BackColor = &H00FFFFFF&
Caption = "下一条"
Height = 615
Left = 9066
TabIndex = 16
Top = 3600
Width = 1215
End
Begin VB.CommandButton cmdPrevious
BackColor = &H00FFFFFF&
Caption = "上一条"
Height = 615
Left = 7695
TabIndex = 15
Top = 3600
Width = 1215
End
Begin VB.CommandButton cmdFirst
BackColor = &H00FFFFFF&
Caption = "第一条"
Height = 615
Left = 6324
TabIndex = 14
Top = 3600
Width = 1215
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 615
Left = 4953
TabIndex = 13
Top = 3600
Width = 1215
End
Begin VB.CommandButton cmdSave
BackColor = &H00FFFFFF&
Caption = "保存"
Height = 615
Left = 3582
TabIndex = 12
Top = 3600
Width = 1215
End
Begin VB.CommandButton cmdDel
BackColor = &H00FFFFFF&
Caption = "删除"
Height = 615
Left = 2211
TabIndex = 11
Top = 3600
Width = 1215
End
Begin VB.CommandButton cmdAddNew
BackColor = &H00FFFFFF&
Caption = "添加"
Default = -1 'True
Height = 615
Left = 840
TabIndex = 10
Top = 3600
Width = 1215
End
Begin VB.TextBox dcbCatId
Height = 375
Left = 3240
TabIndex = 4
Text = "Text1"
Top = 2760
Width = 1575
End
Begin VB.TextBox dcbpubId
Height = 375
Left = 3240
TabIndex = 3
Text = "Text1"
Top = 2160
Width = 1575
End
Begin VB.TextBox txtAuthor
BackColor = &H0000C0C0&
Height = 375
Left = 3195
TabIndex = 2
Text = "Text1"
Top = 1560
Width = 1575
End
Begin VB.TextBox txtBookName
DataSource = "Data1"
Height = 375
Left = 3195
TabIndex = 1
Text = "Text1"
Top = 923
Width = 1575
End
Begin VB.TextBox txtBookId
BackColor = &H0000C0C0&
Height = 375
Left = 3195
TabIndex = 0
Text = "Text1"
Top = 360
Width = 1575
End
Begin VB.Label Label5
Caption = "图书分类"
Height = 255
Left = 1080
TabIndex = 9
Top = 2760
Width = 1335
End
Begin VB.Label Label4
Caption = "出版商"
Height = 255
Left = 1080
TabIndex = 8
Top = 2160
Width = 1335
End
Begin VB.Label Label3
Caption = "作者"
Height = 255
Left = 1080
TabIndex = 7
Top = 1560
Width = 1215
End
Begin VB.Label Label2
Caption = "图书名称"
Height = 255
Left = 1080
TabIndex = 6
Top = 960
Width = 1575
End
Begin VB.Label Label1
Caption = "图书编号"
Height = 255
Left = 1080
TabIndex = 5
Top = 360
Width = 1335
End
End
Attribute VB_Name = "frmBookInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'添加新记录
Private Sub cmdAddNew_Click()
On Error Resume Next
Call clear '清除窗体内容
Dim i As Integer
Dim max As Integer
max = 0
addnewflag = True '设置标志位
'设置窗体中控件的Visible属性
txtPubId.Visible = False
txtCatId.Visible = False
dcbpubId.Visible = True
dcbCatId.Visible = True
cmdAddNew.Enabled = False
'将指针指向记录集中的第一条记录
For i = 0 To rsBookInfo.RecordCount
If max < rsBookInfo(0) Then
max = rsBookInfo(0) '选出最大数
End If
rsBookInfo.MoveNext '指向下一条记录
Next i
rsBookInfo.MoveFirst '指向第一条记录
'改变窗体中按钮的可用性
cmdCancel.Enabled = True
cmdDel.Enabled = False
cmdFirst.Enabled = False
cmdLast.Enabled = False
cmdPrevious.Enabled = False
cmdNext.Enabled = False
'向dcbpubId中加载出版商信息
For i = 0 To rsPubId.RecordCount
dcbpubId.AddItem rsPubId(0)
rsPubId.MoveNext
If rsPubId.EOF = True Then
rsPubId.MoveLast '指向最后一条记录
dcbpubId.ListIndex = 0 '加载默认的出版商信息
Exit For
End If
Next i
'向dcbCatId中加载图书分类信息
For i = 0 To rsCatId.RecordCount
dcbCatId.AddItem rsCatId(0)
rsCatId.MoveNext
If rsCatId.EOF = True Then
rsCatId.MoveLast '指向最后一条记录
dcbCatId.ListIndex = 0 '设置默认值
Exit For
End If
Next i
rsBookInfo.AddNew '添加新记录
txtBookId = max + 1
txtBookName.SetFocus
End Sub
Private Sub cmdCatOpen_Click()
End Sub
Private Sub cmdDel_Click()
On Error Resume Next
If MsgBox("Are you sure to delete record", vbOKCancel + vbExclamation, "Deleting record") = vbOK Then
rsBookInfo.Delete '删除记录
rsBookInfo.MoveNext
If rsBookInfo.EOF Then
rsBookInfo.MoveLast '指向最后一条记录
MsgBox "Last Record"
End If
Call display '显示图书信息
End If
End Sub
Private Sub cmdPubOpen_Click()
End Sub
Private Sub cmdSave_Click()
On Error Resume Next
'判断是否已经填写图书相关信息，若值为空则提示错误信息
If txtBookId.Text = "" Or txtBookName.Text = "" Or txtAuthor.Text = "" Then
MsgBox "Improper Save!Data Entry missing", vbCritical, "Fill up all Fields"
txtBookId.SetFocus
Exit Sub
End If
Call assign '调用assign函数，保存图书信息
rsBookInfo.Save '保存数据信息
MsgBox "Record Saved", vbInformation, "Record is saved"
cmdDel.Enabled = True
cmdFirst.Enabled = True
cmdLast.Enabled = True
cmdPrevious.Enabled = True
cmdNext.Enabled = True
cmdAddNew.Enabled = True
cmdCancel.Enabled = False
Exit Sub
End Sub
Private Sub Form_Load()
lblInfo.Left = Me.ScaleLeft
lblInfo.Top = Me.ScaleTop
lblInfo.Width = Screen.Width
sstabBookInfo.Top = lblInfo.Top + 450
sstabBookInfo.Left = 70
sstabBookInfo.Width = Screen.Width - 200
sstabBookInfo.Height = Screen.Height - 2650
DataGrid1.Top = lblInfo.Top + 500
DataGrid1.Left = 100
DataGrid1.Width = Screen.Width - 550
DataGrid1.Height = Screen.Height - 3300
DataGrid1.Visible = False
'设置数据源
Set DataGrid1.DataSource = rsBookInfo
DataGrid1.ReBind
Frame2.Left = (Screen.Width - Frame2.Width) / 2
Call display '调用display函数，返回图书信息
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -