modifybjdatasrc.pas

该程序可作为386的接警程序使用

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;
    ComboBoxModifyBJData: TComboBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    DBGrid1: TDBGrid;
    Button3: TButton;
    CheckBox1: TCheckBox;
    Button4: TButton;
    procedure ButtonModifyClick(Sender: TObject);
    procedure ButtonCloseClick(Sender: TObject);
    procedure ButtonOKClick(Sender: TObject);
    procedure ComboBoxModifyBJDataChange(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormModifyBJData: TFormModifyBJData;

implementation

{$R *.dfm}
uses
  BJDataSrc;

procedure TFormModifyBJData.ButtonModifyClick(Sender: TObject);
begin
        try
                FormBJData.ADOQuery1.UpdateBatch(arAll);
        except
                ShowMessage('修改有错!');
        end;
        Text := '';
end;

procedure TFormModifyBJData.ButtonCloseClick(Sender: TObject);
begin
        Close;
end;

procedure TFormModifyBJData.ButtonOKClick(Sender: TObject); //查询....
var
     strSQL:string;
begin
     strSQL := 'select * from 报警器档案 where ' + ComboBoxModifyBJData.text + ' like ' + '"%'+ Edit1.Text + '%"';
     FormBJData.ADOQuery1.Close;
     FormBJData.ADOQuery1.SQL.Clear;
     FormBJData.ADOQuery1.SQL.Text := strSQL;
     FormBJData.ADOQuery1.Open;
end;

procedure TFormModifyBJData.ComboBoxModifyBJDataChange(Sender: TObject);
begin
     Edit1.Text := '';
end;

procedure TFormModifyBJData.FormActivate(Sender: TObject);
var i,num:Integer;
    str:string;
    strSQL:string;
begin
        FormBJData.ADOQuery1.Open;
        num:=FormBJData.ADOQuery1.FieldCount;
        for i:=0 to num-1 do
        begin
          str:=FormBJData.ADOQuery1.FieldList.Strings[i];
          ComboBoxModifyBJData.Items.Add(str);
        end;
        ComboBoxModifyBJData.ItemIndex := 0;
        Edit1.Text := '';
        Button1.Enabled:=false;
        CheckBox1.Checked:=false;
        strSQL := 'select * from 报警器档案';
        FormBJData.ADOQuery1.Close;
        FormBJData.ADOQuery1.SQL.Clear;
        FormBJData.ADOQuery1.SQL.Text := strSQL;
        FormBJData.ADOQuery1.Open;
end;

procedure TFormModifyBJData.CheckBox1Click(Sender: TObject);
begin
  if CheckBox1.Checked=true then
  begin
    DbGrid1.ReadOnly:=false;
    Button1.Enabled:=true;
  end
  else
  begin
    DbGrid1.ReadOnly:=true;
    Button1.Enabled:=false;
  end;
end;

procedure TFormModifyBJData.Button4Click(Sender: TObject);
var strSQL:string;
begin
        strSQL := 'select * from 报警器档案';
        FormBJData.ADOQuery1.Close;
        FormBJData.ADOQuery1.SQL.Clear;
        FormBJData.ADOQuery1.SQL.Text := strSQL;
        FormBJData.ADOQuery1.Open;
end;

end.