公用副程式

Size: px

Start display at page:

Download "公用副程式"

君龚
5 years ago
Views:

1 7.1 TableStruct( 資料表結構體變數 ) OpenCon( 連線程序 ) SetMysqlCharSet( 設定中文介面 ) UseWDB( 切換資料庫 ) GetDBlist( 列舉資料庫明細 ) MakeTableList( 列舉資料表明細 ) GetKeyValue( 取得不重覆鍵值紀錄 ) FindKeyValue( 尋找鍵值紀錄 ) FindPrimaryKey( 尋找主鍵 ) LockTable( 資料表上鎖 ) UnlockTable( 資料表解鎖 ) InsertNewRecord( 新增紀錄 ) UpdateNewRecord( 更新紀錄 ) DeleteKeyValue( 刪除紀錄 ) GetTableStructure( 取得資料表結構 ) 23 回目錄 1

2 本章列示一些 EasydoMySQL 使用到的公用副程式, 讀者可將相關副程式加到你自己的應用系統之模組程序內, 這些副程式可供表單程序叫用 7.1 TableStruct( 資料表結構體變數 ) 用途 : 資料表結構體變數可用來儲存開啟的資料表或以 SQL 指令開啟的紀錄集相關屬性, 在新增修改及刪除等資料處理工作, 此結構變數將用於表單與公用程序之資料傳遞工作 Public Structure TableStruct Dim fldname As String, 說明 : 欄名 Dim fldtitle As String, 說明 : 欄位抬頭 ( 中文欄名 ) Dim fldtype As String, 說明 : 資料型泰 Dim fldlength As Integer, 說明 : 欄寬 Dim fldnull As Boolean, 說明 : 允許空值 Dim fldprimary As Boolean, 說明 : 主鍵 Dim flddefault As String, 說明 : 預設值 Dim fldenum As String, 說明 : 列舉值 Dim fldencrypt As Boolean, 說明 : 需要加密 Dim tblsource As String, 說明 : 參考資料表 Dim fldsource As String, 說明 : 參考欄 Dim fldlocation As Point, 說明 : 控制項位置 Dim fldsize As Size, 說明 : 控制項尺寸 Dim fldvalue, 說明 : 介面存取資料 Dim fldexpress As String, 說明 : 運算式 Dim fldimemode As String, 說明 : 輸入法 End Structure 2

3 7.2 OpenCon( 連線程序 ) 用途 : 應用系統與 MySQL 連線用戶登入 EasyDoMySQL 應用系統時, 立即以此程序與 MySQL 資料庫連線, 在執行各項表單作業時, 若系統偵測到斷線狀況時, 也可以叫用此程序來重新連線 Public Sub opencon(byval dbstr As String) Dim str As String Try Dim opvalue As Long opvalue = ' Normal Use str = "DRIVER={MySQL ODBC " & DRV & " Driver};SERVER=" & HST & "; DATABASE=" & dbstr & ";UID=" & USR & ";PASSWORD=" & PSW & ";Option= " & opvalue 說明 :DRV HST USR PSW 為系統變數, 由登錄表單設定 mycon = New OdbcConnection(str) If Not mycon.state = ConnectionState.Open Then mycon.open() If mycon.state = ConnectionState.Open Then Call SetMysqlCharSet(SysChar, mycon) 說明 : 設定中文介面 Catch ex As Exception MsgBox(" 無法連線..." & vbcrlf & ex.message) End Try End Sub 3

4 7.3 SetMysqlCharSet( 設定中文介面 ) 用途 : 設定中文介面, 包含主控端處理資料伺服端回傳結果, 以及連線狀態之介面資訊 Public Sub SetMysqlCharSet(ByVal charset As String, ByVal strcon As OdbcConnection) Try Dim str As String str = "Set character_set_client = " & charset & ";" 說明 :charset 為系統變數, 由登錄表單設定 mycmd = New OdbcCommand(str, strcon) mycmd.executenonquery() str = "Set character_set_results= " & charset & ";" mycmd = New OdbcCommand(str, strcon) mycmd.executenonquery() str = "Set character_set_connection = " & charset & ";" mycmd = New OdbcCommand(str, strcon) mycmd.executenonquery() Catch ex As Exception MsgBox(ex.Message) End Try End Sub 4

