📄 dzxx.frm
字号:
VERSION 5.00
Begin VB.Form 读者信息添加
Caption = "读者信息添加"
ClientHeight = 6495
ClientLeft = 4515
ClientTop = 2445
ClientWidth = 7650
LinkTopic = "Form2"
ScaleHeight = 6495
ScaleWidth = 7650
Begin VB.CommandButton Command4
Caption = "下一条"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4080
TabIndex = 29
Top = 5760
Width = 1215
End
Begin VB.TextBox Text9
DataField = "借书期限"
DataSource = "Data1"
Height = 375
Left = 1920
TabIndex = 27
Top = 2040
Width = 1215
End
Begin VB.TextBox Text8
DataField = "借书数量"
DataSource = "Data1"
Height = 375
Left = 1920
TabIndex = 26
Top = 1560
Width = 1215
End
Begin VB.CommandButton Command3
Caption = "删 除"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5760
TabIndex = 25
Top = 5760
Width = 1215
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "D:\图书管理系统\图书馆管理信息系统.mdb"
DefaultCursorType= 0 '缺省游标
DefaultType = 2 '使用 ODBC
Exclusive = 0 'False
Height = 375
Left = 4320
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "readers读者信息"
Top = 0
Visible = 0 'False
Width = 1140
End
Begin VB.CommandButton Command2
Caption = "上一条"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 2520
TabIndex = 24
Top = 5760
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "保 存"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 960
TabIndex = 23
Top = 5760
Width = 1215
End
Begin VB.TextBox Text7
DataSource = "Data1"
Height = 975
Left = 600
MultiLine = -1 'True
TabIndex = 22
Top = 4200
Width = 6495
End
Begin VB.Frame Frame1
Caption = "备注信息"
Height = 1575
Left = 360
TabIndex = 21
Top = 3840
Width = 6975
End
Begin VB.TextBox Text6
DataField = "登记日期"
DataSource = "Data1"
Height = 375
Left = 5160
TabIndex = 20
Top = 2040
Width = 1815
End
Begin VB.ComboBox Combo4
DataField = "读者性别"
DataSource = "Data1"
Height = 300
Left = 5160
TabIndex = 16
Top = 1200
Width = 1215
End
Begin VB.TextBox Text5
DataField = "家庭地址"
DataSource = "Data1"
Height = 375
Left = 1920
TabIndex = 15
Top = 3000
Width = 4815
End
Begin VB.TextBox Text4
DataField = "工作单位"
DataSource = "Data1"
Height = 375
Left = 1920
TabIndex = 14
Top = 2520
Width = 4815
End
Begin VB.TextBox Text3
DataField = "电话号码"
DataSource = "Data1"
Height = 375
Left = 5160
TabIndex = 13
Top = 1560
Width = 1815
End
Begin VB.TextBox Text2
DataField = "读者姓名"
DataSource = "Data1"
Height = 375
Left = 1920
TabIndex = 12
Top = 1080
Width = 1815
End
Begin VB.TextBox Text1
DataField = "读者编号"
DataSource = "Data1"
Height = 375
Left = 1920
TabIndex = 11
Top = 600
Width = 1815
End
Begin VB.Frame 读者信息
Caption = "读者信息"
ForeColor = &H00000000&
Height = 3375
Left = 360
TabIndex = 0
Top = 240
Width = 6975
Begin VB.ComboBox Combo1
DataField = "有效期限"
DataSource = "Data1"
Height = 300
Left = 4800
TabIndex = 28
Top = 360
Width = 1215
End
Begin VB.Label Label13
Caption = "月"
Height = 255
Left = 6120
TabIndex = 19
Top = 480
Width = 495
End
Begin VB.Label Label12
Caption = "天"
Height = 255
Left = 2880
TabIndex = 18
Top = 1920
Width = 495
End
Begin VB.Label Label11
Caption = "本"
Height = 255
Left = 2880
TabIndex = 17
Top = 1440
Width = 495
End
Begin VB.Label Label10
Caption = "家庭住址："
Height = 255
Left = 360
TabIndex = 10
Top = 2880
Width = 975
End
Begin VB.Label Label9
Caption = "工作单位："
Height = 255
Left = 360
TabIndex = 9
Top = 2400
Width = 975
End
Begin VB.Label Label8
Caption = "办证日期："
Height = 255
Left = 3840
TabIndex = 8
Top = 1920
Width = 975
End
Begin VB.Label Label7
Caption = "电话号码："
Height = 255
Left = 3840
TabIndex = 7
Top = 1440
Width = 975
End
Begin VB.Label Label6
Caption = "读者性别："
Height = 255
Left = 3840
TabIndex = 6
Top = 960
Width = 975
End
Begin VB.Label Label5
Caption = "有效期限："
Height = 255
Left = 3840
TabIndex = 5
Top = 480
Width = 975
End
Begin VB.Label Label4
Caption = "借书期限："
Height = 255
Left = 360
TabIndex = 4
Top = 1920
Width = 975
End
Begin VB.Label Label3
Caption = "借书数量："
Height = 255
Left = 360
TabIndex = 3
Top = 1440
Width = 975
End
Begin VB.Label Label2
Caption = "读者姓名："
Height = 255
Left = 360
TabIndex = 2
Top = 960
Width = 975
End
Begin VB.Label Label1
Caption = "读者编号："
Height = 255
Left = 360
TabIndex = 1
Top = 480
Width = 975
End
End
End
Attribute VB_Name = "读者信息添加"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdAdd_Click()
Data1.Recordset.AddNew
End Sub
Private Sub cmdDelete_Click()
'this may produce an error if you delete the last
'record or the only record in the recordset
a = MsgBox("是否删除当前记录吗？", 1 + 32, "请确认")
If a = 1 Then
Data1.Recordset.Delete
Data1.Recordset.MoveNext
End If
End Sub
Private Sub cmdRefresh_Click()
'this is really only needed for multi user apps
Data1.Refresh
End Sub
Private Sub cmdUpdate_Click()
Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified
MsgBox "修改记录成功！", 48, "修改"
Data1.Recordset.MoveNext
End Sub
Private Sub cmdClose_Click()
Unload Me
End Sub
Private Sub Command1_Click()
Data1.Recordset.AddNew
End Sub
Private Sub Command3_Click()
'this is really only needed for multi user apps
Data1.Refresh
End Sub
Private Sub Command2_Click()
If Data1.Recordset.BOF = False Then
Data1.Recordset.MovePrevious
Else
Data1.Recordset.MoveNext
End If
End Sub
Private Sub Command4_Click()
If Data1.Recordset.EOF = False Then
Data1.Recordset.MoveNext
Else
Data1.Recordset.MovePrevious
End If
End Sub
Private Sub Data1_Error(DataErr As Integer, Response As Integer)
'This is where you would put error handling code
'If you want to ignore errors, comment out the next line
'If you want to trap them, add code here to handle them
MsgBox "Data error event hit err:" & Error$(DataErr)
Response = 0 'throw away the error
End Sub
Private Sub Data1_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
'This will display the current record position
'for dynasets and snapshots
Data1.Caption = "Record: " & (Data1.Recordset.AbsolutePosition + 1)
'for the table object you must set the index property when
'the recordset gets created and use the following line
'Data1.Caption = "Record: " & (Data1.Recordset.RecordCount * (Data1.Recordset.PercentPosition * 0.01)) + 1
End Sub
Private Sub Data1_Validate(Action As Integer, Save As Integer)
'This is where you put validation code
'This event gets called when the following actions occur
Select Case Action
Case vbDataActionMoveFirst
Case vbDataActionMovePrevious
Case vbDataActionMoveNext
Case vbDataActionMoveLast
Case vbDataActionAddNew
Case vbDataActionUpdate
Case vbDataActionDelete
Case vbDataActionFind
Case vbDataActionBookmark
Case vbDataActionClose
End Select
Screen.MousePointer = vbHourglass
End Sub
Private Sub Frame2_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Form_Load()
Dim num As Integer
Dim n As Integer
For num = 1 To num
Combo4.AddItem num
Next num
Combo1.AddItem "1"
Combo1.AddItem "2"
Combo1.AddItem "3"
Combo1.AddItem "4"
Combo1.AddItem "5"
Combo1.AddItem "6"
Combo1.AddItem "7"
Combo1.AddItem "8"
Combo1.AddItem "9"
Combo1.AddItem "10"
Combo1.AddItem "11"
Combo1.AddItem "12"
For n = 1 To n
Combo1.AddItem n
Next n
Combo4.AddItem "男"
Combo4.AddItem "女"
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -