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

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

2、2010212413張業(yè)偉2010212414趙定松學(xué)生成績(jī)管理系統(tǒng)界面的設(shè)計(jì)及實(shí)現(xiàn)2010212411張倩玉2010212417趙素芳2010212423朱伊玉建立學(xué)生學(xué)籍管理系統(tǒng)所需要學(xué)生個(gè)人信息及學(xué)生成績(jī)表，并存儲(chǔ)在數(shù)據(jù)庫(kù)中。數(shù)據(jù)庫(kù)課程設(shè)計(jì)實(shí)驗(yàn)報(bào)告的撰寫(xiě)目 錄1 1 醫(yī)藥銷(xiāo)售醫(yī)藥銷(xiāo)售管理信息系統(tǒng)概述管理信息系統(tǒng)概述.42 2 醫(yī)藥銷(xiāo)售醫(yī)藥銷(xiāo)售管理系統(tǒng)的需求分析管理系統(tǒng)的需求分析.52.12.1 系統(tǒng)需求分析系統(tǒng)需求分析 .53 3 醫(yī)藥銷(xiāo)售醫(yī)藥銷(xiāo)售管理系統(tǒng)的概要設(shè)計(jì)管理系統(tǒng)的概要設(shè)計(jì).53.13.1 設(shè)計(jì)概述設(shè)計(jì)概述 .53.23.2 系統(tǒng)總體結(jié)構(gòu)及功能模塊劃分系統(tǒng)總體結(jié)構(gòu)及功能模塊劃分

3、 .63.33.3 系統(tǒng)數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì)系統(tǒng)數(shù)據(jù)庫(kù)概念結(jié)構(gòu)設(shè)計(jì) .73.43.4 安全保密設(shè)計(jì)安全保密設(shè)計(jì) .84 4 醫(yī)藥銷(xiāo)售管理醫(yī)藥銷(xiāo)售管理系統(tǒng)詳細(xì)設(shè)計(jì)系統(tǒng)詳細(xì)設(shè)計(jì).94.14.1 概述概述 .94.24.2 系統(tǒng)程序流程圖系統(tǒng)程序流程圖 .94.34.3 系統(tǒng)主要功能模塊簡(jiǎn)介系統(tǒng)主要功能模塊簡(jiǎn)介 .94.44.4 主要模塊代碼主要模塊代碼 .125 5 醫(yī)藥銷(xiāo)售醫(yī)藥銷(xiāo)售管理系統(tǒng)系統(tǒng)測(cè)試管理系統(tǒng)系統(tǒng)測(cè)試.275.15.1 登陸測(cè)試登陸測(cè)試 .275.25.2 藥品信息藥品信息查詢(xún)測(cè)試查詢(xún)測(cè)試 .275.35.3 查詢(xún)測(cè)試查詢(xún)測(cè)試 .285.45.4 學(xué)生畢業(yè)管理測(cè)試學(xué)生畢業(yè)管理測(cè)試 .2

4、86 6 醫(yī)藥銷(xiāo)售醫(yī)藥銷(xiāo)售管理系統(tǒng)操作手冊(cè)管理系統(tǒng)操作手冊(cè).287 7 總結(jié)總結(jié) .29醫(yī)藥銷(xiāo)售管理系統(tǒng)1 1 醫(yī)藥銷(xiāo)售管理信息系統(tǒng)概述醫(yī)藥銷(xiāo)售管理信息系統(tǒng)概述 醫(yī)藥銷(xiāo)售管理信息系統(tǒng)1（Medicine Management Information System，MIS）就是指為管理目的、采用計(jì)算機(jī)和網(wǎng)絡(luò)技術(shù)對(duì)管理系統(tǒng)進(jìn)行統(tǒng)一管理的一套人機(jī)系統(tǒng)。管理學(xué)、系統(tǒng)論、信息技術(shù)等方面的相關(guān)理論，面向統(tǒng)計(jì)分析和決策支持所建立的數(shù)學(xué)模型是管理信息系統(tǒng)發(fā)展的理論基礎(chǔ)。 2 2 醫(yī)藥銷(xiāo)售管理系統(tǒng)的需求分析醫(yī)藥銷(xiāo)售管理系統(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ī)藥管理工作更加清晰、條理化、自動(dòng)化。（2）通過(guò)用戶(hù)名和密碼登錄系統(tǒng)，查詢(xún)藥品的基本信息，學(xué)生所選課程成績(jī)，修改用戶(hù)密碼等功能。 容易地完成學(xué)生信息的查詢(xún)操作。(3) 設(shè)計(jì)人機(jī)友好界面，功能安排合理，操作使用方便，并且進(jìn)一步考慮系統(tǒng)在安全性，完整性，并發(fā)控制，備份和恢復(fù)等方面的功能要求。2.1.22.1.2 功能需求分析功能需求分析本系統(tǒng)的功能需求分析如下：（1）藥品信息查詢(xún)：用戶(hù)可以根據(jù)藥品編號(hào)查詢(xún)藥品的基本信息.（2）銷(xiāo)售信息查詢(xún)：主要是通過(guò)銷(xiāo)售商編號(hào)和藥品編號(hào)查詢(xún)藥品的數(shù)量、時(shí)間、訂退方式；（3）員工信息查詢(xún)：通過(guò)員工編號(hào)和姓名查詢(xún)員工的基本信息；（4）藥品信息管理：對(duì)藥品信息進(jìn)

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

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

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

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

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

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

