GA-ERP-SYS-LEEHSIEHJUI/GA-ERP-SYS/資料庫系統管理/系統使用者管理.vb

Option Strict Off
Imports System.Windows.Forms
Public Class 系統使用者管理

    Dim HH As String : Dim 首次開啟 As Boolean = False
    Dim FFGG As Integer
    Private Sub Set_使用者清單()
        Dim ds, ds1 As New DataSet
        使用者清單_dgv.DataSource = Nothing : ds.Clear()
        使用者清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        使用者清單_dgv.ColumnHeadersHeight = 25
        使用者清單_dgv.AllowUserToAddRows = False
        使用者清單_dgv.RowTemplate.Height = 25
        SQL_系統使用者管理清單()
        da.Fill(ds) : 使用者清單_dgv.DataSource = ds.Tables(0) : conn.Close()

        使用者清單1_dgv.DataSource = Nothing : ds1.Clear()
        使用者清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        使用者清單1_dgv.ColumnHeadersHeight = 25
        使用者清單1_dgv.AllowUserToAddRows = False
        使用者清單1_dgv.RowTemplate.Height = 25
        SQL_系統使用者管理清單1()
        da.Fill(ds1) : 使用者清單1_dgv.DataSource = ds1.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_grid()
        使用者清單_dgv.Columns(0).FillWeight = 60 : 使用者清單_dgv.Columns(1).FillWeight = 60 : 使用者清單_dgv.Columns(2).FillWeight = 50 : 使用者清單_dgv.Columns(3).FillWeight = 50
        使用者清單_dgv.Columns(4).FillWeight = 60 : 使用者清單_dgv.Columns(5).FillWeight = 75 : 使用者清單_dgv.Columns(6).FillWeight = 100 : 使用者清單_dgv.Columns(7).FillWeight = 100
        使用者清單_dgv.Columns(3).Visible = False
        For i As Integer = 1 To 權限數量
            使用者清單_dgv.Columns(i + 7).Visible = False
        Next
        For i As Integer = 0 To 使用者清單_dgv.Rows.Count - 1
            使用者清單_dgv.Rows(i).Cells("密碼").Value = "******"
            If 使用者清單_dgv.Rows(i).Cells("登入時間").Value.ToString <> "" And 使用者清單1_dgv.Rows(i).Cells("登入時間").Value.ToString <> "" Then
                Dim dateTimeA As DateTime = DateTime.ParseExact(Strings.Left(使用者清單_dgv.Rows(i).Cells("登入時間").Value.ToString, 10), "yyyy/MM/dd", Nothing)
                Dim dateTimeB As DateTime = DateTime.ParseExact(Strings.Left(使用者清單1_dgv.Rows(i).Cells("登入時間").Value.ToString, 10), "yyyy/MM/dd", Nothing)
                If dateTimeA > dateTimeB Then : ElseIf dateTimeA < dateTimeB Then
                    使用者清單_dgv.Rows(i).Cells("登入時間").Value = 使用者清單1_dgv.Rows(i).Cells("登入時間").Value.ToString
                Else : End If
            End If
            使用者清單_dgv.Rows(i).Cells("登入時間").Value = Strings.Left(使用者清單_dgv.Rows(i).Cells("登入時間").Value.ToString, 19)
            FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), 使用者清單_dgv.Rows(i).Cells("到期日").Value)
            If FFGG < 0 Then
                使用者清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
            Else
                使用者清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
            End If
        Next
        使用者清單_dgv.Columns("CC40").Visible = True : 使用者清單_dgv.Columns("CC40").FillWeight = 40 : 使用者清單_dgv.Columns("舊版").FillWeight = 40
    End Sub
    Private Sub Set_格式設定()
        確認新增_bt.Enabled = False : 儲存修改_bt.Enabled = False
    End Sub
    Private Sub 系統使用者管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If 不用WEB = True Then
            Me.MdiParent = GA_ERP_SYS_Old : Me.WindowState = 2 : Me.AutoScroll = True
        Else
            Me.MdiParent = GA_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        End If
        If IP印尼 = False Or IP台灣 = False Then : MsgBox("雙伺服器沒有全部聯通，請注意網路環境!!") : End If
        首次開啟 = False
        Set_使用者清單() : Set_grid() : Set_格式設定()
        首次開啟 = True
        姓名_tb.Enabled = False : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False
        SQL_下拉式清單讀取()
        主客戶_cb.Items.Clear() : While (dr.Read()) : 主客戶_cb.Items.Add(dr("客戶")) : End While : conn.Close()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        If 不用WEB = True Then
            timeNow = 0 : GA_ERP_SYS_Old.Timer2.Enabled = False : GA_ERP_SYS_Old.Timer2.Enabled = True
        Else
            timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : GA_ERP_SYS.Timer2.Enabled = True
        End If
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        If 不用WEB = True Then
            timeNow = 0 : GA_ERP_SYS_Old.Timer2.Enabled = False : GA_ERP_SYS_Old.Timer2.Enabled = True
        Else
            timeNow = 0 : GA_ERP_SYS.Timer2.Enabled = False : GA_ERP_SYS.Timer2.Enabled = True
        End If
    End Sub
    Private Sub 使用者清單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 使用者清單_dgv.CellEnter
        If 首次開啟 = True Then
            If e.RowIndex = -1 Then : Else
                姓名_tb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("姓名").Value : 帳號_tb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("帳號").Value
                密碼_tb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("密碼").Value : 主客戶_cb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("主客戶").Value
                備註_tb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("備註").Value : 登入_tb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("登入時間").Value.ToString
                If IsDBNull(使用者清單_dgv.Rows(e.RowIndex).Cells("舊版").Value) = True Then
                    使用者清單_dgv.Rows(e.RowIndex).Cells("舊版").Value = False
                End If : 舊版_ch.Checked = 使用者清單_dgv.Rows(e.RowIndex).Cells("舊版").Value
                If 使用者清單_dgv.Rows(e.RowIndex).Cells("到期日").Value = "" Then : Else
                    到期日_dtp.Value = 使用者清單_dgv.Rows(e.RowIndex).Cells("到期日").Value
                End If
                '---------同時控制所有具有一定命名規則的控件---------------------------------------------------------------------------------------------------------------------------------------------
                For no As Integer = 1 To 權限數量
                    If no < 10 Then : HH = "0" & no : ElseIf no >= 10 Then : HH = no : End If
                    Dim checkbox As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
                    checkbox.Checked = 使用者清單_dgv.Rows(e.RowIndex).Cells("CC" & HH).Value
                Next
                For i As Integer = 0 To 使用者清單_dgv.Rows.Count - 1
                    使用者清單_dgv.Rows(i).Cells("密碼").Value = "******"

                    FFGG = DateDiff("d", Format(Today(), "yyyy/MM/dd"), 使用者清單_dgv.Rows(i).Cells("到期日").Value)
                    If FFGG < 0 Then
                        使用者清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
                    Else
                        使用者清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.White
                    End If
                Next
            End If
        End If
    End Sub
    Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
        SQL_系統使用者新增()
        conn.Close() : MsgBox("新增完成") : Set_使用者清單() : Set_grid()
        確認新增_bt.Enabled = False : 新增_bt.Enabled = True : 修改_bt.Enabled = True : 姓名_tb.Enabled = False : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False
    End Sub
    Private Sub 儲存修改_bt_Click(sender As Object, e As EventArgs) Handles 儲存修改_bt.Click
        If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then : MsgBox("輸入資料有誤")
        Else
            If 密碼_tb.Text = "******" Then
                SQL_系統使用者密碼顯示()
                If dr.Read() Then : 密碼_tb.Text = dr("密碼") : End If : conn.Close()
            End If
            SQL_系統使用者修改() : conn.Close() : MsgBox("新增完成")
        End If : Set_使用者清單() : Set_grid()
        儲存修改_bt.Enabled = False : 新增_bt.Enabled = True : 修改_bt.Enabled = True : 姓名_tb.Enabled = False : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False
    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
            SQL_系統使用者刪除() : MsgBox("刪除完成")
        End If : conn.Close()
        姓名_tb.Text = "" : 帳號_tb.Text = "" : 帳號_tb.Text = "" : Set_使用者清單() : Set_grid()
    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        姓名_tb.Text = "" : 帳號_tb.Text = "" : 密碼_tb.Text = "" : 新增_bt.Enabled = False : 修改_bt.Enabled = False : 確認新增_bt.Enabled = True
        姓名_tb.Enabled = True : 帳號_tb.Enabled = True : 密碼_tb.Enabled = True
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        新增_bt.Enabled = False : 修改_bt.Enabled = False : 儲存修改_bt.Enabled = True
        姓名_tb.Enabled = True : 帳號_tb.Enabled = True : 密碼_tb.Enabled = True
    End Sub
    Private Sub 顯示密碼_bt_Click(sender As Object, e As EventArgs) Handles 顯示密碼_bt.Click
        SQL_系統使用者密碼顯示()
        If dr.Read() Then : 密碼_tb.Text = dr("密碼") : End If : conn.Close()
    End Sub
    Private Sub 字體_NUD_ValueChanged(sender As Object, e As EventArgs) Handles 字體_NUD.ValueChanged
        使用者清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 字體_NUD.Value)
    End Sub
    Private Sub 主客戶_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 主客戶_cb.SelectedIndexChanged
        SQL_資料庫顯示()
        If dr.Read() Then : 資料庫_tb.Text = dr("資料庫") : End If : conn.Close()
    End Sub
    Private Sub 重開()
        dr.Close() : ConnOpen()
    End Sub
    Private Sub 連結()
        ConnOpen()
    End Sub
    Private Sub 客戶表新增_bt_Click(sender As Object, e As EventArgs) Handles 客戶表新增_bt.Click
        If 主客戶_cb.Text = "" And 資料庫_tb.Text = "" Then
            MsgBox("資料沒有完整，請重新檢查")
        Else
            PA = 主客戶_cb.Text : PA1 = 資料庫_tb.Text
            連結() : SQL_系統編碼規則_客戶重複查詢() : CmdSet_For_dr()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else
                重開() : SQL_系統編碼規則_客戶新增() : CmdSet_For_dr() : MsgBox("新增完成") : conn.Close() : dr.Close()
            End If
        End If
    End Sub
    Private Sub 客戶表修改_bt_Click(sender As Object, e As EventArgs) Handles 客戶表修改_bt.Click
        If 主客戶_cb.Text = "" Or 資料庫_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的客戶名:", "客戶名稱") : PA1 = InputBox("請輸入要修改的內容", "資料庫名稱")
            PA2 = 主客戶_cb.Text : PA3 = 資料庫_tb.Text
            If PA = "" Or PA1 = "" Then
                MsgBox("不能空白")
            Else
                連結() : SQL_系統編碼規則_客戶修改() : CmdSet_For_dr() : MsgBox("修改完成") : conn.Close() : dr.Close()
            End If
        End If
    End Sub
    '*************************************************************************************************************************************
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        SQL_公告開啟() : Set_使用者清單()
    End Sub
    'Private Sub 大更新_bt_Click(sender As Object, e As EventArgs) Handles 大更新_bt.Click
    '    SQL_大更新啟動() : Set_使用者清單()
    'End Sub
    '*************************************************************************************************************************************
End Class