《[計算機軟件及應(yīng)用]醫(yī)藥銷售管理報告》由會員分享，可在線閱讀，更多相關(guān)《[計算機軟件及應(yīng)用]醫(yī)藥銷售管理報告（30頁珍藏版）》請在裝配圖網(wǎng)上搜索。

1、 本本 科科 生生 課課 程程 設(shè)設(shè) 計計（數(shù)數(shù)據(jù)據(jù)庫庫）設(shè)設(shè)計計題題目目 醫(yī)藥銷售 管理系統(tǒng) 學(xué)學(xué)生生姓姓名名 石秋平 陶冶 陶葉津 汪仲春 吳洪平 武躍 汪仲春 王飛 王榮超 陶冶 聞明敏 專專業(yè)業(yè)名名稱稱 信息與計算科學(xué) 指指導(dǎo)導(dǎo)教教師師 王與 2 20 01 12 2 年年 6 6 月月 1 10 0 日日任任 務(wù)務(wù) 分分 解解 表表學(xué)學(xué) 號號姓姓 名名任任 務(wù)務(wù)成成 績績2010212420周長安2010212419鄭建用戶界面，用戶系統(tǒng)及畢業(yè)管理界面的設(shè)計及實現(xiàn)2010212416趙培林學(xué)生檔案界面的設(shè)計及實現(xiàn)，學(xué)生個人入學(xué)信息的輸入2010212422朱李課程設(shè)計中所有的代碼設(shè)計

2、2010212413張業(yè)偉2010212414趙定松學(xué)生成績管理系統(tǒng)界面的設(shè)計及實現(xiàn)2010212411張倩玉2010212417趙素芳2010212423朱伊玉建立學(xué)生學(xué)籍管理系統(tǒng)所需要學(xué)生個人信息及學(xué)生成績表，并存儲在數(shù)據(jù)庫中。數(shù)據(jù)庫課程設(shè)計實驗報告的撰寫目 錄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)的概要設(shè)計管理系統(tǒng)的概要設(shè)計.53.13.1 設(shè)計概述設(shè)計概述 .53.23.2 系統(tǒng)總體結(jié)構(gòu)及功能模塊劃分系統(tǒng)總體結(jié)構(gòu)及功能模塊劃分

3、 .63.33.3 系統(tǒng)數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計系統(tǒng)數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計 .73.43.4 安全保密設(shè)計安全保密設(shè)計 .84 4 醫(yī)藥銷售管理醫(yī)藥銷售管理系統(tǒng)詳細(xì)設(shè)計系統(tǒng)詳細(xì)設(shè)計.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 學(xué)生畢業(yè)管理測試學(xué)生畢業(yè)管理測試 .2

4、86 6 醫(yī)藥銷售醫(yī)藥銷售管理系統(tǒng)操作手冊管理系統(tǒng)操作手冊.287 7 總結(jié)總結(jié) .29醫(yī)藥銷售管理系統(tǒng)1 1 醫(yī)藥銷售管理信息系統(tǒng)概述醫(yī)藥銷售管理信息系統(tǒng)概述 醫(yī)藥銷售管理信息系統(tǒng)1（Medicine Management Information System，MIS）就是指為管理目的、采用計算機和網(wǎng)絡(luò)技術(shù)對管理系統(tǒng)進(jìn)行統(tǒng)一管理的一套人機系統(tǒng)。管理學(xué)、系統(tǒng)論、信息技術(shù)等方面的相關(guān)理論，面向統(tǒng)計分析和決策支持所建立的數(shù)學(xué)模型是管理信息系統(tǒng)發(fā)展的理論基礎(chǔ)。 2 2 醫(yī)藥銷售管理系統(tǒng)的需求分析醫(yī)藥銷售管理系統(tǒng)的需求分析2.12.1 系統(tǒng)需求分析系統(tǒng)需求分析2.1.12.1.1 系統(tǒng)目標(biāo)系統(tǒng)目標(biāo) （

