📄 unit1.pas
字号:
exit
end
end
end;
procedure TForm1.bt_query_eClick(Sender: TObject);
begin
loop:=false;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
pagecontrol1.ActivePage := ts_real;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
st:integer;
begin
if pagecontrol1.ActivePage <> ts_common then begin
pagecontrol1.ActivePage := ts_common;
exit;
end;
st:=TestComm(icdev,se_node_addr.Value);
if st=0 then begin
memo1.Lines.Add('通讯测试成功！');
end
else begin
memo1.Lines.Add('通讯测试失败！');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
st:integer;
adatetime:String;
begin
pagecontrol1.ActivePage := ts_common;
if length(ed_password.text)<8 then begin
application.MessageBox('密码长度不足！','警告',mb_ok);
exit;
end ;
st:=hand_shake(icdev,se_node_addr.Value,ed_password.text);
if (st=0) then begin
memo1.Lines.add('与'+inttostr(se_node_addr.Value)+'号机握手成功！');
end
else begin
memo1.Lines.add('与'+inttostr(se_node_addr.Value)+'号机握手失败！'+inttostr(st));
exit;
end ;
setlength(adatetime,50);
st := get_time(icdev,pchar(adatetime));
if (st=0) then
memo1.Lines.add('取时间成功，时间为：'+adatetime)
else
memo1.Lines.add('取时间失败! '+inttostr(st));
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
pagecontrol1.ActivePage := ts_para;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
pagecontrol1.ActivePage := ts_record;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
pagecontrol1.ActivePage := ts_author;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
pagecontrol1.ActivePage := ts_timeauthor;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
pagecontrol1.ActivePage := ts_timetable;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
pagecontrol1.ActivePage := ts_modem;
end;
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked then
se_times.Enabled := true
else
se_times.Enabled := false;
end;
procedure TForm1.Button12Click(Sender: TObject);
var
st:integer;
para:array[1..6] of smallint;
begin
if length(ed_password.text)<8 then begin
application.MessageBox('密码长度不足！','警告',mb_ok);
exit;
end ;
st:=hand_shake(icdev,se_node_addr1.Value,ed_password.text);
if (st=0) then begin
memo3.Lines.add('与'+inttostr(se_node_addr1.Value)+'号机握手成功！');
end
else begin
memo3.Lines.add('与'+inttostr(se_node_addr1.Value)+'号机握手失败！'+inttostr(st));
exit;
end;
para[1] := se_usermode.Value ;
para[2] := se_rly1time.Value ;
para[3] := se_rly2time.Value ;
if checkbox1.Checked then begin
para[4] := 1;
para[5] := se_times.Value ;
end
else begin
para[4] := 0;
para[5] := 0;
end;
st := Set_Mj_para(icdev,para[1]);
if st=0 then begin
memo3.Lines.add('设置参数成功！');
st := get_mj_para(icdev,para[1]);
if st = 0 then begin
memo3.Lines.add('取参数成功！');
memo3.Lines.add('用户模式：'+inttostr(para[1]));
memo3.Lines.add('继电器1的动作时间：'+inttostr(para[2]));
memo3.Lines.add('继电器2的动作时间：'+inttostr(para[3]));
if para[4]=1 then begin
memo3.Lines.add('使用打卡时间间隔。');
memo3.Lines.add('打卡时间间隔为：'+inttostr(para[5]));
end
else begin
memo3.Lines.add('不使用打卡时间间隔。');
end;
end
else begin
memo3.Lines.add('取参数失败！'+inttostr(st));
end
end
else begin
memo3.Lines.add('设置参数失败！'+inttostr(st));
end
end;
procedure TForm1.Button13Click(Sender: TObject);
var
st:integer;
para:array[1..6] of smallint;
begin
if length(ed_password.text)<8 then begin
application.MessageBox('密码长度不足！','警告',mb_ok);
exit;
end ;
st:=hand_shake(icdev,se_node_addr1.Value,ed_password.text);
if (st=0) then begin
memo3.Lines.add('与'+inttostr(se_node_addr1.Value)+'号机握手成功！');
end
else begin
memo3.Lines.add('与'+inttostr(se_node_addr1.Value)+'号机握手失败！'+inttostr(st));
exit;
end;
st := get_mj_para(icdev,para[1]);
if st = 0 then begin
memo3.Lines.add('取参数成功！');
memo3.Lines.add('用户模式：'+inttostr(para[1]));
memo3.Lines.add('继电器1的动作时间：'+inttostr(para[2]));
memo3.Lines.add('继电器2的动作时间：'+inttostr(para[3]));
if para[4]=1 then begin
memo3.Lines.add('使用打卡时间间隔。');
memo3.Lines.add('打卡时间间隔为：'+inttostr(para[5]));
end
else begin
memo3.Lines.add('不使用打卡时间间隔。');
end;
end
else begin
memo3.Lines.add('取参数失败！'+inttostr(st));
end;
end;
procedure TForm1.Button14Click(Sender: TObject);
var
st:integer;
begin
if length(ed_password.text)<8 then begin
application.MessageBox('密码长度不足！','警告',mb_ok);
exit;
end ;
st:=hand_shake(icdev,se_node_addr1.Value,ed_password.text);
if (st=0) then begin
memo3.Lines.add('与'+inttostr(se_node_addr1.Value)+'号机握手成功！');
end
else begin
memo3.Lines.add('与'+inttostr(se_node_addr1.Value)+'号机握手失败！'+inttostr(st));
exit;
end;
st := Clear_All_Data(icdev);
if st=0 then begin
memo3.lines.add('初始化系统成功！');
end
else begin
memo3.lines.add('初始化系统失败！'+inttostr(st));
end
end;
procedure TForm1.N3Click(Sender: TObject);
begin
__memo.Clear ;
end;
procedure TForm1.N1Click(Sender: TObject);
begin
if (savedialog1.Execute) then
__memo.Lines.SaveToFile(savedialog1.FileName);
end;
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
bt_get_curr.Enabled := true;
bt_get_next.Enabled := true;
bt_get_rec.Enabled := true;
se_recnum.Enabled := true;
bt_getallrecord.Enabled := false;
bt_getallrecord1.Enabled := false;
se_recnum_s.Enabled := false;
se_recnum_e.Enabled := false;
end;
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
bt_get_curr.Enabled := false;
bt_get_next.Enabled := false;
bt_get_rec.Enabled := false;
se_recnum.Enabled := false;
bt_getallrecord.Enabled := true;
bt_getallrecord1.Enabled := true;
se_recnum_s.Enabled := true;
se_recnum_e.Enabled := true;
end;
procedure TForm1.bt_get_currClick(Sender: TObject);
var
st,node_addr:integer;
adata:string;
begin
if length(ed_password.text)<8 then begin
application.MessageBox('密码长度不足！','警告',mb_ok);
exit;
end ;
st:=hand_shake(icdev,se_node_addr2.Value,ed_password.text);
if (st=0) then begin
memo4.Lines.add('与'+inttostr(se_node_addr2.Value)+'号机握手成功！');
end
else begin
memo4.Lines.add('与'+inttostr(se_node_addr2.Value)+'号机握手失败！'+inttostr(st));
exit;
end;
setlength(adata,50);
st := get_mj_curr_record(icdev,node_addr,pchar(adata));
if st = 0 then begin
memo4.Lines.Add('采集当前记录成功：'+adata);
end
else if st=-9 then begin
memo4.Lines.Add('没有数据！');
end
else
memo4.Lines.Add('采集当前记录失败！'+inttostr(st));
end;
procedure TForm1.bt_get_nextClick(Sender: TObject);
var
st,node_addr:integer;
adata:string;
begin
if length(ed_password.text)<8 then begin
application.MessageBox('密码长度不足！','警告',mb_ok);
exit;
end ;
st:=hand_shake(icdev,se_node_addr2.Value,ed_password.text);
if (st=0) then begin
memo4.Lines.add('与'+inttostr(se_node_addr2.Value)+'号机握手成功！');
end
else begin
memo4.Lines.add('与'+inttostr(se_node_addr2.Value)+'号机握手失败！'+inttostr(st));
exit;
end;
setlength(adata,50);
st := get_mj_next_record(icdev,node_addr,pchar(adata));
if st = 0 then begin
memo4.Lines.Add('采集下一笔记录成功：'+adata);
end
else if st=-9 then
memo4.Lines.Add('没有数据！')
else
memo4.Lines.Add('采集下一笔记录失败！'+inttostr(st));
end;
procedure TForm1.bt_get_recClick(Sender: TObject);
var
st,node_addr:integer;
adata:string;
begin
if length(ed_password.text)<8 then begin
application.MessageBox('密码长度不足！','警告',mb_ok);
exit;
end ;
st:=hand_shake(icdev,se_node_addr2.Value,ed_password.text);
if (st=0) then begin
memo4.Lines.add('与'+inttostr(se_node_addr2.Value)+'号机握手成功！');
end
else begin
memo4.Lines.add('与'+inttostr(se_node_addr2.Value)+'号机握手失败！'+inttostr(st));
exit;
end;
setlength(adata,50);
st := get_mj_record(icdev,se_recnum.Value,node_addr,pchar(adata));
if st = 0 then begin
memo4.Lines.Add('采集' + inttostr(se_recnum.value)+'号记录成功：'+adata);
end
else if st=-9 then
memo4.Lines.Add('没有数据！')
else
memo4.Lines.Add('采集' + inttostr(se_recnum.value)+'号记录失败! '+inttostr(st));
end;
procedure TForm1.bt_getallrecordClick(Sender: TObject);
var
st,node_addr,i:integer;
adata:string;
begin
memo4.Clear;
if length(ed_password.text)<8 then begin
application.MessageBox('密码长度不足！','警告',mb_ok);
exit;
end ;
st:=hand_shake(icdev,se_node_addr2.Value,ed_password.text);
if (st=0) then begin
memo4.Lines.add('与'+inttostr(se_node_addr2.Value)+'号机握手成功！');
end
else begin
memo4.Lines.add('与'+inttostr(se_node_addr2.Value)+'号机握手失败！'+inttostr(st));
exit;
end;
setlength(adata,50);
i:=1;
memo1.Lines.Add('正在采集'+inttostr(se_node_addr2.Value)+'号机的数据:');
st :=get_mj_curr_record(icdev,node_addr,pchar(adata));
if (st=0) then begin
memo4.Lines.Add(inttostr(i)+'笔记录:'+adata);
end
else if (st=-9) then begin
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -