1 unit Unit1;
2
3 interface
4
5 uses
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7 Dialogs, StdCtrls,comobj, ExtCtrls, DB, ADODB;
8
9 type
10 TForm1 = class(TForm)
11 Button1: TButton;
12 Edit1: TEdit;
13 Memo1: TMemo;
14 Timer1: TTimer;
15 Button2: TButton;
16 ADOConnection1: TADOConnection;
17 ADOQuery1: TADOQuery;
18 Label1: TLabel;
19 procedure Button1Click(Sender: TObject);
20 procedure Button2Click(Sender: TObject);
21 procedure Timer1Timer(Sender: TObject);
22 private
23 { Private declarations }
24 public
25 { Public declarations }
26 end;
27
28 var
29 Form1: TForm1;
30
31 implementation
32
33 {$R *.dfm}
34
35 procedure TForm1.Button1Click(Sender: TObject);
36 var rootobj:olevariant;
37
38
39
40
41
42
43
44
45 //RootObj: RTXSAPILib.RTXSAPIRootObj;
46 begin
47
48 RootObj:= CreateoleObject('RTXSAPIRootObj.RTXSAPIRootObj');
49 //RootObj.ServerIP:= '192.168.1.100' ;//'设置服务器IP
50 RootObj.ServerIP:= '192.168.1.100' ;//'设置服务器IP
51 RootObj.ServerPort:='8006' ; // 设置服务器端口，默认为8006
52
53 //On Error Resume Next
54 //' 如需要发隐式链接,格式如: [腾讯|http://www.qq.com]
55 RootObj.SendNotify (edit1.text, '提醒消息', 0, memo1.Text);
56 //发送消息提醒，停留时间为0表示一直停留直到用户关闭；如果发隐藏式链接格式：[腾讯|http://www.qq.com]
57
58
59 end;
60
61 procedure TForm1.Button2Click(Sender: TObject);
62 var
63 ename,date,wcqx:string;
64 date1:integer;
65 begin
66 //memo1.Clear;
67 ADOConnection1.Close;
68 ADOConnection1.Open;
69 self.ADOQuery1.Close;
70 Self.ADOQuery1.Connection:=Self.ADOConnection1;
71 self.ADOQuery1.SQL.Clear;
72 //Self.ADOQuery1.SQL.Add('select * from schedule_Events where jindu<>''已完成'' and jindu<>''已交工'' and getDate()-date<1 ORDER BY date desc');
73 Self.ADOQuery1.SQL.Add('select ename,wcqx,round((wcqx-getDate())*24*60) as mm '
74 +' from schedule_Events where jindu<>''已完成'' and jindu<>''已交工'''
75 +' and ( (round((wcqx-getDate())*24*60)=0) or (round((wcqx-getDate())*24*60)=30) '
76 +'or (round((wcqx-getDate())*24*60)=1440)) ORDER BY wcqx');
77 //and date>datevalue(''2010-11-23 09:33:27'')
78 //and wcqx >cdate(''2010-11-23 AM 09:33:27''
79 //DateDiff("d",wcqx,getDate())
80 self.ADOQuery1.Open;
81 while not self.adoquery1.eof do
82 begin
83
84 ename:=Self.adoquery1.fieldbyname('ename').asstring;
85 //date:=Self.adoquery1.fieldbyname('date').asstring;
86 wcqx:=Self.adoquery1.fieldbyname('wcqx').asstring;
87 date1:=Self.adoquery1.fieldbyname('mm').asinteger;
88 // date1:=Self.adoquery1.Fields[2].AsString;
89 // kscj:=Self.adoquery1.fieldbyname('kscj').asstring;
90 // zpcj:=Self.adoquery1.fieldbyname('zpcj').asstring;
91 // j:=str.indexof(xh);//学号是逐渐，如果已经添加，不在向excel报表中写
92 // if ename>=0 then
93 // begin
94 // self.adoquery1.next;
95 // continue;
96 // end;
97 edit1.text:=ename;
98 if (date1=0) then
99 begin
100 memo1.Clear;
101 memo1.Lines.Add('[你有到期事务,点击查看详情|http://10.75.193.6/pdpmis/sc/default.asp?ename='+ename+']');
102 form1.Button1click(self);
103 end;
104
105 if (date1=30) then
106 begin
107 memo1.Clear;
108 memo1.Lines.Add('[你有30分钟后到期事务,点击查看详情|http://10.75.193.6/pdpmis/sc/default.asp?ename='+ename+']');
109 form1.Button1click(self);
110 end;
111 if (date1=1440) then
112 begin
113 memo1.Clear;
114 memo1.Lines.Add('[你有24小时后到期事务,点击查看详情|http://10.75.193.6/pdpmis/sc/default.asp?ename='+ename+']');
115 form1.Button1click(self);
116 end;
117
118 self.adoquery1.next;
119 end;
120 adoquery1.Close;
121 ADOConnection1.Close;
122
123 end;
124
125 procedure TForm1.Timer1Timer(Sender: TObject);
126 begin
127 form1.Button2click(self);
128 end;
129
130 end.
View Code
