zhuce.pas

健身会馆会员管理,实现了部分财务管理和,报表统计功能

unit zhuce;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB,AES, StdCtrls, DBCtrls, Mask;

type
  Tzhucefrm = class(TForm)
    ADOTable1: TADOTable;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    Button2: TButton;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zhucefrm: Tzhucefrm;

implementation
uses unit1,HardInfo;
{$R *.dfm}

procedure Tzhucefrm.Button1Click(Sender: TObject);
var
diskstr,key,datestr,mm:string;
begin
if Memo2.Text='' then
   showmessage('请输入激活码！！')
else begin
    try
    ADOTable1.Open ;
    diskstr:=trim(HardInfo.GetCPUInfo);   //获得CPU序列号
    case ADOTable1.FieldValues ['c2'] of
       0: key:=DecryptString(Memo2.Text , ADOTable1.FieldValues ['c1']);
       1: key:=DecryptString(Memo2.Text, ADOTable1.FieldValues ['c1'], kb192);
       2: key:=DecryptString(Memo2.Text, ADOTable1.FieldValues ['c1'], kb256);
    end;
    except
       showmessage('激活码不正确！');
       exit;
    end;
    KEY:=trim(key);
    datestr:=copy(KEY,0,10);
    mm:=copy(KEY,11,255);
    if mm=diskstr  then
       if date < strtodate(datestr) then
          begin
            ADOTable1.Edit;
            case ADOTable1.FieldValues ['c2'] of
              0: ADOTable1.FieldByName('力').AsString :=EncryptString(inttostr(strtoint(trim(DecryptString(ADOTable1.FieldValues ['力'], ADOTable1.FieldValues ['c1']))) -60),ADOTable1.FieldValues ['c1']);
              1: ADOTable1.FieldByName('力').AsString :=EncryptString(inttostr(strtoint(trim(DecryptString(ADOTable1.FieldValues ['力'], ADOTable1.FieldValues ['c1'],kb192))) - 60),ADOTable1.FieldValues ['c1'], kb192);
              2: ADOTable1.FieldByName('力').AsString :=EncryptString(inttostr(strtoint(trim(DecryptString(ADOTable1.FieldValues ['力'], ADOTable1.FieldValues ['c1'],kb256))) - 60),ADOTable1.FieldValues ['c1'], kb256);
            end;
            ADOTable1.FieldByName('户名').AsString := Memo2.Text;
            ADOTable1.Post;
            close;
          end
       else  showmessage('激活码不正确')
    else showmessage('激活码不正确！！');
    end;

end;

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

end.