uusermaint.pas

Delphi面向对象编程思想附书源码 好用哦！

unit uUserMaint;
interface

uses
  Windows, Messages, SysUtils, Variants, Classes,DBClient,udmUser;

type
  TUserMaint = class (TObject)
  private
    
  public
    UserDM:TUserDM;
    function GetDepList: TStrings;
    function GetUserList(strName:String): String;
    function UpdateUserData(UserData:String):integer;
    constructor create;
    destructor Destroy;override;
  end;
  
implementation


{
********************************** TUserMaint **********************************
}
constructor TUserMaint.create;
begin
  UserDM:=TUserDM.Create(nil);
end;

destructor TUserMaint.Destroy;
begin
  freeandnil(UserDM);
  inherited;
end;

function TUserMaint.GetDepList: TStrings;
var
  i: Integer;
  tmpstrs: TStrings;
begin
  tmpstrs:=TStringlist.Create;
  with UserDM do
  try
    if not adcUser.Connected then
       adcUser.Connected:=True;
    adqTemp.sql.Clear;
    adqTemp.sql.add('select * from M_BMBM');
    adqTemp.Open;
    for i:=1 to  adqTemp.RecordCount do
    begin
      tmpstrs.Add(adqTemp.Fieldbyname('BMMC').AsString);
      adqTemp.Next;
    end;
    adqTemp.Close;
    result:=tmpstrs;
  finally
    adcUser.Connected:=False;
  end;
end;

function TUserMaint.GetUserList(strName:String): String;
begin
  with UserDM do
  try
    if not adcUser.Connected then
       adcUser.Connected:=True;
    with  adqByName do
    begin
      close;
      Parameters.ParamByName('name').value:='%'+strName+'%';
      open;
      cdsUser.Active:=True;
      result:=cdsUser.XMLData;
    end;
  finally
    adcUser.Connected:=False;
  end;
  GetDepList;
end;

function TUserMaint.UpdateUserData(UserData:string):integer;
begin
  UserDM.cdsUser.XMLData:=UserData;
  UserDM.cdsUser.Active:=true;
  result:=UserDM.cdsUser.ApplyUpdates(-1);
end;

end.