WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/00、MyModule/SQL_登入與主程式.vb

Module SQL_登入與主程式
    Friend Sub SQL_資料夾名稱清單()
        ConnOpen()
        SQL1 = "SELECT 資料夾名稱, 指定 FROM FTP資料夾管理 WHERE (指定 NOT LIKE 'NA') ORDER BY 指定"
        CmdSet_For_DGV()
    End Sub
    Friend Sub SQL_系統認證版本號()
        ConnOpen()
        SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 "
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_FTP資料庫管理()
        ConnOpen()
        SQL1 = "SELECT  FTP地址, FTP帳號, FTP密碼, FTP實體位置 FROM FTP資料庫管理 WHERE 地區 LIKE N'" & LoginForm1.伺服器區域選擇_cb.Text & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取使用者權限管理表()
        ConnOpen()
        SQL1 = "SELECT " & 登入權限 & " 使用者權限管理表 WHERE (帳號 = '" & LoginForm1.UsernameTextBox.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_用員工編號分辨()
        ConnOpen()
        SQL1 = "SELECT 員工編號 FROM 使用者權限管理表 WHERE (帳號 = '" & LoginForm1.UsernameTextBox.Text & "')"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_讀取ID卡號()
        ConnOpen()
        SQL1 = "SELECT 帳號, 密碼 FROM 使用者權限管理表 WHERE (ID卡號 = '" & LoginForm1.UsernameTextBox.Text & "')"
        CmdSet_For_dr()
    End Sub
End Module