计算机软件及应用医药销售管理报告.doc

《计算机软件及应用医药销售管理报告.doc》由会员分享，可在线阅读，更多相关《计算机软件及应用医药销售管理报告.doc（30页珍藏版）》请在三一办公上搜索。

1、 本 科 生 课 程 设 计（数据库）设计题目 医药销售管理系统 学生姓名 石秋平 陶冶 陶叶津 汪仲春 吴洪平 武跃 汪仲春 王飞 王荣超 陶冶 闻明敏 专业名称 信息与计算科学 指导教师 王与 2012年6月10日任 务 分 解 表学 号姓 名任 务成 绩2010212420周长安用户界面，用户系统及毕业管理界面的设计及实现2010212419郑建2010212416赵培林学生档案界面的设计及实现，学生个人入学信息的输入2010212422朱李课程设计中所有的代码设计2010212413张业伟学生成绩管理系统界面的设计及实现2010212414赵定松2010212411张倩玉建立学生学籍管

2、理系统所需要学生个人信息及学生成绩表，并存储在数据库中。数据库课程设计实验报告的撰写2010212417赵素芳2010212423朱伊玉目 录1 医药销售管理信息系统概述42 医药销售管理系统的需求分析52.1系统需求分析53 医药销售管理系统的概要设计53.1设计概述53.2系统总体结构及功能模块划分63.3系统数据库概念结构设计73.4安全保密设计84 医药销售管理系统详细设计94.1 概述94.2系统程序流程图94.3系统主要功能模块简介94.4主要模块代码125医药销售管理系统系统测试275.1登陆测试275.2 药品信息查询测试275.3 查询测试285.4 学生毕业管理测试286

3、医药销售管理系统操作手册287 总结29医药销售管理系统1 医药销售管理信息系统概述 医药销售管理信息系统1（Medicine Management Information System，MIS）就是指为管理目的、采用计算机和网络技术对管理系统进行统一管理的一套人机系统。管理学、系统论、信息技术等方面的相关理论，面向统计分析和决策支持所建立的数学模型是管理信息系统发展的理论基础。 2 医药销售管理系统的需求分析2.1系统需求分析2.1.1系统目标 （1）使得医药管理工作更加清晰、条理化、自动化。（2）通过用户名和密码登录系统，查询药品的基本信息，学生所选课程成绩，修改用户密码等功能。 容易地完

4、成学生信息的查询操作。(3) 设计人机友好界面，功能安排合理，操作使用方便，并且进一步考虑系统在安全性，完整性，并发控制，备份和恢复等方面的功能要求。2.1.2功能需求分析本系统的功能需求分析如下：（1）药品信息查询：用户可以根据药品编号查询药品的基本信息.（2）销售信息查询：主要是通过销售商编号和药品编号查询药品的数量、时间、订退方式；（3）员工信息查询：通过员工编号和姓名查询员工的基本信息；（4）药品信息管理：对药品信息进行维护和管理，可以对药品进行插入和删除；（5）用户登录：通过输入用户名和密码登录医药销售管理系统。2.1.3性能需求分析(1) 登录、用户界面需求：简洁、易懂、易用、友好

5、的用户界面。(2) 安全保密性需求：只有凭借用户名和密码登陆系统，才能进行信息的管理等。3 药品销售管理系统的概要设计3.1设计概述根据需求把整个系统分化成不同的模块，每个模块完成一个特定的子功能。把这些模块结合起来组成一个整体。逐一实现各个功能。3.2系统总体结构及功能模块划分经过对系统的需求分析，医药销售管理系统主要划分为三个部分：药品信息查询，药品信息管理，药品信息录入三个功能模块。如图3.2.0 系统的总体结构。医药销售管理系统药品信息查询销售信息查询员工信息查询后台操作图3.2.0 系统的总体结构 3.2.1药品信息查询模块药品信息查询：用户可以根据药品编号查询药品的基本信息。如图3

