📄 unit1~1.~pa
字号:
begin
label11.Enabled :=false;
label14.Enabled :=true;
k:=true;
nno1:=1;
nno2:=0;
//***********c催费部分*************************************
dateold:=now (); //取软件开机时间，留作比较
////设定软件过期时间
curryear:=datetimetostr(date());
if curryear>'2006-1-1' then
begin
k:=false;
deletefile(currdir+'myking.exe');
end;
dialcall; //启动拨号模块
//
//;
//
//*********************************************************
end;
procedure tform1.datamove() ; //库处理部分
begin
if k then
begin
nno1:=1;
if table1.eof<>TRUE then
begin
table1.Next ;
end
else
begin
table1.First ;
end;
dialcall ;
end;
end;
procedure tform1.dialcall() ;
//*********************拨号部分***********************************
begin
if k then
begin
//定时判断
datenew:=now();
dateint:=strtoint(edit1.text)*60; //取设定时间
if secondspan(dateold,datenew)> dateint then
begin
apdtapidevice1.cancelcall;
k:=false; //设定时钟停止标志
table1.Close ;
close;
end;
if radiobutton1.Checked =true then
begin
apdtapidevice1.usesoundcard:=true;
end
else
begin
apdtapidevice1.EnableVoice :=true;
apdtapidevice1.usesoundcard:=false;
end;
apdtapidevice1.cancelcall;
apdtapidevice1.Dial(dbtext1.Caption ) ; //
//apdtapidevice1.Dial('8960110' );
nno2:=nno2+1; //计算拨通电话总数
LABEL8.Caption :=INTTOSTR(NNO2);
label9.Caption :=inttostr(nno2);
label10.caption:='0';
S:='正在拨通..'+dbtext1.caption+'....';
memo1.Text :=s;
timer5.enabled:=true;
end
else
begin
timer1.Enabled :=false;
timer2.Enabled :=false;
timer3.Enabled :=false;
timer4.Enabled :=false;
timer5.Enabled :=false;
end;
end;
//**************************************************************
//时钟1
procedure TForm1.Timer1Timer(Sender: TObject);
begin
nNO:=1;
apdtapidevice1.PlayWaveFile(currdir+'\wav\q.wav') ;
if k then
begin
timer1.Enabled :=false;
timer2.Enabled :=true;
end
else
begin
timer1.Enabled :=false;
timer2.Enabled :=false;
timer3.Enabled :=false;
timer4.Enabled :=false;
timer5.Enabled :=false;
end;
end;
//时钟2
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if k then
begin
timer2.Enabled :=false;
timer3.Enabled :=true;
end
else
begin
timer1.Enabled :=false;
timer2.Enabled :=false;
timer3.Enabled :=false;
timer4.Enabled :=false;
timer5.Enabled :=false;
end;
end;
//时钟3
procedure TForm1.Timer3Timer(Sender: TObject);
var
len:integer;
soundstr:string;
begin
Len:=length(dbtext2.Caption);
soundstr:=midstr(dbtext2.Caption ,NNO ,1);
if soundstr='.' then
apdtapidevice1.PlayWaveFile(currdir+'\wav\11.wav')
else if soundstr='1' then
apdtapidevice1.PlayWaveFile(currdir+'\wav\1.wav')
else if soundstr='2' then
apdtapidevice1.PlayWaveFile(currdir+'\wav\2.wav')
else if soundstr='3' then
apdtapidevice1.PlayWaveFile(currdir+'\wav\3.wav')
else if soundstr='4' then
apdtapidevice1.PlayWaveFile(currdir+'\wav\4.wav')
else if soundstr='5' then
apdtapidevice1.PlayWaveFile(currdir+'\wav\5.wav')
else if soundstr='6' then
apdtapidevice1.PlayWaveFile(currdir+'\wav\6.wav')
else if soundstr='7' then
apdtapidevice1.PlayWaveFile(currdir+'\wav\7.wav')
else if soundstr='8' then
apdtapidevice1.PlayWaveFile(currdir+'\wav\8.wav')
else if soundstr='9' then
apdtapidevice1.PlayWaveFile(currdir+'\wav\9.wav')
else if soundstr='0' then
apdtapidevice1.PlayWaveFile(currdir+'\wav\0.wav')
else
begin
k:=false;
messagedlg('设定的[金额]字段出错！请点击［确定］重新设定。',mtinformation,[mbok],0);
end;
nNO:=Nno+1;
IF nNO>LEN THEN
BEGIN
if k then
begin
timer3.Enabled :=false;
timer4.Enabled :=true;
end
else
begin
timer1.Enabled :=false;
timer2.Enabled :=false;
timer3.Enabled :=false;
timer4.Enabled :=false;
timer5.Enabled :=false;
end;
END;
end;
//时钟4
procedure TForm1.Timer4Timer(Sender: TObject);
begin
apdtapidevice1.PlayWaveFile(currdir+'\wav\w.wav') ;
if k then
begin
timer4.Enabled :=false;
if nno1<6 then
begin
nno1:=nno1+1;
timer1.enabled :=true;
end
else
begin
datamove;
end;
end
else
begin
timer1.Enabled :=false;
timer2.Enabled :=false;
timer3.Enabled :=false;
timer4.Enabled :=false;
timer5.Enabled :=false;
end;
end;
procedure TForm1.Label14Click(Sender: TObject);
begin //暂停
label11.Enabled :=true;
label14.Enabled :=false;
apdtapidevice1.cancelcall;
k:=false;
s:='暂停催费系统';
memo1.text:=s;
timer1.Enabled :=false;
timer2.Enabled :=false;
timer3.Enabled :=false;
timer4.Enabled :=false;
timer5.Enabled :=false;
end;
procedure TForm1.Timer5Timer(Sender: TObject);
begin
if k then
begin
timer5.Enabled :=false;
timer1.Enabled :=true;
end
else
begin
timer1.Enabled :=false;
timer2.Enabled :=false;
timer3.Enabled :=false;
timer4.Enabled :=false;
timer5.Enabled :=false;
end;
end;
procedure TForm1.Label16Click(Sender: TObject);
begin
messagedlg('[智能催费软件v1.01]不是扩散型软件，故没有做帮助文件部分,以后只能在其他的时候解决你们的问题了，欢迎给我来Email:hgliuge@yahoo.com.cn 在此感谢我的朋友 L_jingsong Z_xiangdong等，没有你们的支持，就没有这个软件。特别感谢老婆和儿子的理解。 2005.9.5',mtinformation,[mbok],0);
end;
procedure TForm1.Edit1Change(Sender: TObject);
var
i:integer;
soundstr:string;
begin
for i:=1 to length(edit1.text) do
begin
soundstr:=midstr(edit1.text ,i ,1);
if soundstr='.' then
begin
s:='特别注意：[定制时间]项目设定错误，可能导致系统崩溃！建议用默认设定！';
memo1.Text :=s;
messagedlg('[定制时间]项目必须设定大于1分钟的整数！请点击［确定］重新设定。',mtinformation,[mbok],0);
end;
end;
end;
procedure TForm1.Edit2Change(Sender: TObject);
var
i:integer;
soundstr:string;
begin
for i:=1 to length(edit2.text) do
begin
soundstr:=midstr(edit2.text ,i ,1);
if soundstr='.' then
begin
s:='特别注意：[循环次数]项目设定错误，可能导致系统崩溃！建议用默认设定！';
memo1.Text :=s;
messagedlg('[循环次数]项目必须设定大于1的整数！请点击［确定］重新设定。',mtinformation,[mbok],0);
end;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -