vf圖書管理系統(tǒng)源代碼-閱讀頁(yè)
2025-02-25 09:09本頁(yè)面
【正文】 = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = Exit Do Else . End If End If If = 出版年代 Then U = .(4).Value = 39。VF圖書管理系統(tǒng)源代碼 Private Sub Command1_Click() Dim U As Boolean, P As Boolean, Ok As Boolean With Adodc1 .Refresh Do While Not . U = .(0).Value = P = .(1).Value = If U And P Then e = k = Ok = True Exit Do Else . End If Loop End With If Ok Then MsgBox 登錄成功 , , 提示 Unload Me Else MsgBox 登錄失敗 , , 提示 End If End Sub Private Sub Command2_Click() End End Sub Private Sub Label3_Click() End Sub Private Sub Command1_Click() Dim U As Boolean With Adodc1 .Refresh Do While Not . If = 編 號(hào) Then U = .(0).Value = If U Then = .(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = Exit Do Else . End If End If If = 書名 Then U = .(1).Value = If U Then = .(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = Exit Do Else . End If End If If = 作者 Then U = .(2).Value = 39。字段 0為用戶名稱 If U Then = .(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = Exit Do Else . End If End If If = 出版社 Then U = .(3).Value = 39。字段 0為用戶名稱 If U Then = .(0).Value = .(1).Value = .(2).Value = .(3).Value = .(4).Value = .(5).Value = Exit Do Else . End If End If If = 是否借出 Then U = .(5).Value = 39。 ) = Trim(.(2).Value amp。 ) = Trim(.(0).Value amp。 End Sub Private Sub Label3_DblClick() Unload Me End Sub Private Sub Label4_DblClick() Unload Me End Sub Private Sub Label3_Click() = 能對(duì)新書信息入庫(kù)和庫(kù)存圖書查詢進(jìn)行操作，雙擊進(jìn)入。 End Sub Private Sub Label5_Click() = 能對(duì)“用戶管理”，“更換操作員”，“更換口令”，“系統(tǒng)設(shè)置”進(jìn)行操作，雙擊進(jìn)入。 End Sub Private Sub Label1_DblClick() Unload Me End Sub Private Sub Label2_Click() = 對(duì)讀者信息進(jìn)行操作，雙擊進(jìn)入。 End Sub Private Sub Label1_DblClick() Unload Me End Sub Private Sub Label2_Click() = 對(duì)庫(kù)存中的圖書進(jìn)行查詢，雙擊進(jìn)入。 End Sub Private Sub Label1_DblClick() Unload Me End Sub Private Sub Label2_Click() = 對(duì)讀者還書進(jìn)行操作，雙擊進(jìn)入。 End Sub Private Sub Label3_DblClick() Unload Me End Sub Private Sub Label4_Click() = 對(duì)圖書丟失進(jìn)行操作，雙擊進(jìn)入。 End Sub Private Sub Label1_DblClick() Unload Me End Sub Private Sub Label2_Click() = 可更換本系統(tǒng)操作員，雙擊進(jìn)入。 End Sub Private Sub Label3_DblClick() Unload Me End Sub Private Sub Label4_Click() = 系統(tǒng)相關(guān)設(shè)置，
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1