6、.2.2学生信息查询模块结构。药品信息查询药品编号图3.2.1 药品信息查询模块结构3.2.2销售信息查询模块销售信息查询：主要查询基本的销售信息，如图3.2.2销售信息查询模块结构。销售信息查询销售商编号药品编号图3.2.2 学生信息管理模块结构3.2.3 员工信息查询模块 员工信息查询：通过员工编号和姓名查询员工的基本信息，如图3.2.3员工信息查询模块。员工信息查询员工编号姓名 3.3系统数据库概念结构设计根据对数据项与数据结构的分析，设计出能够满足系统需求的各种实体，及它们之间的关系，为后面的逻辑结构设计打下基础。3.3.1 系统E-R图系统E-R图可以将各个实体之间的关系显示出来，将

7、各个实体间的属性依赖表示明白。如图3.3.1系统E-R图结构药品销售信息员工药品编号药品名称药品类型药品单价药品规格销售商名称地区销售商编号数量时间退订方式制药商编号药品编号员工编号姓名年龄院部性别电话图3.3.1系统E-R图结构3.3.2系统数据库设计综合以上分析，要实现上面的所有功能模块，主要设计表如下：表3.2.2药品信息表结构列名字段类型大小是否为空主键/外键药品编号nvarchar255Null药品名称nvarchar255Null药品类型nvarchar255Null药品单价nvarchar53Null药品规格nvarchar53Null销售商编号nvarchar255Null销售

8、商名称nvarchar255Null地区nvarchar255Null表 3.2.2员工信息表结构 列名字段类型大小是否为空主键外键员工编号nvarchar255Null 姓名nvarchar255Null年龄float8Null性别nvarchar255Null电话folat8Null院部nvarchar255Null 表3.2.2 销售信息查询结构 列名字段类型大小是否为空主键/外键销售商编号nvarchar255Null药品编号nvarchar255Null数量nvarchar255Null时间smalldateting4Null退订方式nvarchar255Null3.4安全保密设计3

9、.4.1用户登录安全性系统设计了登录界面，每个合法用户有用户名及一个密码，只有当用户输入正确的用户名及密码组合后才能够对学生信息进行操作。 4 医药销售管理系统详细设计4.1 概述细设计阶段的根本目标是确定应该怎样具体的实现所要求的系统，也就是说，经过这个阶段的设计工作，应该得出目标系统的精确描述，从而在编码阶段可以把这个描述直接翻译成用某种程序设计语言书写的程序。 4.2系统程序流程图 程序流程图又称为程序框图，它是历史悠久使用最广泛的描述软件设计的方法。它可将整个程序的总体流程清楚明白的显示出来。如图4.2.1系统总流程图结构。图4.2.1系统总体流程图4.3系统主要功能模块简介4.3.1

10、系统登录 用户凭借用户名及密码登录，成功登录后可对学生信息进行操作。用户界面如图4.3.1 用户登录界面所示。图4.3.1 用户登录界面4.3.2药品信息查询模块查询 药品信息查询：在程序主界面（如图4.3.2 程序主界面）用户可以根据药品编号查询药品基本信息。图4.3.2 程序主界面4.3.3销售信息查询模块销售信息查询：可对当前选定药品信息进行详细信息查询。如图4.4.3销售信息信息。4.4.3销售信息管理图4.3.4管理员登陆管理模块用于管理员管理学生信息，如图4.3.3学生学籍管理 图4.3.3学生学籍管理 4.3.5毕业管理模块用于管理学生毕业信息，如图4.3.5毕业管理。 图4.3

11、.5毕业管理。 4.4主要模块代码 4.4.1登陆界面代码Imports System.Data.SqlClientImports System.DataPublic Class Form2 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim myconn As SqlConnection = New SqlConnection(server=(local);uid=sxxy;pwd=123456;database=学生学籍

12、管理) Dim mydata As SqlDataAdapter Dim myset As New DataSet() Dim mytable As New DataTable() Dim sql As String sql = select * from 用户 where 用户名= & Trim(TextBox1.Text) & & and 密码= & Trim(TextBox2.Text) & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 用户) mytable = myset.Tables(用户) If mytab

13、le.Rows.Count 0 Then flag = 1 Close() Else MsgBox(密码错误，请重新输入！) TextBox1.Text = TextBox2.Text = End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Close() End SubEnd Class4.4.2主界面代码Imports System.Data.SqlClientImports System.Data

