分享
 
 
 

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

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

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的设计

点击查看大图

点击查看大图

点击查看大图

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

点击查看大图

点击查看大图

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
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- 王朝網路 版權所有