学生管理系统
1、进入系统：select 口令表b=alltrim(thisform.text2.value)a=alltrim(thisform.text1.value)locate for alltrim(口令表.id)==alltrim(a).and.alltrim(口令表.ps)==alltrim(b)do casecase(alltrim(口令表.id)=a)if(alltrim(口令表.ps)=b)do form 主菜单.scx&&这里交代一下这是关于管理员的，用户和这类似。thisform.releaseendif
