untuser.pas

来自「简要说明:对医院幼儿心理情况做的一个调查,统计系统.」· PAS 代码 · 共 85 行

unit untUser;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, untBaseSingle, Menus, ImgList, DB, ADODB, Grids, DBGrids,
  StdCtrls, Buttons, ExtCtrls, jpeg, ComCtrls, ToolWin;

type
  TfrmUser = class(TfrmBaseSingle)
    atncfldSingleIAutoID: TAutoIncField;
    strngfldSingleCode: TStringField;
    strngfldSingleName: TStringField;
    strngfldSinglePassword: TStringField;
    blnfldSingleIsUsed: TBooleanField;
    procedure FormDestroy(Sender: TObject);
    procedure btnFilterClick(Sender: TObject);
  private
    { Private declarations }
  protected
    procedure InsRecord; override;
    procedure EditRecord; override;
    procedure DeleteRecord; override;
  public
    { Public declarations }
  end;

var
  frmUser: TfrmUser;

implementation

uses untDM, untUserSet, untGlobalVar, untGlobalFun;

{$R *.dfm}

procedure TfrmUser.DeleteRecord;
begin
  inherited;
  with adsSingle do
  begin
    if not (state in [dsInsert, dsEdit]) then Edit;
    FieldByName('IsUsed').Value := false;
    Post;
    adsSingle.Requery; 
  end;
end;

procedure TfrmUser.EditRecord;
begin
  inherited;
  SetUser(adsSingle, omModi);
end;

procedure TfrmUser.FormDestroy(Sender: TObject);
begin
  inherited;
  frmUser := nil;
end;

procedure TfrmUser.InsRecord;
begin
  inherited;
  SetUser(adsSingle, omNew);
end;

procedure TfrmUser.btnFilterClick(Sender: TObject);
begin
  inherited;
   if MsgQuestion('确定要重置用户'+adsSingle.fieldbyname('name').AsString+'的密码吗？') then
  begin
    with adsSingle do
    begin
      if not (State in [dsInsert, dsEdit]) then
         Edit;
      FieldByName('Password').Value := '1234';
      Post;
      MsgOK('密码重置成功，新密码为：1234 请尽快修改密码！');
    end;
  end;
end;

end.