WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/00、MyModule/SQL_資料庫系統管理.vb

Module SQL_資料庫系統管理
    Friend Sub SQL_系統使用者管理表()
        ConnOpen()
        If PA = "" Then
            SQL1 = "SELECT " & 登入權限 & " 使用者權限管理表 ORDER BY 職稱"
        Else
            SQL1 = "SELECT " & 登入權限 & " 使用者權限管理表 WHERE 姓名 LIKE N'" & PA & "' OR 帳號 LIKE N'" & PA & "' OR 部門 LIKE N'" & PA & "' OR 職稱 LIKE N'" & PA & "' ORDER BY 職稱"
        End If
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_METOO部門清單()
        ConnOpen()
        SQL1 = "SELECT 部門 FROM METOO部門清單 ORDER BY 部門"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_METOO職稱清單()
        ConnOpen()
        SQL1 = "SELECT 職稱 FROM METOO職稱清單 ORDER BY 職稱"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_使用者權限管理表1()
        ConnOpen()
        SQL1 = "SELECT 密碼 FROM 使用者權限管理表 WHERE 姓名 LIKE N'" & 系統使用者管理.姓名_tb.Text & "' OR 帳號 LIKE N'" & 系統使用者管理.帳號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_新增使用者權限管理表()
        ConnOpen()
        SQL1 = "INSERT INTO 使用者權限管理表 (姓名, 帳號, 密碼, 部門, 職稱, 員工編號, ID卡號, CC00, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, CC14, CC15, CC16, 
                CC17, CC18, CC19, CC20, CC21, CC22, CC23, CC24, CC25, CC26, CC27, CC28, CC29, CC30, CC31, CC32, CC33, CC34, CC35, CC36, CC37, CC38, CC39, CC40, CC41, CC42, CC43, CC44, CC45, CC46, 
                CC47, CC48, CC49, CC50, CC51, CC52, CC53, CC54, CC55, CC56, CC57, CC58, CC59, CC60, CC61, CC62, CC63, CC64, CC65, CC66, CC67, CC68, CC69, CC70, CC71, CC72, CC73, CC74, CC75, CC76, 
                CC77, CC78, CC79, CC80, CC81, CC82, CC83, CC84, CC85, CC86, CC87, CC88, CC89, CC90, CC91, CC92, CC93, CC94, CC95) 
                VALUES (N'" & 系統使用者管理.姓名_tb.Text & "',N'" & 系統使用者管理.帳號_tb.Text & "',N'" & 系統使用者管理.密碼_tb.Text & "', N'" & 系統使用者管理.部門_cb.Text & "', 
                        N'" & 系統使用者管理.職稱_cb.Text & "', N'', N'', 
                          '" & 系統使用者管理.CheckBox1.Checked & "', '" & 系統使用者管理.CheckBox2.Checked & "', '" & 系統使用者管理.CheckBox3.Checked & "', 
                          '" & 系統使用者管理.CheckBox4.Checked & "', '" & 系統使用者管理.CheckBox5.Checked & "', '" & 系統使用者管理.CheckBox6.Checked & "', 
                          '" & 系統使用者管理.CheckBox7.Checked & "', '" & 系統使用者管理.CheckBox8.Checked & "', '" & 系統使用者管理.CheckBox9.Checked & "', 
                          '" & 系統使用者管理.CheckBox10.Checked & "', '" & 系統使用者管理.CheckBox11.Checked & "', '" & 系統使用者管理.CheckBox12.Checked & "', 
                          '" & 系統使用者管理.CheckBox13.Checked & "', '" & 系統使用者管理.CheckBox14.Checked & "', '" & 系統使用者管理.CheckBox15.Checked & "', 
                          '" & 系統使用者管理.CheckBox16.Checked & "', '" & 系統使用者管理.CheckBox17.Checked & "', '" & 系統使用者管理.CheckBox18.Checked & "', 
                          '" & 系統使用者管理.CheckBox19.Checked & "', '" & 系統使用者管理.CheckBox20.Checked & "', '" & 系統使用者管理.CheckBox21.Checked & "', 
                          '" & 系統使用者管理.CheckBox22.Checked & "', '" & 系統使用者管理.CheckBox23.Checked & "', '" & 系統使用者管理.CheckBox24.Checked & "', 
                          '" & 系統使用者管理.CheckBox25.Checked & "', '" & 系統使用者管理.CheckBox26.Checked & "', '" & 系統使用者管理.CheckBox27.Checked & "', 
                          '" & 系統使用者管理.CheckBox28.Checked & "', '" & 系統使用者管理.CheckBox29.Checked & "', '" & 系統使用者管理.CheckBox30.Checked & "', 
                          '" & 系統使用者管理.CheckBox31.Checked & "', '" & 系統使用者管理.CheckBox32.Checked & "', '" & 系統使用者管理.CheckBox33.Checked & "', 
                          '" & 系統使用者管理.CheckBox34.Checked & "', '" & 系統使用者管理.CheckBox35.Checked & "', '" & 系統使用者管理.CheckBox36.Checked & "', 
                          '" & 系統使用者管理.CheckBox37.Checked & "', '" & 系統使用者管理.CheckBox38.Checked & "', '" & 系統使用者管理.CheckBox39.Checked & "', 
                          '" & 系統使用者管理.CheckBox40.Checked & "', '" & 系統使用者管理.CheckBox41.Checked & "', '" & 系統使用者管理.CheckBox42.Checked & "', 
                          '" & 系統使用者管理.CheckBox43.Checked & "', '" & 系統使用者管理.CheckBox44.Checked & "', '" & 系統使用者管理.CheckBox45.Checked & "', 
                          '" & 系統使用者管理.CheckBox46.Checked & "', '" & 系統使用者管理.CheckBox47.Checked & "', '" & 系統使用者管理.CheckBox48.Checked & "', 
                          '" & 系統使用者管理.CheckBox49.Checked & "', '" & 系統使用者管理.CheckBox50.Checked & "', '" & 系統使用者管理.CheckBox51.Checked & "', 
                          '" & 系統使用者管理.CheckBox52.Checked & "', '" & 系統使用者管理.CheckBox53.Checked & "', '" & 系統使用者管理.CheckBox54.Checked & "', 
                          '" & 系統使用者管理.CheckBox55.Checked & "', '" & 系統使用者管理.CheckBox56.Checked & "', '" & 系統使用者管理.CheckBox57.Checked & "', 
                          '" & 系統使用者管理.CheckBox58.Checked & "', '" & 系統使用者管理.CheckBox59.Checked & "', '" & 系統使用者管理.CheckBox60.Checked & "', 
                          '" & 系統使用者管理.CheckBox61.Checked & "', '" & 系統使用者管理.CheckBox62.Checked & "', '" & 系統使用者管理.CheckBox63.Checked & "', 
                          '" & 系統使用者管理.CheckBox64.Checked & "', '" & 系統使用者管理.CheckBox65.Checked & "', '" & 系統使用者管理.CheckBox66.Checked & "', 
                          '" & 系統使用者管理.CheckBox67.Checked & "', '" & 系統使用者管理.CheckBox68.Checked & "', '" & 系統使用者管理.CheckBox69.Checked & "', 
                          '" & 系統使用者管理.CheckBox70.Checked & "', '" & 系統使用者管理.CheckBox71.Checked & "', '" & 系統使用者管理.CheckBox72.Checked & "', 
                          '" & 系統使用者管理.CheckBox73.Checked & "', '" & 系統使用者管理.CheckBox74.Checked & "', '" & 系統使用者管理.CheckBox75.Checked & "', 
                          '" & 系統使用者管理.CheckBox76.Checked & "', '" & 系統使用者管理.CheckBox77.Checked & "', '" & 系統使用者管理.CheckBox78.Checked & "', 
                          '" & 系統使用者管理.CheckBox79.Checked & "', '" & 系統使用者管理.CheckBox80.Checked & "', '" & 系統使用者管理.CheckBox81.Checked & "', 
                          '" & 系統使用者管理.CheckBox82.Checked & "', '" & 系統使用者管理.CheckBox83.Checked & "', '" & 系統使用者管理.CheckBox84.Checked & "', 
                          '" & 系統使用者管理.CheckBox85.Checked & "', '" & 系統使用者管理.CheckBox86.Checked & "', '" & 系統使用者管理.CheckBox87.Checked & "', 
                          '" & 系統使用者管理.CheckBox88.Checked & "', '" & 系統使用者管理.CheckBox89.Checked & "', '" & 系統使用者管理.CheckBox90.Checked & "', 
                          '" & 系統使用者管理.CheckBox91.Checked & "', '" & 系統使用者管理.CheckBox92.Checked & "', '" & 系統使用者管理.CheckBox93.Checked & "', 
                          '" & 系統使用者管理.CheckBox94.Checked & "', '" & 系統使用者管理.CheckBox95.Checked & "', '" & 系統使用者管理.CheckBox96.Checked & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_更改使用者權限管理表1()
        ConnOpen()
        SQL1 = "UPDATE 使用者權限管理表 SET 姓名 = N'" & 系統使用者管理.姓名_tb.Text & "', 密碼 = N'" & 系統使用者管理.密碼_tb.Text & "', 部門 = N'" & 系統使用者管理.部門_cb.Text & "', 
                                            職稱 = N'" & 系統使用者管理.職稱_cb.Text & "', 
                       CC00 = '" & 系統使用者管理.CheckBox1.Checked & "', CC01 = '" & 系統使用者管理.CheckBox2.Checked & "', CC02 = '" & 系統使用者管理.CheckBox3.Checked & "', 
                       CC03 = '" & 系統使用者管理.CheckBox4.Checked & "', CC04 = '" & 系統使用者管理.CheckBox5.Checked & "', CC05 = '" & 系統使用者管理.CheckBox6.Checked & "', 
                       CC06 = '" & 系統使用者管理.CheckBox7.Checked & "', CC07 = '" & 系統使用者管理.CheckBox8.Checked & "', CC08 = '" & 系統使用者管理.CheckBox9.Checked & "', 
                       CC09 = '" & 系統使用者管理.CheckBox10.Checked & "', CC10 = '" & 系統使用者管理.CheckBox11.Checked & "', CC11 = '" & 系統使用者管理.CheckBox12.Checked & "', 
                       CC12 = '" & 系統使用者管理.CheckBox13.Checked & "', CC13 = '" & 系統使用者管理.CheckBox14.Checked & "', CC14 = '" & 系統使用者管理.CheckBox15.Checked & "', 
                       CC15 = '" & 系統使用者管理.CheckBox16.Checked & "', CC16 = '" & 系統使用者管理.CheckBox17.Checked & "', CC17 = '" & 系統使用者管理.CheckBox18.Checked & "', 
                       CC18 = '" & 系統使用者管理.CheckBox19.Checked & "', CC19 = '" & 系統使用者管理.CheckBox20.Checked & "', CC20 = '" & 系統使用者管理.CheckBox21.Checked & "', 
                       CC21 = '" & 系統使用者管理.CheckBox22.Checked & "', CC22 = '" & 系統使用者管理.CheckBox23.Checked & "', CC23 = '" & 系統使用者管理.CheckBox24.Checked & "', 
                       CC24 = '" & 系統使用者管理.CheckBox25.Checked & "', CC25 = '" & 系統使用者管理.CheckBox26.Checked & "', CC26 = '" & 系統使用者管理.CheckBox27.Checked & "', 
                       CC27 = '" & 系統使用者管理.CheckBox28.Checked & "', CC28 = '" & 系統使用者管理.CheckBox29.Checked & "', CC29 = '" & 系統使用者管理.CheckBox30.Checked & "', 
                       CC30 = '" & 系統使用者管理.CheckBox31.Checked & "', CC31 = '" & 系統使用者管理.CheckBox32.Checked & "', CC32 = '" & 系統使用者管理.CheckBox33.Checked & "', 
                       CC33 = '" & 系統使用者管理.CheckBox34.Checked & "', CC34 = '" & 系統使用者管理.CheckBox35.Checked & "', CC35 = '" & 系統使用者管理.CheckBox36.Checked & "', 
                       CC36 = '" & 系統使用者管理.CheckBox37.Checked & "', CC37 = '" & 系統使用者管理.CheckBox38.Checked & "', CC38 = '" & 系統使用者管理.CheckBox39.Checked & "', 
                       CC39 = '" & 系統使用者管理.CheckBox40.Checked & "', CC40 = '" & 系統使用者管理.CheckBox41.Checked & "', CC41 = '" & 系統使用者管理.CheckBox42.Checked & "', 
                       CC42 = '" & 系統使用者管理.CheckBox43.Checked & "', CC43 = '" & 系統使用者管理.CheckBox44.Checked & "', CC44 = '" & 系統使用者管理.CheckBox45.Checked & "', 
                       CC50 = '" & 系統使用者管理.CheckBox51.Checked & "', CC51 = '" & 系統使用者管理.CheckBox52.Checked & "', CC52 = '" & 系統使用者管理.CheckBox53.Checked & "', 
                       CC53 = '" & 系統使用者管理.CheckBox54.Checked & "', CC54 = '" & 系統使用者管理.CheckBox55.Checked & "', CC55 = '" & 系統使用者管理.CheckBox56.Checked & "', 
                       CC56 = '" & 系統使用者管理.CheckBox57.Checked & "', CC57 = '" & 系統使用者管理.CheckBox58.Checked & "', CC58 = '" & 系統使用者管理.CheckBox59.Checked & "', 
                       CC59 = '" & 系統使用者管理.CheckBox60.Checked & "', CC60 = '" & 系統使用者管理.CheckBox61.Checked & "', CC61 = '" & 系統使用者管理.CheckBox62.Checked & "', 
                       CC62 = '" & 系統使用者管理.CheckBox63.Checked & "', CC63 = '" & 系統使用者管理.CheckBox64.Checked & "', CC64 = '" & 系統使用者管理.CheckBox65.Checked & "', 
                       CC65 = '" & 系統使用者管理.CheckBox66.Checked & "', CC66 = '" & 系統使用者管理.CheckBox67.Checked & "', CC67 = '" & 系統使用者管理.CheckBox68.Checked & "', 
                       CC68 = '" & 系統使用者管理.CheckBox69.Checked & "', CC69 = '" & 系統使用者管理.CheckBox70.Checked & "', CC70 = '" & 系統使用者管理.CheckBox71.Checked & "', 
                       CC71 = '" & 系統使用者管理.CheckBox72.Checked & "', CC72 = '" & 系統使用者管理.CheckBox73.Checked & "', CC73 = '" & 系統使用者管理.CheckBox74.Checked & "', 
                       CC74 = '" & 系統使用者管理.CheckBox75.Checked & "', CC75 = '" & 系統使用者管理.CheckBox76.Checked & "', CC76 = '" & 系統使用者管理.CheckBox77.Checked & "', 
                       CC77 = '" & 系統使用者管理.CheckBox78.Checked & "', CC78 = '" & 系統使用者管理.CheckBox79.Checked & "', CC79 = '" & 系統使用者管理.CheckBox80.Checked & "', 
                       CC80 = '" & 系統使用者管理.CheckBox81.Checked & "', CC81 = '" & 系統使用者管理.CheckBox82.Checked & "', CC82 = '" & 系統使用者管理.CheckBox83.Checked & "', 
                       CC83 = '" & 系統使用者管理.CheckBox84.Checked & "', CC84 = '" & 系統使用者管理.CheckBox85.Checked & "', CC85 = '" & 系統使用者管理.CheckBox86.Checked & "', 
                       CC86 = '" & 系統使用者管理.CheckBox87.Checked & "', CC87 = '" & 系統使用者管理.CheckBox88.Checked & "', CC88 = '" & 系統使用者管理.CheckBox89.Checked & "', 
                       CC89 = '" & 系統使用者管理.CheckBox90.Checked & "', CC90 = '" & 系統使用者管理.CheckBox91.Checked & "', CC91 = '" & 系統使用者管理.CheckBox92.Checked & "', 
                       CC92 = '" & 系統使用者管理.CheckBox93.Checked & "', CC93 = '" & 系統使用者管理.CheckBox94.Checked & "', CC94 = '" & 系統使用者管理.CheckBox95.Checked & "', 
                       CC95 = '" & 系統使用者管理.CheckBox96.Checked & "' 
               WHERE (帳號 = '" & 系統使用者管理.帳號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除使用者權限管理表()
        ConnOpen()
        SQL1 = "DELETE FROM 使用者權限管理表 WHERE (帳號 = '" & 系統使用者管理.帳號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    '-------------------------系統編碼規則_1----------------------------------------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_帳本查詢()
        ConnOpen() : SQL1 = "SELECT 編號, 帳本名稱 FROM 財務帳本編號 WHERE 帳本名稱 LIKE N'" & PA & "' ORDER BY 編號" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_帳本流水號最後一筆()
        ConnOpen() : SQL1 = "Select TOP (1) 編號 FROM 財務帳本編號 ORDER BY 編號 DESC" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_帳本新增()
        ConnOpen()
        SQL1 = "INSERT INTO 財務帳本編號 (編號, 帳本名稱) VALUES (N'" & PA1 & "', N'" & PA & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_帳本修改()
        ConnOpen()
        SQL1 = "UPDATE 財務帳本編號 SET 帳本名稱 = N'" & PA & "' WHERE 編號 LIKE N'" & 系統編碼規則_1.帳本編號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_帳本刪除()
        ConnOpen()
        SQL1 = "DELETE FROM 財務帳本編號 WHERE (編號 = N'" & 系統編碼規則_1.帳本編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除MTTOOCUST清單()
        ConnOpen()
        SQL1 = "DELETE FROM MTTOOCUST清單 WHERE (CUST = N'" & 系統編碼規則_1.品牌清單_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除年份清單()
        ConnOpen()
        SQL1 = "DELETE FROM 年份清單 WHERE (年份 = N'" & 系統編碼規則_1.報表及對帳單年份_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刪除METOO職稱清單()
        ConnOpen()
        SQL1 = "DELETE FROM METOO職稱清單 WHERE (職稱 = N'" & 系統編碼規則_1.職稱清單管理_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_資料庫狀態()
        ConnOpen()
        SQL1 = "SELECT  DB_NAME(database_id) AS [資料庫名稱], physical_name AS [磁碟路徑], type_desc AS [類型描述], 
                        state_desc  AS [狀態描述], size * 8.0 / 1024  AS [使用容量]
                FROM    sys.master_files
                WHERE  (DB_NAME(database_id) LIKE N'METO-%')"
        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 'METO-%') GROUP BY DB_NAME(database_id) ORDER BY DB_NAME(database_id)"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_圖片資料庫管理查詢()
        ConnOpen() : SQL1 = "SELECT 圖片資料庫, 是否可用  FROM 圖片資料庫管理 ORDER BY 圖片資料庫" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統預設值()
        ConnOpen() : SQL1 = "SELECT  圖片伺服器上限 FROM 版本號管理" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統預測值修改()
        ConnOpen() : SQL1 = "UPDATE 版本號管理 SET 圖片伺服器上限 = '" & 系統編碼規則_1.MAX_nud.Value & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_圖片資料庫管理查詢1()
        ConnOpen() : SQL1 = "SELECT 圖片資料庫, 是否可用 FROM 圖片資料庫管理 WHERE 圖片資料庫 LIKE N'" & 系統編碼規則_1.圖片資料庫名稱_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_圖片資料庫管理查詢新增()
        ConnOpen()
        SQL1 = "INSERT INTO 圖片資料庫管理 (圖片資料庫, 是否可用) VALUES ('" & 系統編碼規則_1.圖片資料庫名稱_tb.Text & "','" & 系統編碼規則_1.是否可用_ch.Checked & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_圖片資料庫管理查詢修改()
        ConnOpen()
        SQL1 = "UPDATE 圖片資料庫管理 SET 是否可用 = '" & 系統編碼規則_1.是否可用_ch.Checked & "' WHERE 圖片資料庫 LIKE N'" & 系統編碼規則_1.圖片資料庫名稱_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_主資料庫LOG檔案截斷()
        Dim DSF(1) As String : Dim NB1 As Integer = 0
        ConnOpen_工程圖庫SQL() : SQL1 = "USE [" & PA & "]" : CmdSet_For_dr()
        ConnOpen_工程圖庫SQL() : 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_工程圖庫SQL() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(0) & "], newname =[" & PA & "])" : CmdSet_For_dr()
        End If

        If PA & "_log" = DSF(1) Then : Else
            ConnOpen_工程圖庫SQL() : SQL1 = "alter database [" & PA & "] modify file(name=[" & DSF(1) & "], newname=[" & PA & "_log])" : CmdSet_For_dr()
        End If

        ConnOpen_工程圖庫SQL() : SQL1 = "ALTER DATABASE [" & PA & "]
                                   SET RECOVERY SIMPLE;" : CmdSet_For_dr()
        ConnOpen_工程圖庫SQL() : SQL1 = "DBCC SHRINKFILE ([" & PA & "_Log], 1);" : CmdSet_For_dr()
        ConnOpen_工程圖庫SQL() : SQL1 = "ALTER DATABASE [" & PA & "]
                                   SET RECOVERY FULL;" : CmdSet_For_dr()
    End Sub
End Module