VB+SQL期刊信息管理系统源代码论文.doc

文档介绍：Private mand1_Click(Index As Integer)
If Index = 0 Then
If = "lyz" And PassWord = "123" Then

Unload Me
Else
MsgBox "你输入的用户明或密码错误,请重新输入!"

= ""
PassWord = ""
End If
End If
If Index = 1 Then End
End Sub
Private Sub Label1_Click()
End Sub
Private Sub Label2_Click()
End Sub
Private Conn As
Private RS As
Private mand1_Click()
Dim a As Integer
Dim str As String
Dim st As String
Dim sta As String
Set = Conn
= adLockOptimistic
= adOpenKeyset
str = "select * from readers where 读者编号=" &
str
("已借刊数") = ("已借刊数") + 1
'("备注") =


st = "select * from magazineinfo where 月份=" & & "and 书号=" &
st
("开始期号") =
("借出标记") = "借出"
("借出次数") = ("借出次数") + 1
("结束期号") = ""
'("部门") =
'("备注") =


sta = "select * from ******@return "
sta

("书号") =
("读者编号") =
("借期") =
("月份") =
("是否含盘") =
'("部门") =
("备注") =





End Sub
Private mand2_Click()

Unload Me
End Sub
Private mand3_Click()
If Or = Empty Then
MsgBox "这本书不存在"
Else
mandType = adCmdText
= "select 书号,刊名,是否含盘,入库标记,月份,借出标记 from magazineinfo where 借出标记='未借出' and 书号=" & "'" & & "';"

=
= str(Date)
=
End If
End Sub
Private mand4_Click()
= "select * from readers where 读者编号=" &

= "select * from readers where 读者编号=" &