usysmanadd.pas

是个办公系统,可以实现财务上的管理和人员的流动

unit Usysmanadd;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ADODB,StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Mask, DBCtrls;
type
  TfrmSysmanadd = class(TForm)
    DBGrid1: TDBGrid;
    GroupBox1: TGroupBox;
    bbtnNew: TBitBtn;
    bbtnEdit: TBitBtn;
    bbtnDel: TBitBtn;
    bbtnClose: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    bbtnSave: TBitBtn;
    Label4: TLabel;
    DBEdit1: TDBEdit;
    DBEdit2: TDBEdit;
    Edit1: TEdit;
    DBComboBox1: TDBComboBox;
    procedure bbtnNewClick(Sender: TObject);
    procedure bbtnEditClick(Sender: TObject);
    procedure bbtnDelClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure bbtnSaveClick(Sender: TObject);
    procedure bbtnCloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmSysmanadd: TfrmSysmanadd;

implementation

uses MyData, Umain;

{$R *.dfm}

procedure TfrmSysmanadd.bbtnNewClick(Sender: TObject);
begin
  dm.AQUsersMgr.Append;
end;

procedure TfrmSysmanadd.bbtnEditClick(Sender: TObject);
begin
 dm.AQUsersMgr.Edit;
end;

procedure TfrmSysmanadd.bbtnDelClick(Sender: TObject);
begin
  if DBGrid1.DataSource.DataSet.IsEmpty  then Exit;
  if MessageBox(self.Handle,'确定要删除记录吗？','提示',MB_OKCANCEL+MB_ICONINFORMATION+MB_DefButton2)=mrOK then
     begin
       dm.AQUsersMgr.Delete;
     end;
end;

procedure TfrmSysmanadd.FormShow(Sender: TObject);
begin
 with dm.AQUsers do
   begin
    close;
    sql.Clear;
    sql.Add('select * from Users');
    open;
   end;
end;

procedure TfrmSysmanadd.bbtnSaveClick(Sender: TObject);
begin
  if Edit1.Text<>DBEdit2.Text then
   begin
    ShowMessage('两次输入密码不一致！');
    Exit;
   end;
  dm.AQUsersMgr.Edit;
  dm.AQUsersMgr.FieldByName('PWD').Value:=frmMain.Encrypt(DBEdit2.Text);
  dm.AQUsersMgr.Post;
  ShowMessage('已存盘！');
end;

procedure TfrmSysmanadd.bbtnCloseClick(Sender: TObject);
begin
  close;
end;

procedure TfrmSysmanadd.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

end.