data.pas

漳大图书馆管理系统利用Delphi6.0和MS Server2000为主要开发工具

unit data;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  Windows, Messages, SysUtils, Classes, ComServ, ComObj, VCLCom, DataBkr,
  DBClient, server_TLB, StdVcl, DB, ADODB, Provider,dialogs;

type
  Tfm_data = class(TRemoteDataModule, Imyserver)
    pro_book: TDataSetProvider;
    pro_borrow: TDataSetProvider;
    pro_logon: TDataSetProvider;
    AQ_book: TADOQuery;
    AQ_borrow: TADOQuery;
    AQ_logon: TADOQuery;
    AQ_user: TADOQuery;
    pro_user: TDataSetProvider;
    AQ_card: TADOQuery;
    pro_card: TDataSetProvider;
    pro_student: TDataSetProvider;
    AQ_student: TADOQuery;
  private
    { Private declarations }
  protected
    class procedure UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); override;
    procedure logout; safecall;
    procedure Imyserver.autho = Imyserver_autho;
    procedure Imyserver_autho(const m_userid, m_host, m_ip, m_pwd: WideString;
      var vReturn: OleVariant); safecall;
  public
    { Public declarations }
  end;

implementation

uses main;

{$R *.DFM}

class procedure Tfm_data.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 Tfm_data.logout;
begin

end;

procedure Tfm_data.Imyserver_autho(const m_userid, m_host, m_ip,
  m_pwd: WideString; var vReturn: OleVariant);
var
  adoQ :TAdoquery;
   //xitem :TlistItem;
begin
try
    adoQ := TAdoquery.Create(self);
     adoq.Connection := FmMain.ADOConnection1;
     adoq.CacheSize := 1000;
     with adoQ do
     begin
        close;
        prepared := false;
        sql.clear;
        sql.add('select * from users where userid ='+#39+m_userid+#39+ ' and pin ='+#39+m_pwd+#39);
        prepared := true;
        open;
        if recordcount>0 then
        begin
            vReturn := 'T';
               with FmMain do
            begin
                 { xitem := TlistItem.Create(nil);
                  xitem := lvw_userinfo.items.add;
                  xitem.Caption := m_userid;
                  G_userid := m_userid;
                  xitem.SubItems.add(m_host);
                  xitem.SubItems.add(Formatdatetime('YYYY-MM-DD hh:mm:ss ',now));
                  xitem.SubItems.Add(m_ip);
                  lvw_userinfo.Refresh;
                   xitem.Free;}

                 // Lbx_log.Items.Add(m_userid +'--' +Formatdatetime('yyyy-mm-dd hh:mm:ss',now)+' -->  Login System');
             adoq.Free;
           end;
         end
      else
        begin
          adoq.Free;
         vReturn := 'F';
       end;
     end;
    except
        Messagedlg('对象创建失败!',mtwarning,[mbok],0);
    end;
end;

initialization
  TComponentFactory.Create(ComServer, Tfm_data,
    Class_fm_data, ciMultiInstance, tmApartment);
end.