(Microsoft Word - \261M\303D\246\250\252G\263\370\247i.doc)

Size: px

Start display at page:

Download "(Microsoft Word - \261M\303D\246\250\252G\263\370\247i.doc)"

查靳
5 years ago
Views:

1 朝陽科技大學資訊工程系專題成果報告健康檢查資訊系統指導教授 : 劉省宏教授專題組員 : 吳建儀 ( ) 葉名硯 ( ) 林育承 ( ) 劉嘉捷 ( ) 陳譽文 ( ) 中華民國九十九年十二月

2 目錄一摘要 3 二前言...4 三創作動機 5 四目的 6 五系統應用工作分配表 7 六系統實作工具與設備...8 七流程圖 9 八 Pert 圖...10 九甘特圖..11 十系統介紹..12 十一程式介紹..24 十二結論..32 十三参考文獻..33

3 摘要在現代的社會已經越來越多人了解健康檢查的重要性, 但往往都不清楚它的內容資料數值意義及應該做的處理, 健康檢查資訊系統設計就是讓我們了解健康檢查各個項目詳細的資訊智慧型健康檢查決策系統是用 Microsoft Visual Basic 2008 來製作, 先建立許多資料庫, 將資訊放入在資料庫裡, 輸入關鍵資料, 立即連結相關資訊智慧型健康檢查決策系統讓人更方便得到健康資訊, 不用再到處詢問上網搜尋 3

4 前言為何健康檢查 : 在醫學界, 對於健康檢查的涵義及其所需的項目應無一致的界定, 每一位醫師亦無相同的論點依照醫學界多數專家的說法, 將健康檢查定義為健康人所做的初步疾病篩檢和危險因子評估健康檢查方向略分為三大類 : ( 一 ) 生命徵象 :( 如體重身高血壓心跳呼吸次數等身體外與整體的檢查 ) ( 二 ) 器官的結構性 : 如尿液糞便及血液檢查肺功能心電圖視力聽力等各項器官功能性檢測 ( 三 ) 器官的結構性 : 如超音波胸腹部 X 光攝影上腸胃道攝影及電腦斷層等依此來鑑定受檢者的健康狀況是否有潛在的疾病, 以早期發現, 早期治療, 實現預防醫學的目的 4

5 創作動機健康的身體是每個人所希望擁有的, 而擁有健康的身體要從日常生活做起, 千萬不可掉以輕心身體的任何變化, 慶幸的是已經有越來越多的人日漸注重健康檢查的對身體健康的重要性, 但是真正了解自己身體健康檢查報告書的人卻少之又少, 大部分的人做完健康檢查多半對於檢查的項目還是似懂非懂, 檢查數值更不用說了而我們所做的這個系統就是為了解決這些問題, 讓每個人都能夠清楚的了解自己健康檢查報告的內容, 進一步的能夠更了解自己的身體現況即時的改善, 還能夠經由檢查報告的數值更詳細的指出身體須注意異常的地方, 提供改善建議做為就醫的參考, 相信有了這一套系統, 往後每個人都能夠更加省時省力輕鬆的了解自己的健康狀況 5

6 目的一早期發現疾病, 早期治療大多數慢性疾病與惡性腫瘤, 在初期尚未有臨床症狀時, 即可藉由檢查及早發現, 使疾病在初期, 就能及時獲得矯正治療, 以防止繼續擴張或具破壞性的變化二做為檢視和改善日常生活習慣之依據健康檢查結果, 可能會有一些異常值出現, 雖然有些異常值, 不一定罹患疾病, 但我們可以依此異常結果, 進一步了解自我身體的機能, 並改變不良的生活習慣, 以避免疾病因子的持續產生三建立個人健康檔案定期健康檢查, 除了了解自己身體目前各項功能的狀態外, 亦可以建立自己的健康檔案, 逐年比較瞭解自己生理狀況的變化, 針對較異常的項目, 短期內改善, 定期追蹤檢查, 這樣有助於早期發現潛伏於體內的疾病 6

