zcfzrjzc.pas

本程序功能是将银行系统的月计表转换为所需要的资产负债表

unit ZCFZRJZC;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, SUIEdit, SUIButton, ExtCtrls, SUIForm, SUIDlg,
  RzEdit;

type
  TZCFZRJZCFrm = class(TForm)
    suiMessageDialog1: TsuiMessageDialog;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    btnOk: TButton;
    btnCancek: TButton;
    RzMaskEdit1: TRzMaskEdit;
    RzMaskEdit2: TRzMaskEdit;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    function CheckInput: Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ZCFZRJZCFrm: TZCFZRJZCFrm;

implementation

uses FunctionModel;

{$R *.dfm}

function TZCFZRJZCFrm.CheckInput: Boolean;
var
  locExpireDate: TDateTime;
begin
  Result := CheckRegistraton(RzMaskEdit1.Text, RzMaskEdit2.Text,
    locExpireDate);

  if not Result then
  begin
    MessageBox(Handle,
      '注册码不正确！',
      '注册失败', MB_OK or MB_ICONINFORMATION);
  end
  else
  begin
    if locExpireDate = 0 then
      MessageBox(Handle,
        '软件现在可以无限期使用！',
        '注册成功', MB_OK or MB_ICONINFORMATION)
    else
      MessageBox(Handle,
        PChar(FormatDateTime('''软件有效期至'' yyyy''年''mm''月''dd''日''。',
        locExpireDate)), '注册成功', MB_OK or MB_ICONINFORMATION);
  end;
end;

procedure TZCFZRJZCFrm.FormCreate(Sender: TObject);
begin
  RzMaskEdit1.EditMask := '0000-0000-0000;0; ';
  RzMaskEdit2.EditMask := '>LLLL-LLLL-LLLL;0; ';
  RzMaskEdit2.AutoSelect := False;
end;

procedure TZCFZRJZCFrm.FormShow(Sender: TObject);
begin
  RzMaskEdit1.Text := HardSerialString;
  RzMaskEdit2.Text := '';
end;

procedure TZCFZRJZCFrm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  if ModalResult = mrOk then
    CanClose := CheckInput;
end;

end.