uzzjjgb.pas

在公司做的一个小的系统源代码

unit Uzzjjgb;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, IniFiles,DB, ADODB, jpeg, ExtCtrls, ComCtrls;

type
  Tfrmzzjjgb = class(TForm)
    edtzcm: TEdit;
    Label1: TLabel;
    bbtnzc: TBitBtn;
    Bbtnclose: TBitBtn;
    ADOQjg: TADOQuery;
    Image1: TImage;
    Label2: TLabel;
    StatusBar1: TStatusBar;
    procedure bbtnzcClick(Sender: TObject);
    procedure BbtncloseClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmzzjjgb: Tfrmzzjjgb;
const
  bigss = 2515637;
implementation

{$R *.dfm}
uses Udm,ulgb, Umain;

procedure Tfrmzzjjgb.bbtnzcClick(Sender: TObject);
var
  strzcm, str, str1: string;
  intzcm: int64;
  i, j: integer;
  Config: TIniFile;
const
  a1: array[0..9] of char = ('Q', 'C', '2', 'G', 'E', 'J', '9', 'M', 'P', '5');
  a2: array[0..9] of char = ('S', '4', 'P', '3', 'H', 'T', 'I', '1', 'K', 'G');
  a3: array[0..9] of char = ('H', 'I', 'F', 'O', 'T', 'R', 'X', 'U', 'S', '8');
  a4: array[0..9] of char = ('A', 'D', 'K', 'Y', 'F', 'W', 'N', 'E', 'V', 'J');
  a5: array[0..9] of char = ('Z', 'C', 'X', 'A', 'B', '6', 'M', 'Y', 'N', 'Q');
  a6: array[0..9] of char = ('B', 'D', 'I', 'O', 'T', 'U', 'V', 'W', 'L', 'R'); //'2)
  a7: array[0..9] of char = ('Q', 'C', '2', 'G', 'E', 'J', '9', 'M', 'P', '5');
  a8: array[0..9] of char = ('S', '4', 'P', '3', 'H', 'T', 'I', '1', 'K', 'G');
  a9: array[0..9] of char = ('H', 'I', 'F', 'O', 'T', 'R', 'X', 'U', 'S', '8');
  a10: array[0..9] of char = ('A', 'D', 'K', 'Y', 'F', 'W', 'N', 'E', 'V', 'J');
begin
  if trim(edtzcm.Text)='' then
  begin
    application.MessageBox('注册码不能为空！',gsysname,mb_ok+mb_iconwarning);
    abort; 
  end;
  strzcm := ansiuppercase(trim(edtzcm.Text));
  str1:='';
  for i := 1 to 10 do
  begin
    str := copy(strzcm, i, 1);
    for j := 0 to 9 do
    begin
      case i of
        1: begin
            if str = a2[j] then
            begin
              str1 :=str1+ inttostr(j);
              break;
            end;
          end;
        2: begin
            if str = a3[j] then
            begin
             str1 :=str1+ inttostr(j);
              break;
            end;
          end;
        3: begin
            if str = a4[j] then
            begin
              str1 :=str1+ inttostr(j);
              break;
            end;
          end;
       4: begin
            if str = a5[j] then
            begin
              str1 :=str1+ inttostr(j);
              break;
            end;
          end;
        5: begin
            if str = a6[j] then
            begin
              str1 :=str1+ inttostr(j);
              break;
            end;
          end;
        6: begin
            if str = a7[j] then
            begin
             str1 :=str1+ inttostr(j);
              break;
            end;
          end;
        7: begin
            if str = a8[j] then
            begin
             str1 :=str1+ inttostr(j);
              break;
            end;
          end;
        8: begin
            if str = a9[j] then
            begin
              str1 :=str1+ inttostr(j);
              break;
            end;
          end;
        9: begin
            if str = a10[j] then
            begin
             str1 :=str1+ inttostr(j);
              break;
            end;
          end;
        10: begin
            if str = a5[j] then
            begin
              str1 :=str1+ inttostr(j);
              break;
            end;
          end;
      end;
    end;
  end;
  try
  intzcm := strtoint64(str1);
  except
  application.MessageBox('注册码错误！请确认后重新输入',Gsysname,mb_OK+mb_iconerror);
  edtzcm.SetFocus ;
  abort;
  end;
  intzcm := trunc(intzcm / bigss);
  str:= inttostr(intzcm)+'00';
  if length(str)<>6 then
  begin
    application.MessageBox('注册码错误！请确认后重新输入',Gsysname,mb_OK+mb_iconerror);
     edtzcm.SetFocus ;
    abort;
  end;
   adoqopen(adoqjg,'select * from zzjjgb where jgbm='+#39+str+#39);
   if adoqjg.IsEmpty then
   begin
      application.MessageBox('注册码错误！请确认后重新输入',Gsysname,mb_OK+mb_iconerror);
      edtzcm.SetFocus ;
      abort;
   end
   else
   begin
      gjgbm:=str;
      gjgmc:=adoqjg.fieldbyname('jgmc').asstring;
      renamefile(Gsyspath+'\glxt.sys',Gsyspath+'\glxt.ini');
      config:=Tinifile.Create(Gsyspath+'\glxt.ini');
      config.WriteString('database','jgbm',gjgbm);
       config.WriteString('database','jgmc',gjgmc);
      config.Free;
      renamefile(Gsyspath+'\glxt.ini',Gsyspath+'\glxt.sys') ;
       application.MessageBox(pchar('注册成功！'+#13+'机构编码：'+gjgbm+'；  机构名称：'+gjgmc),Gsysname,mb_OK+mb_iconinformation);
       frmmain.Label1.Caption:=gjgmc;
      bbtnzc.Enabled :=false;
      bbtnclose.SetFocus ;

   end;

end;

procedure Tfrmzzjjgb.BbtncloseClick(Sender: TObject);
begin
  close;
 end;

procedure Tfrmzzjjgb.FormCreate(Sender: TObject);
begin
  if gjgbm<>'' then
  begin
     statusbar1.Panels[0].Text  :='机构编码为：'+gjgbm+',机构名称为：'+gjgmc;
     label2.Caption :='您已经注册，不要重复注册。';
  end;
end;

end.