计算机在输电线路中过流保护的应用 第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;
点击此按钮进行查询
点击“事故记录查询”按钮则进入下面界面
程序如下:
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;
(2)、历史数据查询
点击此按钮进行查询
点击查询后得到下面结果:
5.4、数据备份
选择要备份的目录
程序如下:
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] 下一页