accesscontrol.pas

这是一个DELPHI7应用案例开发篇有配套程序种子光盘

unit AccessControl;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, StdCtrls, Mask, DBCtrls, DB, DBClient, ExtCtrls;

type
  TfrmAccessControl = class(TForm)
    DBGrid1: TDBGrid;
    dePasswd: TDBEdit;
    dcbPriv: TDBLookupComboBox;
    cdsLookup: TClientDataSet;
    dsLookup: TDataSource;
    cdsLookupText: TStringField;
    cdsLookupCode: TIntegerField;
    edName: TDBEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    edAge: TDBEdit;
    edGender: TDBEdit;
    deAddress: TDBEdit;
    deZIP: TDBEdit;
    dePhone: TDBEdit;
    deEmail: TDBEdit;
    btnOK: TButton;
    Bevel1: TBevel;
    btnAddUser: TButton;
    btnDelUser: TButton;
    btnChgPassword: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnAddUserClick(Sender: TObject);
    procedure btnDelUserClick(Sender: TObject);
    procedure btnChgPasswordClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAccessControl: TfrmAccessControl;

implementation

uses DataM, ChgPasswd;

{$R *.dfm}

procedure TfrmAccessControl.FormCreate(Sender: TObject);
begin
    with cdsLookup do
    begin
        First;
        Insert;
        FieldByName('Text').AsString := '管理员';
        FieldByName('Code').AsInteger := 1;
        Post;
        Insert;
        FieldByName('Text').AsString := '普通用户';
        FieldByName('Code').AsInteger := 2;
        Post;
    end;
end;

procedure TfrmAccessControl.btnAddUserClick(Sender: TObject);
begin
    DataModule1.cdsUser.Insert;
end;

procedure TfrmAccessControl.btnDelUserClick(Sender: TObject);
begin
    DataModule1.cdsUser.Delete;
end;

procedure TfrmAccessControl.btnChgPasswordClick(Sender: TObject);
begin
    frmChgPasswd := TfrmChgPasswd.Create(Application);
    frmChgPasswd.Password := dePasswd.Text;
    if frmChgPasswd.ShowModal = mrOK then
    begin
        dePasswd.Text := frmChgPasswd.NewPassword;
    end;
    frmChgPasswd.Free;
end;

procedure TfrmAccessControl.FormDestroy(Sender: TObject);
begin
    DataModule1.cdsUser.ApplyUpdates(-1);
end;

end.