八、软件体系结构设计说明书
8.1系统概述
在单机环境下进行系统安全的考虑,有必要进行用户权限的划分与控制,因而系统在总体上应包含安全子系统之下的各类用户工作环境。用户权限的合理划分与有效控制是本系统体系结构设计的核心。
8.2设计约束
系统将实现人员、物流的全面管理,而物流管理是系统的核心部件,怎样实现二者的共存,互不干扰,是本系统设计的难点。本系统必须实现对用户权限的有效合理控制。
8.3系统概要设计说明书
过程、模块
若图片载法显示请联系站长QQ7520187661.处理过程:
读者管理 图书管理系统 图书管理 图书借阅管理 退出系统 图书类别管理 图书信息管理 查询图书信息 读者类别管理 读者信息管理 查询读者信息 借书管理 还书管理 添加借书信息 查询借书信息
图10.系统总体结构图
图书类别 图书信息 查询图书息 图书管理
图11. 图书管理流程图
读者管理 读者类别管理 读者信息管理 查询读者信息 读者管理
图12. 读者管理流程图
图书借阅管理 借书管理 还书管理 添加借书信息 查询还书信息
图13. 图书借阅流程图
8.4系统详细设计说明书
全局变量定义:
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 "无效的密码,请重试!", , "登录"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub b
窗体名:Form1
代码:
Private Sub A11_Click()
Form2.Show
End Sub
Private Sub A12_Click()
Form3.Show
End Sub
Private Sub A13_Click()
Form4.Show
End Sub
Private Sub B11_Click()
Form5.Show
End Sub
Private Sub B12_Click()
Form6.Show
End Sub
Private Sub B13_Click()
Form7.Show
End Sub
Private Sub C12_Click()
Form4.Show
End Sub
Private Sub C13_Click()
Form9.Show
End Sub
Private Sub C15_Click()
Form10.Show
End Sub
Private Sub exit_Click()
End
End Sub
窗体名:Form2
代码:
Private Sub Command1_Click()
On Error GoTo command1error
Command2.Enabled = False
Command3.Enabled = False
Command1.Enabled = False
Command4.Enabled = True
Command5.Enabled = True
DataGrid1.AllowAddNew = True
DataGrid1.AllowUpdate = True
Exit Sub
command1error:
MsgBox Err.Description
End Sub
Private Sub Command2_Click()
On Error GoTo Command2
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = False
Command1.Enabled = True
Command4.Enabled = True
Command5.Enabled = True
DataGrid1.AllowUpdate = True
Command2:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub Command3_Click()
Dim answer As String
On Error GoTo command3error
answer = MsgBox("确定要删除吗?", vbYesNo, "")
If answer = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveLast
End If
DataGrid1.Refresh
MsgBox "删除成功!", vbOKCancel + vbExclamation, ""
DataGrid1.AllowDelete = False
Else
Exit Sub
command3error:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub
Private Sub Command4_Click()
If Not IsNull(DataGrid1.Bookmark) Then
DataGrid1.Refresh
End If
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = True
Command5.Enabled = False
Command4.Enabled = False
DataGrid1.AllowUpdate = False
DataGrid1.AllowAddNew = False
MsgBox "操作成功!", vbOKCancel + vbExclamation, ""
End Sub
Private Sub Command5_Click()
DataGrid1.Refresh
DataGrid1.AllowAddNew = False
Command2.Enabled = True
上一页 [1] [2] [3] [4] [5] [6] [7] [8] 下一页