毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 课程设计 >> 正文

VB+Access图书管理系统 第3页

更新时间:2008-1-17:  来源:毕业论文

VB+Access图书管理系统 第3页

八、软件体系结构设计说明书

8.1系统概述

在单机环境下进行系统安全的考虑,有必要进行用户权限的划分与控制,因而系统在总体上应包含安全子系统之下的各类用户工作环境。用户权限的合理划分与有效控制是本系统体系结构设计的核心。

8.2设计约束

系统将实现人员、物流的全面管理,而物流管理是系统的核心部件,怎样实现二者的共存,互不干扰,是本系统设计的难点。本系统必须实现对用户权限的有效合理控制。

8.3系统概要设计说明书

8.3.1图例说明

过程、模块

若图片载法显示请联系站长QQ7520187661.处理过程:

 

 

2.数据流:(单向)

 

3.数据流:(双向)

 

8.3.2系统总体结构图

读者管理

 

 

图书管理系统

图书管理

图书借阅管理

退出系统

图书类别管理

图书信息管理

查询图书信息

读者类别管理

读者信息管理

查询读者信息

借书管理

还书管理

添加借书信息

查询借书信息

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


 

10.系统总体结构图

8.3.3图书管理流程图

 

 若图片无法显示请联系站长QQ752018766

 

图书类别

图书信息

查询图书息

图书管理

 

 

 

 

 

 


 

11. 图书管理流程图

8.3.4读者管理流程图

读者管理

读者类别管理

读者信息管理

查询读者信息

读者管理

 

 

 

 

 

 

 

 

 

 

 

 

 


 

12. 读者管理流程图

8.3.5图书借阅流程图

 

 

 

图书借阅管理

借书管理

还书管理

添加借书信息

查询还书信息

 

 

 

 

 

 

 

 


 

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 "无效的密码,请重试!", , "登录"

        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] 下一页

VB+Access图书管理系统 第3页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。