ceshi

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,comobj, ExtCtrls, DB, ADODB;

type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Memo1: TMemo;
Timer1: TTimer;
Button2: TButton;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var   rootobj:olevariant;

//RootObj:        RTXSAPILib.RTXSAPIRootObj;
begin

RootObj:= CreateoleObject('RTXSAPIRootObj.RTXSAPIRootObj');
//RootObj.ServerIP:= '192.168.1.100'  ;//'设置服务器IP
RootObj.ServerIP:= '192.168.1.100'  ;//'设置服务器IP
RootObj.ServerPort:='8006'  ; // 设置服务器端口，默认为8006

//On Error Resume Next
//' 如需要发隐式链接,格式如: [腾讯|http://www.qq.com]
RootObj.SendNotify (edit1.text, '提醒消息', 0, memo1.Text);
//发送消息提醒，停留时间为0表示一直停留直到用户关闭；如果发隐藏式链接格式：[腾讯|http://www.qq.com]

end;

procedure TForm1.Button2Click(Sender: TObject);
var
ename,date,wcqx:string;
date1:integer;
begin
//memo1.Clear;
ADOConnection1.Close;
ADOConnection1.Open;
self.ADOQuery1.Close;
Self.ADOQuery1.Connection:=Self.ADOConnection1;
self.ADOQuery1.SQL.Clear;
//Self.ADOQuery1.SQL.Add('select * from schedule_Events where jindu<>''已完成'' and jindu<>''已交工''  and getDate()-date<1  ORDER BY date desc');
Self.ADOQuery1.SQL.Add('select ename,wcqx,round((wcqx-getDate())*24*60) as mm '
+' from schedule_Events where jindu<>''已完成'' and jindu<>''已交工'''
+' and (  (round((wcqx-getDate())*24*60)=0) or (round((wcqx-getDate())*24*60)=30) '
+'or (round((wcqx-getDate())*24*60)=1440))    ORDER BY wcqx');
//and date>datevalue(''2010-11-23 09:33:27'')
//and   wcqx >cdate(''2010-11-23 AM 09:33:27''
//DateDiff("d",wcqx,getDate())
self.ADOQuery1.Open;
while not self.adoquery1.eof do
begin

ename:=Self.adoquery1.fieldbyname('ename').asstring;
//date:=Self.adoquery1.fieldbyname('date').asstring;
wcqx:=Self.adoquery1.fieldbyname('wcqx').asstring;
date1:=Self.adoquery1.fieldbyname('mm').asinteger;
// date1:=Self.adoquery1.Fields[2].AsString;
// kscj:=Self.adoquery1.fieldbyname('kscj').asstring;
//  zpcj:=Self.adoquery1.fieldbyname('zpcj').asstring;
//  j:=str.indexof(xh);//学号是逐渐，如果已经添加，不在向excel报表中写
//    if ename>=0 then
//  begin
//  self.adoquery1.next;
//    continue;
// end;
edit1.text:=ename;
if (date1=0)    then
begin
memo1.Clear;
memo1.Lines.Add('[你有到期事务,点击查看详情|http://10.75.193.6/pdpmis/sc/default.asp?ename='+ename+']');
form1.Button1click(self);
end;

if (date1=30)    then
begin
memo1.Clear;
memo1.Lines.Add('[你有30分钟后到期事务,点击查看详情|http://10.75.193.6/pdpmis/sc/default.asp?ename='+ename+']');
form1.Button1click(self);
end;
if (date1=1440)    then
begin
memo1.Clear;
memo1.Lines.Add('[你有24小时后到期事务,点击查看详情|http://10.75.193.6/pdpmis/sc/default.asp?ename='+ename+']');
form1.Button1click(self);
end;

self.adoquery1.next;
end;
adoquery1.Close;
ADOConnection1.Close;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
form1.Button2click(self);
end;

end.