MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/Module/SQL_人事系統管理.vb

Module SQL_人事系統管理
    '---------------------員工ID卡系統配置設定-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_人員清單()
        ConnOpen() : SQL1 = "SELECT 姓名, 帳號, ID卡號 FROM 使用者權限管理表" : 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_員工資料清單()
        SQL1 = "SELECT  員工資料表.編號, 員工資料表.名稱, 員工資料表.性別, 員工資料表.身分證, 員工資料表.出生日期, 員工資料表.居住址1 AS 居住址, 員工資料表.手機, 員工資料表.配偶, 
                        員工資料表.配偶手機, 員工資料表.住家連絡電話, MJ職別.職別 AS 職稱, 員工資料表.到職日期, 員工資料表.薪水, 員工資料表.LineID, MJ負責區域.負責區域 AS 責任區, 
                        員工資料表.負責區域, 員工資料表.職別
                FROM    員工資料表 LEFT OUTER JOIN MJ職別 ON 員工資料表.職別 = MJ職別.編號 LEFT OUTER JOIN MJ負責區域 ON 員工資料表.負責區域 = MJ負責區域.編號"
        PA1 = " ORDER BY   員工資料表.編號 DESC"
        PA2 = "WHEWE 員工資料表.編號 LIKE N'%" & PA & "%' OR 員工資料表.名稱 LIKE N'%" & PA & "%' OR 員工資料表.性別 LIKE N'%" & PA & "%' OR 員工資料表.身分證 LIKE N'%" & PA & "%' OR 
                     員工資料表.出生日期 LIKE N'%" & PA & "%' OR 員工資料表.居住址1 LIKE N'%" & PA & "%' OR 員工資料表.手機 LIKE N'%" & PA & "%' OR 員工資料表.配偶 LIKE N'%" & PA & "%' OR 
                     員工資料表.配偶手機 LIKE N'%" & PA & "%' OR 員工資料表.住家連絡電話 LIKE N'%" & PA & "%' OR MJ職別.職別 LIKE N'%" & PA & "%' OR 員工資料表.到職日期 LIKE N'%" & PA & "%' OR 
                     員工資料表.薪水 LIKE N'%" & PA & "%' OR 員工資料表.LineID LIKE N'%" & PA & "%' OR MJ負責區域.負責區域 LIKE N'%" & PA & "%'
               ORDER BY 編號 DESC"
        ConnOpen() : If PA = "" Then : SQL1 &= PA1 : Else : SQL1 &= PA2 : End If : CmdSet_For_DGV()
    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 員工資料表 (編號, 名稱, 性別, 身分證, 出生日期, 居住址1, 手機, 配偶, 配偶手機, 住家連絡電話, 職別, 到職日期, 薪水, LineID, 負責區域) 
                VALUES (N'" & 員工資料表.編號_tb.Text & "',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'',N'')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_員工資料表修改()
        ConnOpen()
        SQL1 = "UPDATE 員工資料表 SET  名稱  = N'" & PA1 & "', 性別 = N'" & PA2 & "', 身分證 = N'" & PA3 & "' , 出生日期 = N'" & PA4 & "' , 居住址1 = N'" & PA5 & "' , 手機 = N'" & PA6 &
                                  "' , 配偶 = N'" & PA7 & "' , 配偶手機 = N'" & PA8 & "' , 住家連絡電話 = N'" & PA9 & "' , 職別 = N'" & PA10 & "' , 到職日期 = N'" & PA11 & "' , 薪水 = N'" & NU1 &
                                  "' , LineID = N'" & PA12 & "' , 負責區域 = N'" & PA13 & "' 
                WHERE (編號 LIKE '" & PA14 & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_員工資料表刪除()
        ConnOpen()
        SQL1 = "DELETE FROM 員工資料表 WHERE (編號 = '" & 員工資料表.編號_tb.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_職別下拉清單()
        ConnOpen() : SQL1 = "SELECT 編號, 職別 FROM MJ職別 ORDER BY 編號" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_負責區域下拉清單()
        ConnOpen() : SQL1 = "SELECT 編號, 負責區域 FROM MJ負責區域 ORDER BY 編號" : CmdSet_For_dr()
    End Sub
End Module