5、1）使得醫(yī)藥管理工作更加清晰、條理化、自動化。（2）通過用戶名和密碼登錄系統(tǒng)，查詢藥品的基本信息，學(xué)生所選課程成績，修改用戶密碼等功能。 容易地完成學(xué)生信息的查詢操作。(3) 設(shè)計人機友好界面，功能安排合理，操作使用方便，并且進(jìn)一步考慮系統(tǒng)在安全性，完整性，并發(fā)控制，備份和恢復(fù)等方面的功能要求。2.1.22.1.2 功能需求分析功能需求分析本系統(tǒng)的功能需求分析如下：（1）藥品信息查詢：用戶可以根據(jù)藥品編號查詢藥品的基本信息.（2）銷售信息查詢：主要是通過銷售商編號和藥品編號查詢藥品的數(shù)量、時間、訂退方式；（3）員工信息查詢：通過員工編號和姓名查詢員工的基本信息；（4）藥品信息管理：對藥品信息進(jìn)

6、行維護(hù)和管理，可以對藥品進(jìn)行插入和刪除；（5）用戶登錄：通過輸入用戶名和密碼登錄醫(yī)藥銷售管理系統(tǒng)。2.1.32.1.3 性能需求分析性能需求分析(1)登錄、用戶界面需求：簡潔、易懂、易用、友好的用戶界面。(2)安全保密性需求：只有憑借用戶名和密碼登陸系統(tǒng)，才能進(jìn)行信息的管理等。3 3 藥品銷售管理系統(tǒng)的概要設(shè)計藥品銷售管理系統(tǒng)的概要設(shè)計3.3.1 1 設(shè)計概述設(shè)計概述根據(jù)需求把整個系統(tǒng)分化成不同的模塊，每個模塊完成一個特定的子功能。把這些模塊結(jié)合起來組成一個整體。逐一實現(xiàn)各個功能。3.2 系統(tǒng)總體結(jié)構(gòu)及功能模塊劃分經(jīng)過對系統(tǒng)的需求分析，醫(yī)藥銷售管理系統(tǒng)主要劃分為三個部分：藥品信息查詢，藥品信息

7、管理，藥品信息錄入三個功能模塊。如圖 3.2.0 系統(tǒng)的總體結(jié)構(gòu)。醫(yī)藥銷售管理系統(tǒng)藥品信息查詢銷售信息查詢員工信息查詢后臺操作圖 3.2.0 系統(tǒng)的總體結(jié)構(gòu) 3.2.13.2.1 藥品信息查詢模塊藥品信息查詢模塊藥品信息查詢：用戶可以根據(jù)藥品編號查詢藥品的基本信息。如圖 3.2.2 學(xué)生信息查詢模塊結(jié)構(gòu)。藥品信息查詢藥品編號圖 3.2.1 藥品信息查詢模塊結(jié)構(gòu)3.2.23.2.2 銷售信息查詢模塊銷售信息查詢模塊銷售信息查詢：主要查詢基本的銷售信息，如圖 3.2.2 銷售信息查詢模塊結(jié)構(gòu)。銷售信息查詢銷售商編號藥品編號圖3.2.2 學(xué)生信息管理模塊結(jié)構(gòu)3.2.3員工信息查詢模塊員工信息查詢模塊

8、 員工信息查詢：通過員工編號和姓名查詢員工的基本信息，如圖 3.2.3 員工信息查詢模塊。員工信息查詢員工編號姓名 3.33.3 系統(tǒng)數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計系統(tǒng)數(shù)據(jù)庫概念結(jié)構(gòu)設(shè)計根據(jù)對數(shù)據(jù)項與數(shù)據(jù)結(jié)構(gòu)的分析，設(shè)計出能夠滿足系統(tǒng)需求的各種實體，及它們之間的關(guān)系，為后面的邏輯結(jié)構(gòu)設(shè)計打下基礎(chǔ)。3.3.13.3.1 系統(tǒng)系統(tǒng) E-RE-R 圖圖系統(tǒng) E-R 圖可以將各個實體之間的關(guān)系顯示出來，將各個實體間的屬性依賴表示明白。如圖 3.3.1 系統(tǒng) E-R 圖結(jié)構(gòu)藥品銷售信息員工藥品編號藥品名稱藥品類型藥品單價藥品規(guī)格銷售商名稱地區(qū)銷售商編號數(shù)量時間退訂方式制藥商編號藥品編號員工編號姓名年齡院部性別電話圖

