GA-ERP-SYS-LEEHSIEHJUI/GA-ERP-SYS/Module/SQL_登入與主程式.vb

Module SQL_登入與主程式
    Friend Sub SQL_FTP資料夾路徑分配()
        ConnOpen() : SQL1 = "SELECT 資料夾名稱, 指定頁面, 備註, 指定 FROM FTP資料夾管理" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統版本號驗證()
        ConnOpen() : SQL1 = "SELECT 系統認證版本號, 小更新1, 小更新2, 小更新3, 小更新4, 小更新5 FROM 版本號管理 " : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_帳號讀取()
        ConnOpen() : SQL1 = "SELECT 客戶, 資料庫, IP位置, 帳號, 密碼 FROM 客戶資料表 ORDER BY 資料庫" : CmdSet_For_dr()
    End Sub
    '---------------------LoginForm1-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_FTP伺服器登入位置()
        ConnOpen() : SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼, FTP物理位置 FROM FTP資料庫管理 WHERE 地區 LIKE N'" & LoginForm1.伺服器區域_ch.Text & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_使用者權限宣告()
        ConnOpen() : SQL1 = "SELECT " & 登入權限 & " FROM 使用者權限管理表 WHERE (帳號 = N'" & LoginForm1.帳號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_使用者職務讀取()
        ConnOpen() : SQL1 = "SELECT 職務, 舊編 FROM 人事資料表 WHERE (姓名 = N'" & gUserName & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刷卡登入()
        ConnOpen() : SQL1 = "SELECT 帳號, 密碼 FROM 使用者權限管理表 WHERE (ID卡號 = N'" & LoginForm1.帳號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_電腦綁定()
        ConnOpen()
        SQL1 = "SELECT MAC碼 FROM 系統綁定電腦資訊 WHERE 硬碟ID LIKE N'" & PA2 & "' AND 硬碟序列 LIKE N'" & PA3 & "' AND 磁盘型態 LIKE N'" & PA4 & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取子資料庫()
        ConnOpen() : SQL1 = "SELECT 客戶, 資料庫, IP位置, 帳號, 密碼 FROM 客戶資料表 WHERE 客戶 LIKE N'" & 登入客戶 & "'" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_登入查詢()
        ConnOpen() : SQL1 = "SELECT CC07, CC20 FROM 使用者權限管理表 WHERE (姓名 = N'" & gUserName & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_登入鎖定()
        ConnOpen() : SQL1 = "UPDATE 使用者權限管理表 SET  CC07 = N'1' WHERE (姓名 = N'" & gUserName & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_登入鎖定解除()
        ConnOpen() : SQL1 = "UPDATE 使用者權限管理表 SET  CC07 = N'0' WHERE (姓名 = N'" & gUserName & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_簡易登入清單()
        ConnOpen() : SQL1 = "SELECT 備註, ID卡號, 主客戶, CC07 AS 鎖定, CC20 AS 測試, 到期日 FROM 使用者權限管理表 ORDER BY 姓名" : CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_USB登入清單()
        ConnOpen() : SQL1 = "SELECT 姓名, ID卡號, 帳號 FROM 使用者權限管理表 WHERE (帳號 LIKE '" & PA15 & "')" : CmdSet_For_dr()
    End Sub
End Module