licenseinput.~pas

中国移动集群网销售资料录入管理系统。 包含集群网用户录入

unit licenseinput;

interface

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

type
  TFormLicense = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button3: TButton;
    procedure FormShow(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormLicense: TFormLicense;

implementation
uses CheckSerial,datamodule;
{$R *.dfm}

procedure TFormLicense.FormShow(Sender: TObject);
begin
  with TCheckSerial.Create(nil) do try
    Edit2.Text := get_hardwaresn;
  finally
    Free;
  end;

end;

procedure TFormLicense.Button2Click(Sender: TObject);
var bitcode: string;
begin
  with TCheckSerial.Create(nil) do try
    bitcode := get_bitcode_bysn(Edit1.Text);
    if keyvalid = false then ShowMessage('验证码不正确，请向发布商确认。')
    else
      ModalResult := mrOK;
  finally
    Free;
  end;
end;

procedure TFormLicense.Button1Click(Sender: TObject);
begin
  Edit2.SetFocus;
  Edit2.CopyToClipboard;
end;

procedure TFormLicense.FormCreate(Sender: TObject);
begin
Memo1.Lines.LoadFromFile(DM.install_dir+'license.txt');
end;

end.