摘要：两个timer控件，其中timer1负责每一分钟检查一次系统时间和设定时间的差值，如果两者相差5分钟，则继续检查，直到当相差时间小于5分钟，触发timer2，timer2的定时器时间就是这个时间间隔。当timer2到时以后，就触发主程序。具体代码procedure TForm1.Button1Click(Sender: TObject);begin timer1.Interval:=60*1000; //启动监控，每1分钟检查一次设定时间和当前时间 timer1.Enabled:=true;end;procedure TForm1.Timer1Timer(Sender: TObject);va 阅读全文

摘要：SQLConnection1.Params.clearSQLConnection1.Params.Values['ServerName'] := '192.168.0.112'; SQLConnection1.Params.Values['Database'] := 'trackData'; SQLConnection1.Params.Values['User_Name'] := 'sa'; SQLConnection1.Params.Values['Password'] := &# 阅读全文

摘要：//AServerName, ADataName, AUser, Apass分别可以为服务器的IP地址\数据库名\用户名\密码 function getDataConnection(AServerName, ADataName, AUser, Apass:string); begin Result := 'Provider=SQLOLEDB.1;Password= ' + Apass + ';Persist Security Info=True;User ID= ' + AUser + ';Initia... 阅读全文