使我的程序后台运行—Windows服务.ppt

使我的程序后台运行—Windows服务.ppt

  1. 1、本文档共41页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
单击【下一步】,选择安装文件夹。 单击【下一步】,确认安装。 单击【下一步】,开始安装过程。 安装完成后,单击【关闭】按钮。 此时,打开【服务器资源管理器】窗口,展开服务器节点,在服务中即可看到FirstWinService服务。 也可以右击【我的电脑】,在打开的右键菜单中单击【管理】,打开【计算机管理】窗口,在左侧列表框中单击【服务和应用程序】下的【服务】,也可以看到FirstWinService服务。 卸载服务 一种是打开【控制面板】,双击【添加或删除程序】,找到该安装文件,单击【删除】按钮。 另一种方法是找到安装项目的msi文件,该文件位于安装项目的Release文件夹下。 20.4 启动和停止服务 服务安装以后,可以手动的启动或者停止。在【计算机管理】窗口,右击该服务,在打开的右键菜单中单击【启动】或者【停止】即可。 由于FirstWinService在启动和停止的时候均会写入日志,因此可以查看服务的事件日志输出。在【计算机管理】窗口中,在左侧列表框中单击【事件查看器】选项,即可看到MyNewLog,这是我们自定义的日志源。打开MyNewLog,即可看到写入的日志信息。 右击该日志信息,在打开的右键菜单中单击【属性】,可以看到该日志信息的描述。 20.5 Windows服务应用实例:数据库备份 应用背景:在服务器上常会有一些重要的数据库,为了防止数据丢失或者因为程序崩溃或其他异常情况导致数据损坏,可以定期备份数据库中的数据。本节就来实现这个定期备份数据库的Windows服务。 添加计时器 首先新建一个Windows服务应用工程,并将计时器添加到工程中来,在服务的构造函数中初始化计时器。 【代码演示】 下面代码是服务的构造函数,完成计时器的初始化。 1 Public Sub New( ) 2 MyBase.New( ) 3 此调用是Windows窗体设计器所必需的 4 InitializeComponent( ) 5 在InitializeComponent( )调用之后添加任何初始化 6 每一分钟就执行备份 7 Timer1.Interval = 60000 8 Timer1.Enabled =False 9 End Sub 重写OnStart方法和OnStop方法 在服务启动和停止时分别启动计时器和停止计时器。 【代码演示】 下面代码重写OnStart方法和OnStop方法,实现计时器的启动和停止。 1 Protected Overrides Sub OnStart(ByVal args() As String) 2 请在此处添加代码以启动您的服务。此方法应完成设置工作, 3 以使您的服务开始工作。 4 Timer1.Start( ) 5 End Sub 6 7 Protected Overrides Sub OnStop( ) 8 在此处添加代码以执行任何必要的拆解操作,从而停止您的服务。 9 Timer1.Stop( ) 10 End Sub 该服务的重点代码在于计时器每隔一定的时间间隔(本例中是一分钟)就执行数据库备份的工作。 下面代码是计时器的Elapsed事件过程,实现数据库的备份。 1 Private Sub Timer1_Elapsed(ByVal sender As System.Object, ByVal e As System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed 2 Dim connString As String = Data Source=.;Initial Catalog=VBNET2008;Integrated Security=True; 3 Dim conn As SqlConnection = New SqlConnection( ) 4 conn.ConnectionString = connString 5 执行备份的语句 6 Dim sql As String = BACKUP DATABASE xiaoqu TO DISK = C:\VBNET2008.bak WITH FORMAT 7 Dim command As SqlCommand = New SqlCommand(sql) 8 command.Connection = conn 9 Try 10 开始执行 11 conn.Open( ) 12 command.ExecuteNonQu

文档评论(0)

wendan118 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档