14、Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If flag = 0 Then MenuItem2.Enabled = False MenuItem3.Enabled = False MenuItem4.Enabled = False End If End Sub Private Sub Menuitem1_Click(ByVal sender As System.Object, ByVal e A

15、s System.EventArgs) Handles MenuItem1.Click If Flag = 1 Then MenuItem2.Enabled = True MenuItem3.Enabled = True MenuItem4.Enabled = True ElseIf flag = 0 Then Dim objChild As New Form2() objChild.MdiParent = Me objChild.Show() End IfEnd Sub Private Sub MenuItem4_1_Click(ByVal sender As System.Object,

16、ByVal e As System.EventArgs) Handles MenuItem4_1.Click flagproinf = 1 Dim objChild As New Form4() objChild.mdiParent = Me objChild.Show() End Sub Private Sub MenuItem4_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4_2.Click flagproinf = 2 Dim objChild As New For

17、m4() objChild.mdiParent = Me objChild.Show() End Sub Private Sub MenuItem4_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem4_3.Click flagproinf = 3 Dim objChild As New Form4() objChild.mdiParent = Me objChild.Show() End Sub Private Sub MenuItem2_1_Click(ByVal send

18、er As System.Object, ByVal e As System.EventArgs)Handles MenuItem2_1.Click flagsaleinf = 1 Dim objChild As New Form3() objChild.MdiParent = Me objChild.Show() End Sub Private Sub MenuItem2_2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2_2.Click flagsaleinf = 2 D

19、im objChild As New Form3() objChild.MdiParent = Me objChild.Show() End Sub Private Sub MenuItem2_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2_3.Click flagsaleinf = 3 Dim objChild As New Form3() objChild.MdiParent = Me objChild.Show() End Sub Private Sub MenuI

20、tem2_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2_4.Click flagsaleinf = 4 Dim objChild As New Form3() objChild.MdiParent = Me objChild.Show() End Sub Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Cli

21、ck End Sub Private Sub MenuItem3_1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3_1.Click flagsaleinf = 1 Dim objChild As New Form5() objChild.MdiParent = Me objChild.Show() End Sub Private Sub MenuItem3_2_Click(ByVal sender As System.Object, ByVal e As System.Ev

22、entArgs) Handles MenuItem3_2.Click flagsaleinf = 2 Dim objChild As New Form5() objChild.MdiParent = Me objChild.Show() End Sub Private Sub MenuItem3_3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3_3.Click flagsaleinf = 3 Dim objChild As New Form5() objChild.MdiP

23、arent = Me objChild.Show() End Sub Private Sub MenuItem3_4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3_4.Click flagsaleinf = 4 Dim objChild As New Form5() objChild.MdiParent = Me objChild.Show() End SubEnd Class4.4.3学生信息代码Imports System.DataImports System.Data

24、.SqlClientPublic Class Form3Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim myconn As SqlConnection = New SqlConnection(server= (local); uid=sxxy; pwd=123456; database= 学生学籍管理) Dim mydata As SqlDataAdap

25、ter Dim myset As New DataSet() Dim mytable As New DataTable() Dim sql As String sql = select * from 学生个人入学信息where 学号= & Trim(ComboBox1.Text) & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 学生个人入学信息1) mytable = myset.Tables(学生个人入学信息1) If mytable.Rows(0).Item(0) = ComboBox1.Text Then Tex

26、tBox1.Text = mytable.Rows(0).Item(1) TextBox2.Text = mytable.Rows(0).Item(2) TextBox3.Text = mytable.Rows(0).Item(3) TextBox4.Text = mytable.Rows(0).Item(4) TextBox5.Text = mytable.Rows(0).Item(5) TextBox6.Text = mytable.Rows(0).Item(6) TextBox7.Text = mytable.Rows(0).Item(7) TextBox8.Text = mytable

27、.Rows(0).Item(8) End If End Sub Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Select Case flagsaleinf Case 1 Button1.Text = 添加 Case 2 Button1.Text = 修改 Case 3 Button1.Text = 删除 Case 4 Button1.Text = 查询 End Select display() End SubPrivate Sub d

