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