9、 3.3.1 系統(tǒng) E-R 圖結(jié)構(gòu)3.3.2 系統(tǒng)數(shù)據(jù)庫設(shè)計系統(tǒng)數(shù)據(jù)庫設(shè)計綜合以上分析，要實現(xiàn)上面的所有功能模塊，主要設(shè)計表如下：表 3.2.2 藥品信息表結(jié)構(gòu)列名字段類型大小是否為空主鍵/外鍵藥品編號nvarchar255Null藥品名稱nvarchar255Null藥品類型nvarchar255Null藥品單價nvarchar53Null藥品規(guī)格nvarchar53Null銷售商編號nvarchar255Null銷售商名稱nvarchar255Null地區(qū)nvarchar255Null表 3.2.2 員工信息表結(jié)構(gòu) 列名字段類型大小是否為空主鍵外鍵員工編號nvarchar255Null 姓

10、名nvarchar255Null年齡float8Null性別nvarchar255Null電話folat8Null院部nvarchar255Null 表 3.2.2 銷售信息查詢結(jié)構(gòu) 列名字段類型大小是否為空主鍵/外鍵銷售商編號nvarchar255Null藥品編號nvarchar255Null數(shù)量nvarchar255Null時間smalldateting4Null退訂方式nvarchar255Null3.43.4 安全保密設(shè)計安全保密設(shè)計3.4.1 用戶登錄安全性用戶登錄安全性系統(tǒng)設(shè)計了登錄界面，每個合法用戶有用戶名及一個密碼，只有當(dāng)用戶輸入正確的用戶名及密碼組合后才能夠?qū)W(xué)生信息進(jìn)行操作

11、。 4 4 醫(yī)藥銷售管理系統(tǒng)詳細(xì)設(shè)計醫(yī)藥銷售管理系統(tǒng)詳細(xì)設(shè)計4.1 概述細(xì)設(shè)計階段的根本目標(biāo)是確定應(yīng)該怎樣具體的實現(xiàn)所要求的系統(tǒng)，也就是說，經(jīng)過這個階段的設(shè)計工作，應(yīng)該得出目標(biāo)系統(tǒng)的精確描述，從而在編碼階段可以把這個描述直接翻譯成用某種程序設(shè)計語言書寫的程序。 4.2 系統(tǒng)程序流程圖 程序流程圖又稱為程序框圖，它是歷史悠久使用最廣泛的描述軟件設(shè)計的方法。它可將整個程序的總體流程清楚明白的顯示出來。如圖 4.2.1 系統(tǒng)總流程圖結(jié)構(gòu)。圖4.2.1 系統(tǒng)總體流程圖4.3 系統(tǒng)主要功能模塊簡介4.3.1 系統(tǒng)登錄系統(tǒng)登錄 用戶憑借用戶名及密碼登錄，成功登錄后可對學(xué)生信息進(jìn)行操作。用戶界面如圖4.3.

12、1 用戶登錄界面所示。圖 4.3.1 用戶登錄界面4.3.2 藥品信息查詢模塊查詢藥品信息查詢模塊查詢 藥品信息查詢：在程序主界面（如圖 4.3.2 程序主界面）用戶可以根據(jù)藥品編號查詢藥品基本信息。圖 4.3.2 程序主界面4.3.3 銷售信息查詢模塊銷售信息查詢模塊銷售信息查詢：可對當(dāng)前選定藥品信息進(jìn)行詳細(xì)信息查詢。如圖 4.4.3 銷售信息信息。4.4.3 銷售信息管理圖4.3.4 管理員登陸管理模塊管理員登陸管理模塊用于管理員管理學(xué)生信息，如圖 4.3.3 學(xué)生學(xué)籍管理 圖 4.3.3 學(xué)生學(xué)籍管理 4.3.5 畢業(yè)管理模塊畢業(yè)管理模塊用于管理學(xué)生畢業(yè)信息，如圖 4.3.5 畢業(yè)管理。

13、 圖 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=12345

14、6;database=學(xué)生學(xué)籍管理) 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.Tabl

15、es(用戶) 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.SqlClie

16、ntImports 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 Sys

17、tem.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 send

18、er 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 Di

19、m 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 MenuIte

20、m2_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.Cl

21、ick 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

22、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)

23、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,

24、 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

25、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 學(xué)生信息代碼學(xué)生信息代碼Imports Sy

26、stem.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= 學(xué)生學(xué)籍管

27、理) Dim mydata As SqlDataAdapter Dim myset As New DataSet() Dim mytable As New DataTable() Dim sql As String sql = select * from 學(xué)生個人入學(xué)信息where 學(xué)號= & Trim(ComboBox1.Text) & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 學(xué)生個人入學(xué)信息1) mytable = myset.Tables(學(xué)生個人入學(xué)信息1) If mytable.Rows(0).Item(

28、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).Ite

