HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/00、MyModule/SQL_登入與主程式.vb

Module SQL_登入與主程式
    Friend Sub SQL_刷卡登入(ID卡號 As String)
        ConnOpen() : SQL1 = "SELECT id AS 帳號, pw AS 密碼 FROM rt_sys_staff WHERE (ID卡號 = '" & ID卡號 & "')" : CmdSet_For_dr()
    End Sub
    Friend Sub SQL_登入與權限取得()
        ConnOpen()
        SQL1 = "Select name,id, pw, con1, con2, con3, con4, con5, con6, con7, con8, con9, con10, con11, con12, con13, con14, 
                       con15, con16, con17, con18, con19, con20, con21, con22, con23, con24, con25, con26, con27, con28, con29, con30, con31, con32, con33, con34, con35, 
                       con36, con37, con38, con39, con40, con41, con42, con43, con44, con45, con46, con47, con48, con49, con50, con51, con52, con53, con54, con55, con56, 
                       con57, con58, con59, con60, con61, con62, con63, con64, con65, con66, con67, con68, con69, con70, con71, con72, con73, con74, con75, con76, con77, 
                       con78, con79, con80, con81, con82, con83, con84, con85, con86, con87, con88, con89, con90, con91, con92, con93, con94, con95, con96, con97, con98, 
                       con99 from rt_sys_staff Where ID = '" & gUserName & "'"
        CmdSet_For_dr()
    End Sub
    Friend Sub SQL_系統版本號驗證()
        ConnOpen() : SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 " : CmdSet_For_dr()
    End Sub
End Module