Dephi水电站输电线路DSA预警监控系统.

Dephi水电站输电线路DSA预警监控系统
Dephi水电站输电线路DSA预警监控系统Image18、19、22、23、24、25为图形： Image25为图形：下列为控制图形闪动的程序procedure Tzjm.Timer5Timer(Sender:
TObject);begin if(image18.Visible=t rue) then image18.Visible:=false//如果图形可见则让图形不可见 else image18.Visible:=true; //如果图形不可见则让图形可见，让其反复旋
环 Image19、22、23、24、25程序跟上面一样 //beep;end;下面图形为让2F上面的图形产生变形Image6、7、8、9分别装栽图像为： procedure
Tzjm.Timer2Timer(Sender: TObject);begin case t
of 1: begin//设置显示那一个图像，让图形产生变化，并且赋旋环条件
值 Image9.Visible:=true;
Image7.Visible:=false;
Image8.Visible:=false;
Image6.Visible:=false; t :=2; end；下面程序跟上面一样end;end;Timer3、Timer4的事件程序与Timer2一样分别控制3F、1F、4F上的形变化下面这一程序段为打开另一From的程序（比如打开查询界面），只以此代其它不在累述procedure Tzjm.N8Click(Sender:
TObject);begin cxxz.Show;end;procedure Tzjm.Timer6Timer(Sender: TObject);begin Randomize;//调用Randomize函数，Random(5)是为了得到一个—5~+5的随机值 a:=Random(5)+600;在随机值的基础上加值
600 label2.Caption:= inttostr(a);//把整型转换成字符显示
end;Timer7、Timer8跟上面一样为了得到B、C两相电的随机值下面为关闭时的程序procedure Tzjm.SpeedButton3Click(Sender: TObject); begin下面设置Timer1、2、3、4、5为false是让图形不在
动 zjm.Timer1.Enabled:=false; zjm.Timer2.Enabled:=false; zjm.Ti mer3.Enabled:=false; zjm.Timer4.Enabled:=false; zjm.Timer5.Enable d:=false; tc.Timer2.Enabled:=true;//为了定时关闭退出窗
口 tc.Show;//显示关闭窗口end;procedure Tzjm.Timer9Timer(Sender: TObject);begin time;下为把日期、时间和A、B、C的相电流保存到数据库ssjlb.Table1.AppendRecord([DateTimePicker1.date,time,a,b,c]);end;proc edure Tzjm.Timer10Timer(Sender:
TObject);begin label7.Caption:=timetostr(time);//把时间转换成字符串显示end; 5．2、跳闸实现（1）、第一次输入密码点击主界面中的“跳闸”或“合闸”按钮将出现以下检素密码的界面，只有密输对才能进行跳闸或合
闸 procedure Ttz1.ButtonOKClick(Sender: TObject);var i:integer;beginTimeID:=TimeID+1;//控制次数，按一次“确定”按钮加一次，初始化被我省掉with Tablemima do上一
页[1] [2] [3] [4] [5] [6] [7] 下一页。