图13. 图书借阅流程图
8.4系统详细设计说明书
8.4.1系统核心模块详解
全局变量定义:
Option Explicit
Public conn As New ADODB.Connection
Public select_menu As String
Public userID As String
Public userpow As String
Public book_num As String
Private Sub cmdCancel_Click()
'设置全局变量为 false
'不提示失败的登录
LoginSucceeded = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
'检查正确的密码
If txtPassword = "user" Then
'将代码放在这里传递
'成功到 calling 函数
'设置全局变量时最容易的
LoginSucceeded = True
Me.Hide
Form1.Show
Else
MsgBox "无效的密码