7 系統應用本系統功能主要為管理健康檢查報告, 做出統整比對甚至是建議, 一般民眾對於醫療知識困乏, 即使做了健康檢查只要無大礙, 基本上都認為自己是很健康的, 其實報告中有些數值在說話, 我們的系統就是針對這點, 對使用者提出妥善建議往年報告比對, 讓使用者知道如何去讓自己的身體健康, 假如有一些病狀, 系統也會提出相關建議, 讓使用者了解病情病因, 也知道治療的方法 7

8 系統實作工具與設備系統需求 : 1. 作業系統 Windows XP Windows VISTA 2. 資料庫 Microsoft Office Assess 3. 軟體 Microsoft Visual Basic 2008 工作分配表 8

9 流程圖 9

10 Pert 圖題目制訂軟體評估 0d 30d 0d 31d 2009/6/1 2009/6/ /7/1 2009/7/31 軟體分析初步設計 2d 31d 1d 91d 2009/8/1 2009/8/ /9/1 2009/11/30 細部設計建立雛形 3d 150d 1d 62d 2010/2/1 2010/6/ /12/1 2010/1/31 修改 Debug 測試 1d 91d 2d 61d 2010/9/1 2010/11/ /7/1 2010/8/30 10

11 甘特圖識別碼工作名稱開始完成期間 Q2 09 Q3 09 Q4 09 Q1 10 Q2 10 Q3 10 Q4 10 六月七月八月九月十月一月二月三月四月五月六月七月八月九月十月 1 題目制訂 2009/6/1 2009/6/30 30d 2 軟體評估 2009/7/1 2009/7/31 31d 3 軟體分析 2009/8/1 2009/8/31 31d 4 初步設計 2009/9/1 2009/11/30 91d 5 建立雛形 2009/12/1 2010/1/31 62d 6 細部設計 2010/2/1 2010/6/30 150d 7 測試 2010/7/1 2010/8/30 61d 系統介紹 2010/9/1 8 修改 Debug 2010/11/25 86d 11

12 系統介紹 1. 登入系統帳號密碼 2. 進入到系統主畫面 12

13 3. 檔案匯入匯入 Excel->Databse 4. 點選匯入 Excel 後, 下方會出現 Excel 資料 13

14 5. 點儲存到資料庫後 -> 匯入成功 6. 匯入失敗 -> 要去 Excel 修改資料後重新匯入 14

15 7. 查詢匯入所有資料庫 8. 可查詢每一細項 Access 所有資料 15

16 9. 載入歷年資料 10. 載入 2010/1/1 體脂肪並比對最新五年資料 16

17 11. 載入 2010/6/1 體脂肪並比對最新五年資料 12. 進入健康檢查項目 17

18 13. 進入健康檢查項目並比對五年來資料 14. 進入今年建議事項 18

19 15. 點選異常數值 -> 送出 -> 看建議方針 16. 查看食物營養簡介 19

20 17. 各食物建議說明 18. 各項目功能簡介 20

21 19. 功能簡介說明 20. 進入系統介紹 21

22 21. 系統說明 22. 退出系統 22

23 23. 退出到視窗 24. Excel 電子檔格式 23

