毕业论文论文范文课程设计实践报告法律论文英语论文教学论文医学论文农学论文艺术论文行政论文管理论文计算机安全
您现在的位置: 毕业论文 >> 论文 >> 正文

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

更新时间:2008-4-23:  来源:毕业论文

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

程序为以下:

procedure Tryxx.BitBtn1Click(Sender: TObject);

begin

  with  Query1  do

      begin

       close;//添加查询语句时先把query关闭

       SQL.clear;//清空query中的查询语句

        sql.add('select *  from  ryxxb.db');//添加查询语句

       sql.add('where  姓名 like:t');

        ParamByName('t').AsString:=edit1.Text+'%';//把输入到编辑框中的赋值

       open;打开query进行查询

      end;

end;

点击此按钮进行查询

若图片无法显示请联系QQ752018766 

点击“事故记录查询”按钮则进入下面界面

程序如下:

procedure Tsgjl.SpeedButton2Click(Sender: TObject);

begin

    with   sgjl1.Query1  do

      begin

close; //添加查询语句时先把query关闭

 

 SQL.clear; //清空query中的查询语句

        sgjl1.Query1.sql.add('select *  from  sgjlb.db'); //添加查询语句

 

         sgjl1.Query1.sql.add('where  日期=:t');

         下为把选择的日期赋给查询语句

         sgjl1.Query1.ParamByName('t').Asdatetime:=MonthCalendar1.Date;

open; 打开query进行查询

      end;

 sgjl1.Show;调用显示界面

end;

procedure Tsgjl.MonthCalendar1Click(Sender: TObject);

begin

maskedit1.Text:=datetostr(MonthCalendar1.Date);//当日期变化时触发的事件,显示的改变时间

end;

 

procedure Tsgjl.FormCreate(Sender: TObject);

begin

   maskedit1.Text:=datetostr(MonthCalendar1.Date);把日期转换成字符串进行显示

end;

 若图片无法显示请联系QQ752018766 

2)、历史数据查询

点击此按钮进行查询

 

 

点击查询后得到下面结果:

54、数据备份

选择要备份的目录

    点击“系统文护”的子菜单“数据备份”将得到下面界面

若图片无法显示请联系QQ752018766 

 

程序如下:

procedure Tbf1.Button1Click(Sender: TObject);

var

   Opstruc:TSHFileOpstruct;

   FromBuf, ToBuf:Array[0..128]of char;

begin

   Fillchar(FromBuf,sizeof(FromBuf),0);

   Fillchar(FromBuf,sizeof(TOBuf),0);

   Strpcopy(FromBuf,Pchar(Edit1.Text));

   Strpcopy(ToBuf,Pchar(Edit2.Text));

   

    With opstruc do

    begin

       Wnd:=Handle;

       WFunc:=Fo_copy;

       PFrom:=@FromBuf;

       PTo:=@ToBuf;

       fFlags:=FoF_NOCONFIRMATION Or FOF_RENAMEONCOLLISION;

       fAnyOperationsAborted:=False;

       hNameMappings:=nil;

       lPszProgressTitle:=nil;

     if SHFileoperation(opstruc)=0

then

     MessageBox(Handle,'备份完毕。','信息',

MB_OK+MB_ICONINFORMATION);//提示

   end;

end;

选择要备份的目录界面如下:

上一页  [1] [2] [3] [4] [5] [6] [7] 下一页

计算机在输电线路中过流保护的应用 第6页下载如图片无法显示或论文不完整,请联系qq752018766
设为首页 | 联系站长 | 友情链接 | 网站地图 |

copyright©751com.cn 辣文论文网 严禁转载
如果本毕业论文网损害了您的利益或者侵犯了您的权利,请及时联系,我们一定会及时改正。