GA-ERP-SYS-LEEHSIEHJUI/GA-ERP-SYS/Module/SQL_資料庫系統管理.vb

Module SQL_資料庫系統管理
    Friend Sub SQL_版本號管理修改()
        SQL1 = "UPDATE 版本號管理 SET 系統認證版本號 = N'" & 系統執行檔版本管理.版本號_tb.Text & "', 小更新1 = N'" & 系統執行檔版本管理.小更1.Text & "', 
                                      小更新2 = N'" & 系統執行檔版本管理.小更2.Text & "', 小更新3 = N'" & 系統執行檔版本管理.小更3.Text & "', 
                                      小更新4 = N'" & 系統執行檔版本管理.小更4.Text & "', 小更新5 = N'" & 系統執行檔版本管理.小更5.Text & "', 
                                      Auto = '" & 系統執行檔版本管理.Auto_ch.Checked & "', Verify = '" & 系統執行檔版本管理.Verify_ch.Checked & "' 
                WHERE (系統認證版本號 = N'" & Strings.Right(系統執行檔版本管理.資料庫版本號_lb.Text, 10) & "')"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    '------------------------------------FTP資料夾管理----------------------------------------------
    Friend Sub SQL_FTP資料夾管理新增()
        SQL1 = "INSERT INTO FTP資料夾管理 (資料夾名稱, 指定頁面, 備註, 指定) 
                VALUES (N'" & FTP資料夾管理.資料夾名稱_tb.Text & "',N'" & FTP資料夾管理.指定頁面_tb.Text & "',N'" & FTP資料夾管理.備註_tb.Text & "',N'" & FTP資料夾管理.指定_tb.Text & "')"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    Friend Sub SQL_FTP資料夾管理修改()
        SQL1 = "UPDATE FTP資料夾管理 SET 指定頁面 = N'" & FTP資料夾管理.指定頁面_tb.Text & "', 備註 = N'" & FTP資料夾管理.備註_tb.Text & "', 指定 = N'" & FTP資料夾管理.指定_tb.Text & "' 
                WHERE (資料夾名稱 = N'" & FTP資料夾管理.資料夾名稱_tb.Text & "')"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    Friend Sub SQL_FTP資料夾管理刪除()
        SQL1 = "DELETE FROM FTP資料夾管理 WHERE (資料夾名稱 = N'" & FTP資料夾管理.資料夾名稱_tb.Text & "')"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    '---------------------系統使用者管理------------------------------------------------------------
    Friend Sub SQL_判斷是否已經通知()
        ConnOpen() : SQL1 = "SELECT  發訊日期  FROM  到期LINE通知 WHERE 發訊日期 LIKE N'" & Strings.Format(Today(), "yyyy/MM/dd") & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_到期LINE通知寫入()
        ConnOpen() : SQL1 = "INSERT INTO  到期LINE通知 (發訊日期) VALUES (N'" & Strings.Format(Today(), "yyyy/MM/dd") & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫顯示()
        ConnOpen()
        SQL1 = "SELECT 資料庫 FROM 客戶資料表 WHERE 客戶 LIKE N'" & 系統使用者管理.主客戶_cb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者管理清單()
        ConnOpen()
        SQL1 = "SELECT " & 登入權限 & ", 舊版 FROM 使用者權限管理表 ORDER BY 姓名 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統使用者管理清單1()
        ConnOpen_備用()
        SQL1 = "SELECT " & 登入權限 & " FROM 使用者權限管理表 ORDER BY 姓名 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統使用者密碼顯示()
        ConnOpen()
        SQL1 = "SELECT 密碼 FROM 使用者權限管理表 WHERE 帳號 LIKE N'" & 系統使用者管理.帳號_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者新增()
        SQL1 = "INSERT INTO 使用者權限管理表 (" & 登入權限 & ") " &
               "VALUES (N'" & 系統使用者管理.姓名_tb.Text & "', N'" & 系統使用者管理.帳號_tb.Text & "', N'" & 系統使用者管理.密碼_tb.Text & "', '', N'" & 系統使用者管理.主客戶_cb.Text & "', 
                        N'" & 系統使用者管理.到期日_dtp.Text & "', N'" & 系統使用者管理.備註_tb.Text & "', N'" & 系統使用者管理.登入_tb.Text & "', 
                        N'" & 系統使用者管理.CheckBox1.Checked & "', N'" & 系統使用者管理.CheckBox2.Checked & "', N'" & 系統使用者管理.CheckBox3.Checked & "',
                        N'" & 系統使用者管理.CheckBox4.Checked & "', N'" & 系統使用者管理.CheckBox5.Checked & "', N'" & 系統使用者管理.CheckBox6.Checked & "',
                        N'" & 系統使用者管理.CheckBox7.Checked & "', N'" & 系統使用者管理.CheckBox8.Checked & "', N'" & 系統使用者管理.CheckBox9.Checked & "', 
                        N'" & 系統使用者管理.CheckBox10.Checked & "', N'" & 系統使用者管理.CheckBox11.Checked & "', N'" & 系統使用者管理.CheckBox12.Checked & "', 
                        N'" & 系統使用者管理.CheckBox13.Checked & "', N'" & 系統使用者管理.CheckBox14.Checked & "', N'" & 系統使用者管理.CheckBox15.Checked & "', 
                        N'" & 系統使用者管理.CheckBox16.Checked & "', N'" & 系統使用者管理.CheckBox17.Checked & "', N'" & 系統使用者管理.CheckBox18.Checked & "', 
                        N'" & 系統使用者管理.CheckBox19.Checked & "', N'" & 系統使用者管理.CheckBox20.Checked & "', N'" & 系統使用者管理.CheckBox21.Checked & "', 
                        N'" & 系統使用者管理.CheckBox22.Checked & "', N'" & 系統使用者管理.CheckBox23.Checked & "', N'" & 系統使用者管理.CheckBox24.Checked & "', 
                        N'" & 系統使用者管理.CheckBox25.Checked & "', N'" & 系統使用者管理.CheckBox26.Checked & "', N'" & 系統使用者管理.CheckBox27.Checked & "', 
                        N'" & 系統使用者管理.CheckBox28.Checked & "', N'" & 系統使用者管理.CheckBox29.Checked & "', N'" & 系統使用者管理.CheckBox30.Checked & "', 
                        N'" & 系統使用者管理.CheckBox31.Checked & "', N'" & 系統使用者管理.CheckBox32.Checked & "', N'" & 系統使用者管理.CheckBox33.Checked & "', 
                        N'" & 系統使用者管理.CheckBox34.Checked & "', N'" & 系統使用者管理.CheckBox35.Checked & "', N'" & 系統使用者管理.CheckBox36.Checked & "', 
                        N'" & 系統使用者管理.CheckBox37.Checked & "', N'" & 系統使用者管理.CheckBox38.Checked & "', N'" & 系統使用者管理.CheckBox39.Checked & "', 
                        N'" & 系統使用者管理.CheckBox40.Checked & "', N'" & 系統使用者管理.CheckBox41.Checked & "', N'" & 系統使用者管理.CheckBox42.Checked & "', 
                        N'" & 系統使用者管理.CheckBox43.Checked & "')"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    Friend Sub SQL_系統使用者修改()
        SQL1 = "UPDATE 使用者權限管理表 SET 姓名 = N'" & 系統使用者管理.姓名_tb.Text & "', 密碼 = N'" & 系統使用者管理.密碼_tb.Text & "', 
                                            到期日 = N'" & 系統使用者管理.到期日_dtp.Text & "', 主客戶 = N'" & 系統使用者管理.主客戶_cb.Text & "', 
                                            備註 = N'" & 系統使用者管理.備註_tb.Text & "',
                                            CC01 = N'" & 系統使用者管理.CheckBox1.Checked & "', CC02 = N'" & 系統使用者管理.CheckBox2.Checked & "', 
                                            CC03 = N'" & 系統使用者管理.CheckBox3.Checked & "', CC04 = N'" & 系統使用者管理.CheckBox4.Checked & "', 
                                            CC05 = N'" & 系統使用者管理.CheckBox5.Checked & "', CC06 = N'" & 系統使用者管理.CheckBox6.Checked & "', 
                                            CC07 = N'" & 系統使用者管理.CheckBox7.Checked & "', CC08 = N'" & 系統使用者管理.CheckBox8.Checked & "', 
                                            CC09 = N'" & 系統使用者管理.CheckBox9.Checked & "', CC10 = N'" & 系統使用者管理.CheckBox10.Checked & "', 
                                            CC11 = N'" & 系統使用者管理.CheckBox11.Checked & "', CC12 = N'" & 系統使用者管理.CheckBox12.Checked & "', 
                                            CC13 = N'" & 系統使用者管理.CheckBox13.Checked & "', CC14 = N'" & 系統使用者管理.CheckBox14.Checked & "', 
                                            CC15 = N'" & 系統使用者管理.CheckBox15.Checked & "', CC16 = N'" & 系統使用者管理.CheckBox16.Checked & "', 
                                            CC17 = N'" & 系統使用者管理.CheckBox17.Checked & "', CC18 = N'" & 系統使用者管理.CheckBox18.Checked & "', 
                                            CC19 = N'" & 系統使用者管理.CheckBox19.Checked & "', CC20 = N'" & 系統使用者管理.CheckBox20.Checked & "', 
                                            CC21 = N'" & 系統使用者管理.CheckBox21.Checked & "', CC22 = N'" & 系統使用者管理.CheckBox22.Checked & "', 
                                            CC23 = N'" & 系統使用者管理.CheckBox23.Checked & "', CC24 = N'" & 系統使用者管理.CheckBox24.Checked & "', 
                                            CC25 = N'" & 系統使用者管理.CheckBox25.Checked & "', CC26 = N'" & 系統使用者管理.CheckBox26.Checked & "', 
                                            CC27 = N'" & 系統使用者管理.CheckBox27.Checked & "', CC28 = N'" & 系統使用者管理.CheckBox28.Checked & "', 
                                            CC29 = N'" & 系統使用者管理.CheckBox29.Checked & "', CC30 = N'" & 系統使用者管理.CheckBox30.Checked & "', 
                                            CC31 = N'" & 系統使用者管理.CheckBox31.Checked & "', CC32 = N'" & 系統使用者管理.CheckBox32.Checked & "', 
                                            CC33 = N'" & 系統使用者管理.CheckBox33.Checked & "', CC34 = N'" & 系統使用者管理.CheckBox34.Checked & "', 
                                            CC35 = N'" & 系統使用者管理.CheckBox35.Checked & "', CC36 = N'" & 系統使用者管理.CheckBox36.Checked & "', 
                                            CC37 = N'" & 系統使用者管理.CheckBox37.Checked & "', CC38 = N'" & 系統使用者管理.CheckBox38.Checked & "', 
                                            CC39 = N'" & 系統使用者管理.CheckBox39.Checked & "', CC40 = N'" & 系統使用者管理.CheckBox40.Checked & "', 
                                            CC41 = N'" & 系統使用者管理.CheckBox41.Checked & "', CC42 = N'" & 系統使用者管理.CheckBox42.Checked & "', 
                                            CC43 = N'" & 系統使用者管理.CheckBox43.Checked & "', 舊版 = N'" & 系統使用者管理.舊版_ch.Checked & "'
                WHERE (帳號 = N'" & 系統使用者管理.帳號_tb.Text & "')"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    Friend Sub SQL_系統使用者刪除()
        SQL1 = "DELETE FROM 使用者權限管理表 WHERE (帳號 = N'" & 系統使用者管理.帳號_tb.Text & "')"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    Friend Sub SQL_下拉式清單讀取()
        ConnOpen()
        SQL1 = "SELECT 客戶 FROM 客戶資料表 ORDER BY 客戶 DESC" : CmdSet_For_dr()
    End Sub
    '--------------系統編碼規則----------------------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_LOG多餘資料刪除()
        ConnOpen_LOGSQL() : SQL1 = "DELETE [LOG] WHERE (狀態 LIKE N'查詢期間無資料')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫客戶數量()
        ConnOpen_子SQL() : SQL1 = "SELECT COUNT(帳號) AS 執行數量 FROM 商客基本資料表" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫計算數量()
        ConnOpen_子SQL() : SQL1 = "SELECT COUNT(帳號) AS 執行數量 FROM 下行客戶" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LOG子資料表()
        ConnOpen_子SQL()
        SQL1 = "SELECT  客戶, 查詢區間, 網址, 狀態, 查詢時間
                FROM    [LOG]
                WHERE  (狀態 LIKE N'無法取得資料')"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LOG主資料表()
        ConnOpen_LOGSQL()
        SQL1 = "SELECT [LOG].客戶 AS 項, [LOG].客戶, [LOG].查詢區間, [LOG].網址, [LOG].狀態, [LOG].查詢時間, 選擇按鈕.按鈕 AS 比對
                FROM [LOG] LEFT OUTER JOIN 選擇按鈕 ON [LOG].客戶 = 選擇按鈕.選擇"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_LOG主資料表刪除1()
        ConnOpen_LOGSQL() : SQL1 = "DELETE [LOG] WHERE 查詢區間 = N'" & PA1 & "' AND 網址 = N'" & PA2 & "' AND 客戶 = N'" & PA3 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LOG主資料表刪除2()
        ConnOpen_LOGSQL() : SQL1 = "DELETE [LOG] WHERE 客戶 = N'" & 系統編碼規則.客戶名_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LOG主資料表刪除3()
        ConnOpen_子SQL() : SQL1 = "DELETE [LOG]" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_LOG資料庫修改()
        SQL1 = "UPDATE LOGDB SET 資料庫 = N'" & 系統編碼規則.LOG資料庫_tb.Text & "', IP位置 = N'" & 系統編碼規則.IP_tb.Text & "', 
                                   帳號 = N'" & 系統編碼規則.帳號_tb.Text & "', 密碼 = N'" & 系統編碼規則.密碼_tb.Text & "'"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    Friend Sub SQL_LOG資料庫讀取()
        ConnOpen() : SQL1 = "SELECT 資料庫, IP位置, 帳號, 密碼 FROM LOGDB" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_客戶資料表()
        ConnOpen()
        SQL1 = "SELECT     使用者權限管理表.備註 AS 客戶名稱, 使用者權限管理表.姓名 AS 客戶代號, 使用者權限管理表.帳號 AS 使用者帳號, 
                           使用者權限管理表.到期日, 客戶資料表.客戶, 客戶資料表.資料庫, 客戶資料表.IP位置, 客戶資料表.帳號, 
                           客戶資料表.密碼, 客戶資料表.備份, 客戶資料表.備份IP, 客戶資料表.備份帳號, 
                           客戶資料表.密碼密碼 AS 備份密碼, 客戶資料表.國外
                FROM       客戶資料表 LEFT OUTER JOIN
                           使用者權限管理表 ON 客戶資料表.客戶 = 使用者權限管理表.主客戶
                ORDER BY   客戶資料表.資料庫 DESC"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統編碼規則_客戶重複查詢()
        SQL1 = "SELECT 客戶 FROM 客戶資料表 WHERE 客戶 LIKE N'" & PA & "'"
    End Sub
    Friend Sub SQL_系統編碼規則_客戶新增()
        SQL1 = "INSERT INTO 客戶資料表 (客戶, 資料庫, IP位置, 帳號, 密碼, 備份, 備份IP, 備份帳號, 密碼密碼) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
    End Sub
    Friend Sub SQL_系統編碼規則_客戶新增1()
        SQL1 = "INSERT INTO 客戶資料表 (客戶, 資料庫, IP位置, 帳號, 密碼, 備份, 備份IP, 備份帳號, 密碼密碼) 
                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', '" & 系統編碼規則.備份_cb.Checked & "', '" & 系統編碼規則.IP3_tb.Text & "', 
                         '" & 系統編碼規則.帳號3_tb.Text & "', '" & 系統編碼規則.密碼3_tb.Text & "')"
    End Sub
    Friend Sub SQL_系統編碼規則_客戶修改()
        SQL1 = "UPDATE 客戶資料表 SET 客戶 = N'" & PA & "', 資料庫 = N'" & PA1 & "', IP位置 = N'" & PA4 & "', 帳號 = N'" & PA5 & "', 密碼 = N'" & PA6 & "', 備份 = '" & BL1 & "', 
                                      備份IP = N'" & PA7 & "', 備份帳號 = N'" & PA8 & "', 密碼密碼 = N'" & PA9 & "',  國外 = '" & BL2 & "'
                WHERE 資料庫 LIKE N'" & PA3 & "'"
    End Sub
    Friend Sub SQL_系統編碼規則_客戶刪除()
        SQL1 = "DELETE FROM 客戶資料表 WHERE (客戶 = N'" & PA2 & "' AND 資料庫 LIKE N'" & PA3 & "')"
    End Sub
    Friend Sub SQL_系統編碼規則_只修改IP()
        SQL1 = "UPDATE 客戶資料表 SET IP位置 = N'" & PA4 & "' WHERE 資料庫 LIKE N'" & PA3 & "'"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
        If IP印尼 = False And IP台灣 = False Then : MsgBox("網路異常，雙線路都不通!!") : 關閉系統 = True : End If
    End Sub
    '------------------------------------個人帳號管理----------------------------------------------
    Friend Sub SQL_公告修改()
        SQL1 = "UPDATE 使用者權限管理表 SET CC40 = '0' WHERE (姓名 = '" & gUserName & "')"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    Friend Sub SQL_公告開啟()
        SQL1 = "UPDATE 使用者權限管理表 SET CC40 = '1'"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    Friend Sub SQL_個人帳號管理讀取()
        ConnOpen()
        SQL1 = "SELECT 姓名, 帳號, 密碼 FROM 使用者權限管理表 WHERE (姓名 = '" & gUserName & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_個人帳號修改()
        SQL1 = "UPDATE 使用者權限管理表 SET 帳號 = '" & 個人帳號管理.TextBox2.Text & "', 密碼 = '" & 個人帳號管理.TextBox3.Text & "' WHERE (姓名 = '" & 個人帳號管理.TextBox1.Text & "')"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    Friend Sub SQL_使用者下拉清單()
        ConnOpen()
        SQL1 = "SELECT 姓名, 帳號 FROM 使用者權限管理表 ORDER BY 姓名" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_綁定清單()
        ConnOpen()
        SQL1 = "SELECT    系統綁定電腦資訊.MAC碼 AS 簽章, 系統綁定電腦資訊.硬碟序列 AS 序列號, 系統綁定電腦資訊.磁盘型態,
                          系統綁定電腦資訊.硬碟ID AS 磁碟大小, 系統綁定電腦資訊.客戶, 使用者權限管理表.姓名, 
                          使用者權限管理表.ID卡號, 使用者權限管理表.主客戶
               FROM       系統綁定電腦資訊 INNER JOIN
                          使用者權限管理表 ON 系統綁定電腦資訊.客戶 = 使用者權限管理表.帳號
               ORDER BY   系統綁定電腦資訊.客戶"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_驗證是否綁定()
        ConnOpen()
        SQL1 = "SELECT 客戶 FROM 系統綁定電腦資訊 
                WHERE MAC碼 LIKE N'" & PA10 & "' AND 硬碟序列 LIKE N'" & PA11 & "' AND 磁盘型態 LIKE N'" & PA12 & "' AND 硬碟ID LIKE N'" & PA13 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_USB綁定()
        SQL1 = "INSERT INTO 系統綁定電腦資訊 (MAC碼, 硬碟序列, 磁盘型態, 硬碟ID, 客戶) VALUES (N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', N'" & PA14 & "')"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    '------------------------------------網址整合功能----------------------------------------------
    Friend Sub SQL_有用網址呈現()
        ConnOpen_備份1()
        SQL1 = "SELECT    商品資料表.商品, 商品資料表.系統, 商品資料表.層級, 商品資料表.網址, 商品資料表.備用網址
               FROM       商品資料表 INNER JOIN
                         (SELECT      網址
                          FROM        流水帳
                          WHERE      (開始日期 LIKE '" & PA & "') AND (結束日期 LIKE '" & PA1 & "')
                          GROUP BY    網址) AS QQQ ON 商品資料表.網址 = QQQ.網址
               ORDER BY   商品資料表.系統, 商品資料表.商品, 商品資料表.層級"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_商品資料表_網址整合功能()
        ConnOpen_備份1()
        SQL1 = "SELECT     商品資料表.商品, 商品資料表.編號, 商品資料表.系統, 商品資料表.層級, 商品資料表.網址, 商品資料表.備用網址, 
                           商客基本資料表.網址 AS 使用
                FROM       商品資料表 LEFT OUTER JOIN
                           商客基本資料表 ON 商品資料表.商品 = 商客基本資料表.商品 AND 
                           商品資料表.網址 = 商客基本資料表.網址
                WHERE     (商品資料表.系統 LIKE '" & 網址整合功能.系統_cb.Text & "') AND (商品資料表.網址 LIKE N'%" & PA16 & "%')
                GROUP BY   商品資料表.商品, 商品資料表.編號, 商品資料表.系統, 商品資料表.層級, 商品資料表.網址, 
                           商客基本資料表.網址, 商品資料表.備用網址
                ORDER BY   商品資料表.商品, 商品資料表.層級, 商品資料表.編號"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_商品修改_網址整合功能()
        ConnOpen_備份1()
        SQL1 = "UPDATE 商品資料表 SET 系統 = N'" & 網址整合功能.系統_cb.Text & "', 層級 = N'" & 網址整合功能.層級_cb.Text & "', 備用網址 = N'" & 網址整合功能.備用網址_tb.Text & "', 
                                      網址 = N'" & 網址整合功能.網址2_tb.Text & "', 商品 = N'" & 網址整合功能.商品_tb.Text & "'
                WHERE  編號 LIKE N'" & 網址整合功能.編號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_商品修改_網址整合功能_1()
        ConnOpen_備份1()
        SQL1 = "UPDATE 商品資料表 SET 備用網址 = N'" & PA5 & "', 網址 = N'" & PA4 & "' WHERE  系統 = N'" & PA2 & "' AND 層級 = N'" & PA3 & "' AND 商品 = N'" & PA1 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_同步修正網址4_網址整合功能()
        ConnOpen_備份1()
        SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & 網址整合功能.網址2_tb.Text & "', 商品 = N'" & 網址整合功能.商品_tb.Text & "', 驗證 = N'          ', 
                                          備用網址 = N'" & 網址整合功能.備用網址_tb.Text & "'
                WHERE  網址 LIKE N'" & 網址整合功能.網址4_tb.Text & "' AND 商品 LIKE N'" & 網址整合功能.商品1_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_同步修正網址4_網址整合功能_1()
        ConnOpen_備份1()
        SQL1 = "UPDATE 商客基本資料表 SET 網址 = N'" & PA4 & "', 商品 = N'" & PA1 & "', 驗證 = N'          ', 備用網址 = N'" & PA5 & "' WHERE  網址 LIKE N'" & PA6 & "' AND 商品 LIKE N'" & PA1 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_商品流水號查詢_網址整合功能()
        ConnOpen_備份1() : SQL1 = "SELECT 編號 FROM 商品資料表 WHERE (系統 LIKE N'" & PA17 & "') ORDER BY 編號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_商品刪除_網址整合功能()
        ConnOpen_備份1() : SQL1 = "DELETE 商品資料表 WHERE  商品  LIKE N'" & 網址整合功能.商品_tb.Text & "' AND 編號 LIKE N'" & 網址整合功能.編號_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_商品寫入驗證1_網址整合功能()
        ConnOpen_備份1()
        SQL1 = "SELECT 編號 FROM 商品資料表 WHERE 編號 LIKE N'" & 網址整合功能.編號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_商品寫入驗證2_網址整合功能()
        ConnOpen_備份1()
        SQL1 = "SELECT 網址 FROM 商品資料表 WHERE 網址 LIKE N'" & 網址整合功能.網址2_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_商品寫入_網址整合功能()
        ConnOpen_備份1()
        SQL1 = "INSERT INTO 商品資料表 (商品, 編號, 系統, 層級, 網址, 備用網址) 
                VALUES (N'" & 網址整合功能.商品_tb.Text & "', N'" & 網址整合功能.編號_tb.Text & "', N'" & 網址整合功能.系統_cb.Text & "', N'" & 網址整合功能.層級_cb.Text & "', 
                        N'" & 網址整合功能.網址2_tb.Text & "', N'" & 網址整合功能.備用網址_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_同步修正網址1_網址整合功能()
        ConnOpen_備份1() : SQL1 = "UPDATE [LOG] SET 網址 = N'" & 網址整合功能.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 網址整合功能.網址4_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_同步修正網址1_網址整合功能_1()
        ConnOpen_備份1() : SQL1 = "UPDATE [LOG] SET 網址 = N'" & PA4 & "' WHERE 網址 LIKE N'" & PA6 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_同步修正網址2_網址整合功能()
        ConnOpen_備份1() : SQL1 = "UPDATE 下行客戶 SET 網址 = N'" & 網址整合功能.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 網址整合功能.網址4_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_同步修正網址2_網址整合功能_1()
        ConnOpen_備份1() : SQL1 = "UPDATE 下行客戶 SET 網址 = N'" & PA4 & "' WHERE 網址 LIKE N'" & PA6 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_同步修正網址3_網址整合功能()
        ConnOpen_備份1() : SQL1 = "UPDATE 流水帳 SET 網址 = N'" & 網址整合功能.網址2_tb.Text & "' WHERE 網址 LIKE N'" & 網址整合功能.網址4_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_同步修正網址3_網址整合功能_1()
        ConnOpen_備份1() : SQL1 = "UPDATE 流水帳 SET 網址 = N'" & PA4 & "' WHERE 網址 LIKE N'" & PA6 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_中繼網址()
        ConnOpen_LOGSQL() : SQL1 = "SELECT  商品, 系統, 層級, 網址, 備用網址, 資料源 FROM  網址中繼  ORDER BY  系統, 商品, 層級" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_中繼網址清空()
        ConnOpen_LOGSQL() : SQL1 = "DELETE FROM  網址中繼" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_中繼網址查詢()
        ConnOpen_LOGSQL()
        SQL1 = "SELECT  資料源 FROM  網址中繼 WHERE 商品 LIKE '" & PA1 & "' AND 系統 LIKE '" & PA2 & "' AND 層級 LIKE '" & PA3 & "' AND 網址 LIKE '" & PA4 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_中繼網址寫入()
        ConnOpen_LOGSQL()
        SQL1 = "INSERT INTO 網址中繼 (商品, 系統, 層級, 網址, 備用網址, 資料源) VALUES (N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_中繼網址修改()
        ConnOpen_LOGSQL()
        SQL1 = "UPDATE 網址中繼 SET 網址 = N'" & 網址整合功能.網址5_tb.Text & "', 備用網址 = N'" & 網址整合功能.備用網址2_tb.Text & "' 
                 WHERE 商品 LIKE '" & 網址整合功能.商品0_tb.Text & "' AND 系統 LIKE '" & 網址整合功能.系統0_cb.Text & "' AND 
                       層級 LIKE '" & 網址整合功能.層級0_cb.Text & "' AND 資料源 LIKE '" & 網址整合功能.資料源0_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_中繼網址清空_單筆()
        ConnOpen_LOGSQL()
        SQL1 = "DELETE FROM  網址中繼 
                WHERE 商品 LIKE '" & 網址整合功能.商品0_tb.Text & "' AND 系統 LIKE '" & 網址整合功能.系統0_cb.Text & "' AND 
                      層級 LIKE '" & 網址整合功能.層級0_cb.Text & "' AND 資料源 LIKE '" & 網址整合功能.資料源0_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_總網址確認_網址整合功能()
        ConnOpen()
        SQL1 = "SELECT 商品, 編號, 系統, 層級, 網址, 備用網址 FROM 商品資料總表 WHERE 商品 LIKE '" & PA1 & "' AND 系統 LIKE '" & PA2 & "' AND 層級 LIKE '" & PA3 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_總網址修改_網址整合功能()
        SQL1 = "UPDATE 商品資料總表 SET 網址 = N'" & PA4 & "', 備用網址 = N'" & PA5 & "' WHERE 商品 LIKE '" & PA1 & "' AND 系統 LIKE '" & PA2 & "' AND 層級 LIKE '" & PA3 & "'"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    Friend Sub SQL_總網址新增_網址整合功能()
        SQL1 = "INSERT INTO 商品資料總表 (商品, 系統, 編號, 層級, 網址, 備用網址) VALUES (N'" & PA1 & "', N'" & PA2 & "', '', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "')"
        If IP印尼 = True Then : ConnOpen() : CmdSet_For_dr() : End If
        If IP台灣 = True Then : ConnOpen_備用() : CmdSet_For_dr() : End If
    End Sub
    Friend Sub SQL_總個人址確認_網址整合功能()
        ConnOpen_備份1() : SQL1 = "SELECT 網址 FROM 商品資料表 WHERE 商品 LIKE '" & PA1 & "' AND 系統 LIKE '" & PA2 & "' AND 層級 LIKE '" & PA3 & "'" : CmdSet_For_dr()
    End Sub
    '------------------------------------資料庫轉換----------------------------------------------
    Friend Sub SQL_客戶資料刪除()
        ConnOpen_備份1() : SQL1 = "DELETE FROM 電板紙板流水帳" : CmdSet_For_dr()
        ConnOpen_備份1() : SQL1 = "DELETE FROM 電板紙板" : CmdSet_For_dr()
        ConnOpen_備份1() : SQL1 = "DELETE FROM 電板客戶_所得" : CmdSet_For_dr()
        ConnOpen_備份1() : SQL1 = "DELETE FROM 電板客戶" : CmdSet_For_dr()
        ConnOpen_備份1() : SQL1 = "DELETE FROM 電板股東紅利設定" : CmdSet_For_dr()
        ConnOpen_備份1() : SQL1 = "DELETE FROM 商客基本資料表" : CmdSet_For_dr()
        ConnOpen_備份1() : SQL1 = "DELETE FROM 流水帳" : CmdSet_For_dr()
        ConnOpen_備份1() : SQL1 = "DELETE FROM 自定義帳務彙總" : CmdSet_For_dr()
        ConnOpen_備份1() : SQL1 = "DELETE FROM 下行客戶" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_客戶資料庫()
        ConnOpen()
        SQL1 = "SELECT    客戶資料表.客戶, 客戶資料表.資料庫, 客戶資料表.IP位置, 客戶資料表.帳號, 客戶資料表.密碼, 客戶資料表.備份, 
                          客戶資料表.備份IP, 客戶資料表.備份帳號, 客戶資料表.密碼密碼 AS 備份密碼, 使用者權限管理表.備註 AS 客名
               FROM       客戶資料表 INNER JOIN
                          使用者權限管理表 ON 客戶資料表.客戶 = 使用者權限管理表.主客戶
               ORDER BY   客戶資料表.資料庫"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換1()
        ConnOpen_備份1() : SQL1 = "SELECT 商品, 編號, 系統, 層級, 網址, 備用網址 FROM 商品資料表" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換1_1()
        ConnOpen_備份2() : SQL1 = "SELECT 商品, 編號, 系統, 層級, 網址, 備用網址 FROM 商品資料表" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換1_刪除()
        ConnOpen_備份2() : SQL1 = "DELETE FROM 商品資料表" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換1_新增()
        ConnOpen_備份2()
        SQL1 = "INSERT INTO 商品資料表 (商品, 編號, 系統, 層級, 網址, 備用網址) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換2()
        ConnOpen_備份1() : SQL1 = "SELECT 網址, 帳號, 密碼, 資料, 上繳源, 商品, 上行基數, 下行基數, 驗證, 下一層, 上一層, 備用網址, 主帳號 FROM 商客基本資料表" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換2_1()
        ConnOpen_備份2() : SQL1 = "SELECT 網址, 帳號, 密碼, 資料, 上繳源, 商品, 上行基數, 下行基數, 驗證, 下一層, 上一層, 備用網址, 主帳號 FROM 商客基本資料表" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換2_刪除()
        ConnOpen_備份2() : SQL1 = "DELETE FROM 商客基本資料表" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換2_新增()
        ConnOpen_備份2()
        SQL1 = "INSERT INTO 商客基本資料表 (網址, 帳號, 密碼, 資料, 上繳源, 商品, 上行基數, 下行基數, 驗證, 下一層, 上一層, 備用網址, 主帳號) 
                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', 
                        N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換3()
        ConnOpen_備份1() : SQL1 = "SELECT 客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得, 所得另算, 下層, 水差另算 FROM 下行客戶" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換3_1()
        ConnOpen_備份2() : SQL1 = "SELECT 客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得, 所得另算, 下層, 水差另算 FROM 下行客戶" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換3_刪除()
        ConnOpen_備份2() : SQL1 = "DELETE FROM 下行客戶" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換3_新增()
        ConnOpen_備份2()
        SQL1 = "INSERT INTO 下行客戶 (客戶下, 網址, 帳號, 基數, 流水號, 客名, 計算, 同帳, 所得, 所得另算, 下層, 水差另算) 
                VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', N'" & PA7 & "', 
                        N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "', N'" & PA11 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換4()
        ConnOpen_備份1()
        SQL1 = "SELECT   [index], 開始日期, 結束日期, 網址, 帳戶, 名稱, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 
                         自已總輸贏, 上繳貢獻額, 貢獻額, 貢獻度, 下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 
                         大股東, 總監, 客戶s, 總量s, 中獎s, 輸贏s, 客戶小計s, 代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 
                         個人所得s, 水差s, 下注明細s, 查看對帳s, 貢獻額s, 貢獻度s, 調盤退水s, 調退實佔s, 大總監, 系統商, 隨機碼
                FROM     流水帳 
                WHERE   (開始日期 BETWEEN '2021-05-01' AND '" & 資料備份轉移.日期_dtp.Text & "')
                ORDER BY 結束日期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換4_1()
        ConnOpen_備份2()
        SQL1 = "SELECT   [index], 開始日期, 結束日期, 網址, 帳戶, 名稱, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 
                         自已總輸贏, 上繳貢獻額, 貢獻額, 貢獻度, 下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 
                         大股東, 總監, 客戶s, 總量s, 中獎s, 輸贏s, 客戶小計s, 代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 
                         個人所得s, 水差s, 下注明細s, 查看對帳s, 貢獻額s, 貢獻度s, 調盤退水s, 調退實佔s, 大總監, 系統商, 隨機碼
                FROM     流水帳 
                WHERE   (開始日期 BETWEEN '2021-05-01' AND '" & 資料備份轉移.日期_dtp.Text & "')
                ORDER BY 結束日期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換4_刪除()
        ConnOpen_備份1()
        SQL1 = "DELETE FROM 流水帳 WHERE (開始日期 BETWEEN '2021-05-01' AND '" & 資料備份轉移.日期_dtp.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換5()
        ConnOpen_備份1() : SQL1 = "SELECT 客戶, 付反, 收反, 所反, 水反, 紅反 FROM 電板客戶" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換5_1()
        ConnOpen_備份2() : SQL1 = "SELECT 客戶, 付反, 收反, 所反, 水反, 紅反 FROM 電板客戶" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換5_刪除()
        ConnOpen_備份2() : SQL1 = "DELETE FROM 電板客戶" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換5_新增()
        ConnOpen_備份2()
        SQL1 = "INSERT INTO 電板客戶 ( 客戶, 付反, 收反, 所反, 水反, 紅反) 
                VALUES (N'" & PA & "', N'" & BL1 & "', N'" & BL2 & "', N'" & BL3 & "', N'" & BL4 & "', N'" & BL5 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換6()
        ConnOpen_備份1() : SQL1 = "SELECT 客戶, 商品 FROM 電板紙板" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換6_1()
        ConnOpen_備份2() : SQL1 = "SELECT 客戶, 商品 FROM 電板紙板" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換6_刪除()
        ConnOpen_備份2() : SQL1 = "DELETE FROM 電板紙板" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換6_新增()
        ConnOpen_備份2()
        SQL1 = "INSERT INTO 電板紙板 (客戶, 商品) VALUES (N'" & PA & "', N'" & PA1 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換7()
        ConnOpen_備份1() : SQL1 = "SELECT 所得戶 FROM 電板客戶_所得" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換7_1()
        ConnOpen_備份2() : SQL1 = "SELECT 所得戶 FROM 電板客戶_所得" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換7_刪除()
        ConnOpen_備份2() : SQL1 = "DELETE FROM 電板客戶_所得" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換7_新增()
        ConnOpen_備份2()
        SQL1 = "INSERT INTO 電板客戶_所得 (所得戶) VALUES (N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換8()
        ConnOpen_備份1() : SQL1 = "SELECT 所得戶, 股東, 紅利 FROM 電板股東紅利設定" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換8_1()
        ConnOpen_備份2() : SQL1 = "SELECT 所得戶, 股東, 紅利 FROM 電板股東紅利設定" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換8_刪除()
        ConnOpen_備份2() : SQL1 = "DELETE FROM 電板股東紅利設定" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換8_新增()
        ConnOpen_備份2()
        SQL1 = "INSERT INTO 電板股東紅利設定 (所得戶, 股東, 紅利) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換9()
        ConnOpen_備份1()
        SQL1 = "SELECT 開始日期, 結束日期, 客戶, 商品, 交收金額 FROM 電板紙板流水帳 WHERE (開始日期 BETWEEN '2021-05-01' AND '" & 資料備份轉移.日期_dtp.Text & "') ORDER BY 開始日期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換9_1()
        ConnOpen_備份2()
        SQL1 = "SELECT 開始日期, 結束日期, 客戶, 商品, 交收金額 FROM 電板紙板流水帳 WHERE (開始日期 BETWEEN '2021-05-01' AND '" & 資料備份轉移.日期_dtp.Text & "') ORDER BY 開始日期"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換9_刪除()
        ConnOpen_備份2()
        SQL1 = "DELETE FROM 電板紙板流水帳 WHERE (開始日期 BETWEEN '2021-05-01' AND '" & 資料備份轉移.日期_dtp.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換9_新增()
        ConnOpen_備份2()
        SQL1 = "INSERT INTO 電板紙板流水帳 (開始日期, 結束日期, 客戶, 商品, 交收金額) VALUES (N'" & PA & "', '', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換10_刪除()
        ConnOpen_備份2()
        SQL1 = "DELETE FROM 流水帳 WHERE (開始日期 BETWEEN '2021-05-01' AND '" & 資料備份轉移.日期_dtp.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換10_新增()
        ConnOpen_備份2()
        SQL1 = "INSERT INTO 流水帳 ([index], 開始日期, 結束日期, 網址, 帳戶, 名稱, 總量, 退水, 中獎, 輸贏, 佔成輸贏, 水倍差, 上繳金額, 
                         自已總輸贏, 上繳貢獻額, 貢獻額, 貢獻度, 下注明細, 玩法明細, 調盤退水, 調退實佔, 上繳, 會員, 代理, 總代理, 股東, 
                         大股東, 總監, 客戶s, 總量s, 中獎s, 輸贏s, 客戶小計s, 代理小計s, 總代理小計s, 股東小計s, 大股東小計s, 總監小計s, 
                         個人所得s, 水差s, 下注明細s, 查看對帳s, 貢獻額s, 貢獻度s, 調盤退水s, 調退實佔s, 大總監, 系統商, 隨機碼) 
                 VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "', N'" & PA6 & "', 
                         N'" & PA7 & "', N'" & PA8 & "', N'" & PA9 & "', N'" & PA10 & "', N'" & PA11 & "', N'" & PA12 & "', N'" & PA13 & "', 
                         N'" & PA14 & "', N'" & PA15 & "', N'" & PA16 & "', N'" & PA17 & "', N'" & PA18 & "', N'" & PA19 & "', N'" & PA20 & "', 
                         N'" & PA21 & "', N'" & PA22 & "', N'" & PA23 & "', N'" & PA24 & "', N'" & PA25 & "', N'" & PA26 & "', N'" & PA27 & "', 
                         N'" & PA28 & "', N'" & PA29 & "', N'" & PA30 & "', N'" & PA31 & "', N'" & PA32 & "', N'" & PA33 & "', N'" & PA34 & "', 
                         N'" & PA35 & "', N'" & PA36 & "', N'" & PA37 & "', N'" & PA38 & "', N'" & PA39 & "', N'" & PA40 & "', N'" & PA41 & "', 
                         N'" & PA42 & "', N'" & PA43 & "', N'" & PA44 & "', N'" & PA45 & "', N'" & PA46 & "', N'" & PA47 & "', N'" & PA48 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換11()
        ConnOpen_備份1() : SQL1 = "SELECT  客戶, 欄位, 小計  FROM  自定義帳務彙總" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換11_1()
        ConnOpen_備份2() : SQL1 = "SELECT  客戶, 欄位, 小計  FROM  自定義帳務彙總" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_資料庫轉換11_刪除()
        ConnOpen_備份2() : SQL1 = "DELETE FROM 自定義帳務彙總" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫轉換11_新增()
        ConnOpen_備份2()
        SQL1 = "INSERT INTO 自定義帳務彙總 (客戶, 欄位, 小計) VALUES (N'" & PA & "', N'" & PA1 & "', N'" & PA2 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_網址同步3_寫入()
        ConnOpen_備份1()
        SQL1 = "INSERT INTO 商品資料表 (商品, 編號, 系統, 層級, 網址, 備用網址) VALUES (N'" & PA1 & "', N'" & PA6 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_網址同步3()
        ConnOpen_備份1() : SQL1 = "SELECT 商品, 編號, 系統, 層級, 網址, 備用網址 FROM 商品資料表 ORDER BY 網址" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_長短版資料表_寫入()
        ConnOpen_備份1() : SQL1 = "INSERT INTO 長短版資料表 (資料) VALUES (N'" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_自動導入判斷_寫入()
        ConnOpen_備份1() : SQL1 = "INSERT INTO 自動導入判斷 (正在自動導入中) VALUES (N'NO')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_基數資料表_寫入()
        ConnOpen_備份1() : SQL1 = "INSERT INTO 基數資料表 (基數) VALUES (N'" & PA1 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_轉換連線用()
        ConnOpen()
        SQL1 = "SELECT  客戶, 資料庫, IP位置, 帳號, 密碼, 備份, 備份IP, 備份帳號, 密碼密碼 AS 備份密碼 FROM 客戶資料表 WHERE 資料庫 LIKE N'" & 子SQL名稱 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_商品流水號查詢1()
        ConnOpen_備份1() : SQL1 = "SELECT 編號 FROM 商品資料表 WHERE (系統 LIKE N'" & PA17 & "') ORDER BY 編號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_清除網址()
        ConnOpen_備份1() : SQL1 = "DELETE 商品資料表" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_清除長短版資料表()
        ConnOpen_備份1() : SQL1 = "DELETE 長短版資料表" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_清除自動導入判斷()
        ConnOpen_備份1() : SQL1 = "DELETE 自動導入判斷" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_清除基數資料表()
        ConnOpen_備份1() : SQL1 = "DELETE 基數資料表" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_網址同步2_寫入1()
        ConnOpen_備份1()
        SQL1 = "INSERT INTO 商品資料表 (商品, 編號, 系統, 層級, 網址, 備用網址) VALUES (N'" & PA1 & "', N'" & PA6 & "', N'" & PA2 & "', N'" & PA3 & "', N'" & PA4 & "', N'" & PA5 & "')"
        CmdSet_For_dr()
    End Sub

    '------------------------------------客戶租用資料----------------------------------------------
    Friend Sub SQL_系統使用者()
        ConnOpen()
        SQL1 = "SELECT 備註 AS 項次, 備註 AS 租用者, 帳號, 到期日, CC20 AS [KEY], 登入時間 FROM 使用者權限管理表 WHERE (主客戶 NOT LIKE 'NA') AND (主客戶 NOT LIKE 'TEST%') ORDER BY   主客戶"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統使用者1()
        ConnOpen_備用()
        SQL1 = "SELECT 備註 AS 項次, 備註 AS 租用者, 帳號, 到期日, CC20 AS [KEY], 登入時間 FROM 使用者權限管理表 WHERE (主客戶 NOT LIKE 'NA') AND (主客戶 NOT LIKE 'TEST%') ORDER BY   主客戶"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_租用帳務()
        ConnOpen()
        If 租用者帳務表.帳號_tb.Text = "" Then : 租用者帳務表.帳號_tb.Text = "%%" : End If
        If 租用者帳務表.試用不計_ch.Checked = False Then
            SQL1 = "SELECT 使用者 AS 項次, 使用者, 帳號, 狀態, 起始日, 到期日, 費用, 備註 FROM 租用帳務表 
                WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') ORDER BY 帳號, 到期日 DESC"
        Else
            SQL1 = "SELECT 使用者 AS 項次, 使用者, 帳號, 狀態, 起始日, 到期日, 費用, 備註 FROM 租用帳務表 
                WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') AND 費用 <> 0 ORDER BY 帳號, 到期日 DESC"
        End If
        If 租用者帳務表.帳號_tb.Text = "%%" Then : 租用者帳務表.帳號_tb.Text = "" : End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_租用帳務新增()
        ConnOpen()
        SQL1 = "INSERT INTO 租用帳務表 (使用者, 帳號, 狀態, 起始日, 到期日, 費用, 備註) 
                VALUES (N'" & 租用者帳務表.姓名_tb.Text & "', N'" & 租用者帳務表.帳號_tb.Text & "', N'" & 租用者帳務表.狀態_tb.Text & "', 
                        N'" & 租用者帳務表.起始日_dtp.Text & "', N'" & 租用者帳務表.到期日_dtp.Text & "', N'" & 租用者帳務表.費用_nud.Value & "', N'" & 租用者帳務表.備註_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_租用帳務修改()
        ConnOpen()
        SQL1 = "UPDATE 租用帳務表 SET 狀態 = N'" & 租用者帳務表.狀態_tb.Text & "', 起始日 = N'" & 租用者帳務表.起始日_dtp.Text & "', 到期日 = N'" & 租用者帳務表.到期日_dtp.Text & "', 
                                      費用 = N'" & 租用者帳務表.費用_nud.Value & "', 備註 =  N'" & 租用者帳務表.備註_tb.Text & "' 
                WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') AND (起始日 = N'" & 租用者帳務表.起始日_dtp.Text & "') AND (到期日 = N'" & 租用者帳務表.到期日_dtp.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_租用帳務刪除()
        ConnOpen()
        SQL1 = "DELETE 租用帳務表 WHERE (帳號 LIKE N'" & 租用者帳務表.帳號_tb.Text & "') AND (起始日 = N'" & 租用者帳務表.起始日_dtp.Text & "') AND (到期日 = N'" & 租用者帳務表.到期日_dtp.Text & "')"
        CmdSet_For_dr()
    End Sub

    '------------------------------------通統通用變數管理----------------------------------------------
    Friend Sub SQL_伺服器IP取得()
        ConnOpen()
        SQL1 = "SELECT IP位置, 備份IP, 帳號, 密碼, 備份帳號, 密碼密碼 FROM 客戶資料表 GROUP BY IP位置, 備份IP, 帳號, 密碼, 備份帳號, 密碼密碼" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫狀態()
        ConnOpen_備份1()
        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫, physical_name AS '實體檔案', type_desc AS '檔案類型', 
                        state_desc AS '檔案狀態', size * 8.0 / 1024 AS '檔案大小(MB)'
                FROM    sys.master_files
                WHERE  (DB_NAME(database_id) LIKE 'GA-%')
                ORDER BY DB_NAME(database_id)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_備份資料庫狀態()
        ConnOpen_備份2()
        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫, physical_name AS '實體檔案', type_desc AS '檔案類型', 
                        state_desc AS '檔案狀態', size * 8.0 / 1024 AS '檔案大小(MB)'
                FROM    sys.master_files
                WHERE  (DB_NAME(database_id) LIKE 'GA-%')
                ORDER BY DB_NAME(database_id)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_主資料庫狀態()
        'If IP印尼 = True Then : ConnOpen() : Else : ConnOpen_備用() : End If
        ConnOpen_備用()
        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫, physical_name AS '實體檔案', type_desc AS '檔案類型', 
                        state_desc AS '檔案狀態', size * 8.0 / 1024 AS '檔案大小(MB)'
                FROM    sys.master_files
                WHERE  (DB_NAME(database_id) LIKE 'GA-%')
                ORDER BY DB_NAME(database_id)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_伺服器1清單()
        ConnOpen_備用()
        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫 FROM sys.master_files WHERE  (DB_NAME(database_id) LIKE 'GA-%') GROUP BY DB_NAME(database_id) ORDER BY DB_NAME(database_id)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_伺服器2清單()
        ConnOpen_備份1()
        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫 FROM sys.master_files WHERE  (DB_NAME(database_id) LIKE 'GA-%') GROUP BY DB_NAME(database_id) ORDER BY DB_NAME(database_id)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_伺服器3清單()
        ConnOpen_備份2()
        SQL1 = "SELECT  DB_NAME(database_id) AS 資料庫 FROM sys.master_files WHERE  (DB_NAME(database_id) LIKE 'GA-%') GROUP BY DB_NAME(database_id) ORDER BY DB_NAME(database_id)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_備份資料庫LOG檔案截斷()
        Dim DSF(1) As String : Dim NB1 As Integer = 0
        ConnOpen_備份2() : SQL1 = "USE [" & PA & "]" : CmdSet_For_dr()
        ConnOpen_備份2() : SQL1 = "select name from sys.database_files;" : CmdSet_For_dr()
        While (dr.Read()) : DSF(NB1) = dr("name").ToString : NB1 += 1 : End While

        If PA = DSF(0) Then : Else
            ConnOpen_備份2() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(0) & "], newname =[" & PA & "])" : CmdSet_For_dr()
        End If

        If PA & "_log" = DSF(1) Then : Else
            ConnOpen_備份2() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(1) & "], newname=[" & PA & "_log])" : CmdSet_For_dr()
        End If

        ConnOpen_備份2() : SQL1 = "ALTER DATABASE [" & PA & "]
                                   SET RECOVERY SIMPLE;" : CmdSet_For_dr()
        ConnOpen_備份2() : SQL1 = "DBCC SHRINKFILE ([" & PA & "_Log], 1);" : CmdSet_For_dr()
        ConnOpen_備份2() : SQL1 = "ALTER DATABASE [" & PA & "]
                                   SET RECOVERY FULL;" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_計算資料庫LOG檔案截斷()
        Dim DSF(1) As String : Dim NB1 As Integer = 0
        ConnOpen_備份1() : SQL1 = "USE [" & PA & "]" : CmdSet_For_dr()
        ConnOpen_備份1() : SQL1 = "select name from sys.database_files;" : CmdSet_For_dr()
        While (dr.Read()) : DSF(NB1) = dr("name").ToString : NB1 += 1 : End While

        If PA = DSF(0) Then : Else
            ConnOpen_備份1() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(0) & "], newname =[" & PA & "])" : CmdSet_For_dr()
        End If

        If PA & "_log" = DSF(1) Then : Else
            ConnOpen_備份1() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(1) & "], newname=[" & PA & "_log])" : CmdSet_For_dr()
        End If

        ConnOpen_備份1() : SQL1 = "ALTER DATABASE [" & PA & "]
                                   SET RECOVERY SIMPLE;" : CmdSet_For_dr()
        ConnOpen_備份1() : SQL1 = "DBCC SHRINKFILE ([" & PA & "_Log], 1);" : CmdSet_For_dr()
        ConnOpen_備份1() : SQL1 = "ALTER DATABASE [" & PA & "]
                                   SET RECOVERY FULL;" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_主資料庫LOG檔案截斷()
        Dim DSF(1) As String : Dim NB1 As Integer = 0
        ConnOpen_備用() : SQL1 = "USE [" & PA & "]" : CmdSet_For_dr()
        ConnOpen_備用() : SQL1 = "select name from sys.database_files;" : CmdSet_For_dr()
        While (dr.Read()) : DSF(NB1) = dr("name").ToString : NB1 += 1 : End While

        If PA = DSF(0) Then : Else
            ConnOpen_備用() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(0) & "], newname =[" & PA & "])" : CmdSet_For_dr()
        End If

        If PA & "_log" = DSF(1) Then : Else
            ConnOpen_備用() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(1) & "], newname=[" & PA & "_log])" : CmdSet_For_dr()
        End If

        ConnOpen_備用() : SQL1 = "ALTER DATABASE [" & PA & "]
                                   SET RECOVERY SIMPLE;" : CmdSet_For_dr()
        ConnOpen_備用() : SQL1 = "DBCC SHRINKFILE ([" & PA & "_Log], 1);" : CmdSet_For_dr()
        ConnOpen_備用() : SQL1 = "ALTER DATABASE [" & PA & "]
                                   SET RECOVERY FULL;" : CmdSet_For_dr()
    End Sub
End Module