unit1.pas

Delphi+Oracle CRM(Customer Relationship Management,客户关系管理)是一种基于Internet的应用系统.它通过对企业业务流程的重组来整合用户信息

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label4: TLabel;
    Panel2: TPanel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Button2: TButton;
    Edit5: TEdit;
    Edit6: TEdit;
    PassWord1: TPassWord;
    Label9: TLabel;
    Label11: TLabel;
    Edit7: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure zc();
  private
    { Private declarations }
  public
      HD_Str:string;
      Xlh:String;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if Length(Trim(Edit1.Text))<>5 then
begin
   Application.MessageBox('序列号长度不对，请仔细检查！',PChar(Caption),MB_OK);
   Edit1.SetFocus;
   exit;
end;
if Length(Trim(Edit2.Text))<>5 then
begin
   Application.MessageBox('序列号长度不对，请仔细检查！',PChar(Caption),MB_OK);
   Edit2.SetFocus;
   exit;
end;
if Length(Trim(Edit3.Text))<>5 then
begin
   Application.MessageBox('序列号长度不对，请仔细检查！',PChar(Caption),MB_OK);
   Edit3.SetFocus;
   exit;
end;
if Length(Trim(Edit4.Text))<>5 then
begin
   Application.MessageBox('序列号长度不对，请仔细检查！',PChar(Caption),MB_OK);
   Edit4.SetFocus;
   exit;
end;
if Length(Trim(Edit5.Text))=0 then
begin
   Application.MessageBox('请输入用户返回加密码！',PChar(Caption),MB_OK);
   Edit5.SetFocus;
   exit;
end;

HD_Str:=UpperCase(Trim(Edit5.Text));
Xlh:=UpperCase(Trim(Edit1.Text));
Xlh:=Xlh+UpperCase(Trim(Edit2.Text));
Xlh:=Xlh+UpperCase(Trim(Edit3.Text));
Xlh:=Xlh+UpperCase(Trim(Edit4.Text));

zc;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if length(Trim(Edit1.Text))=4 then
   Edit2.SetFocus;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if length(Trim(Edit2.Text))=4 then
   Edit3.SetFocus;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if length(Trim(Edit3.Text))=4 then
   Edit4.SetFocus;
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if length(Trim(Edit4.Text))=4 then
   Edit5.SetFocus;
end;


procedure TForm1.zc;
var
      Temp1:string;
begin
      HD_Str:=UpperCase(Trim(HD_Str));
      Xlh:=UpperCase(Trim(Xlh));
      PassWord1.Key:=Xlh;
      HD_Str := PassWord1.UncrypKey(HD_Str);

      Temp1:=UpperCase(Trim(edit7.Text));
      PassWord1.Key:=Temp1;
      temp1:=PassWord1.EncrypKey(HD_Str);
      Edit6.Text:=temp1;
end;

end.