GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/07、章程管理系統/管理功能/單次授權功能.vb

Public Class 單次授權功能
    ReadOnly ds8 As New DataSet : ReadOnly 對話框(0) As String
    Private ReadOnly QQW(11) As String : Private II As Integer
    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
                If 系統語言 = "繁體中文" Then
                    清單_dgv.Rows(i).Cells(表頭(175)).Value = "無合約號請購"
                ElseIf 系統語言 = "English" Then
                    清單_dgv.Rows(i).Cells(表頭(175)).Value = "Please purchase when there is no contract number"
                ElseIf 系統語言 = "Indonesian" Then
                    清單_dgv.Rows(i).Cells(表頭(175)).Value = "Permintaan untuk membeli ketika tidak ada nomor kontrak"
                End If
            End If
        Next
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds8.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds8) : 語言_dgv.DataSource = ds8.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "單次授權功能" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "授權功能_lb" Then : 授權功能_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "授權人_lb" Then : 授權人_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "授權碼_lb" Then : 授權碼_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_授權功能" Then : 表頭(175) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_授權人" Then : 表頭(176) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_授權碼" Then : 表頭(177) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "生成授權_bt" Then : 生成授權_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
        Next
    End Sub
    Private Sub 單次授權功能_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        H(901) = True : 介面 = "H901" : 語言轉換讀取()
    End Sub
    Private Sub 單次授權功能_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        授權人_tb.Text = gUserName : PA20 = gUserName : If CInt(登入人級別) <= 3 Then : PA19 = "%%" : Else : PA19 = gUserName : End If : Set_權限清單() : 語轉扭_bt.PerformClick()
        授權功能_tb.Text = ""
        清單_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 : MyModule1.虛擬桌面開啟()
    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 : 授權人_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells(表頭(176)).Value
            授權碼_tb.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" : 語言轉換讀取()
        If 系統語言 = "繁體中文" Then
            Me.Text = "單次授權功能"
            授權功能_cb.Items.Clear() : 授權功能_cb.Items.Add("") : 授權功能_cb.Items.Add("無合約號請購")
        ElseIf 系統語言 = "English" Then
            Me.Text = "Fungsi Otorisasi Satu Kali"
            授權功能_cb.Items.Clear() : 授權功能_cb.Items.Add("") : 授權功能_cb.Items.Add("Please purchase when there is no contract number")
        ElseIf 系統語言 = "Indonesian" Then
            Me.Text = "One-Time Authorization Function"
            授權功能_cb.Items.Clear() : 授權功能_cb.Items.Add("") : 授權功能_cb.Items.Add("Permintaan untuk membeli ketika tidak ada nomor kontrak")
        End If
    End Sub
    Private Sub 授權功能_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 授權功能_cb.SelectedIndexChanged
        If 授權功能_cb.Text = "無合約號請購" Or 授權功能_cb.Text = "Please purchase when there is no contract number" Or
           授權功能_cb.Text = "Permintaan untuk membeli ketika tidak ada nomor kontrak" Then
            授權功能_tb.Text = "A01"
        End If
    End Sub
    Private Sub 生成授權_bt_Click(sender As Object, e As EventArgs) Handles 生成授權_bt.Click
        If 授權功能_tb.Text = "" Then : MsgBox(對話框(0)) : Else
            Set_授權碼驗算() : PA = 授權碼_tb.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
            授權碼_tb.Text = QQW(11) & "2" & QQW(9) & "7" & QQW(7) & "0" & QQW(5) & QQW(4) & "1" & QQW(6) & "3" & QQW(8) & "9" & QQW(10) & NUM2
            PA20 = 授權碼_tb.Text : SQL_建築驗證碼()
            If dr.Read() = True Then : Else : QAZ = 999 : End If : conn.Close()
        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
End Class