unitusers.pas

一个不错的系统

unit UnitUsers;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, ToolWin, DBCtrls, Grids, DBGrids, StdCtrls,
  Buttons, ImgList;

type
  TFrmUsers = class(TForm)
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    Edit1: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    bbtnAdd: TBitBtn;
    bbtnDel: TBitBtn;
    bbtnOK: TBitBtn;
    bbtnClose: TBitBtn;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure bbtnCloseClick(Sender: TObject);
    procedure bbtnAddClick(Sender: TObject);
    procedure bbtnDelClick(Sender: TObject);
    procedure bbtnOKClick(Sender: TObject);
    procedure DBGrid1CellClick(Column: TColumn);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmUsers: TFrmUsers;

implementation

uses UnitDatabase, UnitCommon;

{$R *.dfm}

procedure TFrmUsers.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DMMain.adotblUser.Active:=false;
  Action:=caFree;
end;

procedure TFrmUsers.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then Perform(WM_NEXTDLGCTL,0,0);
end;

procedure TFrmUsers.bbtnCloseClick(Sender: TObject);
begin
  if dmMain.adotblUser.Modified then dmMain.adotblUser.Cancel;
  Close;
end;

procedure TFrmUsers.bbtnAddClick(Sender: TObject);
begin
  dmMain.adotblUser.Append;
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit1.SetFocus;
end;

procedure TFrmUsers.bbtnDelClick(Sender: TObject);
begin
  if MessageBox(Handle,'确认要删除当前的操作员资料？','系统信息',MB_YESNO+64)=IDYES then
    dmMain.adotblUser.Delete;
  Edit1.Text:=Trim(DMMain.adotblUser.FieldByName('MName').AsString);
  Edit2.Text:=Trim(DMMain.adotblUser.FieldByName('MAccount').AsString);
  Edit3.Text:=hf_decrypt(Trim(DMMain.adotblUser.FieldByName('MPassword').AsString));
end;

procedure TFrmUsers.bbtnOKClick(Sender: TObject);
begin
  if not dmMain.adotblUser.Modified then dmMain.adotblUser.Edit;
  dmMain.adotblUser.FieldByName('MName').AsString:=Trim(Edit1.Text);
  dmMain.adotblUser.FieldByName('MAccount').AsString:=Trim(Edit2.Text);
  dmMain.adotblUser.FieldByName('MPassword').AsString:=hf_encrypt(Trim(Edit3.Text));
  dmMain.adotblUser.FieldByName('MRule').AsString:='1001';
  dmMain.adotblUser.Post;
end;

procedure TFrmUsers.DBGrid1CellClick(Column: TColumn);
begin
  if Trim(DMMain.adotblUser.FieldByName('MAccount').AsString)='admin' then begin
    bbtnDel.Enabled:=false;
    bbtnOK.Enabled:=false;
  end else begin
    bbtnDel.Enabled:=true;
    bbtnOK.Enabled:=true;
  end;
  Edit1.Text:=Trim(DMMain.adotblUser.FieldByName('MName').AsString);
  Edit2.Text:=Trim(DMMain.adotblUser.FieldByName('MAccount').AsString);
  Edit3.Text:=hf_decrypt(Trim(DMMain.adotblUser.FieldByName('MPassword').AsString));
end;

procedure TFrmUsers.FormCreate(Sender: TObject);
begin
  DMMain.adotblUser.Active:=true;
  if Trim(DMMain.adotblUser.FieldByName('MAccount').AsString)='admin' then begin
    bbtnDel.Enabled:=false;
    bbtnOK.Enabled:=false;
  end else begin
    bbtnDel.Enabled:=true;
    bbtnOK.Enabled:=true;
  end;
  Edit1.Text:=Trim(DMMain.adotblUser.FieldByName('MName').AsString);
  Edit2.Text:=Trim(DMMain.adotblUser.FieldByName('MAccount').AsString);
  Edit3.Text:=hf_decrypt(Trim(DMMain.adotblUser.FieldByName('MPassword').AsString));
end;

end.