frmregp.pas

二次开发模块 一、条形码的批量生成

unit FrmRegP;

interface

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

type
  TFrmReg = class(TFrmRootAdd)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Memo1: TMemo;
    ADOQuery1: TADOQuery;
    procedure BtnSaveClick(Sender: TObject);
    Function GetAccName(cAcc:String):String;
    procedure BtnCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmReg: TFrmReg;

implementation

uses SUFunctionP, DataDmP, FrmMainP;

{$R *.dfm}

procedure TFrmReg.BtnSaveClick(Sender: TObject);
Var LsStr:String;
begin
  inherited;
  LsStr:=Trim(Memo1.Text);
  if Trim(Edit1.Text)='' then Abort;
  if LsStr='' then Abort;
  Try
    LsStr:=SUFunction.EncryptionEngine(LsStr,'19780923',false);
  Except
      Application.MessageBox(Pchar('注册失败！请检查注册码是否正确!'),'信息',MB_OK+ MB_ICONINFORMATION);
    Abort;
  end;
  if LsStr=GetAccName(Edit1.Text) then
    begin
      LsStr:=SUFunction.EncryptionEngine(LsStr,'19780923',True);
      frmmain.ReadReg(Edit1.Text,'cReg',LsStr);
      Application.MessageBox(Pchar('感谢您！帐套:'+Edit1.Text+'注册成功!'),'信息',MB_OK+ MB_ICONINFORMATION);
      Close;
    end
  else
    begin
      Application.MessageBox(Pchar('注册失败！请检查注册码是否正确!'),'信息',MB_OK+ MB_ICONINFORMATION);    
    end;
end;

function TFrmReg.GetAccName(cAcc: String): String;
Var LsQry:TADOQuery;
begin
   LsQry:=TADOQuery.Create(Self);
   LsQry.Connection:=DataDm.ConUfsystem;
   LsQry.SQL.Add('select cAcc_Name from UA_Account');
   LsQry.SQL.Add('Where (cAcc_Id='''+cAcc+''')');
   LsQry.Open;
   Result:=LsQry.FieldByName('cAcc_Name').AsString;
   LsQry.Destroy;
end;

procedure TFrmReg.BtnCancelClick(Sender: TObject);
begin
  inherited;
  Close;
end;

end.