Private dtData As DataTable
(4) 为文本框控件txbid的keydown事件添加事件响应事件。 Private Sub txbId_KeyDown(ByVal sender As Object, ByVal _ e As System.Windows.Forms.KeyEventArgs) Handles txbId.KeyDown If e.KeyCode = Keys.Enter And txbId.Text.Trim.Length <> 0 Then Dim db As DataBase = New DataBase Dim dv As DataView
Dim strSQL As String = \姓名, 班级名称, 学籍编号 from\strSQL += \学生信息 as a, 班级信息 as b where a.班级编号=\strSQL += \班级编号 and 学号='\dv = db.RunSelectSQL(strSQL) If dv.Count = 0 Then
MessageBox.Show(\学号错误～\Exit Sub End If
Me.txbName.Text = dv(0)(\姓名\Me.txbClass.Text = dv(0)(\班级名称\
strSQL = \课程名称,b.开课系别,b.教师,a.成绩 from \strSQL += \成绩表 as a, 课程信息 as b where a.课程编号=\strSQL += \课程编号 and 学号='\strSQL += \课程编号\dv = db.RunSelectSQL(strSQL) Me.dgdList.DataSource = dv dv.AllowDelete = False
dv.AllowEdit = False dv.AllowNew = False dtData = dv.Table
Me.dgdList.AllowSorting = False db.Dispose() End If End Sub
(5) 为按钮控件btnprint的click事件响应事件。
Private Sub btnPrint_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnPrint.Click Dim childFrm As frmPrint = New frmPrint(dtData) childFrm.ShowDialog() End Sub
其中frmprint为打印报表的窗体，接下来将介绍窗体frmprint。Frmprint功能窗体不需要从父窗体继承。
(6) 新建一个窗体，将其name属性改为“frmprint”并为添加如图5.3所示的控件。
图5.3 frmprint窗体
(7) 部分控件的属性设置如表5.4所示。 表5.4 frmprint窗体控件属性设置
控件类型 对象名 属性 取值(说明) Form Frmprint Text Print preview Cystalreportviewer Cystalreportviewer1 Dock Fill
(8) 为窗体类frmprint添加私有变量。 Private dtPrint As DataTable (9) 为窗体frmprint添加构造函数。
Private Sub frmPrint_Load(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Try
Dim obj As ReportDocument = New ReportDocument 'obj加载Crystal Report的路径要设置好 obj.Load(\'设置报表的数据源
'Dim ds As DataSet = New DataSet 'ds.Tables.Add(dtPrint) obj.SetDataSource(dtPrint)
Me.CrystalReportViewer1.ReportSource = obj Catch ex As Exception MessageBox.Show(ex.ToString) End Try End Sub
Report.rpt如图5.5所示。
图5.5 report.rpt 窗体 至此实例全部功能已经完成。 6 系统发布
系统设计完成后需要打包发布，将应用制作成安装程序。制作安装程序的工具很多，一般Visual Basic.NET开发的应用系统可以使用Visual Basic.NET2003自带的功能进行打包，也可以用Install Shield来完成系统的安装查询。
7 小结
我们可以掌握以下知识和技巧。 , 教务管理系统的需求。
, 利用Visual Baisic .NET进行数据库编程的多种方法。 , 数据库识图的使用。
利用Visual Basic.NET编写教务管理系统。
下面是赠送的广告宣传方案不需要的朋友可以下载后编辑删除!!!!! 广告宣传方案
每个人在日常生活中都有意、无意的接受着广告的洗礼,继而有意戒无意的购买、使用广告中的产品和服务。这是每个厂家所希望的,也是他们做广告的初衷。
当今社会的广告媒体大致分为:电视媒体、、电台媒体、报纸报刊媒体、网站媒体、户外广告媒体,以及最新的网吧桌面媒体。
那么,到底哪种媒体的宣传效果性价比最高呢,我们来做个分析; 首先我们大概了解下各个媒体的宣传方式: 电视媒体:
优势:将广告直接插播在电视剧当中,是强迫式使受众接受,受众为了能够完整的看完自己所喜欢的节目,不得不浏览其中插播的广告,其二,由于小孩在懵懂的成长时期,易于接受颜色绚丽,变换节奏快的事物,电视广告更容易被小孩子所接受,这是电视广告的高明之处,也是其客户多,利润大的主要原因。
劣势:随着网络的収展,以及年轻人的生活方式的改变,电视广告的优势在日益削减。当今月来越多的年轻人开始接受速食文化,篇幅过长的电视连续剧的受众逐渐衰减,由于年轻人的思维快捷,逐渐掌握了电视广告的播出时间,往往在广告播出的时间转换频道,避开广告的冲击。 电台媒体和户外广告就不用多做分析,大家想想你记住了几个电台的广告,记住了几个路边的广告就清楚了。
对于报纸报刊的广告,相信只有那些闲了没事的戒者找工作的才会刻意去浏览广告。宣传效果可以想象。
至于网站的广告,相信很多人会在电脑上设置软件直接将其屏蔽掉。网站的广告过多也会直接影响到受众的心理,进而降低其网站的竞争力。
其次我们大致由高到低排列一下以上媒体的广告费用的名次，受众派名基本和费用排名一致，: 电视媒体——户外广告——网站媒体——报纸报刊媒体——电台媒体
最后来了解一下最新的网吧桌面媒体。 桌面广告的优势
1、目标受众群体针对性强
网吧媒体的受众主要是年轻一代,接受其信息的多为在校学生，大学生居多，和有一定经济收入的白领阶层,其主要特征是消费观和价值观趋于统一,追求时尚,
教务管理系统需求分析
