bjclxg.pas

企业安防管理系统

unit bjclxg;

interface

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

type
  TForm14 = class(TForm)
    Panel2: TPanel;
    Label3: TLabel;
    Panel1: TPanel;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    Panel4: TPanel;
    Label2: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    DataSource1: TDataSource;
    Label4: TLabel;
    Edit3: TEdit;
    SpeedButton2: TSpeedButton;
    BitBtn2: TBitBtn;
    DBGrid2: TDBGrid;
    OpenDialog1: TOpenDialog;
    DataSource2: TDataSource;
    BitBtn1: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure SpeedButton2Click(Sender: TObject);
    procedure DBGrid2DblClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form14: TForm14;

implementation
  uses DataModal;
{$R *.dfm}

procedure TForm14.FormShow(Sender: TObject);
begin
  ComboBox1.Clear;
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  DataSource1.DataSet := Nil;
  with Data.ADOQuery3 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select distinct 项目名称 from 报警项目表');
    Open;
  end;
  if Data.ADOQuery3.RecordCount>0 then
    DataSource2.DataSet := Data.ADOQuery3;
  with Data.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select Distinct 报警处理 from 报警处理表');
    Open;
  end;
  if Data.ADOQuery1.RecordCount>0 then
  begin
    while Not Data.ADOQuery1.Eof do
    begin
      ComboBox1.Items.Add(Data.ADOQuery1.Fields[0].Value);
      Data.ADOQuery1.Next;
    end;
  end;
  ComboBox1.ItemIndex := 0;
end;

procedure TForm14.SpeedButton1Click(Sender: TObject);
begin
  if Trim(ComboBox1.Text)='' then
  begin
    Application.MessageBox('请设置查询条件.','提示',64);
    Exit;
  end;
  with Data.ADOQuery2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select * from 报警处理表 where 报警处理 = :a');
    Parameters.ParamByName('a').Value := Trim(ComboBox1.Text);
    Open;
  end;
  if Data.ADOQuery2.RecordCount>0 then
  begin
    DataSource1.DataSet := Data.ADOQuery2;
    Edit1.Text := Data.ADOQuery2.FieldByName('报警处理').Value;
    //Edit2.Text := Data.ADOQuery2.FieldByName('项目范围').Value;
    Edit3.Text := Data.ADOQuery2.FieldByName('音乐').Value;
    BitBtn2.Enabled := True;
    Edit1.SetFocus;
  end
  else
  begin
    DataSource1.DataSet := Nil;
    Edit1.Clear;
    Edit2.Clear;
    BitBtn2.Enabled := False;
  end;
end;

procedure TForm14.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_Return then
    SpeedButton1.OnClick(Sender);
end;

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

procedure TForm14.Edit2KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = vk_Return)and(BitBtn2.Enabled = True)then
    BitBtn2.SetFocus;
end;

procedure TForm14.BitBtn2Click(Sender: TObject);
begin
  if Application.MessageBox('确实要修改当前数据吗?','提示',mb_YesNO)=ID_Yes then
  begin
    if (Trim(Edit1.Text)='')or(Trim(Edit2.Text)='')then
    begin
      Application.MessageBox('数据项不能为空.','提示',64);
      Exit;
    end;
    Try
      Data.ADOQuery2.Edit;
      Data.ADOQuery2.FieldByName('报警处理').Value := Trim(Edit1.Text);
      Data.ADOQuery2.FieldByName('项目范围').Value := Trim(Edit2.Text);
      Data.ADOQuery2.FieldByName('音乐').Value := Trim(Edit3.Text);
      Data.ADOQuery2.Post;
      Application.MessageBox('修改成功.','提示',64);
      OnShow(Sender);
    Except
      Application.MessageBox('系统出错.','提示',64);
    end;  
  end;
end;

procedure TForm14.DBGrid1CellClick(Column: TColumn);
begin
  if Data.ADOQuery2.Active then
    if Data.ADOQuery2.RecordCount>0 then
    begin
      Edit1.Text:= Data.ADOQuery2.FieldByName('报警处理').Value;
      if Data.ADOQuery2.FieldByName('音乐').Value<>Null then
        Edit3.Text:= Data.ADOQuery2.FieldByName('音乐').Value;
    end;  
end;

procedure TForm14.SpeedButton2Click(Sender: TObject);
begin
  Edit3.Text := OpenDialog1.FileName;
end;

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

procedure TForm14.BitBtn1Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
end;

end.