{$R *.dfm}
/// ///
/// 用于与服务器通讯 同步时间 ///
/// ///
procedure TForm1.Synchronous_Datetime(Sender: TObject);
var
sql:string;
begin
sql:='select sysdate from dual';
oraquery1.Close;
oraquery1.SQL.Clear;
oraquery1.SQL.Add(sql);
oraquery1.Open;
global_time:=oraquery1.Fields[0].AsDateTime;
end;
/// ///
/// 用于timer2的执行 时间自动累加 程序自动判断///
/// ///
procedure TForm1.Do_For_Timer2(Sender: TObject);
var
the_time:string;
begin
global_time:=IncMinute(global_time);
the_time:=Custom_Timer_Format(global_time);
label3.Caption:=the_time;
if (the_time='11:10') or (the_time='11:30')
or (the_time='12:00')or (the_time='12:30')
or (the_time='13:00')or (the_time='13:30') then
begin
Button1Click(Sender);
end;
end;
/// ///
/// 拆分时间格式为11:10 ///
/// 避免客户端机器时间格 ///
/// 式差异引起的异常 ///
/// ///
function TForm1.Custom_Timer_Format(f_time:Tdatetime):string;
var
Hour, Min, Sec, MSec: Word;
s_hour,s_min:string;
h,m:string;
begin
DecodeTime(f_time,Hour, Min, Sec, MSec);
s_hour:=inttostr(hour);
s_min:=inttostr(min);
if length(s_hour)=1 then h:='0'+s_hour else h:=s_hour;
if length(s_min)=1 then m:='0'+s_min else m:=s_min;
Result:=h+':'+m;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
path,xxrq:string;
s,uid,uname,upsw:string;
i,j:integer;
MyTextFile: TextFile;
textf:TextFile; //定义文件变量textf
begin
//xxrq:=datetostr(now,'YYYY-MM-DD');
//首先删除已存在的scqk.txt文件
DeleteFile('scqk.txt');
//删除完毕
MaskEdit1.Text:=datetostr(now) ;
with OraQuery1 do
begin
close;
Session := OraSession1;
SQL.Clear;
SQL.Add('select * from username where user_ID='001'') ;
OraQuery1.Open;
end;
uid:=OraQuery1.Fields[0].AsString;
uname:=OraQuery1.Fields[1].AsString;
upsw:=OraQuery1.Fields[2].AsString;