数据库原理及vfp课程设计报告-学籍管理系统

数据库原理及vfp课程设计报告-学籍管理系统内容摘要：

ENDPROC PROCEDURE ENDPROC 六、学生个人信息追加表单 一、功能：向 表中追加记录，界面如下： 二、数据环境 5 个基本表： 、 、 、 、 三、主要对象的属性及事件过程 表单的 Init(创建表单时发生 )事件过程： PROCEDURE Init select xs set order to xh amp。 amp。 设置主索引 *建立临时表 ： lsb creat cursor lsb(xh c(7),xm c(8),xb c(2),mz c(2),rxcj n(5,2),zzmm c(4),hf l,csrq d,。 jg c(20),bj c(7),grjl m,jtcy m,zp g) append blank replace mz with 39。 汉 39。 ,xb with 39。 男 39。 amp。 amp。 为表中当前记录的字段赋值 ENDPROC 四个组合框 Combo Combo Combo Combo4： 分别用来确定所录入的学生信息所在的系部、专业、类别和编辑。 主要属性：  系部 ： Combo1 属性： ColumnCount = 0 ColumnWidths = RowSourceType = 6 RowSource = FirstElement = 1 Height = 25 Left = 73 NumberOfElements = 0 TabIndex = 1 Top = 25 Width = 85 Name = Combo1  专业： Combo2 属性： CoundColumn = 2 ColumnCount = 2 RowSourceType = 3 RowSource = select zym,zyh from zy into cursor aa where xb= Height = 25 Left = 222 TabIndex = 2 Top = 25 Width = 85 Name = Combo2  类别： Combo3 属性： RowSourceType = 6 RowSource = Height = 24 Left = 371 TabIndex = 3 Top = 25 Width = 96 Name = Combo3  班级： Combo4 属性： SourceType = 3 RowSource = select bm from bj into cursor b where lb= and zy= ControlSource = Height = 25 Left = 540 TabIndex = 4 Top = 25 Width = 72 Name = Combo4 事件过程： PROCEDURE InteractiveChange ENDPROC 页表： Pageframe1 页表为容器类对象，一个页表可以包含多页，由属性 PageCount设置页表中的页数，每一页中又可放置各种对象。 该表单中的页表 Pageframe1中有 3页，第一页中主要是学生的基本信息，第二页中为学生的个人简历，第三页中为学生的具体情况，其中控件分别与临时表 lsb中的字段（处 性别字段： XB）绑定。 主要属性： PageCount = 3 Name = Pageframe1 = .T. = 新宋体 = 12 = 基本信息 = 255,0,0 = Page1 = .T. = 新宋体 = 12 = 个人简历 = 255,0,0 = Page2 = .T. = 新宋体 = 12 = 家庭成员 = 255,0,0 = Page3 事件过程 ： ROCEDURE ENDPROC PROCEDURE ENDPROC PROCEDURE ENDPROC 页框中的控件： 1) 文本框 ： Txtxh的事件过程： PROCEDURE LostFocus ZPWJM=39。 zp\39。 +ALLT()+.JPG IF FILE(ZPWJM) APPEND GENER ZP FROM amp。 ZPWJM ELSE ZPWJM=39。 zp\39。 +ALLT()+.BMP IF FILE(ZPWJM) APPEND GENER ZP FROM amp。 ZPWJM ELSE ZPWJM=39。 zp\39。 +ALLT()+.GIF IF FILE(ZPWJM) APPEND GENER ZP FROM amp。 ZPWJM ENDIF ENDIF ENDIF ENDPROC 2) 单选按钮组： Option1 属性： ButtonCount = 2 Value = 1 Name = Optxb = .T. = 男 = 1 = Option1 = .T. = 女 = Option2 事件过程： PROCEDURE Click if =2 replace xb with 39。 女 39。 endif ENDPROC 3) 组合框政治面貌： Combo2 其数据源为：“值” RowSourceType = 1 RowSource = 党员 ,团员 ,群众 ControlSource = Name = Combo2 两个命令按钮 COMMAND1: 属性： Caption = 追 加 TabIndex = 10 ForeColor = 255,0,0 Name = Command1 事件过程： PROCEDURE Click if !empty() select xs seek if eof() m_bj= insert into xs values( , , ,lsb.hf , ,) creat cursor lsb(xh c(7),xm c(8),xb c(2),mz c(2),rxcj n(5,2),zzmm c(4),hf l,csrq d,jg c(20),bj c(7),grjl m,jtcy m,zp g) append blank replace mz with 39。 汉 39。 ,xb with 39。 男 39。 ,bj with m_bj else =messagebox(学号重复。 ,0,错误 ) endif endif ENDPROC COMMAND2 属性 ： Caption = 结 束 ForeColor = 255,0,0 Name = Command2 事件 过程 ： PROCEDURE Click ENDPROC 七 、应用实例： 学生成绩 表单设计 表单文件名： 功能：为数据库表 追加数据 界面： 设计步骤： 1 新建表单 2 添加数据环境：数据库表 3 界面设计：  4 个标签：字体、字号、背景色、对齐方式  1 个表格：数据源数据库表  3 个文本框： 主要属性 name 分别 ： txtxh, txtkh, txtcj ControlSource：分别为全局变量： xjl(1),xjl(2),xjl(3)  2 个命令按钮 mand1( 追加 )、 mand2(结束 ) 4 事件过程  过程 Select cj amp。 amp。 选择当前工作区 Set order to xh amp。 amp。 设置主索引 Public xjl(3),m_xg amp。 amp。 定义全局变量 ,默认值为逻辑假 Xjl= amp。 amp。 为数组元素赋初值，字符型 Set delete on amp。 amp。 设置逻辑删除有效  过程 xjl(2)=allt(xjl(2)) IF LEN(xjl(2))=0 =messagebox(系部名不能空。 ,0,错误 ) else insert into cj from array xjl amp。 amp。 向表中追加插入数据 xjl= endif  过程 amp。 amp。 从内存中释放表单集或表单 八 、成绩录入表单 功能： 向基本表 中追加记录，界面如下： 要求： 按班级 录入单科成绩，选择班级和课程后，由程序向成绩表（ ）中插入所选班级所有学生的学号与所选课程课号两个字段，成绩字段由键盘输入，界面要显示学号和姓名 ,并且可以打印成绩报表。 设计思路： 建立一个视图，包括班级、学号、姓名、课号、课名、成绩，通过视图向成绩表 ()中追加数据。 当用户选定“班级”和“课程”后，即可获得“ BJ”和“ KH”两个字段的值，通过“ BJ”字段的值即可到“ XS”表中查得该班级的所有学生的学号（ XH） ,再通过 SELECT— SQL 语句得到所有的所有该班级每个学生的学号（ XH）分别与所选课号（ KH）的组合，而后。