学生选课管理系统
( ( course_inform.课程代号 = :sle_1.text ) ) ; if cour_no<>\
messagebox(\提示\你已经选择过此门课程\elseif cour_sel_leastno =\
messagebox(\提示\该课程的剩余名额为0，请选择其他课程！\else
//插入用户选择课程到stu_select表 INSERT INTO stu_select
( 学号, 课程代号 ) VALUES ( :student_no, :sle_1.text);
messagebox(\提示\恭喜你，添加课程成功！\
//学生选定该课程后，在该课程的剩余名额中减少一人 UPDATE course_inform
SET 剩余名额 = '剩余名额 - 1' ; dw_2.retrieve( ) end if
elseif sle_1.text= \
messagebox(\提示\你还没有选课！\end if
dw_2.settransobject(sqlca) string user_name1, student_no1 //检索用户的学号
SELECT stu_login.学号, stu_login.用户名 INTO :student_no1, :user_name1 FROM stu_login
WHERE stu_login.用户名 = :login_name ;
24
学生选课管理系统
//根据学号查询用户的详细信息 dw_2.setfilter(\
dw_2.setfilter(\学号='\dw_2.retrieve()
//刷新学生选择课程数，和其学分总数 real score int m,n
m=dw_2.rowcount() score=0.0 for n=1 to m
score=score+real(dw_2.object.course_inform_学分[n]) next
st_3.text=string(m) st_6.text=string(score)
4.5.3 创建生成课表窗口
打开主窗口，单击“生成课表”，即可打开本窗口的维护界面，在本
窗口主要实现学生课程的编排和冲突课程的修改删除，还可以打印课表。下图为生成课表界面，如图4-5所示
图4-5 生成课表主窗口
25
学生选课管理系统
其中一些主要代码如下： （1）查看课表事件的代码 dw_1.settransobject(sqlca)
dw_1.setfilter(\学号='\
trim(stu_no)+\学期='\dw_1.retrieve()
//将课表内的文字清空，主要防止用户再次点击查看时而产生的错误 st_1_1.text=\ st_1_4.text=\ int n,m
string course_time,course,course_classroom n=dw_1.rowcount() //把数据表总行数赋予n //把课程名称显示在课程表中 for m=1 to n
course_time=trim(dw_1.object.course_inform_上课时间[m]) course=trim(dw_1.object.course_inform_课程名称[m])
course_classroom =trim(dw_1.object.course_inform_教室[m]) choose case course_time case \
if st_1_1.text=\
st_1_1.text=course+\ \
else
st_1_1.text=st_1_1.text+\
messagebox(\提示\你的课程有冲突\end if
??
case \
if st_5_5.text=\
st_5_5.text=course+\ \
26
学生选课管理系统
else
st_5_5.text=st_5_5.text+\
messagebox(\提示\你的课程有冲突\end if
end choose next
（2）“打印课表”事件的代码如下 //定义一个打印工作 long job //打开打印设置
job = PrintOpen(string(login_name)+\一份数据文档\//指定打印数据窗口
PrintDataWindow(job, dw_1) //关闭打印工作 PrintClose(job)
4.5.4 创建个人信息窗口
单击主窗口的“查看学生个人信息”选项后，进入此窗口界面，在本窗口主要实现对登录学生信息的查看，以验证学生信息是否正确，下图为个人信息窗口界面，如图4-6所示。
图4-6 学生个人详细信息窗口
27
学生选课管理系统
其中open事件代码如下： //定义全局变量 string stu_no string login_name string gl_no
dw_1.settransobject(sqlca) string user_name, student_no //检索用户的学号
SELECT stu_login.学号, stu_login.用户名 INTO :student_no, :user_name FROM stu_login
WHERE stu_login.用户名 = :login_name ; //根据学号查询用户的详细信息 dw_1.setfilter(\
dw_1.setfilter(\学号='\dw_1.retrieve()
4.5.5 生成课表窗口的设计
单击主窗口“修改登录密码”选项后，即可打开密码修改窗口。本窗口主要功能是修改学生个人的登录密码，在学生正确填写旧的用户名和密码后即可成功就该新密码。其主界面如图4-7所示。
图4-7 密码修改窗口主界面
28
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库学生选课系统课程设计报告(6)在线全文阅读。
相关推荐：