xgczymm.pas

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

unit XgCzymm;

interface

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

type
  TForm5 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Panel2: TPanel;
    Label5: TLabel;
    Edit1: TEdit;
    Label6: TLabel;
    Edit2: TEdit;
    Label7: TLabel;
    Edit3: TEdit;
    Panel3: TPanel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    Procedure FindNext;
    Procedure FindPrior;
    procedure BitBtn2Click(Sender: TObject);
    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
  Form5: TForm5;
implementation
  uses Main ;
{$R *.dfm}

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

procedure TForm5.BitBtn3Click(Sender: TObject);
begin
  Edit1.Clear;
  Edit2.Clear;
  Edit3.Clear;
end;

procedure TForm5.Edit1Change(Sender: TObject);
begin
  if (Trim(Edit1.Text)<>'')and(Trim(Edit2.Text)<>'')and(Trim(Edit3.Text)<>'')then
    BitBtn2.Enabled := True
  else
    BitBtn2.Enabled := False;
end;

procedure TForm5.BitBtn2Click(Sender: TObject);
var
  Value: Array of variant;
begin
  If Application.MessageBox('确实要修改操作员密码吗?','提示',mb_YesNo)= ID_Yes then
  begin
    if Trim(Uppercase(Czymm))<>Trim(Uppercase(Edit1.Text))then
    begin
      Application.MessageBox('原密码不正确,请重新输入.','提示',64);
      Edit1.Clear;
      Edit1.SetFocus;
      Exit;
    end;
    if Trim(Edit2.Text)<>Trim(Edit3.Text)then
    begin
      Application.MessageBox('新密码两次输入不一致,请重新输入.','提示',64);
      Edit3.Clear;
      Edit3.SetFocus;
      Exit;
    end;
    Czy1.SetFieldCount(1);
    Czy1.WriteFieldNames(0,'操作员密码');
    SetLength(value,1);
    value[0]:= Trim(Edit2.Text);
    Try
      Czy1.UpDateCzyXX(Value,'操作员编号',Czybh);
      Application.MessageBox('密码修改成功.','提示',64);
      BitBtn3.OnClick(Sender);
    Except
      Application.MessageBox('系统出错.','提示',64);
    End;
  end;
end;

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

procedure TForm5.FindPrior;
begin
  if FindNextControl(ActiveControl,False,True,False)is TEdit then
    TEdit(FindNextControl(ActiveControl,False,True,False)).SetFocus ;
end;

procedure TForm5.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = vk_ReTurn then
    FindNext
  else if Key = vk_Up then
    FindPrior;
end;

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

end.