12、1 用戶(hù)登錄界面所示。圖 4.3.1 用戶(hù)登錄界面4.3.2 藥品信息查詢(xún)模塊查詢(xún)藥品信息查詢(xún)模塊查詢(xún) 藥品信息查詢(xún)：在程序主界面（如圖 4.3.2 程序主界面）用戶(hù)可以根據(jù)藥品編號(hào)查詢(xún)藥品基本信息。圖 4.3.2 程序主界面4.3.3 銷(xiāo)售信息查詢(xún)模塊銷(xiāo)售信息查詢(xún)模塊銷(xiāo)售信息查詢(xún)：可對(duì)當(dāng)前選定藥品信息進(jìn)行詳細(xì)信息查詢(xún)。如圖 4.4.3 銷(xiāo)售信息信息。4.4.3 銷(xiāo)售信息管理圖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 用戶(hù) where 用戶(hù)名= & Trim(TextBox1.Text) & & and 密碼= & Trim(TextBox2.Text) & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 用戶(hù)) mytable = myset.Tabl

15、es(用戶(hù)) If mytable.Rows.Count 0 Then flag = 1 Close() Else MsgBox(密碼錯(cuò)誤，請(qǐng)重新輸入！) 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é)生個(gè)人入學(xué)信息where 學(xué)號(hào)= & Trim(ComboBox1.Text) & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 學(xué)生個(gè)人入學(xué)信息1) mytable = myset.Tables(學(xué)生個(gè)人入學(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 = 查詢(xún) 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é)生個(gè)人入學(xué)信息 m

31、ydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 學(xué)生個(gè)人入學(xué)信息) mytable = myset.Tables(學(xué)生個(gè)人入學(xué)信息) DataGridView1.DataSource = myset.Tables(學(xué)生個(gè)人入學(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 成績(jī)管理代碼成績(jī)管理代碼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 = 查詢(xún)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 成績(jī)信息 mydata = New Sqldataadapter(sql, myconn) mydata.Fill(

35、myset, 成績(jī)信息) mytable = myset.Tables(成績(jī)信息) DataGrid1.datasource = myset.Tables(成績(jī)信息) 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 成績(jī)信息 where 學(xué)號(hào) = & Trim(ComboBox1.Text) & mydata = New Sqld

37、ataadapter(sql, myconn) mydata.fill(myset, 成績(jī)信息 1) mytable = myset.Tables(成績(jī)信息 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 成績(jī)信息 mydata = New SqlDataAdapter(sql, myconn)

40、 mydata.Fill(myset, 成績(jī)信息 2) mytable = myset.Tables(成績(jī)信息 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(添加記錄時(shí),學(xué)號(hào)不能為空！謝謝合作) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(添加記錄時(shí),課程名不能為空！謝謝合作) Exit Sub End If If Trim(TextBox2.Text) = Then MsgBox(添加記錄時(shí),成績(jī)不能為空！謝謝合作) Exit Sub End If If Trim(TextBox3.Text) = Then M

44、sgBox(添加記錄時(shí),年份不能為空！謝謝合作) 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 成績(jī)信息 mydata = New sqldataadapter(sql, myconn) mydata.fill(myset, 成績(jī)信息3) mytable = myset.Tables(成績(jī)信息3) For i = 0 To

45、 mytable.Rows.Count - 1 If mytable.Rows(i).Item(0) = cpbh Then MsgBox(此學(xué)號(hào)已存在！, vbOKOnly + vbExclamation, 警告) Exit Sub End If Next sql = insert into 成績(jī)信息（學(xué)號(hào)，課程名，成績(jī)，年份）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(修改記錄時(shí),學(xué)號(hào)不能為空！謝謝合作) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(修改記錄時(shí),課程名不能為空！謝謝合作) Exit Sub End If If Trim(TextBox2.Text) = Then MsgBox(修改記錄時(shí),成績(jī)不能為空！謝謝合作) Exit Sub En

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

48、t = 0 Then MsgBox(此學(xué)號(hào)不存在，不能修改) Exit Sub End If sql = updata 成績(jī)信息 set 課程名= & TextBox1.Text & ,成績(jī)= & jg & ,年份= & kcl & where 學(xué)號(hào)= & 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(刪除記錄時(shí),學(xué)號(hào)不能為空！謝謝合作) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(刪除記錄時(shí),課程名不能為空！謝謝合作) Exit Sub End If sql = select * from 成績(jī)信息 where 學(xué)號(hào) = & ComboBox1.Text & mydata = New sqldataadapter(sql, myconn) mydata.fill(myset, 成績(jī)信息3) mytable = my

50、set.Tables(成績(jī)信息3) If mytable.Rows.Count = 0 Then MsgBox(此學(xué)號(hào)不存在，不能刪除) Exit Sub End If sql = delete from 成績(jī)信息 where 學(xué)號(hào)= & 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(請(qǐng)直接通過(guò)選擇相應(yīng)的記錄進(jìn)行查詢(xú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 = 查詢(xún) 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é)生個(gè)人入學(xué)信息 mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 學(xué)生個(gè)人入學(xué)信息) mytable = myset.Tables(學(xué)生個(gè)人入學(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(添加記錄時(shí)，學(xué)號(hào)不能為空！) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(添加記錄時(shí)，姓名不能為空！) Exit Sub

56、End If If Trim(TextBox2.Text) = Then MsgBox(添加記錄時(shí)，性別不能為空！) Exit Sub End If If Trim(TextBox3.Text) = Then MsgBox(添加記錄時(shí)，籍貫不能為空！) Exit Sub End If If Trim(TextBox4.Text) = Then MsgBox(添加記錄時(shí)，民族不能為空！) 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é)生個(gè)人入學(xué)信息 mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 學(xué)生個(gè)人入學(xué)信息1) mytable = myset.Tables(學(xué)生個(gè)人入學(xué)信息1) For i = 0 To mytable.Rows.Count - 1 If mytable.Rows(i).Item(0) = xh Then MsgBox(學(xué)號(hào)已經(jīng)存在！, vbOKOnly + vbExclamation, 警告) Exit Sub En

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

59、Sub End If If Trim(TextBox1.Text) = Then MsgBox(刪除記錄時(shí)，姓名不能為空！) Exit Sub End If If Trim(TextBox2.Text) = Then MsgBox(刪除記錄時(shí)，性別不能為空！) Exit Sub End If If Trim(TextBox3.Text) = Then MsgBox(刪除記錄時(shí)，籍貫不能為空！) Exit Sub End If If Trim(TextBox4.Text) = Then MsgBox(刪除記錄時(shí)，民族不能為空！) Exit Sub End If sql = select*from

60、 學(xué)生個(gè)人入學(xué)信息 where 學(xué)號(hào)= & ComboBox1.Text & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 學(xué)生個(gè)人入學(xué)信息) mytable = myset.Tables(學(xué)生個(gè)人入學(xué)信息) If mytable.Rows.Count = 0 Then MsgBox(學(xué)號(hào)不存在，不能刪除) Exit Sub End If sql = delete from 學(xué)生個(gè)人入學(xué)信息 where 學(xué)號(hào)= & 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(修改記錄時(shí)，學(xué)號(hào)不能為空！) Exit Sub End If If Trim(TextBox1.Text) = Then MsgBox(修改記錄時(shí)，姓名不能為空！) Exit Sub End If If Trim(TextBox2.Text) = Then MsgBox(修改記錄時(shí)，性別不能為空！) Exit Sub End If If

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

63、table.Rows.Count = 0 Then MsgBox(此學(xué)號(hào)不存在，不能修改) Exit Sub End If sql = updata 學(xué)生個(gè)人入學(xué)信息 set 姓名= & TextBox1.Text & ,性別= & TextBox2.Text & ,籍貫= & TextBox3.Text & where 學(xué)號(hào)= & 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é)生個(gè)人入學(xué)信息 where 學(xué)號(hào)= & Trim(ComboBox1.Text) & mydata = New SqlDataAdapter(sql, myconn) mydata.Fill(myset, 學(xué)生個(gè)人入學(xué)信息) mytable = myset.Tables(學(xué)生個(gè)人入學(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)測(cè)試學(xué)生學(xué)籍管理系統(tǒng)系統(tǒng)測(cè)試5.1 登陸測(cè)試 5