分享
 
 
 

研究生管理信息系统的开发流程

王朝other·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

系统需求分析

研究生个人信息治理

导师信息治理

专业信息治理

功能模块设计

针对上述需求,设计的功能模块如图10.34所示。

(图片较大,请拉动滚动条观看)

数据表设计

1.研究生信息数据表

数据表名称:graduate_info。数据表结构如表10.4所示。

(图片较大,请拉动滚动条观看)

2.专业信息数据表

(图片较大,请拉动滚动条观看)

3.导师信息数据表

(图片较大,请拉动滚动条观看)

索引和视图设计

1.研究生信息数据表的索引和视图设计

2.专业信息表的索引和视图设计

3.导师信息数据表的索引和视图设计

创建数据库用户

(1)在如图10.35所示的创建用户的【一般信息】选项卡中进行如下设置。

(2)切换到如图10.36所示的创建用户的【角色】选项卡。

(图片较大,请拉动滚动条观看)

(3)成功创建上述用户的SQL代码如下。

―――――――――――――――――――――――――――――――――――――

CREATE USER "GRADUATEUSER" PROFILE "DEFAULT"

IDENTIFIED BY "12345678" DEFAULT TABLESPACE "USERS"

TEMPORARY TABLESPACE "TEMP"

ACCOUNT UNLOCK;

GRANT UNLIMITED TABLESPACE TO "GRADUATEUSER";

GRANT "CONNECT" TO "GRADUATEUSER";

GRANT "RESOURCE" TO "GRADUATEUSER";

―――――――――――――――――――――――――――――――――――――

【参见光盘文件】:第10章\creategraduateuser.sql。

(4)读者可以直接在【SQLPlus Worksheet】中执行creategraduateuser.sql文件创建用户。

创建数据表

1.创建研究生信息表

(1)在如图10.37所示的创建表的【一般信息】选项卡中进行如下操作。

(2)切换到如图10.38所示的创建表的【约束条件】选项卡。

(图片较大,请拉动滚动条观看)

(3)上述创建数据表graduateuser.graduate_info的SQL代码如下。

(图片较大,请拉动滚动条观看)

(3)上述创建数据表graduateuser.graduate_info的SQL代码如下。

(4)读者可以直接在【SQLPlus Worksheet】中执行createtablegraduateinfo.sql 文件创建数据表graduateuser.graduate_info。

2.创建专业信息表

(1)在如图10.39所示的创建表的【一般信息】选项卡中按照如图所示进行设置。

(2)切换到如图10.40所示的创建表的【约束条件】选项卡。

(图片较大,请拉动滚动条观看)

(3)上述创建数据表graduateuser.major_info的SQL代码如下。

(图片较大,请拉动滚动条观看)

【参见光盘文件】:第10章\createtablemajorinfo.sql。

(4)读者可以直接在【SQLPlus Worksheet】中执行createtablemajorinfo.sql文件创建数据表graduateuser.major_info。

3.创建导师信息表

(1)在如图10.41所示的创建表的【一般信息】选项卡中按照如图所示进行设置。

(2)切换到如图10.42所示的创建表的【约束条件】选项卡。

(图片较大,请拉动滚动条观看)

(3)上述创建数据表graduateuser.Director_info的SQL代码如下。

(图片较大,请拉动滚动条观看)

【参见光盘文件】:第10章\createtabledirectorinfo.sql。

(4)读者可以直接在【SQLPlus Worksheet】中执行createtabledirectorinfo.sql 文件创建数据表graduateuserdirector_info。

创建索引

1.为研究生信息表的NAME字段建立索引

(1)在如图10.43所示的创建索引的【一般信息】选项卡中按照图示进行操作。

(2)其他选项卡按照默认设置即可。

(3)上述创建索引的SQL代码如下。

―――――――――――――――――――――――――――――――――――――

CREATE INDEX "GRADUATEUSER"."研究生姓名字段索引"

ON "GRADUATEUSER"."GRADUATE_INFO"("NAME")

TABLESPACE "INDX"

―――――――――――――――――――――――――――――――――――――

【参见光盘文件】:第10章\createindexgraduate.sql。

(4)读者可以直接在【SQLPlus Worksheet】中执行createindexgraduate.sql 文件创建数据表graduateuser.graduate_info的索引“研究生姓名字段索引”。

2.为导师信息表的NAME字段建立索引

