计算机信息管理基础 信管05Word格式文档下载.docx

计算机信息管理基础 信管05Word格式文档下载.docx

《计算机信息管理基础 信管05Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《计算机信息管理基础 信管05Word格式文档下载.docx（19页珍藏版）》请在冰豆网上搜索。

实验性质

□验证性□设计性√综合性

教师评价：

□算法正确；

□程序结构合理；

□语法、语义正确；

□实验结果正确；

□报告规范；

其他：

一、实验目的

1．理解并掌握PB中数据窗口对象、菜单的概念和使用方法；

2．掌握在PB通过数据窗口控件显示数据库表中数据的方法及菜单的基本应用；

3．掌握PB中SQLSelect及QuickSelect类型数据源的选取和操作方法；

4.掌握在PB中通过数据窗口对数据库数据进行复杂操作的方法；

二、实验主要内容及过程（原始记录）

1．创建登录窗口，可根据不同对象（老师、学生）关联不同的数据窗口对象（选择数据源：

SQLSelect）；

2．创建菜单，完成菜单设计（涵盖级联、下拉、快捷键、加速键等设计），菜单版式见后。

3．主窗口中可根据不同的登录类型，检索出登录人的基本信息

数据窗口一（本人的基本信息）：

（1）（学生号、学生姓名、所在系名）

A.学生登录时，按钮示例不可用（ENABLED）

B.菜单中m_基本应用的按多个条件查询学生不可见（VISIBLE）

C．菜单基本数据维护不可见（VISIBLE）

或

（2）（教师号、教师姓名、所在系名）

显示（显示风格：

Grid，选择数据源：

4．通过菜单M_查询课程详情打开子窗口，该子窗口中设计两个数据窗口控件对课程信息进行查询，

1.数据窗口对象（上）（显示风格：

freeform，选择数据源：

QuickSelect）,完成前、后行查阅；

2.数据窗口对象（下）（显示风格：

QuickSelect）中，完成对课程信息

插入、删除、保存、退出功能，并能对课程号精确查询，对课程名称进行模糊查询。

3、打开子窗口时，数据窗口控件下中无数据，直到按下按钮_显示课程信息，其中数据才出现。

4.完成增加、删除.保存（注意：

COMMIT,ROLLBACK的使用）、退出各个按钮

5.、通过菜单按多个条件查询学生，打开窗口：

按学院、性别两个条件查询表（学号学生姓名学生性别年龄所在系）

SQLSelect）

6、通过菜单按学生所在系查询该系所有学生选课情况，打开子窗口2，可完成

A.数据窗口一：

（学生号、学生姓名、学生所在系）

B.窗口二:

（学生姓名、课程名称、成绩、学生所在系）

C.编制脚本（程序）通过数据窗口1选中的学生表中的记录，根据该生所在系信息，能够在数据窗口2中显示当前学生所在系所有学生成绩信息；

菜单版式：

三、实验过程及结果

（1）界面截图

教师登录

教师登录后

学生登录

学生登录后

按多个条件查询学生的应用

（3）程序

1）应用中的open事件

//ProfileDatabase

SQLCA.DBMS="

ODBC"

SQLCA.AutoCommit=False

SQLCA.DBParm="

Connectstring='

DSN=database'

"

connect;

ifSQLCA.SQLCode<

>

0then

Messagebox（"

连接失败"

"

不能连接到数据库的原因为:

+SQLCA.SQLErrText）

return

else

open（w_main）

endif

2）登录按钮

gs_stuno=sle_1.text

gs_stucode=sle_2.text

gs_style=ddlb_1.text

gs_teano=sle_1.text

gs_teacode=sle_2.text

ifddlb_1.text="

then

messagebox（"

警告"

请选择类型"

Stopsign!

）

elseifgs_style="

学生"

dw_1.dataobject="

dw_stu"

dw_1.settransobject（sqlca）

dw_1.retrieve（gs_stuno,gs_stucode）

教师"

dw_teacher"

dw_1.retrieve（gs_teano,gs_teacode）

ifdw_1.rowcount（）=0then

messagebox（"

对不起，认证错误，请确认密码或账号是否正确后重新输入"

elseifdw_1.rowcount（）=1then

open（w_inform）

close（parent）

endif

3）登录窗口中的退出按钮

a=messagebox（"

退出"

真的要退出吗!

Question!

yesno!

ifa=1then

close（w_main）

4）登录后窗口的open事件

ifgs_style="

cb_1.enabled=false

m_inform.m_基本应用.m_按多个条件查询学生.visible=false

m_inform.m_基本数据维护.visible=false

dw_1.Dataobject="

dw_stu_inform"

dw_1.settransobject（SQLCA）

dw_1.retrieve（gs_teano）

dw_tea_inform"

dw_1.retrieve（gs_stuno）

5）菜单中的

查询成绩：

open（w_chengcha）

查询课程详情：

open（w_chake）

close（w_inform）

按多个条件查询学生：

open（w_xiangcha）

按某个学生所在系查询该系所有学生选课情况：

6）查询课程详情窗口的open事件

查询课程详情窗口

7）查询课程详情窗口中

上一条：

dw_1.settransobject（sqlca）

dw_1.scrollpriorrow（）

下一条：

dw_1.scrollnextrow（）

查询按钮：

dw_2.settransobject（SQLCA）

gs_cname=sle_1.text

dw_2.dataobject="

dw_sc_infrom"

dw_2.retrieve（gs_cname）

显示课程详情按钮：

dw_sc_full"

dw_2.settransobject（sqlca）

dw_2.retrieve（）

增加按钮：

longll_row

ll_row=dw_2.insertrow（0）

dw_2.setfocus（）

dw_2.scrolltorow（ll_row）

dw_2.setcolumn

（1）

dw_2.insertrow（0）

删除按钮：

deleterow（dw_2,dw_2.getrow（））

保存按钮：

update（dw_2）

退出按钮：

close（parent）

7）按多条件查询学生窗口

按所在学院及性别进行查询按钮：

gs_stuxi=ddlb_1.text

gs_stusex=ddlb_2.text

dw_1.retrieve（gs_stuxi,gs_stusex）

8）实验中使用的全局变量

inta

intb

intc

intd

stringgs_stuno

stringgs_teano

stringgs_stucode

stringgs_teacode

stringgs_style

stringgs_cname

stringgs_stuxi

stringgs_stusex

四．实验分析或总结

1.通过这次实验我加深了对数据窗口对象、菜单概念的理解，并掌握在PB通过数据窗口控件显示数据库表中数据的方法及菜单的基本应用；

2.要想完满完成一个复杂的实验，不但需要我们扎实的基础知识，还需要我们细心的态度以及对实验题目的正确理解。

3.实验的复杂程度可以在一定程度上决定着我们能够学到知识的多少。