我想实现这样的功能:每日入井检查隐患并下发《隐患整改通知单》,当“整改期限”到期时,自动提醒用户对”到期“的隐患进行“复查”。 关于”自动提醒“功能,我是一点头绪都没有,网上有大大说还得用到”多线程“的技术,请有经验的各位大大告诉我实现此功能的思路,不求全部代码,只求实现思路。越详细越好,最好能告诉使用什么组件实现等等。我对”多线程“一无所知。 最好请各位能够实现此功能的老大们留下QQ等联系方式,希望能够得到耐心的指导!!!
解决方案 »
- 同学的电脑上的客户端程序如何连接我的电脑上的SQL数据库
- 中秋节,祝愿大家节日快乐!希望可以看到cobi(小新)等前辈^.^
- 请问大家都是用什么工具制作安装程序的啊。(散分)
- 如何获取realaudio控件播入影音文件的总时间和播入时间??
- 1月份的自考没及格,心里憋闷,到底该怎样看待能力与学历????
- 请教(都来看一看)
- 如何Delphi在延时,不使用Application.ProcessMessage;
- 大家觉得在公司用delphi写程序,要使用多久,才比较熟悉delphi各种用法?
- FastReport VS QuickReport (熟悉两种报表使用方法的请进)
- 请教!急!!
- 关于Delphi中使用TChromium控件调用JS函数的问题
- idftp密码的安全性
写一个简单程序,让“任务计划管理” 管理它,
爱它什么时候重新提醒都行。
2。数据表字段:
名称 类型 长度
限改通知书标题 MEMO 256
责任人 TEXT 8
联系手机 TEXT 11
发出日期 DATE
整改日期 DATE
已整改 BOOLEAN
已通知次数 INT
3。程序规划
(1)数据表格自动提醒,对即将到期的或已经到期的用特别颜色提醒用户,在数据刷新的时候,发出提示声音
(2)短信接口,对到期的整改通知书的责任人进行手机短信提醒
2、Timer控件执行时,先判断当前时间是不是需要的几点几分,如果是,则显示提醒。
procedure Execute; override;
procedure DoRefreshParam;
public
constructor Create;
end;constructor TRefreshThread.Create;
begin
inherited Create(True);
Resume;
end;procedure TRefreshThread.Execute;
begin
while not Terminated do
try
Synchronize(DoRefreshParam);
finally
Sleep(1000); {等待1000毫秒}
end;
end;procedure TRefreshThread.DoRefreshParam;
begin
{写检查的代码}
end;TThread类实现线程的封装,你可以直接继承它,省去好多事情,给分有问题可联系我:2575976143