MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/Module/SQL_登入與主程式.vb

Module SQL_登入與主程式
    '---------------------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 (帳號 = '" & LoginForm1.帳號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_刷卡登入()
        ConnOpen() : SQL1 = "SELECT 帳號, 密碼 FROM 使用者權限管理表 WHERE (ID卡號 = '" & LoginForm1.帳號_tb.Text & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_帳號讀取()
        ConnOpen() : SQL1 = "SELECT 帳號 FROM 使用者權限管理表" : 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
    '---------------------MAOJI_ERP_SYS-----------------------------------------------------------------------------------------------------------------
    Friend Sub SQL_公司選擇清單()
        ConnOpen() : SQL1 = "SELECT 公司編號, 公司名, 統編, 電話, 地址 FROM MJ公司基本資料 ORDER BY 公司編號" : CmdSet_For_dr()
    End Sub
End Module