vf圖書管理系統(tǒng)源代碼-免費(fèi)閱讀
【正文】 End Sub Private Sub Label1_DblClick() Unload Me End Sub Private Sub Label2_Click() = 可更換本系統(tǒng)操作員，雙擊進(jìn)入。 End Sub Private Sub Label1_DblClick() Unload Me End Sub Private Sub Label2_Click() = 對(duì)讀者信息進(jìn)行操作，雙擊進(jìn)入。 ) = Trim(.(2).Value amp。字段 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 = .(4).Value = 39。 End Sub Private Sub Label4_Click() = 包括“讀者借書管理”，“讀者還書管理”，“讀者續(xù)借管理”，“圖書丟失管理”進(jìn)行操作，雙擊進(jìn)入。 End Sub Private Sub Label2_DblClick() Unload Me End Sub Private Sub Label3_Click() = 對(duì)讀者續(xù)借進(jìn)行操作，雙擊進(jìn)入。 End Sub Private Sub Label4_DblClick() Unload Me End Sub Private Sub cmdadd_Click() On Error Resume Next If = 添 加 Then = 確 定 = 取消 = False = False = False = False = False Else = 添 加 = True = True = True = True End If End Sub Private Sub cmddel_Click() On Error Resume Next If MsgBox(是否真的刪除？ , vbYesNo, 提示 ) = vbYes Then If Then End If End If End Sub Private Sub cmdfirst_Click() = False = True End Sub Private Sub cmdlast_Click() = False = True End Sub Private Sub cmdnext_Click() On Error Resume Next If Then = False = False End If = True = True End Sub Private Sub cmdprevious_Click() On Error Resume Next If Then = False = False End If = True = True End Sub Private Sub Cmdgx_Click() If = 取消 Then Unload Me Else: MsgBox 更新完畢 , , 提示 End If End Sub Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() End End Sub Private Sub Form_Load() = False End Sub Private Sub cmdadd_Click() On Error Resume Next If = 添 加 Then = 確 定 = 取消 = False = False = False = False = False Else = 添 加 = True = True = True = True End If End Sub Private Sub cmddel_Click() On Error Resume Next If MsgBox(是否真的刪除？ , vbYesNo, 提示 ) = vbYes Then If Then End If End If End Sub Private Sub cmdfirst_Click() = False = True End Sub Private Sub cmdlast_Click() = False = True End Sub Private Sub cmdnext_Click() On Error Resume Next If Then = False = False End If = True = True End Sub Private Sub cmdprevious_Click() On Error Resume Next If Then = False = False End If = True = True End Sub Private Sub Cmdgx_Click() If = 取消
醫(yī)療健康相關(guān)推薦
鄂ICP備17016276號(hào)-1