changezh.pas

来自「一个详细功能齐全的档案管理信息系统 跟大家分享一下。这是老师给的光盘里带的」· PAS 代码 · 共 57 行

unit ChangeZH;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  TfChangeZH = class(TForm)
    Bevel1: TBevel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Bevel2: TBevel;
    Image1: TImage;
    Label5: TLabel;
    labDate: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    EdtOldPwd: TEdit;
    Label2: TLabel;
    EdtNewZh: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    EdtOldZH: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    function InputNewZh(var aOldZh,aOldPwd,aNewZh: string):boolean;
  end;

var
  fChangeZH: TfChangeZH;

implementation

{$R *.dfm}

function TfChangeZH.InputNewZh(var aOldZh,aOldPwd,aNewZh: string):boolean;
begin
  Result := ShowModal = mrOk;
  if Result then
  begin
    aOldZh:=EdtOldZH.Text;
    aOldPwd:=EdtOldPwd.Text;
    aNewZh:=EdtNewZh.Text;    
  end;  
end;
procedure TfChangeZH.FormCreate(Sender: TObject);
begin
   labDate.Caption:=Formatdatetime('yyyy.mm.dd',date);
end;

end.