modifybjdatasrc.~pas

报警地图电子显示源代码

unit ModifyBJDataSrc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls;

type
  TFormModifyBJData = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    Edit8: TEdit;
    Edit7: TEdit;
    Edit6: TEdit;
    Edit5: TEdit;
    Edit4: TEdit;
    Edit3: TEdit;
    Edit2: TEdit;
    Edit9: TEdit;
    Label4: TLabel;
    Label3: TLabel;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    Edit10: TEdit;
    Edit11: TEdit;
    CheckBox11: TCheckBox;
    Edit12: TEdit;
    CheckBox12: TCheckBox;
    Edit13: TEdit;
    CheckBox13: TCheckBox;
    Edit14: TEdit;
    CheckBox14: TCheckBox;
    Edit15: TEdit;
    CheckBox15: TCheckBox;
    Edit16: TEdit;
    CheckBox16: TCheckBox;
    Button1: TButton;
    Button3: TButton;
    Label5: TLabel;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Edit21: TEdit;
    Edit22: TEdit;
    Edit23: TEdit;
    Edit24: TEdit;
    Edit25: TEdit;
    Edit26: TEdit;
    Edit27: TEdit;
    Edit28: TEdit;
    Edit29: TEdit;
    Edit30: TEdit;
    Edit31: TEdit;
    Edit32: TEdit;
    Label6: TLabel;



    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    Pos:array[0..15] of string;
    State :array[0..15] of string;
    
  end;

var
  FormModifyBJData: TFormModifyBJData;
  Posit :array[0..15] of string;
implementation

{$R *.dfm}
uses
  BJDataSrc;

procedure TFormModifyBJData.FormCreate(Sender: TObject);
var i:Integer;
begin
  //初始化全局变量
  FormBJData.adoquery1.Close;
  FormBJData.adoquery1.SQL.Clear;
  FormBJData.adoquery1.SQL.Add('select * from BJQWHB');
  FormBJData.adoquery1.Open;
  //从数据库表中读值
  for i:=0 to 15 do  //MachineNum-1
  begin
    Pos[i]:= FormBJData.adoquery1.fieldbyname('所在地址').AsString;
    State[i]:= FormBJData.adoquery1.fieldbyname('报警器状态').AsString;
    Posit[i]:= FormBJData.adoquery1.fieldbyname('对应硬件节点').AsString;
    FormBJData.adoquery1.Next;
  end;
  //FormBJData.adoquery1.Close;
end;

procedure TFormModifyBJData.Button1Click(Sender: TObject);
var i:Integer;
    strtemp:string;
begin
   Pos[0]:=Edit1.Text;Pos[1]:=Edit2.Text;Pos[2]:=Edit3.Text;
   Pos[3]:=Edit4.Text;Pos[4]:=Edit5.Text;Pos[5]:=Edit6.Text;
   Pos[6]:=Edit7.Text;Pos[7]:=Edit8.Text;Pos[8]:=Edit9.Text;
   Pos[9]:=Edit10.Text;Pos[10]:=Edit11.Text;Pos[11]:=Edit12.Text;
   Pos[12]:=Edit13.Text;Pos[13]:=Edit14.Text;Pos[14]:=Edit15.Text;
   Pos[15]:=Edit16.Text;

   Posit[0]:=Edit17.Text;Posit[1]:=Edit18.Text;Posit[2]:=Edit19.Text;
   Posit[3]:=Edit20.Text;Posit[4]:=Edit21.Text;Posit[5]:=Edit22.Text;
   Posit[6]:=Edit23.Text;Posit[7]:=Edit24.Text;Posit[8]:=Edit25.Text;
   Posit[9]:=Edit26.Text;Posit[10]:=Edit27.Text;Posit[11]:=Edit28.Text;
   Posit[12]:=Edit29.Text;Posit[13]:=Edit30.Text;Posit[14]:=Edit31.Text;
   Posit[15]:=Edit32.Text;

   if CheckBox1.Checked=true then State[0]:='已安装' else State[0]:='未安装';
   if CheckBox2.Checked=true then State[1]:='已安装' else State[1]:='未安装';
   if CheckBox3.Checked=true then State[2]:='已安装' else State[2]:='未安装';
   if CheckBox4.Checked=true then State[3]:='已安装' else State[3]:='未安装';
   if CheckBox5.Checked=true then State[4]:='已安装' else State[4]:='未安装';
   if CheckBox6.Checked=true then State[5]:='已安装' else State[5]:='未安装';
   if CheckBox7.Checked=true then State[6]:='已安装' else State[6]:='未安装';
   if CheckBox8.Checked=true then State[7]:='已安装' else State[7]:='未安装';
   if CheckBox9.Checked=true then State[8]:='已安装' else State[8]:='未安装';
   if CheckBox10.Checked=true then State[9]:='已安装' else State[9]:='未安装';
   if CheckBox11.Checked=true then State[10]:='已安装' else State[10]:='未安装';
   if CheckBox12.Checked=true then State[11]:='已安装' else State[11]:='未安装';
   if CheckBox13.Checked=true then State[12]:='已安装' else State[12]:='未安装';
   if CheckBox14.Checked=true then State[13]:='已安装' else State[13]:='未安装';
   if CheckBox15.Checked=true then State[14]:='已安装' else State[14]:='未安装';
   if CheckBox16.Checked=true then State[15]:='已安装' else State[15]:='未安装';
   FormBJData.adoquery1.Close;

   for i:=0 to 15 do  //MachineNum-1
   begin
    FormBJData.adoquery1.SQL.Clear;
    strtemp:= 'update BJQWHB set 所在地址='''+Pos[i]+''', 对应硬件节点='+Posit[i]+''', 报警器状态='''+State[i]+''' where 报警器编号='+inttostr(i+1);
    FormBJData.adoquery1.SQL.Add(strtemp);
    try
      FormBJData.adoquery1.ExecSQL;
    except
      ShowMessage('修改未完成!');
      close;
    end
   end;
   ShowMessage('修改成功!');
   //FormBJData.adoquery1.Open;
   close;