(1)在如图10.44所示的创建索引的【一般信息】选项卡中按照图示进行操作。

(2)其他选项卡按照默认设置即可。

(3)上述创建索引的SQL代码如下。

―――――――――――――――――――――――――――――――――――――

CREATE INDEX "GRADUATEUSER"."导师姓名字段索引"

ON "GRADUATEUSER"."DIRECTOR_INFO"("NAME")

TABLESPACE "INDX"

―――――――――――――――――――――――――――――――――――――

【参见光盘文件】:第10章\createindexdirector.sql。

(4)读者可以直接在【SQLPlus Worksheet】中执行createindexdirector.sql 文件创建数据表graduateuser.director_info的索引“导师姓名字段索引”。

创建视图

1.为研究生信息表建立视图

(1)在如图10.45所示的创建视图的【一般信息】选项卡中按照图示进行操作。

(2)其他选项卡按照默认设置即可。

(3)上述创建视图的SQL代码如下。

―――――――――――――――――――――――――――――――――――――

CREATE OR REPLACE VIEW "GRADUATEUSER"."VIEW_GRADUATE" AS

select *

from graduateuser.graduate_info WITH READ ONLY

―――――――――――――――――――――――――――――――――――――

【参见光盘文件】:第10章\createviewgraduate.sql。

(4)读者可以直接在【SQLPlus Worksheet】中执行createviewgraduate.sql文件创建数据表graduateuser.graduate_info的视图“VIEW_GRADUATE”。

2.为专业信息表建立视图

(1)在如图10.46所示的创建视图的【一般信息】选项卡中按照图示进行操作。

(2)其他选项卡按照默认设置即可。

(3)上述创建视图的SQL代码如下。

―――――――――――――――――――――――――――――――――――――

CREATE OR REPLACE VIEW "GRADUATEUSER"."VIEW_MAJOR" AS

select *

from graduateuser.major_info WITH READ ONLY

―――――――――――――――――――――――――――――――――――――

【参见光盘文件】:第10章\createviewmajor.sql。

(4)读者可以直接在【SQLPlus Worksheet】中执行createviewmajor.sql文件创建数据表graduateuser.major_info的视图“VIEW_MAJOR”。

2.为导师信息表建立视图

(1)在如图10.47所示的创建视图的【一般信息】选项卡中按照图示进行操作。

(2)其他选项卡按照默认设置即可。

(3)上述创建视图的SQL代码如下。

―――――――――――――――――――――――――――――――――――――

CREATE OR REPLACE VIEW "GRADUATEUSER"."VIEW_DIRECTOR" AS

select *

from graduateuser.director_info WITH READ ONLY

―――――――――――――――――――――――――――――――――――――

【参见光盘文件】:第10章\createviewdirector.sql。

(4)读者可以直接在【SQLPlus Worksheet】中执行createviewdirector.sql 文件创建数据表graduateuser.director_info的视图“VIEW_DIRECTOR”

VB工程总体框架

开发完成的研究生治理信息系统的总体框架如表10.7所示。

【参见光盘文件】:第10章\研究生治理信息系统.vbp。

(图片较大,请拉动滚动条观看)

(图片较大,请拉动滚动条观看)

系统是如何运行的

(1)启动VB,打开配套光盘的工程文件。

(2)如图10.48所示。

(3)出现如图10.49所示的工程属性的【通用】选项卡。

(4)打开模块Module1,查看名为Main的过程的代码如下。说明Main过程将启动名为frmMain的主窗体。

(图片较大,请拉动滚动条观看)

(5)编辑名为frmMain的主窗体,如图10.50所示。

(6)出现如图10.51所示的【菜单编辑器】界面,可以查看主窗体的菜单设计。

工程中设计的菜单如表10.8所示。

(图片较大,请拉动滚动条观看)

(图片较大,请拉动滚动条观看)

(7)为什么这些菜单可以调用这些子窗体或者执行退出主窗体的操作呢?在图10.50的主窗体中用鼠标双击,在出现的代码窗口中的主要代码如下。

―――――――――――――――――――――――――――――――――――――

‘选择菜单项DirectorInsertMenu后将显示子窗体FormInsertDirector

Private Sub DirectorInsertMenu_Click()

FormInsertDirector.Show

End Sub

‘选择菜单项DirectorSelectMenu 后将显示子窗体FormSelectDirector

Private Sub DirectorSelectMenu_Click()

