GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/00-MyModule/SQL_系統設定.vb

Module SQL_系統設定
    '---------------------系統使用者權限管理-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_系統使用者密碼顯示()
        ConnOpen_AM()
        SQL1 = "SELECT      ras_Enroll.Password
                FROM        ras_Enroll INNER JOIN ras_Users ON ras_Enroll.DIN = ras_Users.DIN LEFT OUTER JOIN
                            使用者權限管理表 ON ras_Users.DIN = 使用者權限管理表.DIN
                WHERE      (ras_Enroll.BackupNumber = 10) AND (ras_Users.UserName LIKE N'" & 系統使用者權限設定.姓名_tb.Text & "')
                ORDER BY    ras_Users.UserName"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者管理清單()
        ConnOpen_AM()
        SQL1 = "SELECT      ras_Users.DIN AS DIN_O, ras_Users.UserName, ras_Enroll.Password, 使用者權限管理表.DIN " & 登入權限 & "
                FROM        ras_Enroll INNER JOIN
                            ras_Users ON ras_Enroll.DIN = ras_Users.DIN LEFT OUTER JOIN
                            使用者權限管理表 ON ras_Users.DIN = 使用者權限管理表.DIN
                WHERE      (ras_Enroll.BackupNumber = 10) AND (ras_Users.IsLockedOut = 0)
                ORDER BY    ras_Users.UserName"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統使用者權限新增()
        ConnOpen_AM()
        SQL1 = "INSERT INTO 使用者權限管理表 (DIN, 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) " &
               "VALUES ('" & 系統使用者權限設定.編號_tb.Text & "', '" & 系統使用者權限設定.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 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統使用者權限修改()
        ConnOpen_AM()
        SQL1 = "UPDATE 使用者權限管理表 SET  CC01 = '" & 系統使用者權限設定.CheckBox1.Checked & "', CC02 = '" & 系統使用者權限設定.CheckBox2.Checked &
                                         "', CC03 = '" & 系統使用者權限設定.CheckBox3.Checked & "', CC04 = '" & 系統使用者權限設定.CheckBox4.Checked &
                                         "', CC05 = '" & 系統使用者權限設定.CheckBox5.Checked & "', CC06 = '" & 系統使用者權限設定.CheckBox6.Checked &
                                         "', CC07 = '" & 系統使用者權限設定.CheckBox7.Checked & "', CC08 = '" & 系統使用者權限設定.CheckBox8.Checked &
                                         "', CC09 = '" & 系統使用者權限設定.CheckBox9.Checked & "', CC10 = '" & 系統使用者權限設定.CheckBox10.Checked &
                                         "', CC11 = '" & 系統使用者權限設定.CheckBox11.Checked & "', CC12 = '" & 系統使用者權限設定.CheckBox12.Checked &
                                         "', CC13 = '" & 系統使用者權限設定.CheckBox13.Checked & "', CC14 = '" & 系統使用者權限設定.CheckBox14.Checked &
                                         "', CC15 = '" & 系統使用者權限設定.CheckBox15.Checked & "', CC16 = '" & 系統使用者權限設定.CheckBox16.Checked &
                                         "', CC17 = '" & 系統使用者權限設定.CheckBox17.Checked & "', CC18 = '" & 系統使用者權限設定.CheckBox18.Checked &
                                         "', CC19 = '" & 系統使用者權限設定.CheckBox19.Checked & "', CC20 = '" & 系統使用者權限設定.CheckBox20.Checked &
                                         "', CC21 = '" & 系統使用者權限設定.CheckBox21.Checked & "', CC22 = '" & 系統使用者權限設定.CheckBox22.Checked &
                                         "', CC23 = '" & 系統使用者權限設定.CheckBox23.Checked & "', CC24 = '" & 系統使用者權限設定.CheckBox24.Checked &
                                         "', CC25 = '" & 系統使用者權限設定.CheckBox25.Checked & "', CC26 = '" & 系統使用者權限設定.CheckBox26.Checked &
                                         "', CC27 = '" & 系統使用者權限設定.CheckBox27.Checked &
                                         "' WHERE (DIN = '" & 系統使用者權限設定.編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_使用者級別宣告()
        ConnOpen() : SQL1 = "SELECT 級別,部門,課別,組別 FROM 使用者權限管理表 WHERE (帳號 = '" & Login.UsernameTextBox.Text & "')" : CmdSet_For_dr()
    End Sub
    '---------------------人事系統變數設定-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_時段設定()
        ConnOpen_AM()
        SQL1 = "SELECT   ID, 時段, 時段1, 時段2, 時段3, 時段4, 時段5, 時段6, 時段7, 時段8, 上午上班, 下午上班, 加班上班, 一段休息, 二段休息
                FROM     時段設定 
                ORDER BY ID"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_年份清單()
        ConnOpen_AM() : SQL1 = "SELECT  年份 FROM 年份清單 ORDER BY 年份 DESC" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_年份清單查詢()
        ConnOpen_AM() : SQL1 = "SELECT 年份 FROM 年份清單 WHERE 年份 LIKE '" & PA & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_年份清單新增()
        SQL1 = "INSERT INTO 年份清單 (年份) VALUES (N'" & PA & "')"
    End Sub
    Friend Sub SQL_年份清單修改()
        SQL1 = "UPDATE 年份清單 SET 年份 = N'" & PA & "' WHERE 年份 LIKE N'" & PA1 & "'"
    End Sub
    Friend Sub SQL_年份清單刪除()
        SQL1 = "DELETE FROM 年份清單 WHERE (年份 = N'" & PA & "')"
    End Sub
    Friend Sub SQL_門診資料()
        ConnOpen_AM() : SQL1 = "SELECT 星期, 診別, 早, 中, 晚 FROM 門診資料" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_工作職務()
        ConnOpen_AM() : SQL1 = "SELECT  職務 FROM  工作職務 ORDER BY 職務" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_工作新增()
        ConnOpen_AM() : SQL1 = "INSERT INTO 工作職務 (職務) VALUES (N'" & PA & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工作修改()
        ConnOpen_AM()
        SQL1 = "UPDATE 工作職務 SET 職務 = N'" & PA & "' WHERE 職務 LIKE '" & 人事系統變數設定.職務_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_工作刪除()
        ConnOpen_AM()
        SQL1 = "DELETE FROM 工作職務   WHERE 職務 LIKE '" & 人事系統變數設定.職務_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_門診修改()
        ConnOpen_AM()
        SQL1 = "UPDATE 門診資料 SET 早 = N'" & PA & "', 中 = N'" & PA1 & "', 晚 = N'" & PA2 & "' 
                WHERE 星期 LIKE N'" & PA3 & "' AND 診別 LIKE N'" & PA4 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_時段新增()
        ConnOpen_AM() : SQL1 = "INSERT INTO  時段設定 (ID, 時段, 時段1, 時段2, 時段3, 時段4, 時段5, 時段6, 時段7, 時段8,
                                                       上午上班, 下午上班, 加班上班, 一段休息,  二段休息)
                                      VALUES (N'" & 人事系統變數設定.ID_tb.Text & "',N'" & 人事系統變數設定.時段_tb.Text & "',N'" & 人事系統變數設定.時段1_tb.Text & "',
                                              N'" & 人事系統變數設定.時段2_tb.Text & "',N'" & 人事系統變數設定.時段3_tb.Text & "',N'" & 人事系統變數設定.時段4_tb.Text & "',
                                              N'" & 人事系統變數設定.時段5_tb.Text & "',N'" & 人事系統變數設定.時段6_tb.Text & "',N'" & 人事系統變數設定.時段7_tb.Text & "',
                                              N'" & 人事系統變數設定.時段8_tb.Text & "',N'" & 人事系統變數設定.上午上班_tb.Text & "',N'" & 人事系統變數設定.下午上班_tb.Text & "',
                                              N'" & 人事系統變數設定.加班上班_tb.Text & "', N'" & 人事系統變數設定.一段休息_tb.Text & "',N'" & 人事系統變數設定.二段休息_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_時段修改()
        ConnOpen_AM()
        SQL1 = "UPDATE  時段設定   SET   ID= N'" & PA & "', 時段1= N'" & PA2 & "' ,  時段2= N'" & PA3 & "' , 時段3= N'" & PA4 & "', 時段4= N'" & PA5 & "',
                                         時段5= N'" & PA6 & "', 時段6= N'" & PA7 & "' , 時段7=  N'" & PA8 & "',時段8= N'" & PA9 & "',
                                         上午上班= N'" & PA10 & "',下午上班= N'" & PA11 & "',加班上班= N'" & PA12 & "',一段休息= N'" & PA13 & "',二段休息= N'" & PA14 & "'

                WHERE 時段 LIKE '" & 人事系統變數設定.時段_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_時段刪除()
        ConnOpen_AM() : SQL1 = "DELETE FROM  時段設定  WHERE 時段 LIKE '" & 人事系統變數設定.時段_tb.Text & "'" : CmdSet_For_dr()
    End Sub
    '---------------------人員資料表-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_人員資料()
        ConnOpen_AM()
        SQL1 = "SELECT     UID, DIN, PIN, UserName, Sex, Password, PasswordQuestion, PasswordAnswer, IsApproved, IsLockedOut, 
                           CreateDate, LastLoginDate, DeptId, AttId, RuleId, WeekendId, LastUpdatedUID, LastUpdatedDate, Comment
                FROM       ras_Users
                ORDER BY   UID DESC"
        CmdSet_For_DGV()
    End Sub
    '---------------------人員ID卡系統配置設定-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_系統ID()
        ConnOpen()
        SQL1 = "SELECT 姓名, 帳號, ID卡號 FROM 使用者權限管理表 ORDER BY 姓名"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_考勤ID()
        ConnOpen_AM()
        SQL1 = "SELECT 使用者權限管理表.DIN, ras_Users.UserName, 使用者權限管理表.ID卡號 FROM 使用者權限管理表 INNER JOIN ras_Users ON 使用者權限管理表.DIN = ras_Users.DIN"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統ID存檔()
        ConnOpen()
        SQL1 = "UPDATE 使用者權限管理表 SET ID卡號 = N'" & 人員ID卡系統配置設定.ID卡號_tb.Text & "' 
                WHERE (帳號 = N'" & 人員ID卡系統配置設定.帳號_tb.Text & "') AND (姓名 = N'" & 人員ID卡系統配置設定.姓名_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_SQL_考勤ID存檔()
        ConnOpen_AM()
        SQL1 = "UPDATE 使用者權限管理表 SET ID卡號 = N'" & 人員ID卡系統配置設定.ID卡號_tb.Text & "' WHERE DIN LIKE N'" & 人員ID卡系統配置設定.編號_tb.Text & "'"
        CmdSet_For_dr()
    End Sub
    '---------------------系統通用變數管理-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_工程圖片資料庫管理查詢()
        ConnOpen_ERP() : SQL1 = "SELECT 工程圖片資料庫, 是否可用 FROM 工程圖片資料庫管理 ORDER BY 工程圖片資料庫" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_工程文件資料庫管理查詢()
        ConnOpen_ERP() : SQL1 = "SELECT 工程文件資料庫, 是否可用 FROM 工程文件資料庫管理 ORDER BY 工程文件資料庫" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統閒置時間設定()
        ConnOpen() : SQL1 = "SELECT timeExit, timeExit2 FROM 系統閒置時間設定" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統閒置時間設定修改()
        ConnOpen()
        SQL1 = "UPDATE 系統閒置時間設定 SET timeExit = N'" & PA1 & "', timeExit2 = N'" & PA2 & "' WHERE (timeExit = N'" & PA3 & "' AND timeExit2 = N'" & PA4 & "')"
        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 [檔案大小(MB)]
                FROM    sys.master_files 
                WHERE  (DB_NAME(database_id) NOT LIKE N'm%') AND (DB_NAME(database_id) NOT LIKE N't%')"
        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) NOT LIKE N'm%') AND (DB_NAME(database_id) NOT LIKE N't%') 
                GROUP BY DB_NAME(database_id)"
        CmdSet_For_DGV()
    End Sub
End Module