bjcltj.pas

企业安防管理系统

unit bjcltj;

interface

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

type
  TForm13 = class(TForm)
    Panel2: TPanel;
    Label3: TLabel;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    DataSource1: TDataSource;
    OpenDialog1: TOpenDialog;
    Panel4: TPanel;
    DBGrid2: TDBGrid;
    Panel5: TPanel;
    Label2: TLabel;
    Edit3: TEdit;
    Edit2: TEdit;
    Label4: TLabel;
    SpeedButton1: TSpeedButton;
    Edit1: TEdit;
    Label1: TLabel;
    DataSource2: TDataSource;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form13: TForm13;

implementation
  uses DataModal;
{$R *.dfm}

procedure TForm13.BitBtn2Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit1.SetFocus;
  Edit2.Clear;
  Edit3.Clear;
  with Data.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 报警处理表');
    Open;
  end;
  if Data.ADOQuery1.RecordCount>0 then
    DataSource1.DataSet := Data.ADOQuery1
  else
    DataSource1.DataSet := Nil;    
end;

procedure TForm13.FormShow(Sender: TObject);
begin
  with Data.ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select Distinct 项目名称 from 报警项目表 ');
    Open;
  end;
  if Data.ADOQuery2.RecordCount>0 then
    DataSource2.DataSet := Data.ADOQuery2;
  BitBtn2.OnClick(Sender);
end;

procedure TForm13.BitBtn1Click(Sender: TObject);
begin
  if (Trim(Edit3.Text)<>'')and(Trim(Edit1.Text)<>'') then
  begin
    Try
      with Data.ADOQuery2 do
      begin
        Close;
        SQL.Clear;
        SQL.Add('Insert 报警处理表 values(:a,:b,:c)');
        Parameters.ParamByName('a').Value:= Trim(Edit1.Text);
        Parameters.ParamByName('b').Value := Trim(Edit3.Text);
        Parameters.ParamByName('c').Value := Trim(Edit2.Text);
        ExecSQL;
      end;
      Application.MessageBox('操作成功.','提示',64);
      OnShow(Sender);
    Except
      Application.MessageBox('系统出错.','提示',64);
    End;
  end;
end;

procedure TForm13.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_Return then
    Edit2.SetFocus;
end;

procedure TForm13.SpeedButton1Click(Sender: TObject);
begin
  OpenDialog1.Execute;
  Edit2.Text := OPenDialog1.FileName;
end;

procedure TForm13.DBGrid2DblClick(Sender: TObject);
var
  Temp: String;
begin
  if Data.ADOQuery2.Active = True then
    if Data.ADOQuery2.RecordCount>0 then
    begin
      Temp := Data.ADOQuery2.Fields[0].Value;
      if Pos(Trim(Temp),Trim(Edit3.Text))=0 then
      Edit3.Text := Edit3.Text+Temp;
    end;      
end;

end.