24 程式介紹功能檢查. 項目檢介 Imports System.Data Imports System.Data.OleDb ' 資料庫連線資源 Public Class 血液檢查 Private Sub 血液檢查 _Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call labelshow() ' 呼叫 label 副程式 ' 宣告資料庫路徑 Dim Source As String // 宣告資料庫為一個字串 Dim dbpath As String = "C:\project\ 健康檢查報告 \ 健康檢查報告 \abc.mdb" // 找資料庫路徑在那? Source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath //lib, Dim conn As OleDbConnection // 連線 conn = New OleDbConnection(Source) // 做連線 conn.open() ' 開啟連線 ' 宣告並搜尋資料表 Dim Selectcmd As String // 搜尋取名稱 Selectcmd = "SELECT * FROM 血液檢查 WHERE 身份證字號 = '" & 登入.TextBox1.Text & "' AND 報告日 LIKE'" & 首頁.TextBox16.Text & "'" ' 搜尋資料表, 條件, 最新一筆資料 ' 宣告 Textbox 命令控制項 Dim cmd As OleDbCommand = New OleDbCommand(Selectcmd, conn) ' 命令控制項連線 Dim reader As OleDbDataReader ' 宣告 reader 用讀的 reader = cmd.executereader() // 執行讀 While reader.read() TextBox1.Text &= reader.item(" 白血球 ") End While Call Value() ' 呼叫 value conn.close() ' 關掉連線 End Sub Sub labelshow() ' 動態文字顯示 Label1.Font = New Font(" 新細明體 ", 15) GroupBox1.Text = " 血液檢查文字介面 " Button1.Text = " 比對 " End Sub Sub Value() ' 如果 value 不在規定範圍內, 則變成紅色字 If (TextBox1.Text < 4.0 Or TextBox1.Text > 10.5) Then ' 白血球 TextBox1.ForeColor = Color.Red 24

25 End If End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click GroupBox2.Visible = True // 可見度 GroupBox3.Hide()// 隱 End Sub Private Sub GroupBox2_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles GroupBox2.Paint ' 宣告圖形使用 Dim g As Graphics = e.graphics // 宣告 g 為畫圖紙 ' 宣告畫筆 ( 黑色 ) Dim pen As Pen = New Pen(Color.Black) ' 宣告畫筆 ( 紅色 ) Dim pen1 As Pen = New Pen(Color.Red) ' 畫 X( 筆, 原點 X, 原點 Y, 終點 X, 終點 Y) g.drawline(pen, 55, 350, 870, 350) / 畫一條線 ' 畫 Y g.drawline(pen, 55, 350, 55, 20) / 上去為負 ' 畫 Y 顆度 (30 個點 ) Dim i, sum As Integer sum = 350 For i = 1 To 30 sum = sum - 11 g.drawline(pen, 53, sum, 57, sum) / 畫每個點的線 Next ' 畫 X 顆度 (5 個點 ) Dim k, sum1 As Integer sum1 = 55 For k = 1 To 5 sum1 = sum g.drawline(pen, sum1, 348, sum1, 350) Next ' 宣告畫 Y 文字的顏色字形變數 Dim brush As SolidBrush = New SolidBrush(Color.Black) / 宣告畫筆 Dim font As Font = New Font(" 標楷體 ", 8) // 畫出來的字型 Dim j, sum2 As Integer / 整數 Dim w As Decimal / 十進位整數小數點 ' 畫出 Y 文字 ( 文字, 字型, 顏色,x 軸,y 軸 ) sum2 = 350 w = 0 For j = 1 To 30 If (w = 4.0 Or w = 10.5) Then / 畫上限跟下限 g.drawline(pen1, 55, sum2, 870, sum2) ' 畫出規定值的線 End If sum2 = sum2 11 / 畫文字 25

