u_operator.pas

来自「以多个信息系统为例」· PAS 代码 · 共 68 行

unit u_operator;

interface

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

type
  TF_operator = class(TForm)
    Label1: TLabel;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    i_name: TDBEdit;
    i_id: TDBEdit;
    i_state: TDBRadioGroup;
    Label4: TLabel;
    Label5: TLabel;
    i_passwd: TEdit;
    i_passwd2: TEdit;
    B_change: TButton;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure B_changeClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_operator: TF_operator;

implementation

uses u_main, crypt, u_data;
{$R *.DFM}

procedure TF_operator.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  DM_main.OpenOperator(False);
  Action:=caFree;
  F_main.OtherOperator.Enabled:=True;
end;

procedure TF_operator.FormShow(Sender: TObject);
begin
  DM_main.OpenOperator(True);
end;

procedure TF_operator.B_changeClick(Sender: TObject);
begin
  if i_passwd.Text=i_passwd2.Text then
  begin
    DM_main.SetOperatorPassword(i_passwd.Text)
  end
  else
    Application.MessageBox('请重新确认密码！', '密码确认错误', MB_OK);
  i_passwd.Text:='';
  i_passwd2.Text:='';
end;

end.