江苏科技大学经济管理学院

2014至20##学年第一学期会计信息系统课程设计报告

模块名称：

1、数据库分析（配合图形作简要说明）

1.1数据流图

1.2E-R图

1.3数据库表

2、系统设计

2.1 系统功能结构图

2.2系统功能说明

3 优化分析与设计

3.1数据库方面

3.2交互界面方面

4小结

 

第二篇：管理信息系统课程设计报告模板

 管理信息系统

        (图书馆管理系统)

    

课程设计报告

————图书管理查询系统

一.系统背景

当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。
    尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统就是为了管理好图书馆信息而设计的。
    图书馆作为一种信息资源的集散地，图书和用户借阅资料繁多，包含很多的信息数据的管理，现今，有很多的图书馆都是初步开始使用，甚至尚未使用计算机进行信息管理。根据调查得知，他们以前对信息管理的主要方式是基于文本、表格等纸介质的手工处理，对于图书借阅情况（如借书天数、超过限定借书时间的天数）的统计和核实等往往采用对借书卡的人工检查进行，对借阅者的借阅权限、以及借阅天数等用人工计算、手抄进行。数据信息处理工作量大，容易出错；由于数据繁多，容易丢失，且不易查找。总的来说，缺乏系统，规范的信息管理手段。尽管有的图书馆有计算机，但是尚未用于信息管理，没有发挥它的效力，资源闲置比较突出，这就是管理信息系统的开发的基本环境。
  

二.可行性分析

 图书管理查询系统是一套使用简单,管理方便的系统工具

在图书馆的数据处理过程中手工操作工作量大，出错率高，出错后不易更改。图书馆采取手工方式对图书借阅情况进行人工管理，由于信息比较多，图书借阅信息的管理工作混乱而又复杂；一般借阅情况是记录在借书证上，图书的数目和内容记录在文件中，图书馆的工作人员和管理员也只是当时对它比较清楚，时间一长，如再要进行查询，就得在众多的资料中翻阅、查找了，造成查询费时、费力。如要对很长时间以前的图书进行更改就更加困难了。
    基于这此问题，我认为有必要建立一个图书管理系统，使图书管理工作规范化，系统化，程序化，避免图书管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效的查询和修改图书情况。

三. 调查内容

    本系统的开发是自身在图书馆的借阅过程中，发现图书馆的系统有点跟不上读者的需要，严重脱节书籍的更新发展。图书馆以前都是通过分类来进行存放，而读者要寻找所要的书籍，就必须按找分类来查找，但现在大部分图书馆的馆藏书数量非常巨大，按字母的分类和按书名的分类已经不能满足读者的要求。本系统就是对图书馆的书籍通过计算机进行编排分类，记录起存量和放置位置，这就能保证读者在这快速的时间内获取起所要的信息，即提高了图书馆的管理效率，也节省了读者的时间。

四. 系统分析

1. 用户需求
通过本图书查询系统，用户可以轻而易举的查到各种图书信息。

2. 可行性分析

通过对所收集的数据和在设计阶段所需要的各项功能进行分析，最终得出所学设计的软件系统是否可行。并对所存在的问题加以解决；所存在的错误加以纠正。

3. 数据分析

在分析阶段完成，收集各方面信息，使所作的软件功能完备，方便可行。信息：主要包扩书名、作者、出版社、出版日期、存量等。
 4. 功能分析  

 本系统具有信息录入、修改、添加、信息输出以及系统安全设置等功能。具体情况如下：
（1）信息录入功能：图书进书信息、出版社和馆藏等。
（2）修改功能：对图书信息、进行添加修改。确保数据及时更新。
（3）信息输出功能：对所需要的信息通过子界面进行信息的输出。
（4）添加功能：讲随时修改更新的信息进行添加。
    

 本系统将涉及7个表单制作，其中包括系统欢迎界面，系统权限认证界面，系统主控界面，人文类界面，思想政治类界面，军事类界面，经济类界面，系统欢迎界面的具有表达本系统重要功能的简介，系统权限认证界面是对系统信息的发布者进行进入权限认证，来保证信息的真实和安全。系统主控界面有显示本系统的全部功能的链接，通过系统主控界面，你可以链接和搜索你要获取资料的最后界面，即简单方便又直接。提高工作效率。而分界面则在名称，作者、出版社、出版日期、存量等方面进行显示，本系统还有添加功能，通过添加，管理者可以及时更新最新的书籍信息，来满足查询者的需要。

     

          

                   （欢迎界面）

（登录权限界面）

（主系统界面）

                 (子界面)

                    （表文件）

五．代码说明

欢迎界面：字幅的滚动示（Label1.Left = Label1.Left + 50

If Label1.Left > Form1.Width Then