26 w = w g.drawstring(w, font, brush, 15, sum2) Next 宣告資料庫路徑 Dim Source As String Dim dbpath As String = "C:\project\ 健康檢查報告 \ 健康檢查報告 \abc.mdb" Source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath Dim conn As OleDbConnection conn = New OleDbConnection(Source) conn.open() ' 開啟連線 ' 宣告搜尋日期筆數五筆排列由大到小 Dim Selectcmd1 As String Selectcmd1 = "SELECT TOP 5 * FROM 血液檢查 WHERE 身份證字號 = '" & 登入.TextBox1.Text & "' ORDER BY 報告日 DESC" Dim cmd As OleDbCommand = New OleDbCommand(Selectcmd1, conn) ' 命令控制項連線 Dim reader As OleDbDataReader ' 宣告 reader reader = cmd.executereader() Dim brush1 As SolidBrush = New SolidBrush(Color.Red) ' 宣告 brush1 是數值的劃筆 Dim brush2 As SolidBrush = New SolidBrush(Color.Blue) ' 宣告 brush1 是數值的劃筆 Dim font1 As Font = New Font(" 標楷體 ", 12) ' 宣告 font1 是數值的新字型第一年日期 reader.read() // 讀第一年 g.drawstring(reader.item(" 報告日 "), font1, brush, 180, 370) ' 直條圖日期的值為止 ' 第一年坐標 Dim x1 As Double ' 宣告 x1 軸 Dim y1 As Integer ' 宣告 y1 軸 y1 = 0 For x1 = 0.5 To reader.item(" 白血球 ") Step 0.5 'x1=0.94 到資料庫尿比重 Next y1 = y 'y 軸每一個輪加 11, 畫出圖直到加到等於尿比重的值 ' 查看是否有到規定值, 有的話用 brush2 藍色輸出, 沒有則用 brush1 紅色輸出 If (Val(reader.Item(" 白血球 ")) < 4 Or Val(reader.Item(" 白血球 ")) > 10.5) Then g.fillrectangle(brush1, 200, y1, 30, y1) '362-( 上緣 groupbox)12=350 // 直條圖座標 g.drawstring(reader.item(" 白血球 "), font1, brush1, 200, y1) ' 直 26

27 條圖數字座標 Else g.fillrectangle(brush2, 200, y1, 30, y1) '362-( 上緣 groupbox)12=350 //fill-> 填滿,rectangle-> 長方形 g.drawstring(reader.item(" 白血球 "), font1, brush2, 200, y1) ' 直條圖數字 End If conn.close() ' 關掉連線 End Sub Public Class 匯入介紹 Private Sub 匯入介紹 _Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Font = New Font(" 新細明體 ", 18) LinkLabel1.Text = " 第一張 " Label1.Text = " 點匯入 Excel-> 匯入 Excel 資料 " PictureBox1.Image = Bitmap.FromFile("C:\project\ 畢專 \ 圖表 \ 匯入.gif") // 抓圖表路徑 End Sub Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked PictureBox1.Image = Bitmap.FromFile("C:\project\ 畢專 \ 圖表 \ 匯入.gif") Label1.Text = " 點匯入 Excel-> 匯入 Excel 資料 " End Sub Imports System.Data Imports System.Data.OleDb ' 資料庫連線資源 Public Class 建議事項 Private Sub 建議事項 _Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call labelshow() ' 呼叫 label 副程式 Label1.ForeColor = Color.Blue 'label1 的字體與顏色 Label1.Font = New Font(" 標楷體 ", 18) ' 宣告資料庫路徑 Dim Source As String Dim dbpath As String = "C:\project\ 健康檢查報告 \ 健康檢查報告 \abc.mdb" Source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath Dim conn As OleDbConnection conn = New OleDbConnection(Source) conn.open() ' 開啟連線 ' 宣告一般尿液檢查並搜尋資料表 Dim Selectcmd As String Selectcmd = "SELECT * FROM 一般尿液檢查 WHERE 身份證字號 = '" & 登入.TextBox1.Text & "' AND 報告日 LIKE'" & 首頁.TextBox16.Text & 27