29、m(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 di

30、splay() End SubPrivate Sub display() Dim myconn As SqlConnection = New SqlConnection(server= (local); uid= sxxy; pwd= 123456; database= 學(xué)生學(xué)籍管理) 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 學(xué)生個人入學(xué)信息 m

31、ydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 學(xué)生個人入學(xué)信息) mytable = myset.Tables(學(xué)生個人入學(xué)信息) DataGridView1.DataSource = myset.Tables(學(xué)生個人入學(xué)信息) 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

32、 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

33、 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()

34、Dim myconn As SqlConnection = New SqlConnection(server=(local);uid=sxxy;pwd=123456;database=學(xué)生學(xué)籍管理) 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(

35、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.Sele

36、ctedIndexChanged Dim myconn As SqlConnection = New SqlConnection(server=(local);uid=sxxy;pwd=123456;database=學(xué)生學(xué)籍管理) Dim mydata As sqldataadapter Dim myset As New DataSet() Dim mytable As New DataTable() Dim sql As String sql = select * from 成績信息 where 學(xué)號 = & Trim(ComboBox1.Text) & mydata = New Sqld

37、ataadapter(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.

38、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) Handl

39、es DataGrid1.CellContentClick Dim myconn As SqlConnection = New SqlConnection(server=(local);uid=sxxy;pwd=123456;database=學(xué)生學(xué)籍管理) 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)

40、 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).

41、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 Sy

42、stem.EventArgs) Handles Button1.Click Dim myconn As SqlConnection = New SqlConnection(server=(local);uid=sxxy;pwd=123456;database=學(xué)生學(xué)籍管理) 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 Doubl

43、e Dim kcl As Integer Select Case flagproinf Case 1 If Trim(ComboBox1.Text) = Then MsgBox(添加記錄時,學(xué)號不能為空！謝謝合作) 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 M

44、sgBox(添加記錄時,年份不能為空！謝謝合作) 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

45、 mytable.Rows.Count - 1 If mytable.Rows(i).Item(0) = cpbh Then MsgBox(此學(xué)號已存在！, vbOKOnly + vbExclamation, 警告) Exit Sub End If Next sql = insert into 成績信息（學(xué)號，課程名，成績，年份）values( & & cpbh & , & cpmc & , & jg & , & kcl & ) mydata = New sqldataadapter(sql, myconn) mydata.fill(myset, save) DataGrid1.datasou

46、rce = myset.Tables(save) Display() MsgBox(數(shù)據(jù)已添加！, vbOKOnly + vbExclamation, 提示) Case 2 If Trim(ComboBox1.Text) = Then MsgBox(修改記錄時,學(xué)號不能為空！謝謝合作) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(修改記錄時,課程名不能為空！謝謝合作) Exit Sub End If If Trim(TextBox2.Text) = Then MsgBox(修改記錄時,成績不能為空！謝謝合作) Exit Sub En

47、d If If Trim(TextBox3.Text) = Then MsgBox(修改記錄時,年份不能為空！謝謝合作) Exit Sub End If jg = CDbl(TextBox2.Text) kcl = CInt(TextBox3.Text) sql = select * from 成績信息 where 學(xué)號 = & ComboBox1.Text & mydata = New sqldataadapter(sql, myconn) mydata.fill(myset, 成績信息3) mytable = myset.Tables(成績信息3) If mytable.Rows.Coun

48、t = 0 Then MsgBox(此學(xué)號不存在，不能修改) Exit Sub End If sql = updata 成績信息 set 課程名= & TextBox1.Text & ,成績= & jg & ,年份= & kcl & where 學(xué)號= & ComboBox1.Text & mydata = New sqldataadapter(sql, myconn) mydata.fill(myset, updata) DataGrid1.datasource = myset.Tables(updata) Display() MsgBox(數(shù)據(jù)已修改！, vbOKOnly + vbExcl

49、amation, 提示) Case 3 If Trim(ComboBox1.Text) = Then MsgBox(刪除記錄時,學(xué)號不能為空！謝謝合作) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(刪除記錄時,課程名不能為空！謝謝合作) Exit Sub End If sql = select * from 成績信息 where 學(xué)號 = & ComboBox1.Text & mydata = New sqldataadapter(sql, myconn) mydata.fill(myset, 成績信息3) mytable = my

