快速业务通道

在Asp.Net中使用SmtpMail发送邮件的方法

作者 佚名技术 来源 NET编程 浏览 发布时间 2012-05-22

接下来,要为这两个xml文件建立关联,这是十分简单的。在activities和task表的设计视图状态下,鼠标右键点选,在弹出的菜单中选择"Add Relation",按照下图所示,设置两个文件的关联性。

在Asp.Net中使用SmtpMail发送邮件的方法

设置两个文件的关联性

2) 这个时候,我们可以设计应用的界面了。应用包括两个窗体,第一个窗体,允许用户处理关于活动的有关信息,第二个窗体,可以提供给用户对各类型的任务进行编辑。

将工程中默认的窗体改名为frmActivities,在工具箱中拖一个datagridview控件到窗体中。接着,注意选择控件右上角的smart tag标记,这时会出现一个菜单(如下图所示),选择dsActivitiesTasks(就是我们刚才创建的dataset类型文件)作为datagridview的数据源。

在Asp.Net中使用SmtpMail发送邮件的方法

dsActivitiesTasks

这时,在窗体下部的组件托盘中,你会发现visual studio添加了dsActivitiesTasks的实例,和另外一个组件叫dsActvitiesTasksBindingSource。实际上,你不需要Binding Source,只需要直接将dataset绑定到Datagridview控件,因此,选择这个bingding source控件并删除它。之后,再次使用smarttag的功能,再次选择dsActivitiesTasks做为数据源。

接下来,我们要对datagridview控件进行属性的设置,以将一些不需要显示的列隐藏,设置时,再次选smarttag标志,在弹出的菜单中选择"Edit Columns", 按如下表对其属性进行设置,

Column Property activityid Visible=False Taskid ColumnType= DataGridViewComboBoxColumn

DataSource= DsActivitiesTasks

DataMember= tasks.task

ValueMember=tasks.taskid

description Width=180

再往该窗体中添加3个按钮,名称分别是btnEditAddTasks, btnSave, btnDelete,则第一个窗体的界面设置完毕。

编写相关代码

编写代码时,分两个步骤:1、加载相关的数据,2、使用户能对数据进行增,删,保存。下面分步说明:

加载相关数据到datagridview控件中。

由于我们已经有了dataset类型的文件,因此我们可以由此创造出上述的两个文件,则应用程序第二次运行时,会先检查是否存在这两个xml文件。代码如下:

在form_load事件中写入

If CheckFileExistence() Then
LoadDataSet()
Else
’如果两个xml文件不存在,则创建这两个xml文件
CreateXMLFile()
End If

接着,定义一系列的变量,以存放两个xml文件的具体位置,如下代码:

Dim myDocumentsFolder As String = My.Computer.FileSystem.SpecialDirectories.MyDocuments
Dim activitiesFileName As String = "\Activities.xml"
Dim tasksFileName As String = "\Tasks.xml"
Public activitiesFile As String = String.Concat(myDocumentsFolder, activitiesFileName)
Public tasksFile As String = String.Concat(myDocumentsFolder, tasksFileName)

注意其中一个用法My.Computer.FileSystem.SpecialDirectories.MyDocuments返回当前计算机上"我的文档"的具体位置。这里,将两个文件保存到"我的文档"中去。并且用activitiesFile和tasksFile变量,保存两个xml文件实际存取的路径。接下来是相关几个过程的代码,如下所示

Public Function CheckFileExistence() As Boolean
’检查两个xml文件是否存在
 If My.Computer.FileSystem.FileExists(activitiesFile) And _
My.Computer.FileSystem.FileExists(tasksFile) Then
Return True
 Else
Return False
 End If
End Functio

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号