📄 frmmemberinfo.frm
字号:
VERSION 5.00
Begin VB.Form frmMemberInfo
Caption = "学生信息"
ClientHeight = 5820
ClientLeft = 120
ClientTop = 420
ClientWidth = 10830
LinkTopic = "Form2"
MDIChild = -1 'True
ScaleHeight = 5820
ScaleWidth = 10830
WindowState = 2 'Maximized
Begin VB.CommandButton cmdLast
Caption = "最后一个"
Height = 495
Left = 9120
TabIndex = 19
Top = 5034
Width = 975
End
Begin VB.CommandButton cmdNext
Caption = "下一个"
Height = 495
Left = 7800
TabIndex = 18
Top = 5040
Width = 975
End
Begin VB.CommandButton cmdPrevious
Caption = "上一个"
Height = 495
Left = 6600
TabIndex = 17
Top = 5040
Width = 975
End
Begin VB.CommandButton cmdFirst
Caption = "第一个"
Height = 495
Left = 5280
TabIndex = 16
Top = 5040
Width = 975
End
Begin VB.CommandButton cmdCancel
Caption = "取消"
Height = 495
Left = 4080
TabIndex = 15
Top = 5040
Width = 975
End
Begin VB.CommandButton cmdSave
Caption = "保存"
Height = 495
Left = 2760
TabIndex = 14
Top = 5040
Width = 975
End
Begin VB.CommandButton cmdDel
Caption = "删除"
Height = 495
Left = 1560
TabIndex = 13
Top = 5040
Width = 975
End
Begin VB.CommandButton cmdAddNew
Caption = "添加"
Height = 495
Left = 240
TabIndex = 12
Top = 5040
Width = 975
End
Begin VB.TextBox txtAddress
Height = 270
Left = 2640
TabIndex = 11
Text = "Text1"
Top = 4440
Width = 1455
End
Begin VB.Frame Frame1
Caption = "Frame1"
Height = 495
Left = 2640
TabIndex = 10
Top = 3600
Width = 1335
End
Begin VB.TextBox txtMemName
Height = 375
Left = 2520
TabIndex = 9
Text = "Text1"
Top = 2760
Width = 1695
End
Begin VB.TextBox txtRollNo
Height = 375
Left = 2520
TabIndex = 8
Text = "Text1"
Top = 2160
Width = 1695
End
Begin VB.ComboBox cmbClassId
Height = 300
Left = 2520
TabIndex = 7
Text = "Combo1"
Top = 1560
Width = 1215
End
Begin VB.TextBox txtLibraryId
BackColor = &H00FFFFFF&
Height = 270
Left = 2520
TabIndex = 6
Text = "Text1"
Top = 960
Width = 1815
End
Begin VB.Label Label6
Caption = "地址"
BeginProperty Font
Name = "微软雅黑"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 840
TabIndex = 5
Top = 4320
Width = 975
End
Begin VB.Label Label5
Caption = "性别"
BeginProperty Font
Name = "微软雅黑"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 840
TabIndex = 4
Top = 3600
Width = 1095
End
Begin VB.Label Label4
Caption = "姓名"
BeginProperty Font
Name = "微软雅黑"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 840
TabIndex = 3
Top = 2640
Width = 1335
End
Begin VB.Label Label3
Caption = "学号"
BeginProperty Font
Name = "微软雅黑"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 840
TabIndex = 2
Top = 2160
Width = 975
End
Begin VB.Label Label2
Caption = "班级编号"
BeginProperty Font
Name = "微软雅黑"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 840
TabIndex = 1
Top = 1440
Width = 1455
End
Begin VB.Label Label1
Caption = "图书馆编号"
BeginProperty Font
Name = "微软雅黑"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 840
TabIndex = 0
Top = 840
Width = 1455
End
End
Attribute VB_Name = "frmMemberInfo"
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 maxLibId As Integer
maxLibId = 0
addnewflag = True
cmdAddNew.Enabled = False
'使library递增
For i = 0 To rsMemberInfo.RecordCount
If maxLibId < rsMemberInfo(0) Then
maxLibId = rsMemberInfo(0)
End If
rsMemberInfo.MoveNext
Next i
rsMemberInfo.MoveFirst
cmdCancel.Enabled = True
cmdDel.Enabled = False
cmdFirst.Enabled = False
cmdLast.Enabled = False
cmdPrevious.Enabled = False
cmdNext.Enabled = False
'返回rsClassId中的记录
For i = 0 To rsClassId.RecordCount
cmbClassId.AddItem rsClassId(0)
rsClassId.MoveNext
If rsClassId.EOF = True Then
rsClassId.MoveFirst
Exit For
End If
Next i
cmbClassId.ListIndex = 0
txtLibraryId = maxLibId + 1
txtMemName.SetFocus
End Sub
Private Sub cmdCancel_Click()
cmdAddNew.Enabled = True
cmdDel.Enabled = True
cmdFirst.Enabled = True
cmdLast.Enabled = True
cmdPrevious.Enabled = True
cmdNext.Enabled = True
cmdCancel.Enabled = False
rsMemberInfo.CancelUpdate
Call display
End Sub
Private Sub cmdDel_Click()
On Error Resume Next
If MsgBox("Are you sure to delete record", vbOKCancel + vbExclamation, "Deleting record") = vbOK Then
rsMemberInfo.Delete
rsMemberInfo.MoveNext
If rsMemberInfo.EOF Then
rsMemberInfo.MoveLast
MsgBox "Last record"
End If
Call display
End If
End Sub
Private Sub cmdSave_Click()
On Error Resume Next
If txtLibraryId.Text = "" Or txtRollNo.Text = "" Or cmbClassId.Text = "" Then
MsgBox "Improper save!Data entry missing", vbCritical, "Fill up all fields"
txtLibraryId.SetFocus
Exit Sub
End If
If addnewflag = True Then
rsMemberInfo.AddNew
End If
Call assign
rsMemberInfo.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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -