scczy.pas

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

unit ScCzy;

interface

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

type
  TForm4 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    Panel2: TPanel;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    Czy1: TCzyXX;
  public
    { Public declarations }
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.FormCreate(Sender: TObject);
begin
  Czy1 := TCzyXX.Create;
  Czy1.ConnectDataBase('Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=报警管理系统');
  Czy1.FWriteTableName := '操作员信息表';
  ComboBox1.ItemIndex := 0;
end;

procedure TForm4.SpeedButton1Click(Sender: TObject);
begin
  if (Trim(ComboBox1.Text)<>'')and(Trim(Edit1.Text)<>'') then
  begin
    Czy1.SelCzyXX(Trim(ComboBox1.Text),Trim(Edit1.Text));
    if Czy1.DataSet.RecordCount>0 then
    begin
      BitBtn3.Enabled := True;
      DataSource1.DataSet := Czy1.DataSet;
    end
    else
    begin
      BitBtn3.Enabled := False;
      DataSource1.DataSet := Nil;
      Application.MessageBox('没有符合条件的记录.','提示',64);
    end;
  end
  else
    Application.MessageBox('请设置查询条件.','提示',64);
end;

procedure TForm4.BitBtn3Click(Sender: TObject);
begin
  if Application.MessageBox('确实要删除当前记录吗?','提示',MB_YesNo)= ID_Yes then
  begin
    Try
      Czy1.DelCzyXX('操作员编号',Czy1.DataSet.FieldByName('操作员编号').Value);
      ComboBox1.ItemIndex := 0;
      Edit1.Clear;
      DataSource1.DataSet := Nil;
      Application.MessageBox('删除成功.','提示',64);
    Except
      Application.MessageBox('系统出错.','提示',64);
      Close;
    End;
  end;
end;

procedure TForm4.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_Return then
    Edit1.SetFocus;
end;

procedure TForm4.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = Vk_Return then
    SpeedButton1.OnClick(Sender);
end;

procedure TForm4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Czy1.Free;
end;

end.