xgczy.pas

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

unit XgCzy;

interface

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

type
  TForm3 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    ComboBox1: TComboBox;
    Edit1: TEdit;
    SpeedButton1: TSpeedButton;
    Panel2: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel3: TPanel;
    Label2: TLabel;
    Edit2: TEdit;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Edit3: TEdit;
    Label6: TLabel;
    ComboBox2: TComboBox;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    Procedure FindNext;
    procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    Czy1: TCzyXX;
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
 
implementation
{$R *.dfm}

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

procedure TForm3.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
      BitBtn2.Enabled := True;
      DataSource1.DataSet := Czy1.DataSet;
      DBGrid1.OnCellClick(Nil);
      Edit2.SetFocus;
    end
    else
    begin
      BitBtn2.Enabled := False;
      DataSource1.DataSet := Nil;
    end;
  end;
end;

procedure TForm3.DBGrid1CellClick(Column: TColumn);
begin
  if Czy1.DataSet.Active then
    if Czy1.DataSet.RecordCount>0 then
    begin
      Label3.Caption := Czy1.DataSet.Fields[0].Value;
      Edit2.Text := Czy1.DataSet.Fields[1].Value;
      Edit3.Text := Czy1.DataSet.Fields[3].Value;
      ComboBox2.ItemIndex := Czy1.DataSet.Fields[2].Value;
    end;
end;

procedure TForm3.FindNext;
begin
  if FindNextControl(ActiveControl,True,True,False)is TEdit then
    TEdit(FindNextControl(ActiveControl,True,True,False)).SetFocus
  else if FindNextControl(ActiveControl,True,True,False)is TComboBox then
    TComboBox(FindNextControl(ActiveControl,True,True,False)).SetFocus;
end;

procedure TForm3.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_ReTurn then
    FindNext;
end;

procedure TForm3.BitBtn2Click(Sender: TObject);
var
  Values: Array of Variant;
begin 
  if Application.MessageBox('确实要修改操作员信息吗?','提示',mb_YesNo)= ID_Yes then
    if(Trim(Label3.Caption)<>'')and(Trim(Edit2.Text)<>'')and(Trim(Edit3.Text)<>'')and(Trim(ComboBox2.Text)<>'')then
    begin
      Try
        Czy1.SetFieldCount(4);
        SetLength(Values,4);
        Czy1.WriteFieldNames(0,'操作员编号');
        Czy1.WriteFieldNames(1,'操作员名称');
        Czy1.WriteFieldNames(2,'操作员权限');
        Czy1.WriteFieldNames(3,'操作员密码');
        Values[0]:= Trim(Label3.Caption);
        Values[1]:= Trim(Edit2.Text);
        Values[2]:= Combobox2.ItemIndex;
        Values[3]:= Trim(Edit3.Text);
        Czy1.UpDateCzyXX(Values,'操作员编号',Trim(Label3.Caption));
        Application.MessageBox('修改成功.','提示',64);
        BitBtn2.Enabled := False;
        BitBtn3.OnClick(Sender);
      Except
        Application.MessageBox('系统出错.','提示',64);
        Close;
      End;
    end
    else
      Application.MessageBox('数据项不能为空.','提示',64);
end;

procedure TForm3.BitBtn3Click(Sender: TObject);
begin
  ComboBox1.ItemIndex := 0;
  ComboBox2.ItemIndex :=0;
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
  Label3.Caption :='';
  DataSource1.DataSet := Nil;
end;

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  czy1.Free;
end;

end.