📄 td.pas
字号:
end;
procedure TFrm_TD.DataSource_mntdDataChange(Sender: TObject;
Field: TField);
var
s:string;
begin
{ with dm.DataModule1.ADO_MNTD do
begin
edit1.Text:=fieldbyname('通道号').AsString;
edit2.Text:=fieldbyname('通道名称').AsString;
edit3.Text:=fieldbyname('预警上限').AsString;
edit4.Text:=fieldbyname('预警下限').AsString;
edit5.Text:=fieldbyname('预警内容').AsString;
edit6.Text:=fieldbyname('普警上限').AsString;
edit7.Text:=fieldbyname('普警下限').AsString;
edit8.Text:=fieldbyname('普警内容').AsString;
edit9.Text:=fieldbyname('严警上限').AsString;
edit10.Text:=fieldbyname('严警下限').AsString;
Edit11.Text:=fieldbyname('严警内容').AsString;
s:=fieldbyname('是否告警').AsString;
end;
if s='是' then checkbox1.Checked:=true;
if s='否' then checkbox1.Checked:=false; }
end;
//---------------删除---------------
procedure TFrm_TD.BitBtn2Click(Sender: TObject);
begin
//-------------------------------------------
{ if tabbednotebook1.ActivePage='模拟通道' then
begin
if MessageDlg('确实要删除吗?',mtWarning, [mbYes, mbNo], 0) = mrYes then
begin
with dm.DataModule1.ADO_MNTD do
begin
Close;
SQL.Clear;
SQL.Add('Delete From 模拟通道 where (通道号='''+edit1.Text+''')');
execsql;
end;
end;
with dm.DataModule1.ADO_MNTD do
begin
Close;
SQL.Clear;
SQL.Add('Select * From 模拟通道');
Open;
end;
end;
//----------------------------------------------------
if tabbednotebook1.ActivePage='数字通道' then
begin
if MessageDlg('确实要删除吗?',mtWarning, [mbYes, mbNo], 0) = mrYes then
begin
with dm.DataModule1.ADO_SZTD do
begin
Close;
SQL.Clear;
SQL.Add('Delete From 数字通道 where (通道号='''+edit12.Text+''')');
execsql;
end;
end;
with dm.DataModule1.ADO_SZTD do
begin
Close;
SQL.Clear;
SQL.Add('Select * From 数字通道');
Open;
end;
end; }
//---------------------------------------------
if tabbednotebook1.ActivePage='区域配置' then
begin
if MessageDlg('确实要删除吗?',mtWarning, [mbYes, mbNo], 0) = mrYes then
begin
with dm.DataModule1.ADO_KZTD do
begin
Close;
SQL.Clear;
SQL.Add('Delete From 区域配置 where (区域号='''+edit15.Text+''')');
execsql;
end;
end;
with dm.DataModule1.ADO_KZTD do
begin
Close;
SQL.Clear;
SQL.Add('Select * From 区域配置');
Open;
end;
end;
end;
//-------------------修改---------------------------
procedure TFrm_TD.BitBtn3Click(Sender: TObject);
var
s1,s2:string;
begin
//////////////////////////////////////////////////////////
{if tabbednotebook1.ActivePage='模拟通道' then
begin
if checkbox1.Checked=true then s2:='是';
if checkbox1.Checked=false then s2:='否';
with dm.DataModule1.ADO_MNTD do
begin
s1:=fieldbyname('通道号').AsString;
Close;
SQL.Clear;
SQL.Add('update 模拟通道 set ');
SQL.add('通道号='''+Edit1.text+'''');
SQL.add(',通道名称='''+edit2.text+'''');
SQL.add(',预警上限='''+Edit3.text+'''');
SQL.add(',预警下限='''+Edit4.text+'''');
SQL.add(',预警内容='''+Edit5.text+'''');
SQL.add(',普警上限='''+Edit6.text+'''');
SQL.add(',普警下限='''+Edit7.text+'''');
SQL.add(',普警内容='''+Edit8.text+'''');
SQL.add(',严警上限='''+Edit9.text+'''');
SQL.add(',严警下限='''+Edit10.text+'''');
SQL.add(',严警内容='''+Edit11.text+'''');
SQL.add(',是否告警='''+s2+'''');
SQL.Add('where 通道号='''+s1+'''');
ExecSQL;
Close;
SQL.Clear;
SQL.Add('Select * From 模拟通道');
Open;
end;
end;
////////////////////////////////////////////////////////////
if tabbednotebook1.ActivePage='数字通道' then
begin
if checkbox1.Checked=true then s2:='是';
if checkbox1.Checked=false then s2:='否';
with dm.DataModule1.ADO_SZTD do
begin
s1:=fieldbyname('通道号').AsString;
Close;
SQL.Clear;
SQL.Add('update 数字通道 set ');
SQL.add('通道号='''+Edit12.text+'''');
SQL.add(',通道名称='''+edit13.text+'''');
SQL.add(',报警类型='''+Edit14.text+'''');
SQL.add(',报警提示内容='''+Edit16.text+'''');
SQL.add(',是否告警='''+s2+'''');
SQL.Add('where 通道号='''+s1+'''');
ExecSQL;
Close;
SQL.Clear;
SQL.Add('Select * From 数字通道');
Open;
end;
end; }
///////////////////////////////////////////////////////////////
if tabbednotebook1.ActivePage='区域配置' then
begin
if checkbox3.Checked then s2:='是';
if checkbox3.Checked=false then s2:='否';
with dm.DataModule1.ADO_KZTD do
begin
s1:=fieldbyname('区域号').AsString;
Close;
SQL.Clear;
SQL.Add('update 区域配置 set ');
SQL.add('区域号='''+Edit15.text+'''');
SQL.add(',区域名称='''+edit17.text+'''');
SQL.add(',是否遥调='''+s2+'''');
SQL.Add('where 区域号='''+s1+'''');
ExecSQL;
Close;
SQL.Clear;
SQL.Add('Select * From 区域配置');
Open;
end;
end;
end;
procedure TFrm_TD.Button1Click(Sender: TObject);
var
time:Tfrm_time;
begin
time:=TFrm_Time.Create(application);
time.ShowModal;
time.Free;
end;
procedure TFrm_TD.DataSource_sztdDataChange(Sender: TObject;
Field: TField);
var
s:string;
begin
{ with dm.DataModule1.ADO_SZTD do
begin
edit12.Text:=fieldbyname('通道号').AsString;
edit13.Text:=fieldbyname('通道名称').AsString;
edit14.Text:=fieldbyname('报警类型').AsString;
edit16.Text:=fieldbyname('报警提示内容').AsString;
s:=fieldbyname('是否告警').AsString;
end;
if s='是' then checkbox2.Checked;
if s='否' then checkbox2.Checked:=false; }
end;
procedure TFrm_TD.DataSource_kztdDataChange(Sender: TObject;
Field: TField);
var
s:string;
begin
with dm.DataModule1.ADO_KZTD do
begin
edit15.Text:=fieldbyname('区域号').AsString;
edit17.Text:=fieldbyname('区域名称').AsString;
s:=fieldbyname('是否遥调').AsString;
end;
if s='是' then checkbox3.Checked:=true;
if s='否' then checkbox3.Checked:=false;
end;
///////------------选择------------------------
procedure TFrm_TD.BitBtn4Click(Sender: TObject);
var
s1:string;
begin
///--------------control-------
if tabbednotebook1.ActivePage='控制配置' then
begin
s1:=dm.DataModule1.ADO_KZTD.fieldbyname('区域号').AsString;
if s1<>'' then
begin
if messagedlg('确定要控制通道"'+s1+'"吗?',mtWarning,[mbyes,mbno],0)=mryes then
begin
with dm.DataModule1.ADO_KZTD do
begin
frm_main.on_time:=fieldbyname('开灯时间').asstring;
frm_main.off_time:=fieldbyname('关灯时间').AsString;
frm_main.Timer_main.Enabled:=true;
end;
end;
end;
end;
end;
procedure TFrm_TD.TabbedNotebook1Click(Sender: TObject);
begin
if tabbednotebook1.ActivePage='模拟通道' then
begin
datasource_mntd.DataSet:=dm.DataModule1.ADO_MNTD ;
with dm.DataModule1.ADO_MNTD do
begin
close;
sql.Clear;
sql.Add('select * from 模拟通道');
open;
end;
end;
if tabbednotebook1.ActivePage='数字通道' then
begin
datasource_sztd.DataSet:=dm.DataModule1.ADO_SZTD;
with dm.DataModule1.ADO_SZTD do
begin
close;
sql.Clear;
sql.Add('select * from 数字通道');
open;
end;
end;
if tabbednotebook1.ActivePage='区域配置' then
begin
with dm.DataModule1.ADO_KZTD do
begin
close;
sql.Clear;
sql.Add('select * from 区域配置');
open;
end;
dbgrid3.DataSource:=datasource_kztd;
end;
end;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -