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

本本 科科 生生 课课 程程 设设 计计（数数据据库库）设设计计题题目目 医药销售 管理系统 学学生生姓姓名名 石秋平 陶冶 陶叶津 汪仲春 吴洪平 武跃 汪仲春 王飞 王荣超 陶冶 闻明敏 专专业业名名称称 信息与计算科学 指指导导教教师师 王与 2 20 01 12 2 年年 6 6 月月 1 10 0 日日任任 务务 分分 解解 表表学学 号号姓姓 名名任任 务务成成 绩绩2010212420周长安2010212419郑建用户界面，用户系统及毕业管理界面的设计及实现2010212416赵培林学生档案界面的设计及实现，学生个人入学信息的输入2010212422朱李课程设计中所有的代码设计2010212413张业伟2010212414赵定松学生成绩管理系统界面的设计及实现2010212411张倩玉2010212417赵素芳2010212423朱伊玉建立学生学籍管理系统所需要学生个人信息及学生成绩表，并存储在数据库中。数据库课程设计实验报告的撰写目 录1 1 医药销售医药销售管理信息系统概述管理信息系统概述.42 2 医药销售医药销售管理系统的需求分析管理系统的需求分析.52.12.1 系统需求分析系统需求分析 .53 3 医药销售医药销售管理系统的概要设计管理系统的概要设计.53.13.1 设计概述设计概述 .53.23.2 系统总体结构及功能模块划分系统总体结构及功能模块划分 .63.33.3 系统数据库概念结构设计系统数据库概念结构设计 .73.43.4 安全保密设计安全保密设计 .84 4 医药销售管理医药销售管理系统详细设计系统详细设计.94.14.1 概述概述 .94.24.2 系统程序流程图系统程序流程图 .94.34.3 系统主要功能模块简介系统主要功能模块简介 .94.44.4 主要模块代码主要模块代码 .125 5 医药销售医药销售管理系统系统测试管理系统系统测试.275.15.1 登陆测试登陆测试 .275.25.2 药品信息药品信息查询测试查询测试 .275.35.3 查询测试查询测试 .285.45.4 学生毕业管理测试学生毕业管理测试 .286 6 医药销售医药销售管理系统操作手册管理系统操作手册.287 7 总结总结 .29医药销售管理系统1 1 医药销售管理信息系统概述医药销售管理信息系统概述 医药销售管理信息系统1（Medicine Management Information System，MIS）就是指为管理目的、采用计算机和网络技术对管理系统进行统一管理的一套人机系统。管理学、系统论、信息技术等方面的相关理论，面向统计分析和决策支持所建立的数学模型是管理信息系统发展的理论基础。 2 2 医药销售管理系统的需求分析医药销售管理系统的需求分析2.12.1 系统需求分析系统需求分析2.1.12.1.1 系统目标系统目标 （1）使得医药管理工作更加清晰、条理化、自动化。（2）通过用户名和密码登录系统，查询药品的基本信息，学生所选课程成绩，修改用户密码等功能。 容易地完成学生信息的查询操作。(3) 设计人机友好界面，功能安排合理，操作使用方便，并且进一步考虑系统在安全性，完整性，并发控制，备份和恢复等方面的功能要求。2.1.22.1.2 功能需求分析功能需求分析本系统的功能需求分析如下：（1）药品信息查询：用户可以根据药品编号查询药品的基本信息.（2）销售信息查询：主要是通过销售商编号和药品编号查询药品的数量、时间、订退方式；（3）员工信息查询：通过员工编号和姓名查询员工的基本信息；（4）药品信息管理：对药品信息进行维护和管理，可以对药品进行插入和删除；（5）用户登录：通过输入用户名和密码登录医药销售管理系统。2.1.32.1.3 性能需求分析性能需求分析(1)登录、用户界面需求：简洁、易懂、易用、友好的用户界面。(2)安全保密性需求：只有凭借用户名和密码登陆系统，才能进行信息的管理等。3 3 药品销售管理系统的概要设计药品销售管理系统的概要设计3.3.1 1 设计概述设计概述根据需求把整个系统分化成不同的模块，每个模块完成一个特定的子功能。把这些模块结合起来组成一个整体。逐一实现各个功能。3.2 系统总体结构及功能模块划分经过对系统的需求分析，医药销售管理系统主要划分为三个部分：药品信息查询，药品信息管理，药品信息录入三个功能模块。如图 3.2.0 系统的总体结构。医药销售管理系统药品信息查询销售信息查询员工信息查询后台操作图 3.2.0 系统的总体结构 3.2.13.2.1 药品信息查询模块药品信息查询模块药品信息查询：用户可以根据药品编号查询药品的基本信息。如图 3.2.2 学生信息查询模块结构。药品信息查询药品编号图 3.2.1 药品信息查询模块结构3.2.23.2.2 销售信息查询模块销售信息查询模块销售信息查询：主要查询基本的销售信息，如图 3.2.2 销售信息查询模块结构。销售信息查询销售商编号药品编号图3.2.2 学生信息管理模块结构3.2.3员工信息查询模块员工信息查询模块 员工信息查询：通过员工编号和姓名查询员工的基本信息，如图 3.2.3 员工信息查询模块。员工信息查询员工编号姓名 3.33.3 系统数据库概念结构设计系统数据库概念结构设计根据对数据项与数据结构的分析，设计出能够满足系统需求的各种实体，及它们之间的关系，为后面的逻辑结构设计打下基础。3.3.13.3.1 系统系统 E-RE-R 图图系统 E-R 图可以将各个实体之间的关系显示出来，将各个实体间的属性依赖表示明白。如图 3.3.1 系统 E-R 图结构药品销售信息员工药品编号药品名称药品类型药品单价药品规格销售商名称地区销售商编号数量时间退订方式制药商编号药品编号员工编号姓名年龄院部性别电话图 3.3.1 系统 E-R 图结构3.3.2 系统数据库设计系统数据库设计综合以上分析，要实现上面的所有功能模块，主要设计表如下：表 3.2.2 药品信息表结构列名字段类型大小是否为空主键/外键药品编号nvarchar255Null药品名称nvarchar255Null药品类型nvarchar255Null药品单价nvarchar53Null药品规格nvarchar53Null销售商编号nvarchar255Null销售商名称nvarchar255Null地区nvarchar255Null表 3.2.2 员工信息表结构 列名字段类型大小是否为空主键外键员工编号nvarchar255Null 姓名nvarchar255Null年龄float8Null性别nvarchar255Null电话folat8Null院部nvarchar255Null 表 3.2.2 销售信息查询结构 列名字段类型大小是否为空主键/外键销售商编号nvarchar255Null药品编号nvarchar255Null数量nvarchar255Null时间smalldateting4Null退订方式nvarchar255Null3.43.4 安全保密设计安全保密设计3.4.1 用户登录安全性用户登录安全性系统设计了登录界面，每个合法用户有用户名及一个密码，只有当用户输入正确的用户名及密码组合后才能够对学生信息进行操作。 4 4 医药销售管理系统详细设计医药销售管理系统详细设计4.1 概述细设计阶段的根本目标是确定应该怎样具体的实现所要求的系统，也就是说，经过这个阶段的设计工作，应该得出目标系统的精确描述，从而在编码阶段可以把这个描述直接翻译成用某种程序设计语言书写的程序。 4.2 系统程序流程图 程序流程图又称为程序框图，它是历史悠久使用最广泛的描述软件设计的方法。它可将整个程序的总体流程清楚明白的显示出来。如图 4.2.1 系统总流程图结构。图4.2.1 系统总体流程图4.3 系统主要功能模块简介4.3.1 系统登录系统登录 用户凭借用户名及密码登录，成功登录后可对学生信息进行操作。用户界面如图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.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=学生学籍管理) 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 mytable.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.DataPublic 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 As 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, 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 Form4() 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 sender 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 Dim 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 MenuItem2_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.Click 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.EventArgs) 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.MdiParent = 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.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 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(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) TextBox6.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 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 display() 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(sql, 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 As 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 Sub 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 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 Dim i As Integer sql = select * from 成绩信息 mydata = New Sqldataadapter(sql, myconn) mydata.Fill(myset, 成绩信息) mytable = myset.Tables(成绩信息) 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 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 成绩信息 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 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) TextBox6.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 myconn 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 = 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 Button1_Click_1(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=学生学籍管理) Dim mydata As sqldataadapter Dim myset As New DataSet() Dim mytable As New DataTable() Dim sql As String Dim i As Integer Dim cpbh, cpmc As String Dim jg As Double Dim kcl As Integer Select Case flagproinf Case 1 If Trim(ComboBox1.Text) = Then MsgBox(添加记录时,学号不能为空！谢谢合作) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(添加记录时,课程名不能为空！谢谢合作) Exit Sub End If If Trim(TextBox2.Text) = Then MsgBox(添加记录时,成绩不能为空！谢谢合作) Exit Sub End If If Trim(TextBox3.Text) = Then MsgBox(添加记录时,年份不能为空！谢谢合作) Exit Sub End If cpbh = ComboBox1.Text ComboBox1.Items.Add(Trim(cpbh) cpmc = TextBox1.Text jg = CDbl(TextBox2.Text) kcl = CInt(TextBox3.Text) sql = select * from 成绩信息 mydata = New sqldataadapter(sql, myconn) mydata.fill(myset, 成绩信息3) mytable = myset.Tables(成绩信息3) For i = 0 To mytable.Rows.Count - 1 If mytable.Rows(i).Item(0) = cpbh Then MsgBox(此学号已存在！, vbOKOnly + vbExclamation, 警告) Exit Sub End If Next sql = insert into 成绩信息（学号，课程名，成绩，年份）values( & & cpbh & , & cpmc & , & jg & , & kcl & ) mydata = New sqldataadapter(sql, myconn) mydata.fill(myset, save) DataGrid1.datasource = myset.Tables(save) Display() MsgBox(数据已添加！, vbOKOnly + vbExclamation, 提示) Case 2 If Trim(ComboBox1.Text) = Then MsgBox(修改记录时,学号不能为空！谢谢合作) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(修改记录时,课程名不能为空！谢谢合作) Exit Sub End If If Trim(TextBox2.Text) = Then MsgBox(修改记录时,成绩不能为空！谢谢合作) Exit Sub End If If Trim(TextBox3.Text) = Then MsgBox(修改记录时,年份不能为空！谢谢合作) Exit Sub End If jg = CDbl(TextBox2.Text) kcl = CInt(TextBox3.Text) sql = select * from 成绩信息 where 学号 = & ComboBox1.Text & mydata = New sqldataadapter(sql, myconn) mydata.fill(myset, 成绩信息3) mytable = myset.Tables(成绩信息3) If mytable.Rows.Count = 0 Then MsgBox(此学号不存在，不能修改) Exit Sub End If sql = updata 成绩信息 set 课程名= & TextBox1.Text & ,成绩= & jg & ,年份= & kcl & where 学号= & ComboBox1.Text & mydata = New sqldataadapter(sql, myconn) mydata.fill(myset, updata) DataGrid1.datasource = myset.Tables(updata) Display() MsgBox(数据已修改！, vbOKOnly + vbExclamation, 提示) Case 3 If Trim(ComboBox1.Text) = Then MsgBox(删除记录时,学号不能为空！谢谢合作) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(删除记录时,课程名不能为空！谢谢合作) Exit Sub End If sql = select * from 成绩信息 where 学号 = & ComboBox1.Text & mydata = New sqldataadapter(sql, myconn) mydata.fill(myset, 成绩信息3) mytable = myset.Tables(成绩信息3) If mytable.Rows.Count = 0 Then MsgBox(此学号不存在，不能删除) Exit Sub End If sql = delete from 成绩信息 where 学号= & ComboBox1.Text & mydata = New sqldataadapter(sql, myconn) mydata.fill(myset, delete) DataGrid1.datasource = myset.Tables(delete) Display() MsgBox(数据已删除！, vbOKOnly + vbExclamation, 提示) Case 4 MsgBox(请直接通过选择相应的记录进行查询！谢谢合作)End Select End SubPrivate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Close() End SubEnd Class4.4.5 毕业管理代码毕业管理代码Imports System.DataImports System.Data.SqlClientPublic Class Form4 Private Sub form3_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Select Case flagproinf Case 1 Button1.Text = 添加 Case 2Button1.Text = 删除 Case 3 Button1.Text = 查询 End Select display() End Sub Private Sub display() Dim myconn 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 Dim i As Integer sql = select * from 学生个人入学信息 mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 学生个人入学信息) mytable = myset.Tables(学生个人入学信息) For i = 0 To mytable.Rows.Count - 1ComboBox1.Items.Add(mytable.Rows(i).Item(0) NextEnd SubPrivate 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= 学生学籍管理) Dim mydata As SqlDataAdapter Dim myset As New DataSet() Dim mytable As New DataTable() Dim sql As String Dim i As Integer Dim xh, xm, xb, jg, mz As String Select Case flagproinf Case 1 If Trim(ComboBox1.Text) = Then MsgBox(添加记录时，学号不能为空！) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(添加记录时，姓名不能为空！) Exit Sub End If If Trim(TextBox2.Text) = Then MsgBox(添加记录时，性别不能为空！) Exit Sub End If If Trim(TextBox3.Text) = Then MsgBox(添加记录时，籍贯不能为空！) Exit Sub End If If Trim(TextBox4.Text) = Then MsgBox(添加记录时，民族不能为空！) Exit Sub End If xh = ComboBox1.Text ComboBox1.Items.Add(Trim(xh) xm = TextBox1.Text xb = TextBox2.Text jg = TextBox3.Text mz = TextBox4.Text sql = select * from 学生个人入学信息 mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 学生个人入学信息1) mytable = myset.Tables(学生个人入学信息1) For i = 0 To mytable.Rows.Count - 1 If mytable.Rows(i).Item(0) = xh Then MsgBox(学号已经存在！, vbOKOnly + vbExclamation, 警告) Exit Sub End If Next sql = insert into 学生学籍管理(学号, 姓名, 性别, 籍贯, 民族) values( & & xh & , & xm & , & , & xb & , & jg & , & mz & ) mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, save) display() MsgBox(数据已添加！, vbOKOnly + vbExclamation, 提示) Case 2 If Trim(ComboBox1.Text) = Then MsgBox(删除记录时，学号不能为空！) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(删除记录时，姓名不能为空！) Exit Sub End If If Trim(TextBox2.Text) = Then MsgBox(删除记录时，性别不能为空！) Exit Sub End If If Trim(TextBox3.Text) = Then MsgBox(删除记录时，籍贯不能为空！) Exit Sub End If If Trim(TextBox4.Text) = Then MsgBox(删除记录时，民族不能为空！) Exit Sub End If sql = select*from 学生个人入学信息 where 学号= & ComboBox1.Text & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 学生个人入学信息) mytable = myset.Tables(学生个人入学信息) If mytable.Rows.Count = 0 Then MsgBox(学号不存在，不能删除) Exit Sub End If sql = delete from 学生个人入学信息 where 学号= & ComboBox1.Text & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, delete) display() MsgBox(数据已删除！, vbOKOnly + vbExclamation, 提示)Case 3 If Trim(ComboBox1.Text) = Then MsgBox(修改记录时，学号不能为空！) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(修改记录时，姓名不能为空！) Exit Sub End If If Trim(TextBox2.Text) = Then MsgBox(修改记录时，性别不能为空！) Exit Sub End If If Trim(TextBox3.Text) = Then MsgBox(修改记录时，籍贯不能为空！) Exit Sub End If If Trim(TextBox4.Text) = Then MsgBox(修改记录时，民族不能为空！) Exit Sub End Ifsql = select * from 学生个人入学信息 where 学号 = & ComboBox1.Text & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 学生个人入学信息) mytable = myset.Tables(学生个人入学信息) If mytable.Rows.Count = 0 Then MsgBox(此学号不存在，不能修改) Exit Sub End If sql = updata 学生个人入学信息 set 姓名= & TextBox1.Text & ,性别= & TextBox2.Text & ,籍贯= & TextBox3.Text & where 学号= & ComboBox1.Text & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, updata) display() MsgBox(数据已修改！, vbOKOnly + vbExclamation, 提示) End SelectEnd Sub Private 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 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(myset, 学生个人入学信息) mytable = myset.Tables(学生个人入学信息) 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) TextBox6.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 Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Close() End SubEnd Class5 5 学生学籍管理系统系统测试学生学籍管理系统系统测试5.1 登陆测试 5