bjxmsg.pas

本系统是基于企业局域网平台针对企业安防

unit Bjxmsg;

interface

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

type
  TForm9 = class(TForm)
    Panel2: TPanel;
    Label3: TLabel;
    Panel1: TPanel;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    ComboBox1: TComboBox;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    Panel4: TPanel;
    Label2: TLabel;
    Label5: TLabel;
    Edit2: TEdit;
    Edit1: TEdit;
    DataSource1: TDataSource;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation
  uses DataModal;
{$R *.dfm}

procedure TForm9.SpeedButton1Click(Sender: TObject);
begin
  if Trim(ComboBox1.Text)<>'' then
  begin
    with Data.ADOQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('Select * from 报警项目表 where 项目名称 = :a');
      Parameters.ParamByName('a').Value := Trim(ComboBox1.Text);
      Open;
    end;
    if Data.ADOQuery1.RecordCount>0 then
    begin
      BitBtn2.Enabled := True;
      DataSource1.DataSet := Data.ADOQuery1;
      Edit1.Text := Data.ADOQuery1.FieldByName('项目名称').Value;
      Edit2.Text := Data.ADOQuery1.FieldByName('项目数据').Value;
      Edit1.SetFocus;
    end
    else
    begin
      BitBtn2.Enabled := False;
      DataSource1.DataSet := Nil;
    end;
  end;
end;

procedure TForm9.FormShow(Sender: TObject);
begin
  DataSource1.DataSet := Nil;
  with Data.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('select Distinct 项目名称 from 报警项目表');
    Open;
  end;
  Edit1.Clear;
  Edit2.Clear;
  ComboBox1.Clear;
  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 TForm9.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_Return then
    SpeedButton1.OnClick(Sender);
end;

procedure TForm9.Edit2KeyPress(Sender: TObject; var Key: Char);
var
  i: Boolean;
begin
  i:= (Key<#8)or(Key>#8)and(Key<#48)or(Key>#49)or(Length(Edit2.Text)>=4)and(Key<>#8);
  if i then
    Key := #0;
end;

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

procedure TForm9.BitBtn2Click(Sender: TObject);
begin
  if Application.MessageBox('确实要修改当前数据吗?','提示',mb_YesNo)= ID_Yes then
  begin
    if (Trim(Edit1.Text)<>'')and(Length(Edit2.Text)=4)then
    begin
      Try
        with Data.ADOQuery2 do
        begin
          Close;
          SQL.Clear;
          SQL.Add('update 报警项目表 set 项目数据 = :a ,项目名称 = :b where 项目名称 =:c');
          Parameters.ParamByName('a').Value := Trim(Edit2.Text);
          Parameters.ParamByName('b').Value := Trim(Edit1.Text);
          Parameters.ParamByName('c').Value := Trim(Data.ADOQuery1.FieldByName('项目名称').Value);
          ExEcSQL;
        end;
        Application.MessageBox('数据修改成功.','提示',64);
        OnShow(Sender);
        BitBtn2.Enabled := False;
      Except
        Application.MessageBox('系统出错.','提示',64);
      end;
    end
    else
      Application.MessageBox('数据项有误.','提示',64);
  end;
end;

procedure TForm9.DBGrid1CellClick(Column: TColumn);
begin
  if Data.ADOQuery1.Active then
    if Data.ADOQuery1.RecordCount>0 then
    begin
      Edit1.Text := Data.ADOQuery1.FieldByName('项目名称').Value;
      Edit2.Text := Data.ADOQuery1.FieldByName('项目数据').Value;      
    end;
end;

end.