《代码及实现》由会员分享，可在线阅读，更多相关《代码及实现（4页珍藏版）》请在金锄头文库上搜索。
1、学生信息管理系统代码及实现 成绩管理模块 连接数据库的代码如下：SQLCA.DBMS = MSS Microsoft SQL ServerSQLCA.Database = classmanagerSQLCA.LogPass =123SQLCA.ServerName = LENOVO-7D5C348BSQLCA.LogId = saSQLCA.AutoCommit = FalseSQLCA.DBParm = connect;if sqlca.sqlcode 0 thenmessagebox(提示，连接数据库失败！请重新启动系统！)end ifopen(w_main)成绩录入的代码如下：单行文本编
2、辑框的modified ()代码：string s ，s1integer total，is=trim(sle_1.text)select 教师号 into :s from 教师 where 教师名二：s;total=ddlb_1.totalitems()for i=1 to totalddlb_1.deleteitem(1)next/读取课程编号DECLARE course_id CURSOR FORSELECT DISTINCT 教师课程.课程号FROM 教师课程WHERE 教师课程.教师号 = ：s ;open course_id;if sqlca.sqlcode=-1 thenmessa
3、gebox(提示，读取课程出错！请重试！)elses1=doif s1 then select 课程名 into :si from 课程 where 课程号二：si; ddlb_1.additem(s1)end iffetch course_id into :si;loop while sqlca.sqlcodei00end ifclose course_id;查询按钮代码如下：string js,kcjs=string(trim(sle_i.text) kc=string(trim(ddlb_i.text) if js=or kc=thenmessagebox(数据不全！，请填写信息！)el
4、sedw_i.settransobject(sqlca) dw_i.retrieve(js，kc)end ifsle_i.setfocus()保存按钮代码如下：if dw_i.update()=i then messagebox(提示，保存成功！) commit;else messagebox(提示，保存失败！) rollback;end if退出按钮代码如下：close(parent)按学号查询成绩主要代码如下： 查询按钮代码：string ss=trim(sle_i.text)if not s=thendw_i.settransobject(sqlca) dw_i.retrieve(s)e
5、lsemessagebox(数据不全！，请输入待查询学生的学号！) end ifsle_i.setfocus()打印代码：dw_1.print(true) 按课程查询成绩主要代码如下：系别下拉列表框的selectionchanged()代码： string str,s integer i,total s=trim(ddlb_1.text):s;SELECT 系别.系别号 into :str FROM 系别 WHERE 系别名 =total=ddlb_2.totalitems()for i=1 to total ddlb_2.deleteitem(1)nextDECLARE couser_nam
6、e CURSOR FORSELECT DISTINCT 课程.课程名FROM 课程WHERE 课程.系别号 = :str ;open couser_name;if sqlca.sqlcode=-1 thenmessagebox(提示，读取课程信息出错！请重试！) elsestr=doif str thenddlb_2.additem(str)end iffetch couser_name into :str;loop while sqlca.sqlcode100end ifclose couser_name;查询按钮代码：string s1，s2s2=trim(ddlb_2.text)s1=t
7、rim(ddlb_1.text)if s1=or s2=then messagebox(数据不全！，请选择信息！)elsedw_2.settransobject(sqlca) dw_2.retrieve(s2)end ifddlb_1.setfocus()按班级查询成绩主要代码如下： 在窗口的 open 事件中编写如下代码： string strDECLARE depart_name CURSOR FORSELECt distinct 系别.系别名FROM 系别 ;open depart_name;if sqlca.sqlcode=-1 thenmessagebox(提示，读取系别信息出错！请
8、重试！) elsestr=doif str” t henddlb_3.additem(str)end iffetch depart_name into :str;loop while sqlca.sqlcode100end ifclose depart_name;系别下拉列表框的selectionchanged()代码： string str，sinteger i，total s=trim(ddlb_3.text):s;SELECT 系别.系别号 into :str FROM 系别 WHERE 系别名 =total=ddlb_4.totalitems()for i=1 to total ddl
9、b_4.deleteitem(1)next/读取班级信息DECLARE class_name CURSOR FORSELECT DISTINCT 班级.班级名 FROM 班级WHERE 班级.系别号 = :str ;open class_name;if sqlca.sqlcode=-1 thenmessagebox(提示，读取班级信息出错！请重试！) else. str=doif str thenddlb_4.additem(str)end iffetch class_name into :str;loop while sqlca.sqlcode100end ifclose class_name; 查询按钮代码如下： string s1,s2,s3 s1=trim(ddlb_4.text) s2=trim(ddlb_5.text) s3=trim(ddlb_3.text) q 1c c 丄iif s1=or s2=or s3= then messagebox(数据不全！，请选择信息！) elsedw_3.settransobject(sqlca) dw_3.retrieve(s1，s2，s3)end ifddlb_3.setfocus()
