新建 文本文档 (2).txt

自己做的一个学生信息管理系统。。觉得还可以。。

//对比学号
string k,j
Select xuehao,xingming
into :k,:j
From 学生信息表
where xuehao=:sle_3.text;

if sle_3.text<>K  then
   MessageBox("提示","无此用户名！")
   return
end if
if sle_4.text<>j then	
  MessageBox("警告！","口令错！重新登录！") 
else
MessageBox("提示","欢迎进入系统！")

 open(main)
  close(xsdl)
end if