📄 frmcinfoedit.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomct2.ocx"
Begin VB.Form frmCInfoEdit
BorderStyle = 1 'Fixed Single
Caption = "借阅证件信息编辑"
ClientHeight = 4755
ClientLeft = 45
ClientTop = 330
ClientWidth = 7725
Icon = "frmCInfoEdit.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4755
ScaleWidth = 7725
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdDate
Caption = "取消过期"
Height = 495
Left = 3840
TabIndex = 17
Top = 3960
Width = 1215
End
Begin VB.CommandButton cmdLoss
Caption = "挂 失"
Height = 495
Left = 2280
TabIndex = 16
Top = 3960
Width = 1215
End
Begin VB.CommandButton cmdCancel
Caption = "取 消"
Height = 495
Left = 5400
TabIndex = 15
Top = 3960
Width = 1215
End
Begin VB.CommandButton cmdOk
Caption = "确 定"
Height = 495
Left = 720
TabIndex = 14
Top = 3960
Width = 1215
End
Begin VB.TextBox txtState
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2040
Locked = -1 'True
TabIndex = 7
Text = "有效"
Top = 3360
Width = 1575
End
Begin MSComCtl2.DTPicker dtpCreateDate
Height = 375
Left = 2040
TabIndex = 6
Top = 2640
Width = 1575
_ExtentX = 2778
_ExtentY = 661
_Version = 393216
Format = 21102593
CurrentDate = 38525
End
Begin VB.ComboBox cboCType
Height = 300
Left = 5160
Style = 2 'Dropdown List
TabIndex = 2
Top = 240
Width = 1695
End
Begin VB.TextBox txtReader
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2040
MaxLength = 20
TabIndex = 3
Top = 840
Width = 2295
End
Begin VB.TextBox txtIDCard
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2040
MaxLength = 18
TabIndex = 5
Top = 2040
Width = 2295
End
Begin VB.TextBox txtWorkPlace
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2040
MaxLength = 50
TabIndex = 4
Top = 1440
Width = 4575
End
Begin VB.TextBox txtCNo
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 330
Left = 2040
MaxLength = 16
TabIndex = 1
Top = 240
Width = 1695
End
Begin VB.Label lblCType
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "借阅证件类型"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 3960
TabIndex = 13
Top = 240
Width = 1080
End
Begin VB.Label lblIDCard
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "身份证号码"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 720
TabIndex = 12
Top = 2160
Width = 900
End
Begin VB.Label lblReader
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "读者姓名"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 720
TabIndex = 11
Top = 960
Width = 720
End
Begin VB.Label lblWorkPlace
AutoSize = -1 'True
BackColor = &H00FFC0C0&
BackStyle = 0 'Transparent
Caption = "工作单位"
Height = 180
Left = 720
TabIndex = 10
Top = 1560
Width = 720
End
Begin VB.Label lblCreateDate
BackStyle = 0 'Transparent
Caption = "发证日期"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 720
TabIndex = 9
Top = 2760
Width = 720
End
Begin VB.Label lblState
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "状 态"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 720
TabIndex = 8
Top = 3480
Width = 720
End
Begin VB.Label lblCNo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "借阅证编号"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 180
Left = 720
TabIndex = 0
Top = 360
Width = 900
End
End
Attribute VB_Name = "frmCInfoEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'窗体装载事件
Private Sub Form_Load()
Dim SQLStmt As String
'所在部门
SQLStmt = "SELECT * FROM CardType"
Addcbo cboCType, SQLStmt, 1
End Sub
'窗体激活事件
Private Sub Form_Activate()
If Not IsAdd Then
cboCType.Text = frmCInfoMan.adoCInfo.Recordset.Fields(5).Value
End If
End Sub
'确定按钮
Private Sub cmdOK_Click()
'================判断文本框的有效性==================
'是否选择借阅证类型
If Trim(cboCType.Text) = "" Then
MsgBox "请选择借阅证件类型", vbInformation, "信息提示"
cboCType.SetFocus
Exit Sub
End If
'是否输入读者姓名
If Trim(txtReader.Text) = "" Then
MsgBox "请输入读者姓名", vbInformation, "信息提示"
txtReader.SetFocus
Exit Sub
End If
'是否输入出版社
If Trim(txtWorkPlace.Text) = "" Then
MsgBox "请输入工作单位", vbInformation, "信息提示"
txtWorkPlace.SetFocus
Exit Sub
End If
'是否输入身份证号码
If Trim(txtIDCard.Text) = "" Then
MsgBox "请输入身份证号码", vbInformation, "信息提示"
txtIDCard.SetFocus
Exit Sub
End If
'输入身份证号码是否合法
If Not IsNumeric(txtIDCard.Text) Then
MsgBox "身份证号码为数字" + vbCrLf + "请输入正确的身份证号码", vbInformation, "信息提示"
txtIDCard.SetFocus
txtIDCard.SelStart = 0
txtIDCard.SelLength = Len(txtIDCard.Text)
Exit Sub
End If
'增加类型的判断
If IsAdd Then
'是否输入借阅证编号
If Trim(txtCNo.Text) = "" Then
MsgBox "请输入借阅证编号", vbInformation, "信息提示"
Exit Sub
End If
'判断是否存在此借阅证编号
If objCardInfo.IsExistCNo(txtCNo.Text) Then
MsgBox "此借阅证编号已存在" + vbCrLf _
+ "请输入其他借阅证编号", vbInformation, "信息提示"
Exit Sub
End If
End If
'===============判断文本框有效性结束=================
'给objCardInfo赋值
objCardInfo.CardNo = Trim(txtCNo.Text)
objCardInfo.Reader = Trim(txtReader.Text)
objCardInfo.WorkPlace = Trim(txtWorkPlace.Text)
objCardInfo.IDCard = Trim(txtIDCard.Text)
objCardType.GetInfo cboCType.Text
objCardInfo.CTypeID = Trim(objCardType.CTypeID)
objCardInfo.CreateDate = dtpCreateDate.Value
Select Case Trim(txtState.Text)
Case "有效"
objCardInfo.CardState = 0
Case "过期"
objCardInfo.CardState = 1
Case "挂失"
objCardInfo.CardState = 2
End Select
'========增加========
If IsAdd Then
objCardInfo.Insert
MsgBox "插入成功", vbInformation, "信息提示"
'========修改========
Else
objCardInfo.Update objCardInfo.CardNo
MsgBox "修改成功", vbInformation, "信息提示"
End If
'关闭窗口
Unload Me
End Sub
'挂失按钮
Private Sub cmdLoss_Click()
'如果为增加状态不能使用挂失按钮
If IsAdd Then
Exit Sub
End If
'定义是否挂失（或取消挂失）变量
Dim IsLoss As Integer
If cmdLoss.Caption = "挂 失" Then
IsLoss = MsgBox("是否将此证件挂失" + vbCrLf + "如果挂失，此证将不能正常借书", _
vbYesNo + vbQuestion + vbDefaultButton2, "询问")
If IsLoss = vbYes Then
objCardInfo.UpdateState Trim(txtCNo.Text), 2
MsgBox "借阅证号为" + Trim(txtCNo.Text) + "的证件挂失成功", vbInformation, "信息提示"
End If
Else
IsLoss = MsgBox("是否取消挂失此证件？", vbYesNo + vbQuestion + vbDefaultButton1, "询问")
If IsLoss = vbYes Then
objCardInfo.UpdateState Trim(txtCNo.Text), 0
MsgBox "借阅证号为" + Trim(txtCNo.Text) + "的证件已经可以使用", vbInformation, "取消挂失成功"
End If
End If
'关闭窗口
Unload Me
End Sub
'取消过期按钮
Private Sub cmdDate_Click()
'不是过期状态的借阅证件不能“取消过期”
If Trim(txtState.Text) <> "过期" Then
Exit Sub
End If
'定义是否取消过期变量
Dim IsCancelOverdue As Integer
IsCancelOverdue = MsgBox("此证件是否取消过期？", vbYesNo + vbQuestion + vbDefaultButton1, "询问")
If IsCancelOverdue = vbYes Then
objCardInfo.UpdateState Trim(txtCNo.Text), 0
objCardInfo.UpdateDate Trim(txtCNo.Text)
MsgBox "借阅证号为" + Trim(txtCNo.Text) + "的证件已经可以使用", vbInformation, "取消过期成功"
End If
'关闭窗口
Unload Me
End Sub
'取消按钮
Private Sub cmdCancel_Click()
Unload Me
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -