GA-ERP-SYS-LEEHSIEHJUI/GA-ERP-SYS/資料庫系統管理/資料備份轉移.vb

Public Class 資料備份轉移
    ReadOnly ds, ds1, ds2, ds3, ds4, ds5, ds6, ds7, ds8 As New DataSet : Public 連接 As String
    Public 平均數1 As Integer : Public 最終數1 As Integer = 0 : Public 資料數1 As Integer = 0
    Private Sub Set_客戶資料清單()
        客戶資料表_dgv.DataSource = Nothing : ds.Clear()
        客戶資料表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        客戶資料表_dgv.ColumnHeadersHeight = 25
        客戶資料表_dgv.AllowUserToAddRows = False
        SQL_客戶資料庫()
        da.Fill(ds) : 客戶資料表_dgv.DataSource = ds.Tables(0) : conn.Close()
        客戶資料表_dgv.Columns(0).FillWeight = 60 : 客戶資料表_dgv.Columns(1).FillWeight = 80 : 客戶資料表_dgv.Columns(2).FillWeight = 150 : 客戶資料表_dgv.Columns(3).FillWeight = 80
        客戶資料表_dgv.Columns(4).FillWeight = 80 : 客戶資料表_dgv.Columns(5).FillWeight = 35 : 客戶資料表_dgv.Columns(6).FillWeight = 150 : 客戶資料表_dgv.Columns(7).FillWeight = 80
        客戶資料表_dgv.Columns(8).FillWeight = 80
    End Sub
    Private Sub Set_清單1()
        商品資料表_dgv.DataSource = Nothing : ds1.Clear()
        商品資料表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        商品資料表_dgv.ColumnHeadersHeight = 25
        商品資料表_dgv.AllowUserToAddRows = False
        SQL_資料庫轉換1()
        da.Fill(ds1) : 商品資料表_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單2()
        商客基本資料表_dgv.DataSource = Nothing : ds2.Clear()
        商客基本資料表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        商客基本資料表_dgv.ColumnHeadersHeight = 25
        商客基本資料表_dgv.AllowUserToAddRows = False
        SQL_資料庫轉換2()
        da.Fill(ds2) : 商客基本資料表_dgv.DataSource = ds2.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單3()
        下行客戶_dgv.DataSource = Nothing : ds3.Clear()
        下行客戶_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        下行客戶_dgv.ColumnHeadersHeight = 25
        下行客戶_dgv.AllowUserToAddRows = False
        SQL_資料庫轉換3()
        da.Fill(ds3) : 下行客戶_dgv.DataSource = ds3.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單4()
        流水帳_dgv.DataSource = Nothing : ds4.Clear()
        流水帳_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        流水帳_dgv.ColumnHeadersHeight = 25
        流水帳_dgv.AllowUserToAddRows = False
        SQL_資料庫轉換4()
        da.Fill(ds4) : 流水帳_dgv.DataSource = ds4.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單5()
        商品資料表1_dgv.DataSource = Nothing : ds5.Clear()
        商品資料表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        商品資料表1_dgv.ColumnHeadersHeight = 25
        商品資料表1_dgv.AllowUserToAddRows = False
        SQL_資料庫轉換1_1()
        da.Fill(ds5) : 商品資料表1_dgv.DataSource = ds5.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單6()
        商客基本資料表1_dgv.DataSource = Nothing : ds6.Clear()
        商客基本資料表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        商客基本資料表1_dgv.ColumnHeadersHeight = 25
        商客基本資料表1_dgv.AllowUserToAddRows = False
        SQL_資料庫轉換2_1()
        da.Fill(ds6) : 商客基本資料表1_dgv.DataSource = ds6.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單7()
        下行客戶1_dgv.DataSource = Nothing : ds7.Clear()
        下行客戶1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        下行客戶1_dgv.ColumnHeadersHeight = 25
        下行客戶1_dgv.AllowUserToAddRows = False
        SQL_資料庫轉換3_1()
        da.Fill(ds7) : 下行客戶1_dgv.DataSource = ds7.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_清單8()
        流水帳1_dgv.DataSource = Nothing : ds8.Clear()
        流水帳1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        流水帳1_dgv.ColumnHeadersHeight = 25
        流水帳1_dgv.AllowUserToAddRows = False
        SQL_資料庫轉換4_1()
        da.Fill(ds8) : 流水帳1_dgv.DataSource = ds8.Tables(0) : conn.Close()
    End Sub
    Private Sub 資料備份轉移_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        資料庫_bt.Enabled = False : 備份庫_bt.Enabled = True
        商品資料表_dgv.Visible = True : 商客基本資料表_dgv.Visible = True : 下行客戶_dgv.Visible = True : 流水帳_dgv.Visible = True
        商品資料表1_dgv.Visible = False : 商客基本資料表1_dgv.Visible = False : 下行客戶1_dgv.Visible = False : 流水帳1_dgv.Visible = False
        Set_客戶資料清單()
    End Sub
    Private Sub Set_修正清單()
        除錯_dgv.DataSource = Nothing : ds4.Clear()
        除錯_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        除錯_dgv.ColumnHeadersHeight = 25
        除錯_dgv.AllowUserToAddRows = False
        If 連接 = 1 Then : ConnOpen_備份1() : Else : ConnOpen_備份2() : End If
        SQL_流水帳修正()
        da.Fill(ds4) : 除錯_dgv.DataSource = ds4.Tables(0) : conn.Close()
        資料數 = 除錯_dgv.Rows.Count
        For I As Integer = 0 To 除錯_dgv.Rows.Count - 1
            MyModule1.進度條()
            除錯_dgv("網址", I).Value = Strings.Mid(除錯_dgv("網址", I).Value, 7, 100)
            PA1 = 除錯_dgv("網址", I).Value : PA2 = 除錯_dgv("index", I).Value : PA3 = 除錯_dgv("開始日期", I).Value
            PA4 = 除錯_dgv("結束日期", I).Value : PA5 = 除錯_dgv("帳戶", I).Value
            If 連接 = 1 Then : ConnOpen_備份1() : Else : ConnOpen_備份2() : End If
            SQL_修正網址()
        Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub 客戶資料表_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 客戶資料表_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            子SQL名稱2 = 客戶資料表_dgv("資料庫", e.RowIndex).Value.ToString : 子SQL名稱3 = 客戶資料表_dgv("資料庫", e.RowIndex).Value.ToString
            登入人IP4 = 客戶資料表_dgv("IP位置", e.RowIndex).Value.ToString : 登入人IP5 = 客戶資料表_dgv("備份IP", e.RowIndex).Value.ToString
            業務帳號2 = 客戶資料表_dgv("帳號", e.RowIndex).Value.ToString : 業務帳號3 = 客戶資料表_dgv("備份帳號", e.RowIndex).Value.ToString
            業務密碼2 = 客戶資料表_dgv("密碼", e.RowIndex).Value.ToString : 業務密碼3 = 客戶資料表_dgv("備份密碼", e.RowIndex).Value.ToString
            SQL_連線字串_備份1() : 連接 = 1 : Set_修正清單() : SQL_連線字串_備份2() : 連接 = 2 : Set_修正清單()
            Set_清單1() : Set_清單2() : Set_清單3() : Set_清單4() : Set_清單5() : Set_清單6() : Set_清單7() : Set_清單8()
        End If
    End Sub
    Private Sub 資料轉移_bt_Click(sender As Object, e As EventArgs) Handles 資料轉移_bt.Click
        Dim aa As MsgBoxResult = MsgBox("即將啟動資料庫轉移?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            Dim DT1, DT2 As DateTime
            資料數1 = 客戶資料表_dgv.Rows.Count * 4
            For i As Integer = 0 To 客戶資料表_dgv.Rows.Count - 1
                SQL_資料庫轉換1_刪除() : 資料數 = 商品資料表_dgv.Rows.Count : 進度條1()
                For ii As Integer = 0 To 商品資料表_dgv.Rows.Count - 1
                    MyModule1.進度條()
                    SQL1 = "SELECT 商品, 編號, 系統, 層級, 網址 FROM 商品資料表"
                    PA = 商品資料表_dgv("商品", ii).Value : PA1 = 商品資料表_dgv("編號", ii).Value : PA2 = 商品資料表_dgv("系統", ii).Value
                    PA3 = 商品資料表_dgv("層級", ii).Value : PA4 = 商品資料表_dgv("網址", ii).Value
                    SQL_資料庫轉換1_新增()
                Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
                SQL_資料庫轉換2_刪除() : 資料數 = 商客基本資料表_dgv.Rows.Count : 進度條1()
                For ii As Integer = 0 To 商客基本資料表_dgv.Rows.Count - 1
                    MyModule1.進度條()
                    PA = 商客基本資料表_dgv("網址", ii).Value : PA1 = 商客基本資料表_dgv("帳號", ii).Value : PA2 = 商客基本資料表_dgv("密碼", ii).Value
                    PA3 = 商客基本資料表_dgv("資料", ii).Value : PA4 = 商客基本資料表_dgv("上繳源", ii).Value : PA5 = 商客基本資料表_dgv("商品", ii).Value
                    PA6 = 商客基本資料表_dgv("上行基數", ii).Value : PA7 = 商客基本資料表_dgv("下行基數", ii).Value : PA8 = 商客基本資料表_dgv("驗證", ii).Value
                    SQL_資料庫轉換2_新增()
                Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
                SQL_資料庫轉換3_刪除() : 資料數 = 下行客戶_dgv.Rows.Count : 進度條1()
                For ii As Integer = 0 To 下行客戶_dgv.Rows.Count - 1
                    MyModule1.進度條()
                    PA = 下行客戶_dgv("客戶下", ii).Value : PA1 = 下行客戶_dgv("網址", ii).Value : PA2 = 下行客戶_dgv("帳號", ii).Value
                    PA3 = 下行客戶_dgv("基數", ii).Value : PA4 = 下行客戶_dgv("流水號", ii).Value : PA5 = 下行客戶_dgv("客名", ii).Value
                    PA6 = 下行客戶_dgv("計算", ii).Value : PA7 = 下行客戶_dgv("同帳", ii).Value : PA8 = 下行客戶_dgv("所得", ii).Value
                    PA9 = 下行客戶_dgv("所得另算", ii).Value : PA10 = 下行客戶_dgv("下層", ii).Value
                    SQL_資料庫轉換3_新增()
                Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
                資料數 = 下行客戶_dgv.Rows.Count : 進度條1()
                For ii As Integer = 0 To 流水帳_dgv.Rows.Count - 1
                    MyModule1.進度條()
                    DT1 = 日期_dtp.Value : DT2 = 流水帳_dgv("結束日期", ii).Value
                    If DT1 >= DT2 Then
                        PA = 流水帳_dgv("index", ii).Value : PA1 = 流水帳_dgv("開始日期", ii).Value : PA2 = 流水帳_dgv("結束日期", ii).Value
                        PA3 = 流水帳_dgv("網址", ii).Value : PA4 = 流水帳_dgv("帳戶", ii).Value : PA5 = 流水帳_dgv("隨機碼", ii).Value
                        PA6 = 流水帳_dgv("名稱", ii).Value.ToString : PA7 = 流水帳_dgv("總量", ii).Value.ToString : PA8 = 流水帳_dgv("退水", ii).Value.ToString
                        PA9 = 流水帳_dgv("中獎", ii).Value.ToString : PA10 = 流水帳_dgv("輸贏", ii).Value.ToString : PA11 = 流水帳_dgv("佔成輸贏", ii).Value.ToString
                        PA12 = 流水帳_dgv("水倍差", ii).Value.ToString : PA13 = 流水帳_dgv("上繳金額", ii).Value.ToString : PA14 = 流水帳_dgv("自已總輸贏", ii).Value.ToString
                        PA15 = 流水帳_dgv("上繳貢獻額", ii).Value.ToString : PA16 = 流水帳_dgv("貢獻額", ii).Value.ToString : PA17 = 流水帳_dgv("貢獻度", ii).Value.ToString
                        PA18 = 流水帳_dgv("下注明細", ii).Value.ToString : PA19 = 流水帳_dgv("玩法明細", ii).Value.ToString : PA20 = 流水帳_dgv("調盤退水", ii).Value.ToString
                        PA21 = 流水帳_dgv("調退實佔", ii).Value.ToString : PA22 = 流水帳_dgv("上繳", ii).Value.ToString : PA23 = 流水帳_dgv("會員", ii).Value.ToString
                        PA24 = 流水帳_dgv("代理", ii).Value.ToString : PA25 = 流水帳_dgv("總代理", ii).Value.ToString : PA26 = 流水帳_dgv("股東", ii).Value.ToString
                        PA27 = 流水帳_dgv("大股東", ii).Value.ToString : PA28 = 流水帳_dgv("客戶s", ii).Value.ToString : PA29 = 流水帳_dgv("總量s", ii).Value.ToString
                        PA30 = 流水帳_dgv("中獎s", ii).Value.ToString : PA31 = 流水帳_dgv("輸贏s", ii).Value.ToString : PA32 = 流水帳_dgv("客戶小計s", ii).Value.ToString
                        PA33 = 流水帳_dgv("代理小計s", ii).Value.ToString : PA34 = 流水帳_dgv("總代理小計s", ii).Value.ToString : PA35 = 流水帳_dgv("股東小計s", ii).Value.ToString
                        PA36 = 流水帳_dgv("大股東小計s", ii).Value.ToString : PA37 = 流水帳_dgv("總監小計s", ii).Value.ToString : PA38 = 流水帳_dgv("個人所得s", ii).Value.ToString
                        PA39 = 流水帳_dgv("水差s", ii).Value.ToString : PA40 = 流水帳_dgv("下注明細s", ii).Value.ToString : PA41 = 流水帳_dgv("查看對帳s", ii).Value.ToString
                        PA42 = 流水帳_dgv("總監", ii).Value.ToString
                        ConnOpen_備份1() : SQL_資料庫轉換4_刪除() : ConnOpen_備份2() : SQL_資料庫轉換4_刪除() : SQL_資料庫轉換4_新增()
                    End If
                Next : GA_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
            Next : conn.Close() : ProgressBar1.Value = 0 : 最終數1 = 0 : MsgBox("資料庫轉移完成")
        End If
    End Sub
    Private Sub 進度條1()
        平均數1 = 10000 / 資料數1
        最終數1 += 平均數1
        If 最終數1 > 10000 Then : 最終數1 = 10000 : End If
        ProgressBar1.Value = 最終數1
    End Sub
    Private Sub 資料庫_bt_Click(sender As Object, e As EventArgs) Handles 資料庫_bt.Click
        資料庫_bt.Enabled = False : 備份庫_bt.Enabled = True
        商品資料表_dgv.Visible = True : 商客基本資料表_dgv.Visible = True : 下行客戶_dgv.Visible = True : 流水帳_dgv.Visible = True
        商品資料表1_dgv.Visible = False : 商客基本資料表1_dgv.Visible = False : 下行客戶1_dgv.Visible = False : 流水帳1_dgv.Visible = False
    End Sub
    Private Sub 備份庫_bt_Click(sender As Object, e As EventArgs) Handles 備份庫_bt.Click
        資料庫_bt.Enabled = True : 備份庫_bt.Enabled = False
        商品資料表_dgv.Visible = False : 商客基本資料表_dgv.Visible = False : 下行客戶_dgv.Visible = False : 流水帳_dgv.Visible = False
        商品資料表1_dgv.Visible = True : 商客基本資料表1_dgv.Visible = True : 下行客戶1_dgv.Visible = True : 流水帳1_dgv.Visible = True
    End Sub
End Class