utyhxx.pas

来自「是一个用delphi设计的考勤系统」· PAS 代码 · 共 161 行

{
***************************************************************
   说明：用户信息类
 2、
***************************************************************
}
unit UTYhxx;
interface
uses windows, forms, SysUtils, Controls, DB;
type
   Tyhxx = class
   public
      RetVal: integer; //返回码
      RetMsg: string; //返回信息
      YhID: integer; //用户ID
      Yhbh: string; //用户编号
      Yhxm: string; //用户姓名
      Xb: string; //性别
      Bjbh: string; //
      Bjmc: string; //
      Zybh: string; //
      Zymc: string; //
      Yxbh: string; //
      Yxmc: string; //
      Sfzh: string; //身份证号
      yhsflx: string; //用户身份类型
      Usrpwd: string; //用户密码
      Djrq: string; //登记日期
      Xhrq: string; //销户日期
      Cardsn: longword; //卡SN
      CardType: integer; //卡类
      Cardyj: double; //卡押金
      SyDate: Tdatetime; //使用年限
      GsDate: TdateTime; //挂失日期
      HsDate: TdateTime; //回收日期
      Track1: shortstring; //1磁道
      Track2: shortstring; //2磁道
      Track3: shortstring; //3磁道
      Cardpwd: string; //卡密码
      Sybz: integer; //使用标志
      Gxcs: integer; //更新次数
      Bkqcs: integer; //补卡前次数
      bzje: double; //补助金额
      constructor create();
   public
      function GetYhxx(sYhbh: string): boolean;
      function InfoQruey(Czfs: integer; Yhbh: string; Ksrq: string; Jsrq: string): TDataSet;
   private
      procedure IniData; //初始化变量数据
   end;

implementation

uses QForms, DM_DataModal, URecord, UDeviceFunc, UGlobal,  UTcard;



constructor Tyhxx.create();
begin
   inherited Create;
   RetVal := -1; //返回码
   RetMsg := ''; //返回信息
   IniData;
end;

function Tyhxx.GetYhxx(sYhbh: string): boolean;
var
   sSql: string;
begin
   Result := False;
   sSql := 'select * from vzx_s_yhxx where yhbh=''' + sYhbh + '''';
   try
      with WindData.PublicQuery do
      begin
         close;
         SQL.Clear;
         SQL.Add(sSql);
         open;
         if not eof then
         begin
            YhID := fieldbyname('YhID').AsInteger; //用户IC
            Yhbh := sYhbh; //用户编号
            Yhxm := fieldbyname('yhxm').asstring; //用户姓名
            Xb := fieldbyname('xb').asstring; //性别
            Bjbh := fieldbyname('bjbh').asstring; //
            Bjmc := fieldbyname('bjmc').asstring; //  
            //Yxmc := fieldbyname('yxmc').asstring; //
            Sfzh := fieldbyname('sfzh').asstring; //身份证号
            yhsflx := fieldbyname('yhsflx').asstring; //用户身份类型   
            Usrpwd := fieldbyname('usrpwd').asstring; //用户密码
            Djrq := fieldbyname('djrq').asstring; //登记日期
            Xhrq := fieldbyname('xhrq').asstring; //销户日期
            Cardsn := fieldbyname('cardsn').asinteger; //卡SN
            Sybz := fieldbyname('sybz').asinteger; //使用标志
            Gxcs := fieldbyname('gxcs').asinteger; //更新次数

         end
         else
         begin
            RetVal := 1; //返回码
            RetMsg := '系统中不存在该用户编号'; //返回信息
            IniData;
            exit;
         end;
         close;
         RetVal := 0;
         RetMsg := '查询到一条符合记录';
         Result := True;
      end;
   except
      RetVal := 1; //返回码
      RetMsg := '查询异常'; //返回信息
      IniData;
   end;
end;

function Tyhxx.InfoQruey(Czfs: integer; Yhbh, Ksrq, Jsrq: string): TDataSet;
begin
   try
      with winddata.pcx_901_jfjcx do
      begin
         parameters.ParamByName('@czfs').Value := Czfs;
         parameters.ParamByName('@yhbh').Value := yhbh;
         parameters.ParamByName('@ksrq').Value := ksrq;
         parameters.ParamByName('@jsrq').Value := jsrq;
         execproc;
         open;
      end;
   finally
      result := winddata.pcx_901_jfjcx;
   end;
end;

procedure Tyhxx.IniData;
begin
   Yhbh := ''; //用户编号
   Yhxm := ''; //用户姓名
   Xb := ''; //性别
   Bjbh := ''; //
   Bjmc := ''; //
   Zybh := ''; //
   Zymc := ''; //
   Yxbh := ''; //
   Yxmc := ''; //
   Sfzh := ''; //身份证号
   yhsflx := ''; //用户身份类型
   Usrpwd := ''; //用户密码
   Djrq := ''; //登记日期
   Xhrq := ''; //销户日期
   Cardsn := 0; //卡SN
   CardType := 0; //卡类  
   SyDate := 0; //使用年限
   Cardpwd := ''; //卡密码
   Sybz := -1; //使用标志
   Gxcs := -1; //更新次数
   Bkqcs := -1; //补卡前次数

end;

end.