5 7.4 UseWDB( 切換資料庫 ) 用途 : 切換資料庫當用戶需要處理不同的資料庫時, 就須以此程序來切換資料庫 Public Sub UseWDB(ByVal db As String) If db = "" Then Exit Sub Try Dim cmd As String cmd = "Use " & db mycmd = New OdbcCommand(cmd, mycon) mycmd.executenonquery() Catch ex As Exception MsgBox(ex.Message) End Try End Sub 5

6 7.5 GetDBlist( 列舉資料庫明細 ) 用途 : 取得資料庫明細, 回傳結果將作為有資料庫下拉方塊控制項之選項清單回傳結果 : 字串, 資料庫名稱間必須以逗號間隔 Public Function getdblist() As String Try Dim str As String Dim dareader As OdbcDataReader If USR <> "root" And USR <> "Admin" Then Return WDB 說明 :USR 及 WDB 為系統變數, 由登錄表單設定 Exit Function str = "Use mysql" mycmd = New OdbcCommand(str, mycon) mycmd.executenonquery() str = "Show Databases" mycmd = New OdbcCommand(str, mycon) dareader = mycmd.executereader() str = "" 說明 : 逐筆取出資料庫名稱 Do While dareader.read() If dareader.item(0).tostring <> "information_schema" Then If str = "" Then str = dareader.item(0).tostring str = str & "," & dareader.item(0).tostring Loop dareader.close() Call UseWDB(WDB) Return str Catch ex As Exception MsgBox(ex.Message) 6

7 Return "" End Try End Function 7

8 7.6 MakeTableList( 列舉資料表明細 ) 用途 : 取得資料表明細, 回傳結果將作為有資料表下拉方塊控制項之選項清單回傳結果 : 字串, 資料表名稱間必須以逗號間隔 Public Function maketablelist(byval db As String) As String Dim str As String Try str = "Use"& db mycmd = New OdbcCommand(str, mycon) mycmd.executenonquery() Dim tblreader As OdbcDataReader If USR = "root" Or USR = "Admin" Then str = "Show Tables From " & db & ";" 說明 : 系統管理者可顯示所有資料表 str = "Select WorkNo From UserRight Where Project='Table' And User='" str = str & USR &"' And Enable=True" 說明 : 一般用戶只能顯示有被授權的資料表 mycmd = New OdbcCommand(str, mycon) tblreader = mycmd.executereader str = "" 說明 : 逐筆取出資料表名稱 While tblreader.read str = str & tblreader.item(0).tostring & "," End While tblreader.close() If str <> "" Then str = Mid(str, 1, Len(str) - 1) Return str Catch ex As Exception MsgBox(ex.Message) Return "" End Try End Function 8

9 7.7 GetKeyValue( 取得不重覆鍵值紀錄 ) 用途 : 取得指定欄位資料不重覆紀錄, 回傳結果將作為有鍵值下拉方塊控制項之選項清單回傳結果 : 字串, 鍵值資料間以逗號間隔 Public Function getkeyvalue(byval stbl As String, ByVal skey As String) As String 回傳結果 : 布林值 If skey Is Nothing Then Return "" Exit Function Dim tp As Integer If stbl = "" Or skey = "" Then Return "" Exit Function Try Dim str As String Dim tblreader As OdbcDataReader If InStr(sTbl, "Select ") = 0 Then str = "Select Distinct " & skey & " From " & stbl & " Order By " & skey tp = 1, 說明 : 表傳入資料表 str = stbl tp = 2, 說明 : 表傳入 SQL 指令 mycmd = New OdbcCommand(str, mycon) tblreader = mycmd.executereader str = "" If tp = 1 Then While tblreader.read str = str & tblreader.item(0).tostring & "," 說明 : 將讀取資料串入回傳資料串 End While 9

10 If str <> "" Then str = Mid(str, 1, Len(str) - 1) Dim vl tblreader.read() vl = tblreader.item(skey) str = vl While tblreader.read If tblreader.item(skey) <> vl Then str = str & "," & tblreader.item(0).tostring 說明 : 將讀取資料串入回傳資料串 vl = tblreader.item(skey) End While tblreader.close() keyvalue = str Return str Catch ex As Exception Return "" End Try End Function 10

11 7.8 FindKeyValue( 尋找鍵值紀錄 ) 用途 : 尋找鍵值是否存在在新增修改或刪除紀錄時, 可用來檢查鍵值是否存在回傳結果 : 布林值 Public Function FindKeyValue(ByVal stbl As String, ByVal srtkey As String) As Boolean If srtkey Is Nothing Then Return False Exit Function Try Dim str As String Dim tblreader As OdbcDataReader str = "Select * From " & stbl & " Where " & srtkey mycmd = New OdbcCommand(str, mycon) tblreader = mycmd.executereader FindKeyValue = tblreader.read() tblreader.close() Return FindKeyValue Catch ex As Exception MsgBox(ex.Message) Return False End Try End Function 11

12 7.9 FindPrimaryKey( 尋找主鍵 ) 用途 : 尋找資料表主鍵開啟資料表後, 可用此程序來設定資料表之主鍵回傳結果 : 字串, 若為雙主鍵, 則以逗號間隔兩個鍵值欄 Public Function FindPrimaryKey(ByVal strtbl As String) As String Try Dim strsql As String, str As String Dim key1 As String, key2 As String, fna As String Dim tblreader As OdbcDataReader If strtbl = "" Then Return "" Exit Function strsql = "Describe " & strtbl & ";" 說明 :MySQL 指令, 可用來查閱資料表結構 mycmd = New OdbcCommand(strSQL, mycon) tblreader = mycmd.executereader key1 = "" key2 = "" While tblreader.read fna = tblreader.item(0).tostring str = tblreader.item(3).tostring If InStr(str, "PRI") > 0 Then, 說明 :PRI 代表鍵值欄 If key1 = "" Then key1 = fna If key2 = "" Then key2 = fna Exit While End While If key1 <> "" Then If key2 <> "" Then key1 = key1 &","& key2 12

13 tblreader.close() Return key1 Catch ex As Exception MsgBox(ex.Message) Return "" End Try End Function 13

14 7.10 LockTable( 資料表上鎖 ) 用途 : 資料表上鎖, 當需要異動紀錄時, 資料表需要上鎖說明 : 傳入資料表和鎖表方式兩個引數回傳結果 : 布林值 Public Function LockTable(ByVal stbl As String, ByVal stp As String) As Boolean Try Dim cmd As String If stp = "" Or stp = "Write" Then cmd = "LOCK TABLE "& stbl &" Write;" cmd = "LOCK TABLE "& stbl &" Read;" mycmd = New OdbcCommand(cmd, mycon) mycmd.executenonquery() Return True Catch ex As Exception Return False End Try End Function 14

15 7.11 UnlockTable( 資料表解鎖 ) 用途 : 資料表解鎖, 異動紀錄後, 必須將資料表解鎖 Public Sub UnlockTable() Try Dim cmd As String cmd = "Unlock TABLES;" mycmd = New OdbcCommand(cmd, mycon) mycmd.executenonquery() Catch ex As Exception End Try End Sub 15

16 7.12 InsertNewRecord( 新增紀錄 ) 用途 : 新增紀錄說明 : 新增紀錄表單輸入之資料可先存放在公用資料表結構體變數 tblstruct /tblstruct2 內, 然後叫用此函數將資料存入資料庫引數 id 值 1 表主資料表 ( 使用公用變數 wktbl), 值 2 表子表 ( 使用公用變數 wktbl2) 引數 kv1 表第一過濾條件,kv2 表第二過濾條件回傳結果 : 布林值 Public Function InsertNewRecord(ByVal id As Integer, ByVal kv1 As String, ByVal kv2 As String) As Boolean Try Dim str As String, fn As Integer, i As Integer, ftp As String = "" Dim vl If id = 1 Then fn = UBound(tblStruct) str = "Insert Into " & wktbl & " (", 說明 : 設定 Insert Into 指令 For i = 0 To fn, 說明 : 此迴圈用於組合欄名 ftp = tblstruct(i).fldtype If tblstruct(i).fldencrypt = False Then If ftp <> "Stamp" And ftp <> "BLOB" And ftp <> "Binary" Then str = str & tblstruct(i).fldname & "," str = str & tblstruct(i).fldname & "," Next If Mid(str, Len(str), 1) = "," Then str = (Mid(str, 1, Len(str) - 1)) str = str &") Values (" For i = 0 To fn 說明 : 此迴圈用於取出欄值, 並依型態別來組合成 SQL 指令 ftp = tblstruct(i).fldtype If tblstruct(i).fldencrypt = False Then If ftp <> "Stamp" And ftp <> "Binary" And ftp <> "BLOB" Then str = str & tblstruct(i).fldvalue & "," 16

