fmuseru.pas

小型库存管理,希望有帮助,小型库存管理,希望有帮助

unit FMUserU;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, FMSingleU, Menus, DB, ADODB, StdCtrls, Buttons, ExtCtrls, Grids,
  DBGrids, Mask, DBCtrls;

type
  TFMUser = class(TFMSingle)
    cdsMainfUserNO: TWideStringField;
    cdsMainfUserName: TWideStringField;
    cdsMainfPwd: TWideStringField;
    cdsMainfStatu: TSmallintField;
    cdsMainfFFU: TWideStringField;
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    Panel1: TPanel;
    Label1: TLabel;
    dbfUserNO: TDBEdit;
    Label2: TLabel;
    dbfUserName: TDBEdit;
    Label3: TLabel;
    dbfPwd: TDBEdit;
    cdsDict: TADODataSet;
    dsDict: TDataSource;
    cdsDictfDictNo: TWideStringField;
    cdsDictfDictName: TWideStringField;
    cdsMainfStatuName: TStringField;
    Label4: TLabel;
    dbfStatuName: TDBLookupComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cdsMainNewRecord(DataSet: TDataSet);
    procedure btnQueryClick(Sender: TObject);
    procedure btnModifyClick(Sender: TObject);
    procedure btnAddClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    aUser :string ; 
    function DelCheck:boolean ; override ;
  end;

var
  FMUser: TFMUser;

implementation

{$R *.dfm}

function TFMUser.DelCheck:boolean;
begin
  result :=true ;
  if LowerCase(cdsMain.FieldByName('fUserNO').AsString)='system' then
   begin
      result :=false ;
      aErrMsg :='该用户为本系统超级用户,不能删除.' ;
   end ;
end ;

procedure TFMUser.FormCreate(Sender: TObject);
begin
  PAddType :=1;
  inherited;
end;

procedure TFMUser.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  cdsDict.Active :=false ; 
end;

procedure TFMUser.cdsMainNewRecord(DataSet: TDataSet);
begin
  inherited;
  cdsMain.FieldByName('fStatu').AsString :='1';
  cdsMain.FieldByName('fFFU').AsString :='0';
end;

procedure TFMUser.btnQueryClick(Sender: TObject);
begin
  PTableName :='ts_user';
  inherited;
end;

procedure TFMUser.btnModifyClick(Sender: TObject);
begin
  if (LowerCase(cdsMain.FieldByName('fUserNO').AsString)='system') and (aUser<>'system') then
   begin
      MessageBox(handle,PChar('您无权修改超级用户的资料.'),'提示',MB_OK+MB_ICONWARNING);
      exit ;
   end ;
  inherited;
  dbfUserNO.ReadOnly :=true ;
end;

procedure TFMUser.btnAddClick(Sender: TObject);
begin
  inherited;
  dbfUserNO.ReadOnly :=false ;
  dbfUserNO.SetFocus ;
end;

procedure TFMUser.FormShow(Sender: TObject);
begin
  inherited;
  cdsDict.Active :=false ;
  cdsDict.Active :=true ;
end;

end.