📄 frmeditlentbookid.frm
字号:
Caption = "电话号码"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
TabIndex = 7
Top = 3600
Width = 960
End
Begin VB.Label Label6
AutoSize = -1 'True
Caption = "家庭住址"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
TabIndex = 6
Top = 3000
Width = 960
End
Begin VB.Label Label5
AutoSize = -1 'True
Caption = "工作单位"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
TabIndex = 5
Top = 2400
Width = 960
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "读者类别"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
TabIndex = 4
Top = 1800
Width = 960
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "性 别"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 3120
TabIndex = 3
Top = 1200
Width = 960
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "姓 名"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 240
Left = 480
TabIndex = 2
Top = 1200
Width = 960
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "借书证号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00004080&
Height = 240
Left = 1560
TabIndex = 1
Top = 600
Width = 960
End
Begin VB.Image Image1
Height = 615
Left = 600
Picture = "frmEditLentBookID.frx":0442
Stretch = -1 'True
Top = 360
Width = 615
End
End
End
Attribute VB_Name = "frmEditLentBookID"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdCancel_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call cmdMouseDown(cmdCancel)
End Sub
Private Sub cmdCancel_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdCancel.BackColor = &H8000000D
End Sub
Private Sub cmdCancel_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call cmdMouseUp(cmdCancel)
End Sub
Private Sub cmdEnter_Click()
Dim strSQL As String
If Me.Caption = "添加借书人员信息" Then
If MsgBox("是否真的要添加?", vbQuestion + vbYesNo) = vbYes Then
Call mbdOpen("读者信息", "借书证号", Text1.Text)
If mbdGet("借书证号") <> "" Then MsgBox "已有相同的借书证号了！", vbCritical + vbOKOnly: Exit Sub
Call mbdClose
strSQL = "Insert Into 读者信息(借书证号,读者姓名,性别,读者类别,工作单位,家庭住址,电话号码,登记日期,已借书数量)"
strSQL = strSQL + " Values('" + Text1.Text + "','" + Text2.Text + "','" + Text3.Text + "','" + Combo1.Text + "','" + Text4.Text + "','" + Text5.Text + "','" + Text6.Text + "','" + Format(Now, "yyyy-mm-dd") + "','" + Text7.Text + "')"
ADOcn.Execute strSQL
MsgBox "已成功添加借书人员信息！", vbQuestion + vbOKOnly
If MsgBox("是否要继续添加", vbQuestion + vbYesNo) = vbYes Then
Call Form_Load
Else
Unload Me
End If
Else
Unload Me
End If
Else
If MsgBox("是否真的要修改?", vbQuestion + vbYesNo) = vbYes Then
strSQL = "Update 读者信息 "
strSQL = strSQL + "Set 读者姓名='" + Text2.Text + "',性别='" + Text3.Text + "',读者类别='" + Combo1.Text + "',工作单位='" + Text4.Text + "',家庭住址='" + Text5.Text + "',电话号码='" + Text6.Text + "',登记日期='" + Format(Now, "yyyy-mm-dd") + "',已借书数量='" + Text7.Text + "'"
strSQL = strSQL + " Where 借书证号='" + Text1.Text + "'"
ADOcn.Execute strSQL
MsgBox "修改成功", vbQuestion + vbOKOnly
End If
Unload Me
End If
End Sub
Private Sub cmdEnter_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call cmdMouseDown(cmdEnter)
End Sub
Private Sub cmdEnter_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdEnter.BackColor = &H8000000D
End Sub
Private Sub cmdEnter_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call cmdMouseUp(cmdEnter)
End Sub
Private Sub Form_Activate()
If Me.Caption <> "添加借书人员信息" Then
Call mbdOpen("读者信息", "借书证号", frmLentBookID.lvLBID.SelectedItem.Text)
Text1.Text = mbdGet("借书证号"): Text2.Text = mbdGet("读者姓名"): Text3.Text = mbdGet("性别")
Combo1.Text = mbdGet("读者类别"): Text4.Text = mbdGet("工作单位"): Text5.Text = mbdGet("家庭住址")
Text6.Text = mbdGet("电话号码"): Text7.Text = mbdGet("已借书数量")
Call mbdClose
End If
End Sub
Private Sub Form_Load()
Text1.Text = "": Text2.Text = "": Text3.Text = "": Text4.Text = "": Text5.Text = ""
Text6.Text = "": Text7.Text = ""
Combo1.Text = "临时"
Combo1.AddItem "临时"
Combo1.AddItem "金卡"
Combo1.AddItem "Vip"
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
cmdEnter.BackColor = &H8000000F
cmdCancel.BackColor = &H8000000F
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -