uuserreg.pas

三层图书管理系统

unit uUserReg;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComServ, ComObj, VCLCom, StdVcl, bdemts, DataBkr, DBClient,
  MtsRdm, Mtx, pUserReg_TLB, DB, ADODB, uPublic;

type
  TxzBooksUserReg = class(TMtsDataModule, IxzBooksUserReg)
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    ADODataSet2: TADODataSet;
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    procedure UserReg(const ID, CZY: WideString; JSXS: Integer; const Name,
      KHRQ, Address, Phone, FP: WideString; var vResult: OleVariant);
      safecall;
  public
    { Public declarations }
  end;

var
  xzBooksUserReg: TxzBooksUserReg;

implementation

{$R *.DFM}

class procedure TxzBooksUserReg.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string);
begin
  if Register then
  begin
    inherited UpdateRegistry(Register, ClassID, ProgID);
    EnableSocketTransport(ClassID);
    EnableWebTransport(ClassID);
  end else
  begin
    DisableSocketTransport(ClassID);
    DisableWebTransport(ClassID);
    inherited UpdateRegistry(Register, ClassID, ProgID);
  end;
end;

procedure TxzBooksUserReg.UserReg(const ID, CZY: WideString; JSXS: Integer;
  const Name, KHRQ, Address, Phone, FP: WideString;
  var vResult: OleVariant);
begin
  try
    if ADOConnection1.Connected then
      ADOConnection1.Connected := False;
    ADOConnection1.ConnectionString:=GetConStr;
    ADODataSet2.Parameters.ParamByName('aID').Value := ID;
    ADODataSet2.Open;
    if ADODataSet2.IsEmpty then
    begin
      ADODataSet1.Open;
      ADODataSet1.Append;
      ADODataSet1.FieldByName('ID').Value := ID;
      ADODataSet1.FieldByName('CZY').Value :=CZY;
      ADODataSet1.FieldByName('JSXS').Value := JSXS;
      ADODataSet1.FieldByName('Name').Value :=Name;
      ADODataSet1.FieldByName('KHRQ').Value :=strtodate(KHRQ);
      ADODataSet1.FieldByName('Address').Value :=Address;
      ADODataSet1.FieldByName('Phone').Value :=Phone;
      ADODataSet1.FieldByName('FP').Value :=fp;
      ADODataSet1.Post;
      SetComplete;
      vResult:='Complete';
    end
    else
    begin
      vResult:='The user is actived.';
      SetAbort;
    end;
  except
    setAbort;
    vResult:=ADOConnection1.Errors[0].Description;
  end;
end;

initialization
  TComponentFactory.Create(ComServer, TxzBooksUserReg,
    Class_xzBooksUserReg, ciMultiInstance, tmApartment);
end.