50、set.Tables(成績信息3) If mytable.Rows.Count = 0 Then MsgBox(此學(xué)號不存在，不能刪除) Exit Sub End If sql = delete from 成績信息 where 學(xué)號= & ComboBox1.Text & mydata = New sqldataadapter(sql, myconn) mydata.fill(myset, delete) DataGrid1.datasource = myset.Tables(delete) Display() MsgBox(數(shù)據(jù)已刪除！, vbOKOnly + vbExclamation,

51、提示) Case 4 MsgBox(請直接通過選擇相應(yīng)的記錄進(jìn)行查詢！謝謝合作)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(By

52、Val 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;pw

53、d=123456;database=學(xué)生學(xué)籍管理) 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 學(xué)生個人入學(xué)信息 mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 學(xué)生個人入學(xué)信息) mytable = myset.Tables(學(xué)生個人入學(xué)信息) For i = 0 To mytable

54、.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= 學(xué)生學(xué)籍管理) Dim mydata As S

55、qlDataAdapter 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(添加記錄時，學(xué)號不能為空！) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(添加記錄時，姓名不能為空！) Exit Sub

56、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

57、 = TextBox3.Text mz = TextBox4.Text sql = select * from 學(xué)生個人入學(xué)信息 mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 學(xué)生個人入學(xué)信息1) mytable = myset.Tables(學(xué)生個人入學(xué)信息1) For i = 0 To mytable.Rows.Count - 1 If mytable.Rows(i).Item(0) = xh Then MsgBox(學(xué)號已經(jīng)存在！, vbOKOnly + vbExclamation, 警告) Exit Sub En

58、d If Next sql = insert into 學(xué)生學(xué)籍管理(學(xué)號, 姓名, 性別, 籍貫, 民族) 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(刪除記錄時，學(xué)號不能為空！) Exit

59、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

60、 學(xué)生個人入學(xué)信息 where 學(xué)號= & ComboBox1.Text & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 學(xué)生個人入學(xué)信息) mytable = myset.Tables(學(xué)生個人入學(xué)信息) If mytable.Rows.Count = 0 Then MsgBox(學(xué)號不存在，不能刪除) Exit Sub End If sql = delete from 學(xué)生個人入學(xué)信息 where 學(xué)號= & ComboBox1.Text & mydata = New SqlDataAdapter(sql, myc

61、onn) mydata.Fill(myset, delete) display() MsgBox(數(shù)據(jù)已刪除！, vbOKOnly + vbExclamation, 提示)Case 3 If Trim(ComboBox1.Text) = Then MsgBox(修改記錄時，學(xué)號不能為空！) 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

62、 Trim(TextBox3.Text) = Then MsgBox(修改記錄時，籍貫不能為空！) Exit Sub End If If Trim(TextBox4.Text) = Then MsgBox(修改記錄時，民族不能為空！) Exit Sub End Ifsql = select * from 學(xué)生個人入學(xué)信息 where 學(xué)號 = & ComboBox1.Text & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 學(xué)生個人入學(xué)信息) mytable = myset.Tables(學(xué)生個人入學(xué)信息) If my

63、table.Rows.Count = 0 Then MsgBox(此學(xué)號不存在，不能修改) Exit Sub End If sql = updata 學(xué)生個人入學(xué)信息 set 姓名= & TextBox1.Text & ,性別= & TextBox2.Text & ,籍貫= & TextBox3.Text & where 學(xué)號= & ComboBox1.Text & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, updata) display() MsgBox(數(shù)據(jù)已修改！, vbOKOnly + vbExclamati

64、on, 提示) 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=學(xué)生學(xué)籍管理) Dim mydata As SqlDataAdapt

65、er Dim myset As New DataSet() Dim mytable As New DataTable() Dim sql As String sql = select * from 學(xué)生個人入學(xué)信息 where 學(xué)號= & Trim(ComboBox1.Text) & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 學(xué)生個人入學(xué)信息) mytable = myset.Tables(學(xué)生個人入學(xué)信息) If mytable.Rows(0).Item(0) = ComboBox1.Text Then TextB

66、ox1.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 學(xué)生學(xué)籍管理系統(tǒng)系統(tǒng)測試學(xué)生學(xué)籍管理系統(tǒng)系統(tǒng)測試5.1 登陸測試 5