期刊信息管理系统源代码.docVIP

Private Sub Command1_Click(Index As Integer) If Index = 0 Then If UserName.Text = lyz And PassWord = 123 Then MDIForm1.Show Unload Me Else MsgBox 你输入的用户明或密码错误，请重新输入！ Form1.Show UserName.Text = 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 ADODB.Connection Private RS As ADODB.Recordset Private Sub Command1_Click() Dim a As Integer Dim str As String Dim st As String Dim sta As String Set RS.ActiveConnection = Conn RS.LockType = adLockOptimistic RS.CursorType = adOpenKeyset str = select * from readers where 读者编号 = Text2.Text RS.Open str RS.Fields(已借刊数) = RS.Fields(已借刊数) + 1 RS.Fields(备注) = Text5.Text RS.Update RS.Close st = select * from magazineinfo where 月份 = Text9.Text and 书号= Text1.Text RS.Open st RS.Fields(开始期号) = Text3.Text RS.Fields(借出标记) = 借出 RS.Fields(借出次数) = RS.Fields(借出次数) + 1 RS.Fields(结束期号) = RS.Fields(部门) = Text4.Text RS.Fields(备注) = Text5.Text RS.Update RS.Close sta = select * from borrow@return RS.Open sta RS.AddNew RS.Fields(书号) = Text1.Text RS.Fields(读者编号) = Text2.Text RS.Fields(借期) = Text3.Text RS.Fields(月份) = Text9.Text RS.Fields(是否含盘) = Text8.Text RS.Fields(部门) = Text4.Text RS.Fields(备注) = Text6.Text RS.Update RS.Close Adodc1.Refresh Adodc3.Refresh Adodc2.Refresh End Sub Private Sub Command2_Click() MDIForm1.Show Unload Me End Sub Private Sub Command3_Click() If Adodc1.Recordset.BOF Or Text1.Text = Empty Then MsgBox 这本书不存在 Else Adodc1.CommandType = adCmdText Adodc1.RecordSource = select 书号,刊名,是否含盘,入库标记,月份,借出标记 from magazineinfo where 借出标记=未借出 and 书号= Text1.Text ; Adodc1.Refresh Text4.Text = Text1.Text Text5.Text = str(Date) Text7.Text = Text8.Text End If End Sub Private Sub Command4_Click() Adodc4.RecordSource = select * from readers where 读者编号= Text2.Text Adodc4.Refresh Adodc3.RecordSource = select * from readers where 读者编号= Text2.Text Adodc3.Refresh Dim str As String Set RS.ActiveConnection = Conn RS.CursorType = adOpenForwardOnly str = s