Label1.Left = 0)

               字幅的闪动   (Dim R As Byte, G As Byte, B As Byte, LR As  Integer        

                             R = Int(200 * Rnd)

                             G = Int(250 * Rnd)

                             B = Int(150 * Rnd)

                             LR = Int(100 * Rnd) - 50

   

                            Label1.ForeColor = RGB(R, G, B)

                            Label1.Left = Label1.Left + LR

                            If Label1.Left < -Label1.Width Then

                            Label1.Left = Me.Width

                          End If

       

                            If Label1.Left > Me.Width Then

                            Label1.Left = -Label1.Width

                         End If)

图片的插入（通过属性）

音频文件加入(通过属性)

快速进入（Form2.Show

          Form1.Hide）

系统权限认证界面：用户名，密码（if thisform.text1.value="123"

                                    if thisform.text2.value="456"

                                     do form xitongye

                                    thisform.release

                                    endif

                                    else

                                    messagebox("输入错误")

                                    endif）

                      登陆,  退出 (Private Sub Command1_Click()

Dim sql As String

Dim rs_login As New ADODB.Recordset

If Trim(Text1.Text) = "" Then            '判断输入的用户名是否为空

   MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""

   Text1.SetFocus

Else

   sql = "select * from 表1 where 用户名='" & Text1.Text & "'"

   rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic        ' '打开键集类型游标，adLockPessimistic 使用悲观锁（编辑或更新整个过程中均锁定记录或页面）

   If rs_login.EOF = True Then

      MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" 

      Text1.SetFocus

   Else                                

      If Trim(rs_login.Fields(1)) = Trim(Text2.Text) Then

          userID = Text1.Text

          userpow = Text2.Text

          If rs_login.Fields(2) <> Combo1.Text Then

                MsgBox "身份错误！", vbOKOnly + vbCritical, "系统登录"                    Combo1.SetFocus

                Exit Sub

           End If

            Select Case Combo1.Text

                               Case "guest"

                                Case "system"

                              Combo1.Enabled = False

                              Combo1.Enabled = False 

            End Select                              

          rs_login.Close

          Unload Me

         Form3.Show

      Else

         MsgBox "密码不正确", vbOKOnly + vbExclamation, ""

         Text2.SetFocus

      End If

   End If

End If

cnt = cnt + 1

If cnt = 3 Then

   Unload Me

End If

Exit Sub

End Sub

Private Sub Command2_Click()

'Unload Me

Dim n As String

    n = MsgBox("你选择了退出系统登录，退出将不能启动管理系统！" & vbCrLf _

              & "是否真的退出？", vbYesNo, "登录验证")           

    If n = vbYes Then

        Unload Me             

    End If

End Sub)

系统界面：向各子界面链接（do form 下一界面名称）

子界面：通过生成器链接数据库里的表

         上一页（if not bof()

skip-1

thisform.refresh

else

messagebox("到头了，按下一页回")

endif）

下一页（if not eof()

skip   

thisform.refresh

else

messagebox("没了，按上一页回")

endif）

添加 （append blank

go bottom

thisform.refresh）

         提交  (Label14.Caption = Text1.Text

                Label16.Caption = Text2.Text

                Label18.Caption = Text3.Text

                Label19.Caption = Text4.Text

                Label17.Caption = Combo1.Text

                If Option1.Value = 1 Then

                Label15.Caption = "男"

                Else

                Label15.Caption = "女"

                End If

                Label17.Caption = Combo1.Text

                Label20.Caption = ""

                For i = 0 To 3

                If Check1(i).Value = 1 Then

             Label20.Caption = Label20.Caption + Check1(i).Caption

             End If

             Next)

       清除 (Text1.Text = ""

             Text2.Text = ""

             Text3.Text = ""

             Text4.Text = ""

             Combo1.Clear

             For i = 0 To 3

             Check1(i).Value = 0

             Next)

进入数据库 (Form5.Show

            Form4.Hide)

六．数据库文件设计（数据文件结构）

数据表结构

密码表逻辑结构

　　

七.系统操作与使用说明（进入密码）

1.双击 快捷方式，进入到登陆系统。
2,输入操作员账号(123)和密码(456)，单击确定进入到系统介绍界面。单击 系统操作界面。见看到菜单栏 。有按思想类书籍查询查询,人文类书籍查询,军事类水剂查询和按经济类书籍查询四种方法。选择你要用的查询方法。单击确定，否则单击返回。

八. 程序设计体会与收获

回顾起此次VB课程设计，至今我仍感慨颇多，的确，从选题到制作，从理论到实践，在这一个星期的日子里，可以说得是苦多于甜，但是可以学到很多很多的的东西，同时不仅可以巩固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇到问题，可以说得是困难重重，这毕竟第一次做的，难免会遇到过各种各样的问题，同时在设计的过程中发现了自己的不足之处，对以前所学过的知识理解得不够深刻，掌握得不够牢固,通过这次课程设计之后，一定把以前所学过的知识重新温故。
这次课程设计终于顺利完成了，在设计中遇到了很多系统设计问题，最后在小明老师的辛勤指导下，终于游逆而解。同时，在宋秀芬老师的身上我学得到很多实用的知识，在次我表示感谢！