17 If tblenckey1 <> "" Then vl = tblstruct(i).fldvalue vl = SysEncrypt & "(" & vl & ",'" & tblenckey1 & "')" str = str & vl &"," str = str & tblstruct(i).fldvalue & "," Next If Mid(str, Len(str), 1) = "," Then str = (Mid(str, 1, Len(str) - 1)) str = str &")" 說明 : 以下為子表程序 fn = UBound(tblStruct2) str = "Insert Into " & wktbl2 & " (" For i = 0 To fn ftp = tblstruct2(i).fldtype If tblstruct2(i).fldencrypt = False Then If ftp <> "Stamp" And ftp <> "Binary" And ftp <> "BLOB" Then str = str & tblstruct2(i).fldname & "," str = str & tblstruct2(i).fldname & "," Next If Mid(str, Len(str), 1) = "," Then str = (Mid(str, 1, Len(str) - 1)) str = str &") Values (" For i = 0 To fn ftp = tblstruct2(i).fldtype If tblstruct2(i).fldencrypt = False Then If ftp <> "Stamp" And ftp <> "Binary" And ftp <> "BLOB" Then str = str & tblstruct2(i).fldvalue & "," If tblenckey2 <> "" Then vl = tblstruct2(i).fldvalue vl = SysEncrypt &"("& vl &",'"& tblenckey2 &"')" 17

18 str = str & vl &"," str = str & tblstruct2(i).fldvalue & "," Next If Mid(str, Len(str), 1) = "," Then str = (Mid(str, 1, Len(str) - 1)) str = str &")" If id = 1 Then If LockTable(wkTBL, "Write") = False Then Return False Exit Function If LockTable(wkTBL2, "Write") = False Then Return False Exit Function mycmd = New OdbcCommand(str, mycon) mycmd.executenonquery() Call UnlockTable() Return True Catch ex As Exception MsgBox(ex.Message) Return False End Try End Function 18

19 7.13 UpdateNewRecord( 更新紀錄 ) 用途 : 更新紀錄說明 : 更新紀錄表單修改之資料可先存放在公用資料表結構體變數 tblstruct /tblstruct2 內, 然後叫用此函數將資料存入資料庫引數 id 值 1 表主資料表 ( 使用公用變數 wktbl), 值 2 表子表 ( 使用公用變數 wktbl2) 引數 kv1 表第一過濾條件,kv2 表第二過濾條件回傳結果 : 布林值 Public Function UpdateNewRecord(ByVal id As Integer, ByVal kv1 As String, ByVal kv2 As String) As Boolean Try Dim str As String, fn As Integer, i As Integer, ftp As String = "" Dim vl If id = 1 Then fn = UBound(tblStruct) str = "Update " & wktbl & " Set " 說明 : 設定 Update 指令 For i = 0 To fn 說明 : 此迴圈用於取出欄值, 並依型態別來組合成 SQL 指令 ftp = tblstruct(i).fldtype vl = tblstruct(i).fldvalue If tblstruct(i).fldencrypt = False Then If ftp <> "Stamp" And ftp <> "BLOB" And ftp <> "Binary" Then str = str & tblstruct(i).fldname & "=" & vl & "," If tblenckey1 <> "" Then vl = SysEncrypt & "(" & vl & ",'" & tblenckey1 & "')" str = str & tblstruct(i).fldname & "=" & vl & "," str = str & tblstruct(i).fldname & "=" & vl & "," Next If Mid(str, Len(str), 1) = "," Then str = (Mid(str, 1, Len(str) - 1)) If keyfield1 <> "" Then 19