FormSelectDirector.Show

End Sub

‘选择菜单项DirectorUpdateMenu后将显示子窗体FormUpdateDirector

Private Sub DirectorUpdateMenu_Click()

FormUpdateDirector.Show

End Sub

‘选择菜单项GraduateInsertMenu后将显示子窗体FormInsertGraduate

Private Sub GraduateInsertMenu_Click()

FormInsertGraduate.Show

End Sub

‘选择菜单项GraduateSelectMenu后将显示子窗体FormSelectGraduate

Private Sub GraduateSelectMenu_Click()

FormSelectGraduate.Show

End Sub

‘选择菜单项GraduateUpdateMenu后将显示子窗体FormUpdateGraduate

Private Sub GraduateUpdateMenu_Click()

FormUpdateGraduate.Show

End Sub

‘选择菜单项MajorInsertMenu后将显示子窗体FormInsertMajor

Private Sub MajorInsertMenu_Click()

FormInsertMajor.Show

End Sub

‘选择菜单项MajorUpdateMenu后将显示子窗体FormUpdateMajor

Private Sub MajorUpdateMenu_Click()

FormUpdateMajor.Show

End Sub

‘选择菜单项ExitMenu后将显示退出主窗体

Private Sub ExitMenu_Click()

End

End Sub

―――――――――――――――――――――――――――――――――――――

模块的设计

模块Module1的其他主要代码如下。

―――――――――――――――――――――――――――――――――――――

‘定义了名为ConnectString的无参数函数,连接数据库

Public Function ConnectString() As String

ConnectString = "DSN=graduateDB;UID=graduateuser;PWD=12345678"

End Function

‘定义了名为ExecuteSQL的带参数函数,参数SQL和MsgString都为字符串型。该函数用于执行SQL语句。

Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset

‘conn为ADODB的connection连接对象

Dim conn As ADODB.Connection

‘rest为ADODB的记录集对象

Dim rest As ADODB.Recordset

‘若执行SQL错误转向ExecuteSQL_Error标记处

On Error GoTo ExecuteSQL_Error

Set conn = New ADODB.Connection

‘连接数据库

conn.Open ConnectString

Set rest = New ADODB.Recordset

‘执行SQL字符串语句

rest.Open Trim$(SQL), conn, adOpenKeyset, adLockOptimistic

Set ExecuteSQL = rest

MsgString = "查询到" & rest.RecordCount & " 条记录"

‘执行SQL完毕后关闭连接和记录集

ExecuteSQL_Exit:

Set rest = Nothing

Set conn = Nothing

Exit Function

‘执行SQL错误时的处理方法

ExecuteSQL_Error:

MsgString = "查询错误: " & _

Err.Description

Resume ExecuteSQL_Exit

End Function

‘定义了名为Checktxt的带参数函数,参数txt为字符串型。该函数用于检测txt字符串是否有内容。

Public Function Checktxt(txt As String) As Boolean

If Trim(txt) = "" Then

Checktxt = False

Else

Checktxt = True

End If

End Function

―――――――――――――――――――――――――――――――――――――

各子窗体的设计

1.添加信息窗体的设计

打开名为FormInsertGraduate的子窗体,如图10.52所示。

窗体的设计如表10.8所示。

表10.8 子窗体FormInsertGraduate的设计

(图片较大,请拉动滚动条观看)

(图片较大,请拉动滚动条观看)

(图片较大,请拉动滚动条观看)

窗体的程序代码分析如下。

(图片较大,请拉动滚动条观看)

(图片较大,请拉动滚动条观看)

(图片较大,请拉动滚动条观看)

(图片较大,请拉动滚动条观看)

2.修改信息窗体的设计

打开名为FormUpdateGraduate的子窗体,如图10.53所示。

窗体的设计如表10.10所示。

(图片较大,请拉动滚动条观看)

(图片较大,请拉动滚动条观看)

窗体的程序代码分析如下。

(图片较大,请拉动滚动条观看)

(图片较大,请拉动滚动条观看)

(图片较大,请拉动滚动条观看)

3查询信息窗体的设计

打开名为FormSelectGraduate的子窗体,如图10.54所示。窗体的设计如表10.11所示。

(图片较大,请拉动滚动条观看)

窗体的代码设计如下。

(图片较大,请拉动滚动条观看)

(图片较大,请拉动滚动条观看)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有