server        利用作业调度生成事务预报                    2007-04-12             baker1.     问题的提出:实验室项目需要做一个事务预报的模块, 利用该模块生成预报控制信息, 如果数据库存在即将验收的项目信息, 需要提示用户准备对该项目进行验收. 以及产生如下效果:并生成显示预报信息页面, 用户还可根据需求对项目清单进行查询.如果没有需要预报的项目就将显示以下窗口1.     解决方案:由于需要生成的预报信息的事件是不寻常的, 最简单的方法就是在每个用户登录时 ,判断是否存在需要预报的信息, 所有预报信息都是临时生成的, 如果主表信息教多, 对整个系统性能有较大影响, 并且多次处理具有相同功能的任务, 造成较大浪费.在 sql server 中有一个 sql server agent服务, 该服务有一个”作业功能” , 很像是一个定时触发器, 利用”作业” 在特定时间执行特定的T-SQL语句或过程是一个效率, 效果并存的方法.2.     生成预报控制表. /*    创建表pybkz    默认插入一条固定记录('0000000000000000','0','0',null).*/use kjxmgoif exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[pybkz]') and OBJECTPROPERTY(id, N'IsTable') = 1)  drop table pybkzgo create table pybkz(    登录名varchar(16)  NOT NULL,    验收预报varchar(1) default(0),    拨款预报varchar(1) default(0),    预报年月varchar(6) default(0))insert into pybkz select '0000000000000000','0','0',nullgo --设置sqlserveragent 为自启动EXEC msdb.dbo.sp_set_sqlagent_properties auto_start=1go  3.     创建作业--—2007-04-11/21:47 --—   by baker--—服务器: (local) BEGIN TRANSACTION              DECLARE JobID BINARY(16)    DECLARE ReturnCode INT      SELECT ReturnCode = 0     IF (SELECT COUNT(*) FROM msdb.dbo.syscategories WHERE name = N'[Uncategorized (Local)]') < 1   EXECUTE msdb.dbo.sp_add_category name = N'[Uncategorized (Local)]'   -- 删除同名的警报（如果有的话）。  SELECT JobID = job_id       FROM   msdb.dbo.sysjobs      WHERE (name = N'kjxm_forecast')         IF (JobID IS NOT NULL)      BEGIN    -- 检查此作业是否为多重服务器作业   IF (EXISTS (SELECT  *               FROM    msdb.dbo.sysjobservers               WHERE   (job_id = JobID) AND (server_id <> 0)))   BEGIN     -- 已经存在，因而终止脚本    RAISERROR (N'无法导入作业“kjxm_forecast”，因为已经有相同名称的多重服务器作业。', 16, 1)     GOTO QuitWithRollback    END   ELSE     -- 删除［本地］作业    EXECUTE msdb.dbo.sp_delete_job job_name = N'kjxm_forecast'     SELECT JobID = NULL  END  BEGIN    -- 添加作业  EXECUTE ReturnCode = msdb.dbo.sp_add_job job_id = JobID OUTPUT , job_name = N'kjxm_forecast', owner_login_name = N'sa', description = N'没有可用的描述。', category_name = N'[Uncategorized (Local)]', enabled = 1, notify_level_email = 0, notify_level_page = 0, notify_level_netsend = 0, notify_level_eventlog = 2, delete_level= 0  IF (ERROR <> 0 OR ReturnCode <> 0) GOTO QuitWithRollback    -- 添加作业步骤  EXECUTE ReturnCode = msdb.dbo.sp_add_jobstep job_id = JobID, step_id = 1, step_name = N'1', command = N'use kjxm go exec forecast', database_name = N'KJXM', server = N'', database_user_name = N'', subsystem = N'TSQL', cmdexec_success_code = 0, flags = 0, retry_attempts = 5, retry_interval = 1, output_file_name = N'', on_success_step_id = 0, on_success_action = 1, on_fail_step_id = 0, on_fail_action = 2  IF (ERROR <> 0 OR ReturnCode <> 0) GOTO QuitWithRollback   EXECUTE ReturnCode = msdb.dbo.sp_update_job job_id = JobID, start_step_id = 1    IF (ERROR <> 0 OR ReturnCode <> 0) GOTO QuitWithRollback    -- 添加作业调度  EXECUTE ReturnCode = msdb.dbo.sp_add_jobschedule job_id = JobID, name = N'2', enabled = 1, freq_type = 4, active_start_date = 20070411, active_start_time = 100, freq_interval = 1, freq_subday_type = 1, freq_subday_interval = 1, freq_relative_interval = 0, freq_recurrence_factor = 0, active_end_date = 99991231, active_end_time = 235959  IF (ERROR <> 0 OR ReturnCode <> 0) GOTO QuitWithRollback    -- 添加目标服务器  EXECUTE ReturnCode = msdb.dbo.sp_add_jobserver job_id = JobID, server_name = N'(local)'   IF (ERROR <> 0 OR ReturnCode <> 0) GOTO QuitWithRollback  ENDCOMMIT TRANSACTION          GOTO   EndSave              QuitWithRollback:  IF (TRANCOUNT > 0) ROLLBACK TRANSACTION EndSave:    4.      生成 预报信息存储过程./*    创建用于生成预报信息的存储过程    */use kjxmgoif exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[forecast]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)  drop procedure [dbo].[forecast]go create procedure forecastas  begin transaction  begin      declare have_forecast  int    declare time datetime    declare nextmonth varchar(6)             --生成下月日期字符串, 例如:20070501    set time= DATEADD(mm,DATEDIFF(mm,0,getdate())+1,0)      if(month(time)<10)       begin         set nextmonth=convert(varchar(4),year(time))+'0'+convert(varchar(2),month(time))       end    else      begin        set nextmonth=convert(varchar(4),year(time))+convert(varchar(2),month(time))      end          --判断当前日期是否为该月第一天,如果为第一天则更新pybkz表中预报记录.    if((not exists(select 预报年月from pybkz where 登录名='0000000000000000')) or (select 预报年月from pybkz where 登录名='0000000000000000')!=nextmonth  )      begin        delete from pybkz        set have_forecast=0        if ((select count(*) from pxmxx where 完成日期=nextmonth)>0)          begin            insert into pybkz select '0000000000000000','1','1',nextmonth          end        else          begin             insert into pybkz select '0000000000000000','0','0',nextmonth          end      end  end  commit transactiongo5.     读取预报信息./*    判断某一个登录名是否需要提示预报信息, 并设置相应的预报信息.*/use kjxmgo if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[is_forecast]') and OBJECTPROPERTY(id, N'IsProcedure') = 1)  drop procedure [dbo].[is_forecast]go create procedure is_forecast(  user varchar(16))as  declare nextmonth varchar(6) set nextmonth=(select 预报年月from pybkz where 登录名='0000000000000000') if(exists(select * from pybkz where 登录名='0000000000000000' and 验收预报='1'))   begin     if(exists(select * from pybkz where 登录名=user and 验收预报='0'))       begin         select 0       end     if(exists(select * from pybkz where 登录名=user and 验收预报='1'))       begin         select 1       end     if(not exists(select * from pybkz where 登录名=user))       begin         insert into pybkz select user,'1','1',nextmonth         select 1       end   end else   begin     select 0   end