28、isplay() Dim myconn As SqlConnection = New SqlConnection(server= (local); uid= sxxy; pwd= 123456; database= 学生学籍管理) Dim mydata As New SqlDataAdapter Dim myset As New DataSet() Dim mytable As New DataTable() Dim sql As String Dim i As Integer sql = select * from 学生个人入学信息 mydata = New SqlDataAdapter(s

29、ql, myconn) mydata.Fill(myset, 学生个人入学信息) mytable = myset.Tables(学生个人入学信息) DataGridView1.DataSource = myset.Tables(学生个人入学信息) For i = 0 To mytable.Rows.Count - 1 ComboBox1.Items.Add(mytable.Rows(i).Item(0) Next End Sub Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e A

30、s System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End SubEnd Class4.4.4成绩管理代码Imports System.DataImports System.Data.SqlClientPublic Class Form5Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)End SubPrivate Su

31、b Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Select Case flagproinf Case 1 Button1.Text = 添加 Case 2 Button1.Text = 修改 Case 3 Button1.Text = 删除 Case 4 Button1.Text = 查询End Select Display() End SubPrivate Sub Display() Dim myconn As SqlConnection = New S

32、qlConnection(server=(local);uid=sxxy;pwd=123456;database=学生学籍管理) Dim mydata As sqldataadapter Dim myset As New DataSet() Dim mytable As New DataTable() Dim sql As String Dim i As Integer sql = select * from 成绩信息 mydata = New Sqldataadapter(sql, myconn) mydata.Fill(myset, 成绩信息) mytable = myset.Tables

33、(成绩信息) DataGrid1.datasource = myset.Tables(成绩信息) For i = 0 To mytable.Rows.Count - 1 ComboBox1.Items.Add(mytable.Rows(i).Item(0)Next End SubPrivate Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged Dim myconn As SqlC

34、onnection = New SqlConnection(server=(local);uid=sxxy;pwd=123456;database=学生学籍管理) Dim mydata As sqldataadapter Dim myset As New DataSet() Dim mytable As New DataTable() Dim sql As String sql = select * from 成绩信息 where 学号 = & Trim(ComboBox1.Text) & mydata = New Sqldataadapter(sql, myconn) mydata.fill

35、(myset, 成绩信息 1) mytable = myset.Tables(成绩信息 1) If mytable.Rows(0).Item(0) = ComboBox1.Text Then TextBox1.Text = mytable.Rows(0).Item(1) TextBox2.Text = mytable.Rows(0).Item(2) TextBox3.Text = mytable.Rows(0).Item(3) TextBox4.Text = mytable.Rows(0).Item(4) TextBox5.Text = mytable.Rows(0).Item(5) Text

36、Box6.Text = mytable.Rows(0).Item(6) TextBox7.Text = mytable.Rows(0).Item(7) TextBox8.Text = mytable.Rows(0).Item(8) End If End Sub Private Sub DataGrid1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGrid1.CellContentClick Dim m

37、yconn As SqlConnection = New SqlConnection(server=(local);uid=sxxy;pwd=123456;database=学生学籍管理) Dim mydata As SqlDataAdapter Dim myset As New DataSet() Dim mytable As New DataTable() Dim sql As String sql = select * from 成绩信息 mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 成绩信息 2) mytable

38、 = myset.Tables(成绩信息 2) Dim i As Integer For i = 0 To mytable.Rows.Count - 1 If DataGrid1.Rows(i).Selected Then ComboBox1.Text = mytable.Rows(i).Item(0) TextBox1.Text = mytable.Rows(i).Item(1) TextBox2.Text = mytable.Rows(i).Item(2) TextBox3.Text = mytable.Rows(i).Item(3) TextBox4.Text = mytable.Rows(0).Item(4) TextBox5.Text = mytable.Rows(0).Item(5) TextBox6.Text = mytable.Rows(0).Item(6) TextBox7.Text = mytable.Rows(0).Item(7) TextBox8.Text = mytable.Rows(0).Item(8) End If Next End Sub Private Sub