[計算機軟件及應用]醫(yī)藥銷售管理報告

本本 科科 生生 課課 程程 設設 計計（數(shù)數(shù)據(jù)據(jù)庫庫）設設計計題題目目 醫(yī)藥銷售 管理系統(tǒng) 學學生生姓姓名名 石秋平 陶冶 陶葉津 汪仲春 吳洪平 武躍 汪仲春 王飛 王榮超 陶冶 聞明敏 專專業(yè)業(yè)名名稱稱 信息與計算科學 指指導導教教師師 王與 2 20 01 12 2 年年 6 6 月月 1 10 0 日日任任 務務 分分 解解 表表學學 號號姓姓 名名任任 務務成成 績績2010212420周長安2010212419鄭建用戶界面，用戶系統(tǒng)及畢業(yè)管理界面的設計及實現(xiàn)2010212416趙培林學生檔案界面的設計及實現(xiàn)，學生個人入學信息的輸入2010212422朱李課程設計中所有的代碼設計2010212413張業(yè)偉2010212414趙定松學生成績管理系統(tǒng)界面的設計及實現(xiàn)2010212411張倩玉2010212417趙素芳2010212423朱伊玉建立學生學籍管理系統(tǒng)所需要學生個人信息及學生成績表，并存儲在數(shù)據(jù)庫中。數(shù)據(jù)庫課程設計實驗報告的撰寫目 錄1 1 醫(yī)藥銷售醫(yī)藥銷售管理信息系統(tǒng)概述管理信息系統(tǒng)概述.42 2 醫(yī)藥銷售醫(yī)藥銷售管理系統(tǒng)的需求分析管理系統(tǒng)的需求分析.52.12.1 系統(tǒng)需求分析系統(tǒng)需求分析 .53 3 醫(yī)藥銷售醫(yī)藥銷售管理系統(tǒng)的概要設計管理系統(tǒng)的概要設計.53.13.1 設計概述設計概述 .53.23.2 系統(tǒng)總體結構及功能模塊劃分系統(tǒng)總體結構及功能模塊劃分 .63.33.3 系統(tǒng)數(shù)據(jù)庫概念結構設計系統(tǒng)數(shù)據(jù)庫概念結構設計 .73.43.4 安全保密設計安全保密設計 .84 4 醫(yī)藥銷售管理醫(yī)藥銷售管理系統(tǒng)詳細設計系統(tǒng)詳細設計.94.14.1 概述概述 .94.24.2 系統(tǒng)程序流程圖系統(tǒng)程序流程圖 .94.34.3 系統(tǒng)主要功能模塊簡介系統(tǒng)主要功能模塊簡介 .94.44.4 主要模塊代碼主要模塊代碼 .125 5 醫(yī)藥銷售醫(yī)藥銷售管理系統(tǒng)系統(tǒng)測試管理系統(tǒng)系統(tǒng)測試.275.15.1 登陸測試登陸測試 .275.25.2 藥品信息藥品信息查詢測試查詢測試 .275.35.3 查詢測試查詢測試 .285.45.4 學生畢業(yè)管理測試學生畢業(yè)管理測試 .286 6 醫(yī)藥銷售醫(yī)藥銷售管理系統(tǒng)操作手冊管理系統(tǒng)操作手冊.287 7 總結總結 .29醫(yī)藥銷售管理系統(tǒng)1 1 醫(yī)藥銷售管理信息系統(tǒng)概述醫(yī)藥銷售管理信息系統(tǒng)概述 醫(yī)藥銷售管理信息系統(tǒng)1（Medicine Management Information System，MIS）就是指為管理目的、采用計算機和網絡技術對管理系統(tǒng)進行統(tǒng)一管理的一套人機系統(tǒng)。管理學、系統(tǒng)論、信息技術等方面的相關理論，面向統(tǒng)計分析和決策支持所建立的數(shù)學模型是管理信息系統(tǒng)發(fā)展的理論基礎。 2 2 醫(yī)藥銷售管理系統(tǒng)的需求分析醫(yī)藥銷售管理系統(tǒng)的需求分析2.12.1 系統(tǒng)需求分析系統(tǒng)需求分析2.1.12.1.1 系統(tǒng)目標系統(tǒng)目標 （1）使得醫(yī)藥管理工作更加清晰、條理化、自動化。（2）通過用戶名和密碼登錄系統(tǒng)，查詢藥品的基本信息，學生所選課程成績，修改用戶密碼等功能。 容易地完成學生信息的查詢操作。(3) 設計人機友好界面，功能安排合理，操作使用方便，并且進一步考慮系統(tǒng)在安全性，完整性，并發(fā)控制，備份和恢復等方面的功能要求。2.1.22.1.2 功能需求分析功能需求分析本系統(tǒng)的功能需求分析如下：（1）藥品信息查詢：用戶可以根據(jù)藥品編號查詢藥品的基本信息.（2）銷售信息查詢：主要是通過銷售商編號和藥品編號查詢藥品的數(shù)量、時間、訂退方式；（3）員工信息查詢：通過員工編號和姓名查詢員工的基本信息；（4）藥品信息管理：對藥品信息進行維護和管理，可以對藥品進行插入和刪除；（5）用戶登錄：通過輸入用戶名和密碼登錄醫(yī)藥銷售管理系統(tǒng)。2.1.32.1.3 性能需求分析性能需求分析(1)登錄、用戶界面需求：簡潔、易懂、易用、友好的用戶界面。(2)安全保密性需求：只有憑借用戶名和密碼登陸系統(tǒng)，才能進行信息的管理等。3 3 藥品銷售管理系統(tǒng)的概要設計藥品銷售管理系統(tǒng)的概要設計3.3.1 1 設計概述設計概述根據(jù)需求把整個系統(tǒng)分化成不同的模塊，每個模塊完成一個特定的子功能。把這些模塊結合起來組成一個整體。逐一實現(xiàn)各個功能。3.2 系統(tǒng)總體結構及功能模塊劃分經過對系統(tǒng)的需求分析，醫(yī)藥銷售管理系統(tǒng)主要劃分為三個部分：藥品信息查詢，藥品信息管理，藥品信息錄入三個功能模塊。如圖 3.2.0 系統(tǒng)的總體結構。醫(yī)藥銷售管理系統(tǒng)藥品信息查詢銷售信息查詢員工信息查詢后臺操作圖 3.2.0 系統(tǒng)的總體結構 3.2.13.2.1 藥品信息查詢模塊藥品信息查詢模塊藥品信息查詢：用戶可以根據(jù)藥品編號查詢藥品的基本信息。如圖 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 系統(tǒng)數(shù)據(jù)庫概念結構設計系統(tǒng)數(shù)據(jù)庫概念結構設計根據(jù)對數(shù)據(jù)項與數(shù)據(jù)結構的分析，設計出能夠滿足系統(tǒng)需求的各種實體，及它們之間的關系，為后面的邏輯結構設計打下基礎。3.3.13.3.1 系統(tǒng)系統(tǒng) E-RE-R 圖圖系統(tǒng) E-R 圖可以將各個實體之間的關系顯示出來，將各個實體間的屬性依賴表示明白。如圖 3.3.1 系統(tǒng) E-R 圖結構藥品銷售信息員工藥品編號藥品名稱藥品類型藥品單價藥品規(guī)格銷售商名稱地區(qū)銷售商編號數(shù)量時間退訂方式制藥商編號藥品編號員工編號姓名年齡院部性別電話圖 3.3.1 系統(tǒng) E-R 圖結構3.3.2 系統(tǒng)數(shù)據(jù)庫設計系統(tǒng)數(shù)據(jù)庫設計綜合以上分析，要實現(xiàn)上面的所有功能模塊，主要設計表如下：表 3.2.2 藥品信息表結構列名字段類型大小是否為空主鍵/外鍵藥品編號nvarchar255Null藥品名稱nvarchar255Null藥品類型nvarchar255Null藥品單價nvarchar53Null藥品規(guī)格nvarchar53Null銷售商編號nvarchar255Null銷售商名稱nvarchar255Null地區(qū)nvarchar255Null表 3.2.2 員工信息表結構 列名字段類型大小是否為空主鍵外鍵員工編號nvarchar255Null 姓名nvarchar255Null年齡float8Null性別nvarchar255Null電話folat8Null院部nvarchar255Null 表 3.2.2 銷售信息查詢結構 列名字段類型大小是否為空主鍵/外鍵銷售商編號nvarchar255Null藥品編號nvarchar255Null數(shù)量nvarchar255Null時間smalldateting4Null退訂方式nvarchar255Null3.43.4 安全保密設計安全保密設計3.4.1 用戶登錄安全性用戶登錄安全性系統(tǒng)設計了登錄界面，每個合法用戶有用戶名及一個密碼，只有當用戶輸入正確的用戶名及密碼組合后才能夠對學生信息進行操作。 4 4 醫(yī)藥銷售管理系統(tǒng)詳細設計醫(yī)藥銷售管理系統(tǒng)詳細設計4.1 概述細設計階段的根本目標是確定應該怎樣具體的實現(xiàn)所要求的系統(tǒng)，也就是說，經過這個階段的設計工作，應該得出目標系統(tǒng)的精確描述，從而在編碼階段可以把這個描述直接翻譯成用某種程序設計語言書寫的程序。 4.2 系統(tǒng)程序流程圖 程序流程圖又稱為程序框圖，它是歷史悠久使用最廣泛的描述軟件設計的方法。它可將整個程序的總體流程清楚明白的顯示出來。如圖 4.2.1 系統(tǒng)總流程圖結構。圖4.2.1 系統(tǒng)總體流程圖4.3 系統(tǒng)主要功能模塊簡介4.3.1 系統(tǒng)登錄系統(tǒng)登錄 用戶憑借用戶名及密碼登錄，成功登錄后可對學生信息進行操作。用戶界面如圖4.3.1 用戶登錄界面所示。圖 4.3.1 用戶登錄界面4.3.2 藥品信息查詢模塊查詢藥品信息查詢模塊查詢 藥品信息查詢：在程序主界面（如圖 4.3.2 程序主界面）用戶可以根據(jù)藥品編號查詢藥品基本信息。圖 4.3.2 程序主界面4.3.3 銷售信息查詢模塊銷售信息查詢模塊銷售信息查詢：可對當前選定藥品信息進行詳細信息查詢。如圖 4.4.3 銷售信息信息。4.4.3 銷售信息管理圖4.3.4 管理員登陸管理模塊管理員登陸管理模塊用于管理員管理學生信息，如圖 4.3.3 學生學籍管理 圖 4.3.3 學生學籍管理 4.3.5 畢業(yè)管理模塊畢業(yè)管理模塊用于管理學生畢業(yè)信息，如圖 4.3.5 畢業(yè)管理。 圖 4.3.5 畢業(yè)管理。 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(數(shù)據(jù)已添加！, 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(數(shù)據(jù)已修改！, 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(數(shù)據(jù)已刪除！, 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 畢業(yè)管理代碼畢業(yè)管理代碼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(數(shù)據(jù)已添加！, 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(數(shù)據(jù)已刪除！, 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(數(shù)據(jù)已修改！, 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 學生學籍管理系統(tǒng)系統(tǒng)測試學生學籍管理系統(tǒng)系統(tǒng)測試5.1 登陸測試 5