28 "'" ' 搜尋資料表 ' 宣告 Textbox 命令控制項 Dim cmd As OleDbCommand = New OleDbCommand(Selectcmd, conn) ' 命令控制項連線 Dim reader As OleDbDataReader ' 宣告 reader reader = cmd.executereader() While reader.read() If (Val(reader.Item(" 尿液比重 ")) < Or Val(reader.Item(" 尿液比重 ")) > 1.03) Then ' 尿比重 RadioButton1.ForeColor = Color.Red Else RadioButton1.Enabled = False // 除去功能 End If End While Sub labelshow() Label1.Text = " 以上紅色為今年異常數值, 請點選選項看建議方針 " GroupBox1.Text = " 異常數值介面 " GroupBox2.Text = " 建議事項介面 " RadioButton1.Font = New Font(" 新細明體 ", 12) Button1.Text = " 送出 " Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click // 下面顯現的文字 TextBox1.Font = New Font(" 標楷體 ", 18) TextBox1.ForeColor = Color.Blue If RadioButton1.Checked Then // else if // end 退出系統 Private Sub 登出 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 登出 ToolStripMenuItem.Click Dim temp As Integer Dim temp1 As String Dim msgstyle As Integer msgstyle = MsgBoxStyle.OkCancel + MsgBoxStyle.Question + MsgBoxStyle.DefaultButton2 temp1 = " 是否確定離開本系統!" temp = MsgBox(temp1, msgstyle, " 離開本系統 ") If temp = MsgBoxResult.Ok Then End End If End Sub 28

29 歷年資料 Private Sub 歷年資料 ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 歷年資料 ToolStripMenuItem.Click ' 宣告資料庫路徑 Dim Source As String Dim dbpath As String = "C:\project\ 健康檢查報告 \ 健康檢查報告 \abc.mdb" Source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath Dim conn As OleDbConnection conn = New OleDbConnection(Source) conn.open() ' 開啟連線 ' 宣告搜尋日期筆數五筆排列由大到小 Dim Selectcmd1 As String Selectcmd1 = "SELECT TOP 5 * FROM 一般檢查 WHERE 身份證字號 = '" & 登入.TextBox1.Text & "' ORDER BY 報告日 DESC"// 大排到小 Dim cmd As OleDbCommand = New OleDbCommand(Selectcmd1, conn) ' 命令控制項連線 Dim reader As OleDbDataReader ' 宣告 reader reader = cmd.executereader() reader.read() ToolStripMenuItem2.Text = reader.item(" 報告日 ") reader.read() ToolStripMenuItem3.Text = reader.item(" 報告日 ") reader.read() ToolStripMenuItem4.Text = reader.item(" 報告日 ") reader.read() ToolStripMenuItem5.Text = reader.item(" 報告日 ") reader.read() ToolStripMenuItem6.Text = reader.item(" 報告日 ") 匯入 Imports System.Data Imports System.Data.OleDb Public Class 匯入 Private Sub 匯入 _Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button1.Text = " 匯入 Excel" Button2.Text = " 儲存到資料庫 " End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\project\ 畢專 \ 健檢報告電子檔 \ 健康檢查報告.xls;Extended Properties=""Excel 8.0;HDR=no;IMEX=1""" //HDR=NO, 代表表頭是否為標題 ITEX=0-> 寫,ITEX=1-> 讀,ITEX=2-> 讀寫都可以執行 Dim conn As OleDbConnection = New OleDbConnection(str) // 暫存 29

