📄 unitls.pas
字号:
end;
if DataModule2.ADOQuery4.FieldByName('signaldetail').Value<>null then
zzz:=DataModule2.ADOQuery4.FieldByName('signaldetail').Value
else zzz:='有错误';
with DataModule2.ADOQuery5 do
begin
close;
SQL.Clear;
SQL.Add('select signallowfreq from signallowfreq where signalcode=:a and signaltype=:b');
Parameters.ParamByName('a').Value:=Trim(hhh);
Parameters.ParamByName('b').Value:=Trim(zz);
open;
end;
if DataModule2.ADOQuery5.FieldByName('signallowfreq').Value<>null then
zzzz:=DataModule2.ADOQuery5.FieldByName('signallowfreq').Value
else zzzz:='为空';
with DataModule2.ADOQuery6 do
begin
close;
SQL.Clear;
SQL.Add('select 机车信息 from 机车信息表 where 机车编号=:a');
Parameters.ParamByName('a').Value:=Trim(bianhao);
open;
end;
if DataModule2.ADOQuery6.FieldByName('机车信息').Value<>null then
train:=DataModule2.ADOQuery6.FieldByName('机车信息').Value
else train:='有错误';
with DataModule2.ADOQuery11 do
begin
close;
SQL.Clear;
SQL.Add('select 姓名 from 员工编号表 where 工号=:a ');
Parameters.ParamByName('a').Value:=Trim(usercode);
Open;
end;
if DataModule2.ADOQuery11.FieldByName('姓名').Value<>null then
username:=DataModule2.ADOQuery11.FieldByName('姓名').Value
else username:='有错误';
strtime:=inttostr(strtoint(jright)+waittime);
if length(strtime)=1 then
strtime:='0'+strtime;
sjj:=strtoint('$'+sj)/1000;
sjj:=StrToFloat(FormatFloat('#.0',sjj));
with DataModule2.ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('select * from temp ');
Open;
end;
if DataModule2.ADOQuery1.FieldByName('发码时间').Value<>null then
ifbeifen:=true //TEMP不为空
else ifbeifen:=false;
{if ifbeifen=false then //当temp为空时
begin
with DataModule2.ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('insert into 表1 values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o)');
// SQL.Add('insert into temp values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o)');
Parameters.ParamByName('a').Value :=j;
Parameters.ParamByName('b').Value :=z;
Parameters.ParamByName('c').Value :=d;
Parameters.ParamByName('d').Value :=fm;
Parameters.ParamByName('e').Value :=sjj;
Parameters.ParamByName('f').Value :=zz;
Parameters.ParamByName('g').Value :=zzz;
Parameters.ParamByName('h').Value :=zzzz;
Parameters.ParamByName('i').Value :=bianhao;
Parameters.ParamByName('j').Value :=hegebiaozhi;
Parameters.ParamByName('k').Value :=usercode;
Parameters.ParamByName('l').Value :=username;
Parameters.ParamByName('m').Value :=jleft+strtime;
Parameters.ParamByName('n').Value :=train;
Parameters.ParamByName('o').Value :=copy(filename,4,length(filename)-7);
post;
//Parameters.ParamByName('f').Value :=hhh;
// Parameters.ParamByName('g').Value :=fm;
// Parameters.ParamByName('h').Value :=sj;
// Parameters.ParamByName('i').Value :=dy;
execsql;
end;
with DataModule2.ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('select * from temp ');
Open;
end;
if DataModule2.ADOQuery1.FieldByName('发码时间').Value<>null then
begin
with DataModule2.ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('delete * from temp ');
execsql;
end;
with DataModule2.ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('insert into temp values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o)');
Parameters.ParamByName('a').Value :=j;
Parameters.ParamByName('b').Value :=z;
Parameters.ParamByName('c').Value :=d;
Parameters.ParamByName('d').Value :=fm;
Parameters.ParamByName('e').Value :=sjj;
Parameters.ParamByName('f').Value :=zz;
Parameters.ParamByName('g').Value :=zzz;
Parameters.ParamByName('h').Value :=zzzz;
Parameters.ParamByName('i').Value :=bianhao;
Parameters.ParamByName('j').Value :=hegebiaozhi;
Parameters.ParamByName('k').Value :=usercode;
Parameters.ParamByName('l').Value :=username;
Parameters.ParamByName('m').Value :=jleft+strtime;
Parameters.ParamByName('n').Value :=train;
Parameters.ParamByName('o').Value :=copy(filename,4,length(filename)-7);
execsql;
end;
end
else
begin
with DataModule2.ADOQuery2 do
begin
close;
SQL.Clear;
SQL.Add('insert into temp values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o)');
Parameters.ParamByName('a').Value :=j;
Parameters.ParamByName('b').Value :=z;
Parameters.ParamByName('c').Value :=d;
Parameters.ParamByName('d').Value :=fm;
Parameters.ParamByName('e').Value :=sjj;
Parameters.ParamByName('f').Value :=zz;
Parameters.ParamByName('g').Value :=zzz;
Parameters.ParamByName('h').Value :=zzzz;
Parameters.ParamByName('i').Value :=bianhao;
Parameters.ParamByName('j').Value :=hegebiaozhi;
Parameters.ParamByName('k').Value :=usercode;
Parameters.ParamByName('l').Value :=username;
Parameters.ParamByName('m').Value :=jleft+strtime;
Parameters.ParamByName('n').Value :=train;
Parameters.ParamByName('o').Value :=copy(filename,4,length(filename)-7);
post;
execsql;
end;
end
else} //当temp不为空时
begin
//with DataModule2.ADOQuery3 do
// begin
// close;
// SQL.Clear;
// SQL.Add('delete * from temp ');
// execsql;
// end;
with DataModule2.ADOQuery1 do
begin
close;
SQL.Clear;
SQL.Add('insert into 表1 values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o)');
Parameters.ParamByName('a').Value :=j;
Parameters.ParamByName('b').Value :=z;
Parameters.ParamByName('c').Value :=d;
Parameters.ParamByName('d').Value :=fm;
Parameters.ParamByName('e').Value :=sjj;
Parameters.ParamByName('f').Value :=zz;
Parameters.ParamByName('g').Value :=zzz;
Parameters.ParamByName('h').Value :=zzzz;
Parameters.ParamByName('i').Value :=bianhao;
Parameters.ParamByName('j').Value :=hegebiaozhi;
Parameters.ParamByName('k').Value :=usercode;
Parameters.ParamByName('l').Value :=username;
Parameters.ParamByName('m').Value :=jleft+strtime;
Parameters.ParamByName('n').Value :=train;
Parameters.ParamByName('o').Value :=copy(filename,4,length(filename)-7);
//Parameters.ParamByName('f').Value :=hhh;
// Parameters.ParamByName('g').Value :=fm;
// Parameters.ParamByName('h').Value :=sj;
// Parameters.ParamByName('i').Value :=dy;
execsql;
end;
with DataModule2.ADOQuery2 do
begin
close;
SQL.Clear;
SQL.Add('insert into temp values (:a,:b,:c,:d,:e,:f,:g,:h,:i,:j,:k,:l,:m,:n,:o)');
Parameters.ParamByName('a').Value :=j;
Parameters.ParamByName('b').Value :=z;
Parameters.ParamByName('c').Value :=d;
Parameters.ParamByName('d').Value :=fm;
Parameters.ParamByName('e').Value :=sjj;
Parameters.ParamByName('f').Value :=zz;
Parameters.ParamByName('g').Value :=zzz;
Parameters.ParamByName('h').Value :=zzzz;
Parameters.ParamByName('i').Value :=bianhao;
Parameters.ParamByName('j').Value :=hegebiaozhi;
Parameters.ParamByName('k').Value :=usercode;
Parameters.ParamByName('l').Value :=username;
Parameters.ParamByName('m').Value :=jleft+strtime;
Parameters.ParamByName('n').Value :=train;
Parameters.ParamByName('o').Value :=copy(filename,4,length(filename)-7);
execsql;
end;
end;
// end;
//edit2.Text:=j;
end;
end;
showdata:=true;
showmessage('数据上传成功');
filepath:=ExtractFiledir(Application.ExeName)+'\'+'信号机备份文件';
createdir(filepath);
filelistbox1.Items.Clear;
findfirst(GETRAM+':\'+'*.dat',faanyfile,searchrec);
filelistbox1.Items.Add(searchrec.name);
while findnext(searchrec)=0 do
filelistbox1.Items.Add(searchrec.name);
//edit2.Text:=filelistbox1.Items.Strings[0]; //可以取出某一条的文件名
// edit2.Text:=inttostr(filelistbox1.Items.count);//可以算出共有多少个文件名
FindClose(SearchRec);
end;
end;
{procedure TFormls.Button4Click(Sender: TObject);
var s,a,filename,aa,b:string;
begin
s:=GetRAM+':\';
// b:=edit4.Text;
//a:=edit4.Text+'.txt';
filename:=s+'xazx.txt';
edit5.Text:=filename;
aa:=filename;
filehead.code:=b;
createfile(filename);
FileSetAttr(aa, 33 );
end;
{procedure TFormls.Button5Click(Sender: TObject);
var
k:string;
Found,fileattrs:integer;
SearchRec: TSearchRec;
filetofind:string;
begin
//fileattrs:=fareadonly;
Found := FindFirst(GetRAM + ':\*.txt',01, SearchRec);
if Found =0 then
begin
filename:=edit5.Text;
CreateFile(filename);
FileStream.Read(Filehead, SizeOf(Filehead));
k:=filehead.code;
edit6.Text:=k;
end
else showmessage('没有文件')
end; }
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -