HX-PGS-ERP-SYS-LEEHSIEHJUI/07、章程管理系統/管理功能/公告管理.vb

Imports System.IO
Public Class 公告管理
    ReadOnly ds8 As New DataSet
    Private ReadOnly QQW(11) As String : Private II As Integer
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = Application.StartupPath
    Dim 對話框(21) As String
    Private Sub Set_權限清單()
        Dim ds1 As New DataSet
        清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 35 : 清單_dgv.AllowUserToAddRows = False
        SQL_授權清單()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns(0).FillWeight = 80 : 清單_dgv.Columns(2).FillWeight = 240 : 清單_dgv.Columns(3).Visible = False
        For i As Integer = 0 To 清單_dgv.Rows.Count - 1
            If 清單_dgv.Rows(i).Cells(表頭(175)).Value.ToString = "A01" Then : 清單_dgv.Rows(i).Cells(表頭(175)).Value = 對話框(4)
            ElseIf 清單_dgv.Rows(i).Cells(表頭(175)).Value.ToString = "A02" Then : 清單_dgv.Rows(i).Cells(表頭(175)).Value = 對話框(5) : End If
        Next
    End Sub
    Private Sub Set_公告清單()
        Dim ds1 As New DataSet
        公告_dgv.DataSource = Nothing : ds1.Clear()
        公告_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        公告_dgv.ColumnHeadersHeight = 25 : 公告_dgv.AllowUserToAddRows = False : 公告_dgv.RowTemplate.Height = 55
        SQL_公告清單()
        da.Fill(ds1) : 公告_dgv.DataSource = ds1.Tables(0) : conn.Close()
        公告_dgv.Columns(2).Visible = False
        公告_dgv.Columns(0).FillWeight = 40 : 公告_dgv.Columns(1).FillWeight = 40 : 公告_dgv.Columns(3).FillWeight = 80 : 公告_dgv.Columns(4).FillWeight = 120
        公告_dgv.Columns(0).ReadOnly = True : 公告_dgv.Columns(1).ReadOnly = True : 公告_dgv.Columns(3).ReadOnly = True : 公告_dgv.Columns(4).ReadOnly = True
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-196-" & 語言) : TabPage1.Text = 系統語言字典("H001-196-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
        授權功能_lb.Text = 系統語言字典("H901-100-" & 語言) : 授權人_lb.Text = 系統語言字典("H901-101-" & 語言) : 授權碼_lb.Text = 系統語言字典("H901-102-" & 語言)
        開始日期_lb.Text = 系統語言字典("H401-109-" & 語言) : 結束日期_lb.Text = 系統語言字典("H401-110-" & 語言)
        表頭(175) = 系統語言字典("H901-103-" & 語言) : 表頭(176) = 系統語言字典("H901-104-" & 語言) : 表頭(177) = 系統語言字典("H901-105-" & 語言)
        對話框(0) = 系統語言字典("H901-106-" & 語言) : 對話框(1) = 系統語言字典("H901-107-" & 語言) : 對話框(2) = 系統語言字典("H901-108-" & 語言)
        對話框(3) = 系統語言字典("H901-109-" & 語言) : 對話框(4) = 系統語言字典("H901-110-" & 語言) : 對話框(5) = 系統語言字典("H901-111-" & 語言)
        對話框(6) = 系統語言字典("G000-119-" & 語言) : 對話框(7) = 系統語言字典("G000-120-" & 語言)
        授權功能_cb.Items.Clear() : 授權功能_cb.Items.Add("") : 授權功能_cb.Items.Add(對話框(4)) : 授權功能_cb.Items.Add(對話框(5))
    End Sub
    Private Sub 生成授權_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 生成授權_rbt.MouseEnter
        ToolTip1.SetToolTip(Me.生成授權_rbt, 對話框(1))
    End Sub
    Private Sub 採購授權_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 採購授權_rbt.MouseEnter
        ToolTip1.SetToolTip(Me.採購授權_rbt, 對話框(2))
    End Sub
    Private Sub 領料授權_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 領料授權_rbt.MouseEnter
        ToolTip1.SetToolTip(Me.領料授權_rbt, 對話框(3))
    End Sub
    Private Sub PnlTitleBar_Paint(sender As Object, e As PaintEventArgs)
    End Sub
    Private Sub 單次授權功能_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        H(901) = True : 介面 = "H901" : 語言轉換讀取() : 顯示說明(999, False)
    End Sub
    Private Sub 單次授權功能_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        風格() : 授權人_rtb.Text = gUserName : PA20 = gUserName : If CInt(登入人級別) <= 3 Then : PA19 = "%%" : Else : PA19 = gUserName : End If
        語轉扭_bt.PerformClick() : Set_權限清單() : Set_公告清單() : 授權功能_tb.Text = "" : Panel1.SendToBack()
        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
        公告_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", 7.6)
    End Sub
    Private Sub 銷售單申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(901) = False : HX_PGS_ERP_SYS.重讀_bt.PerformClick()
    End Sub
    Private Sub 公告_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 公告_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            序號_tb.Text = 公告_dgv.Rows(e.RowIndex).Cells("序列").Value.ToString
            開始日期_dtp.Value = 公告_dgv.Rows(e.RowIndex).Cells("開始日期").Value.ToString
            結束日期_dtp.Value = 公告_dgv.Rows(e.RowIndex).Cells("結束日期").Value.ToString
            If 系統語言 = "繁體中文" Then : 公告1_tb.Text = 公告_dgv.Rows(e.RowIndex).Cells("中文").Value.ToString
            Else : 公告1_tb.Text = 公告_dgv.Rows(e.RowIndex).Cells("印尼文").Value.ToString : End If
        End If
    End Sub
    Private Sub 清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            授權功能_cb.Text = 清單_dgv.Rows(e.RowIndex).Cells(表頭(175)).Value : 授權人_rtb.Text = 清單_dgv.Rows(e.RowIndex).Cells(表頭(176)).Value
            授權碼_rtb.Text = 清單_dgv.Rows(e.RowIndex).Cells(表頭(177)).Value
        End If
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H901" : 語言轉換讀取()
    End Sub
    Private Sub 授權功能_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 授權功能_cb.SelectedIndexChanged
        If 授權功能_cb.Text = 對話框(4) Then : 授權功能_tb.Text = "A01" : ElseIf 授權功能_cb.Text = 對話框(5) Then : 授權功能_tb.Text = "A02" : End If
    End Sub
    Private Sub 生成授權_rbt_Click(sender As Object, e As EventArgs) Handles 生成授權_rbt.Click
        If 授權功能_tb.Text = "" Then : MGB(對話框(0), 1) : Else
            Set_授權碼驗算() : PA = 授權碼_rtb.Text : PA1 = gUserName : PA2 = 授權功能_tb.Text : SQL_授權碼新增() : Set_權限清單()
        End If
    End Sub
    Private Sub Set_授權碼驗算()
        For QAZ = 0 To 999
            QQW(0) = "HX-PGS-" : QQW(1) = Strings.Right(Year(Today), 2) : QQW(2) = Strings.Left(Year(Today), 2) : QQW(3) = Month(Today) + 9
            QQW(4) = Strings.Right(QQW(0), 1) : QQW(5) = Strings.Left(QQW(0), 1) : QQW(6) = Strings.Right(QQW(1), 1) : QQW(7) = Strings.Left(QQW(1), 1) : QQW(8) = Strings.Right(QQW(2), 1)
            QQW(9) = Strings.Left(QQW(2), 1) : QQW(10) = Strings.Right(QQW(3), 1) : QQW(11) = Strings.Left(QQW(3), 1)
            For RT = 4 To 11
                Delay(3)
                Dim ran = New Random(DateTime.Now.Millisecond) : Dim NUM1 As Integer = ran.Next(1, 4096)
                For I = 0 To 4096 : If NUM1 > 9 Then : NUM1 -= 9 : ElseIf NUM1 < 9 Then : I = 4096 : End If : Next
                If NUM1 = 1 Then : II = RT : 轉換() : ElseIf NUM1 = 2 Then : II = RT : 轉換() : ElseIf NUM1 = 3 Then : ElseIf NUM1 = 4 Then : II = RT : 轉換() : ElseIf NUM1 = 5 Then
                ElseIf NUM1 = 6 Then : II = RT : 轉換() : ElseIf NUM1 = 7 Then : ElseIf NUM1 = 8 Then : II = RT : 轉換() : ElseIf NUM1 = 9 Then : II = RT : 轉換() : End If
            Next
            Dim ran1 = New Random(DateTime.Now.Millisecond) : Dim NUM2 As Integer = ran1.Next(1, 4096)
            For I = 0 To 4096 : If NUM2 > 99 Then : NUM2 -= 49 : ElseIf NUM2 < 99 Then : I = 4096 : End If : Next
            授權碼_rtb.Text = QQW(11) & "2" & QQW(9) & "7" & QQW(7) & "0" & QQW(5) & QQW(4) & "1" & QQW(6) & "3" & QQW(8) & "9" & QQW(10) & NUM2
            If Strings.Left(授權碼_rtb.Text, 1) = "H" Then : QAZ = 0 : Else
                PA20 = 授權碼_rtb.Text : SQL_建築驗證碼() : If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()
            End If
        Next
    End Sub
    Private Sub 轉換()
        If QQW(II) = "1" Then : QQW(II) = "A" : ElseIf QQW(II) = "2" Then : QQW(II) = "B" : ElseIf QQW(II) = "3" Then : QQW(II) = "C" : ElseIf QQW(II) = "4" Then : QQW(II) = "D"
        ElseIf QQW(II) = "5" Then : QQW(II) = "E" : ElseIf QQW(II) = "6" Then : QQW(II) = "F" : ElseIf QQW(II) = "7" Then : QQW(II) = "G" : ElseIf QQW(II) = "8" Then : QQW(II) = "H"
        ElseIf QQW(II) = "9" Then : QQW(II) = "I" : ElseIf QQW(II) = "0" Then : QQW(II) = "J"
        End If
    End Sub
    Public Sub Delay(ByRef Interval As Double)  'Interval单位为毫秒
        Dim time As DateTime = DateTime.Now : Dim Span As Double = Interval * 1234 : While ((DateTime.Now.Ticks - time.Ticks) < Span) : Application.DoEvents() : End While
    End Sub
    Private Sub 採購授權_rbt_Click(sender As Object, e As EventArgs) Handles 採購授權_rbt.Click
        授權功能_cb.SelectedIndex = 1
    End Sub
    Private Sub 領料授權_rbt_Click(sender As Object, e As EventArgs) Handles 領料授權_rbt.Click
        授權功能_cb.SelectedIndex = 2
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        翻譯 = 公告1_tb.Text : MyModule2.執行翻譯()
        Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader
        If 系統語言 = "繁體中文" Then
            If File.Exists("in.txt") Then
                fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                公告2_tb.Text = stringReader : fileReader.Close()
            ElseIf File.Exists(Str2 & "\in.txt") Then
                fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : StringReader = fileReader.ReadToEnd()
                公告2_tb.Text = StringReader : fileReader.Close()
            End If
        Else
            If File.Exists("ch.txt") Then
                fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                公告2_tb.Text = stringReader : fileReader.Close()
            ElseIf File.Exists(Str2 & "\ch.txt") Then
                fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                公告2_tb.Text = stringReader : fileReader.Close()
            End If
        End If
        If 系統語言 = "繁體中文" Then : PA3 = 公告1_tb.Text : PA4 = 公告2_tb.Text : Else : PA3 = 公告2_tb.Text : PA4 = 公告1_tb.Text : End If
        SQL_公告清單查詢1() : If dr.Read Then : PA = CInt(dr("序列").ToString) + 1 : Else : PA = "1" : End If
        PA1 = Strings.Format(開始日期_dtp.Value, "yyyy/MM/dd") : PA2 = Strings.Format(結束日期_dtp.Value, "yyyy/MM/dd")
        SQL_公告清單查詢() : If dr.Read Then : Else : SQL_公告清單新增() : End If : Set_公告清單() : MGB(對話框(6), 1)
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        If 序號_tb.Text = "" Then : Else
            PA = 序號_tb.Text : SQL_公告刪除() : Set_公告清單() : MGB(對話框(6), 1)
        End If
    End Sub
    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = Color.Linen : Panel2.BackgroundImage = My.Resources._62951168976601486
            授權功能_lb.ForeColor = Color.Black : 授權人_lb.ForeColor = Color.Black : 授權碼_lb.ForeColor = Color.Black : 授權碼_rtb.ForeColor = Color.Black
            授權人_rtb.ForeColor = Color.Black

            授權功能_cb.BackColor = Color.White : 授權功能_cb.ForeColor = Color.Black

            清單_dgv.EnableHeadersVisualStyles = True : 清單_dgv.BackgroundColor = Color.White : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            清單_dgv.DefaultCellStyle.BackColor = Color.White : 清單_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black : Panel2.BackgroundImage = My.Resources._20157059_MotionElements_diagonal_lines
            授權功能_lb.ForeColor = Color.White : 授權人_lb.ForeColor = Color.White : 授權碼_lb.ForeColor = Color.White : 授權碼_rtb.ForeColor = Color.White
            授權人_rtb.ForeColor = Color.White

            授權功能_cb.BackColor = Color.DimGray : 授權功能_cb.ForeColor = Color.White

            清單_dgv.EnableHeadersVisualStyles = False : 清單_dgv.BackgroundColor = Color.Black : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.Black
            清單_dgv.DefaultCellStyle.BackColor = Color.Black : 清單_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class