uchishi.pas

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

unit Uchishi;

interface

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

type
  Tfrmchushi = class(TForm)
    combjg: TComboBox;
    ADOQuery1: TADOQuery;
    Edtzc: TEdit;
    Image1: TImage;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure sptnokClick(Sender: TObject);
    procedure sptncloseClick(Sender: TObject);
   
  private
    { Private declarations }
  public
    { Public declarations }

  end;

var
  frmchushi: Tfrmchushi;
const
 bigss = 2515637;
  Gsysname='';
implementation

uses Udm, Ulgb,umain, Uinsert;

{$R *.dfm}

procedure iniwrite();
var
  config:Tinifile;
begin
  config:=tinifile.Create(Gsyspath+'\zbcg.ini');
  config.WriteString('jg','jgmc',Gjgmc);
  config.WriteString('jg','jgbm',Gjgbm);
  config.Free;
end;

procedure Tfrmchushi.FormCreate(Sender: TObject);
begin

  combjg.Clear ;
  with adoquery1 do
  begin
    first;
        while not eof do begin
        combjg.Items.Add(fieldbyname('jgmc').AsString );
        next;
      end;
     combjg.ItemIndex :=0;
   end;
end;

procedure Tfrmchushi.sptnokClick(Sender: TObject);
{var
strzcm, str, str1: string;
  intzcm: int64;
  i, j: integer;
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
 strzcm := ansiuppercase(trim(edit1.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);
  abort;
  end;
  intzcm := trunc(intzcm / bigss);
  str:= inttostr(intzcm)+'00';
  if length(str)<>6 then
  begin
    application.MessageBox('注册码错误！请确认后重新输入',Gsysname,mb_OK+mb_iconerror);
  abort;
  end;    }
begin
 adoqopen(adoquery1,'select zcm ,jgbm from zzjjgb where jgmc='+#39+trim(combjg.Text)+#39);
 if trim(edtzc.text)=adoquery1.FieldByName('zcm').asstring then
 begin
   Gjgbm:=adoquery1.FieldByName('jgbm').AsString;
   Gjgmc:=trim(combjg.Text);
   iniwrite();
  
 end
else
  begin
  application.MessageBox('注册码错误！请确认后重新输入',Gsysname,mb_OK+mb_iconerror);
  abort;
  end;




end;

procedure Tfrmchushi.sptncloseClick(Sender: TObject);
begin
ADOQUERY1.Close;
CLOSE;
end;

end.