计算机在输电线路中过流保护的应用 第4页

计算机在输电线路中过流保护的应用 第4页

第五章、实现部份

5．1、主界面

若图片无法显示请联系QQ752018766

Image18、19、22、23、24、25为图形： Image25为图形：

下列为控制图形闪动的程序

procedure Tzjm.Timer5Timer(Sender: TObject);

begin

                  if(image18.Visible=true) 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.Timer3.Enabled:=false;

  zjm.Timer4.Enabled:=false;

  zjm.Timer5.Enabled:=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;

procedure Tzjm.Timer10Timer(Sender: TObject);

begin

  label7.Caption:=timetostr(time);//把时间转换成字符串显示

end;

  5．2、跳闸实现

（1）、第一次输入密码

点击主界面中的“跳闸”或“合闸”按钮将出现以下检素密码的界面，只

有密输对才能进行跳闸或合闸

procedure Ttz1.ButtonOKClick(Sender: TObject);

var

 i:integer;

begin

TimeID:=TimeID+1;//控制次数，按一次“确定”按钮加一次，初始化被我省掉