20 str = str &" Where "& kv1 If keyfield2 <> "" Then str = str & " And " & kv2 說明 :keyfield1 和 keyfield2 為公用變數, 表主資料表之鍵值欄說明 : 以下為子表程序 fn = UBound(tblStruct2) str = "Update " & wktbl2 & " Set " For i = 0 To fn ftp = tblstruct2(i).fldtype vl = tblstruct2(i).fldvalue If tblstruct2(i).fldencrypt = False Then If ftp <> "Stamp" And ftp <> "BLOB" And ftp <> "Binary" Then str = str & tblstruct2(i).fldname & "=" & vl & "," If tblenckey2 <> "" Then vl = SysEncrypt & "(" & vl & ",'" & tblenckey2 & "')" str = str & tblstruct2(i).fldname & "=" & vl & "," str = str & tblstruct2(i).fldnam & "=" & vl & "," Next If Mid(str, Len(str), 1) = "," Then str = (Mid(str, 1, Len(str) - 1)) If ckeyfield1 <> "" Then str = str &" Where "& kv1 If ckeyfield2 <> "" Then str = str & " And " & kv2 說明 :ckeyfield1 和 ckeyfield2 為公用變數, 表子資料表之鍵值欄 If id = 1 Then If LockTable(wkTBL, "Write") = False Then Return False Exit Function 20

21 If LockTable(wkTBL2, "Write") = False Then 說明 : 上鎖失敗則直接返回 Return False Exit Function 說明 : 執行新增或更新 SQL 指令 mycmd = New OdbcCommand(str, mycon) mycmd.executenonquery() 說明 : 資料表解鎖 Call UnlockTable() Return True Catch ex As Exception MsgBox(ex.Message) Return False End Try End Function 21

22 7.14 DeleteKeyValue( 刪除紀錄 ) 用途 : 依指定鍵值刪除紀錄說明 : 傳入資料表和過濾條件兩個引數回傳結果 : 布林值 Public Function DeleteKeyValue(ByVal stbl As String, ByVal srtkey As String) As Boolean If srtkey Is Nothing Then Return False Exit Function Try If LockTable(sTbl, "Write") = False Then 說明 : 上鎖失敗則直接返回 Return False Exit Function Dim str As String str = "Delete From " & stbl & " Where " & srtkey 說明 : 設定 Delete SQL 指令 mycmd = New OdbcCommand(str, mycon) mycmd.executenonquery() 說明 : 資料表解鎖 Call UnlockTable() Return True Catch ex As Exception MsgBox(ex.Message) Return False End Try End Function 22

23 7.15 GetTableStructure( 取得資料表結構 ) 用途 : 設定資料表結構體變數內容 Public Sub gettablestructure(byval strtbl As String, ByVal id As Integer) Try '*** id=0 不設 Primary Field, 1 : 主鍵, 2 : 子鍵 Dim strsql As String, str As String, fl As Integer, sl As Integer, ml As Integer, ei As Integer Dim i As Integer = 0, fln As Integer Dim key1 As String, key2 As String Dim tblstr() As TableStruct Dim tblreader As OdbcDataReader Dim envl() Dim ln As Integer If strtbl = "" Then Exit Sub strsql = "Describe " & strtbl & ";" mycmd = New OdbcCommand(strSQL, mycon) tblreader = mycmd.executereader 說明 : 重設變數值 key1 = "" key2 = "" If id = 1 Then keyfield1 = "" keyfield2 = "" tblenckey1 = "" wktbl = strtbl If id = 2 Then ckeyfield1 = "" ckeyfield2 = "" tblenckey2 = "" wktbl2 = strtbl 說明 : 逐筆讀取介面設定值並轉入結構體變數 While tblreader.read 23

24 ReDim Preserve tblstr(i) tblstr(i).fldname = tblreader.item(0).tostring tblstr(i).fldtitle = tblstr(i).fldname tblstr(i).fldlength = 10 tblstr(i).fldnull = True tblstr(i).fldprimary = False tblstr(i).flddefault = "" tblstr(i).fldenum = "" str = LCase(tblReader.Item(1).ToString) ln = 0 說明 : 以下程式依欄位型態來設值 If InStr(str, "int") > 0 Then tblstr(i).fldtype = "Numeric" If InStr(str, "decimal") > 0 Then tblstr(i).fldtype = "Numeric" ln = 2 If InStr(str, "float") > 0 Then tblstr(i).fldtype = "Numeric" ln = 2 If InStr(str, "double") > 0 Then tblstr(i).fldtype = "Numeric" ln = 2 If InStr(str, "real") > 0 Then tblstr(i).fldtype = "Numeric" ln = 2 If InStr(str, "tinyint(1)") > 0 Then tblstr(i).fldtype = "Boolean" If InStr(str, "char") > 0 Or InStr(str, "var") > 0 Then If InStr(str, "varbinary") > 0 Then tblstr(i).fldtype = "Binary" tblstr(i).fldtype = "String" fl = 0 24

25 sl = 0 If InStr(str, "(") > 0 Then fl = InStr(str, "(") sl = InStr(str, ")") tblstr(i).fldlength = Val(Mid(str, fl + 1, (sl - fl - 1))) + ln If InStr(str, "enum") > 0 Then tblstr(i).fldtype = "Enum" tblstr(i).fldlength = 10 fl = InStr(str, "(") sl = InStr(str, ")") tblstr(i).fldenum = Mid(str, fl + 1, sl - fl - 1) envl = Split(tblSTR(i).fldEnum, ",") ml = 0 For ei = 0 To UBound(enVL) If LenUstr(enVL(ei)) > ml Then ml = LenUstr(enVL(ei)) Next tblstr(i).fldlength = ml If InStr(str, "date") > 0 Then tblstr(i).fldtype = "Date" If InStr(str, "timestamp") > 0 Then tblstr(i).fldtype = "Stamp" tblstr(i).fldlength = 24 If InStr(str, "text") > 0 Then tblstr(i).fldtype = "Text" If InStr(str, "blob") > 0 Then tblstr(i).fldtype = "Blob" str = tblreader.item(2).tostring If str = "No" Then tblstr(i).fldnull = False str = tblreader.item(3).tostring 說明 : 檢查是否為主鍵欄 If InStr(str, "PRI") > 0 Then tblstr(i).fldprimary = True If key1 = "" Then 25

26 key1 = tblstr(i).fldname If key2 = "" Then key2 = tblstr(i).fldname If tblstr(i).fldtype = "Stamp" Or tblstr(i).fldtype = "Date" Then tblstr(i).flddefault = "" tblstr(i).flddefault = tblreader.item(4).tostring If id = 1 Then ReDim Preserve tblstruct(i) tblstruct(i) = tblstr(i) ReDim Preserve tblstruct2(i) tblstruct2(i) = tblstr(i) i = i + 1 End While tblreader.close() fln = i - 1 If id = 1 Then keyfield1 = key1 keyfield2 = key2 If id = 2 Then ckeyfield1 = key1 ckeyfield2 = key2 If ismytable(wdb, "TableDef") = True Then Call gettabledef(strtbl), 說明 : 取得中文介面屬性 If Not tbldef Is Nothing Then EncTBL1 = False If id = 1 Then 26

27 For i = 0 To UBound(tblStruct) For id = 0 To UBound(tblDEF) If tbldef(id).fldname = tblstruct(i).fldname Then If tbldef(id).fldtitle <> "" Then tblstruct(i).fldtitle = tbldef(id).fldtitle, 說明 : 欄位抬頭 If tbldef(id).flddefault <> "" Then tblstruct(i).flddefault = tbldef(id).flddefault, 說明 : 介面預設值 tblstruct(i).fldimemode =tbldef(id).fldimemode, 說明 : 輸入法 If tbldef(id).fldencrypt = True Then EncTBL1 = True 說明 : 檢查是否需要加密 tblstruct(i).tblsource = tbldef(id).tblsource, 說明 : 參考資料表 tblstruct(i).fldsource = tbldef(id).fldsource, 說明 : 參考欄位 Exit For Next Next 說明 : 以下程序用於設定子表介面屬性 EncTBL2 = False For i = 0 To UBound(tblStruct2) For id = 0 To UBound(tblDEF) If tbldef(id).fldname = tblstruct2(i).fldname Then If tbldef(id).fldtitle <> "" Then tblstruct2(i).fldtitle = tbldef(id).fldtitle If tbldef(id).flddefault <> "" Then tblstruct2(i).flddefault = tbldef(id).flddefault tblstruct2(i).fldimemode = tbldef(id).fldimemode If tbldef(id).fldencrypt = True Then EncTBL2 = True tblstruct2(i).tblsource = tbldef(id).tblsource tblstruct2(i).fldsource = tbldef(id).fldsource Exit For Next Next 27

28 Catch ex As Exception MsgBox(ex.Message) End Try End Sub 28

29 課後習題 1. 公用副程式之主要用途為何? 2. 如何搜尋指定鍵值之紀錄? 詳述程式設計要領 3. 詳述系統內變數傳遞的方法 4. 何謂傳值法? 何謂傳參考法? 有何異同處? 5. 如何宣告一個結構體變數? 回目錄 29

投影片 1

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