30 EXCEL 的盒子 conn.open() ' 查詢資料 Dim str1 As String = "select * from [ 健康檢查報告 $]" // 搜尋名稱 Dim adp1 As OleDbDataAdapter = New OleDbDataAdapter(str1, conn) // 當成 EXCEL 的資料庫 ' 將查詢結果放到記憶體 set1 上的 "1a " 表格內 Dim set1 As DataSet = New DataSet // 集合的框框 adp1.fill(set1, " 健康檢查報告 ") //FILL 填滿 ' 將記憶體的資料集合存放到視窗畫面上的 DataGrid 上 DataGridView1.DataSource = set1.tables(" 健康檢查報告 ") Dim cmd As OleDbCommand = New OleDbCommand(str1, conn) ' 命令控制項連線 Dim reader As OleDbDataReader ' 宣告 reader reader = cmd.executereader() While reader.read() DateTimePicker1.Value = set1.tables(" 健康檢查報告 ").Rows(2)(0) TextBox71.Text = set1.tables(" 健康檢查報告 ").Rows(2)(1) End While ' 關閉資料庫的連結 conn.close() End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click // 儲存資料庫 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click // 儲存資料庫 ' 宣告資料庫路徑 Dim Source As String Dim Insertcmd As String Dim dbpath As String = "C:\project\ 健康檢查報告 \ 健康檢查報告 \abc.mdb" Source = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath Dim conn As OleDbConnection conn = New OleDbConnection(Source) conn.open() ' 開啟連線 ' 新增肝膽功能檢查資料 Insertcmd = "Insert Into 肝膽功能檢查 ( 報告日, 編號, 身份證字號, 草酸轉氨基酵素, 丙酮轉氨基酵素, 丙種麸晞轉移酵素, 鹼性磷酸脢, 總蛋白, 白蛋白, 球蛋白, 總膽紅素值,B 型肝炎表面抗原,B 型肝炎表面抗體,B 型肝炎 e 抗原, 直接膽紅素 )Values('" & DateTimePicker1.Value & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "','" & TextBox10.Text & "','" & TextBox11.Text & "','" & TextBox12.Text & "','" & TextBox13.Text & "','" & TextBox14.Text & "','" & TextBox15.Text & "') " Dim cmdadd As OleDbCommand = New OleDbCommand(Insertcmd, conn) 30

31 cmdadd.executenonquery() 存回去 conn.close() ' 關掉連線 MsgBox(" 新增成功!") End Sub End Class 查詢 Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Dim str As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\project\ 健康檢查報告 \ 健康檢查報告 \abc.mdb" Dim conn As OleDbConnection = New OleDbConnection(str) conn.open() ' 查詢資料 Dim str1 As String = "SELECT * FROM 血液檢查 " ' 搜尋資料表 Dim adp1 As OleDbDataAdapter = New OleDbDataAdapter(str1, conn) ' 將查詢結果放到記憶體 set1 上的 "1a " 表格內 Dim set1 As DataSet = New DataSet adp1.fill(set1, "la") ' 將記憶體的資料集合存放到視窗畫面上的 DataGrid 上 DataGridView6.DataSource = set1.tables("la") ' 關閉資料庫的連結 conn.close() End Sub 31

32 結論我們系統是針對客制化為導向, 其優點不僅可以省去每一年印大量的健康報告的紙張以外, 還可以即時更新醫學的數據資料並在資料保存上, 還可以延長時間本系統唯一美中不足是無法與醫院結合其一 : 格式不同其二 : 醫院資料有保密性其三 : 醫院有商業考量如有辦法克服將有辦法擴大進入到各大醫院的 ERP 系統中所以此系統不僅可以改善個人的身體狀況外, 還可以改善醫院的 ERP 系統使用的不足, 並可以做到生活環保樂活的目的 32

33 參考文獻 1.VB.NET 程式設計範例教本. 旅標出版股份有限公司 93 年 9 月陳會安出版 2. 資料庫程式設計使用 Visual Basic 2008 上奇科技股份有限公司 2009 年 3 月李春雄出版 3. 軟體工程 Software Engineering 學貫行銷股份有限公司 2004 年 5 月 James F.peters.Witold Pedrycz 出版 4. 軟體專案管理 Software Project Management 智勝文化事業有限公司 2005 年 7 月林信惠黃明詮王文良著 5. 抓住你的 PhotoImpact8 中文版旗標出版股份有限公司施威銘研究室 93 年 8 月施威銘出版 6. 痞客邦部落格真是胖部落格 8. asg/exp= /**http%3a//tw.knowledge.yahoo.com/question/ques tion%3fqid= yahoo 知識家 FCZ 藍色小舖 10. 程式設計俱樂部 33

34 34

投影片 1

投影片 1 資料庫管理程式 ( 補充教材 -Part2) 使用 ADO.NET 連結資料庫 ( 自行撰寫程式碼以實現新增刪除修改等功能 ) Private Sub InsertButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InsertButton.Click ' 宣告相關的 Connection