end;

procedure TFormModifyBJData.Button3Click(Sender: TObject);
begin
  close;
end;

procedure TFormModifyBJData.FormActivate(Sender: TObject);
begin
   Edit1.Text:=Pos[0];Edit2.Text:=Pos[1];Edit3.Text:=Pos[2];
   Edit4.Text:=Pos[3];Edit5.Text:=Pos[4];Edit6.Text:=Pos[5];
   Edit7.Text:=Pos[6];Edit8.Text:=Pos[7];Edit9.Text:=Pos[8];
   Edit10.Text:=Pos[9];Edit11.Text:=Pos[10];Edit12.Text:=Pos[11];
   Edit13.Text:=Pos[12];Edit14.Text:=Pos[13];Edit15.Text:=Pos[14];
   Edit16.Text:=Pos[15];

   Edit17.Text:=Posit[0];Edit18.Text:=Posit[1];Edit19.Text:=Posit[2];
   Edit20.Text:=Posit[3];Edit21.Text:=Posit[4];Edit22.Text:=Posit[5];
   Edit23.Text:=Posit[6];Edit24.Text:=Posit[7];Edit25.Text:=Posit[8];
   Edit26.Text:=Posit[9];Edit27.Text:=Posit[10];Edit28.Text:=Posit[11];
   Edit29.Text:=Posit[12];Edit30.Text:=Posit[13];Edit31.Text:=Posit[14];
   Edit32.Text:=Posit[15];

   if State[0]='已安装' then CheckBox1.Checked:=true else CheckBox1.Checked:=false;
   if State[1]='已安装' then CheckBox2.Checked:=true else CheckBox2.Checked:=false;
   if State[2]='已安装' then CheckBox3.Checked:=true else CheckBox3.Checked:=false;
   if State[3]='已安装' then CheckBox4.Checked:=true else CheckBox4.Checked:=false;
   if State[4]='已安装' then CheckBox5.Checked:=true else CheckBox5.Checked:=false;
   if State[5]='已安装' then CheckBox6.Checked:=true else CheckBox6.Checked:=false;
   if State[6]='已安装' then CheckBox7.Checked:=true else CheckBox7.Checked:=false;
   if State[7]='已安装' then CheckBox8.Checked:=true else CheckBox8.Checked:=false;
   if State[8]='已安装' then CheckBox9.Checked:=true else CheckBox9.Checked:=false;
   if State[9]='已安装' then CheckBox10.Checked:=true else CheckBox10.Checked:=false;
   if State[10]='已安装' then CheckBox11.Checked:=true else CheckBox11.Checked:=false;
   if State[11]='已安装' then CheckBox12.Checked:=true else CheckBox12.Checked:=false;
   if State[12]='已安装' then CheckBox13.Checked:=true else CheckBox13.Checked:=false;
   if State[13]='已安装' then CheckBox14.Checked:=true else CheckBox14.Checked:=false;
   if State[14]='已安装' then CheckBox15.Checked:=true else CheckBox15.Checked:=false;
   if State[15]='已安装' then CheckBox16.Checked:=true else CheckBox16.Checked:=false;
end;

end.