utbzxm.pas

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

unit UTBzxm;

interface
uses windows, forms, SysUtils, Controls;
type
   TBzxm = class
   public
      RetVal: integer; //返回码
      RetMsg: string; //返回信息
      Bzxmbh: string; //补助项目编号
      bzxmmc: string; //补助项目名称
      scrq: string; //生成日期
      ffdw: string; //发放单位
      dwje: double; //单位金额
      bzzje: double; //补助总金额
      bzzrs: integer; //补助总人数
      sjffje: double; //实际发放金额
      sjffrs: integer; //实际发放总人数
      qybz: integer; //启用标志
      czy: string; //操作员
      constructor create();
   private
      procedure IniData; //初始化变量数据
   public
      function AddBzxm(): boolean; //添加补助项目
      function ModBzxm(): boolean; //修改补助项目
      function DelBzxm(): boolean; //删除补助项目
      function GetBzxm(sBzxmbh: string): boolean; //得到补助项目信息  SBzxmbh:补助项目编号
      function Djbzxm(iCzfs: integer; dBzje: Double; syhbh: string): boolean; //等记补助项目
   end;

implementation

uses QForms, DM_DataModal, UGlobal;
{ TBzxm }

//添加补助项目

function TBzxm.AddBzxm: boolean;
begin
   result := False;
   retval := -1;
   retmsg := '';
   try
      with winddata.pcw_801_Bzxmxx do
      begin
         parameters.ParamByName('@czfs').Value := 1;
         parameters.ParamByName('@bzxmbh').Value := bzxmbh;
         parameters.ParamByName('@bzxmmc').Value := bzxmmc;
         parameters.ParamByName('@scrq').Value := scrq;
         parameters.ParamByName('@ffdw').Value := ffdw;
         parameters.ParamByName('@dwje').Value := dwje;
         parameters.ParamByName('@bzzje').Value := bzzje;
         parameters.ParamByName('@bzzrs').Value := bzzrs;
         parameters.ParamByName('@qybz').Value := qybz;
         parameters.ParamByName('@czy').Value := gtUser.UsrName;
         execproc;
         retval := parameters.ParamByName('@return_value').Value;
         retmsg := parameters.ParamByName('@retmsg').Value;
         if retval = 0 then result := True;
      end;
   except
      retval := -1;
      retmsg := '操作异常';
      result := False;
   end;
end;

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

//删除补助项目

function TBzxm.DelBzxm: boolean;
begin
   result := False;
   retval := -1;
   retmsg := '';
   try
      with winddata.pcw_801_Bzxmxx do
      begin
         parameters.ParamByName('@czfs').Value := 2;
         parameters.ParamByName('@bzxmbh').Value := bzxmbh;
         parameters.ParamByName('@czy').Value := gtUser.UsrName;
         execproc;
         retval := parameters.ParamByName('@return_value').Value;
         retmsg := parameters.ParamByName('@retmsg').Value;
         if retval = 0 then result := True;
      end;
   except
      retval := -1;
      retmsg := '操作异常';
      result := False;
   end;
end;


//等记补助项目
//iCzfs:操作方式  0:登记 1:取消 2:发放
//dBzje:补助金额  sTran:对象参数

function TBzxm.Djbzxm(iCzfs: integer; dBzje: Double; sYhbh: string): boolean;
begin
   result := False;
   retval := -1;
   retmsg := '';
   try
      with winddata.pcw_802_Bzxmcl do
      begin
         parameters.ParamByName('@czfs').Value := iCzfs;
         parameters.ParamByName('@bzxmbh').Value := bzxmbh;
         parameters.ParamByName('@bzje').Value := dBzje;
         parameters.ParamByName('@yhbh').Value := sYhbh;
         parameters.ParamByName('@czy').Value := gtUser.UsrName;
         execproc;
         retval := parameters.ParamByName('@return_value').Value;
         retmsg := parameters.ParamByName('@retmsg').Value;
         if retval = 0 then result := True;
      end;
   except
      retval := -1;
      retmsg := '操作异常';
      result := False;
   end;
end;

//得到补助项目信息
//SBzxmbh:补助项目编号

function TBzxm.GetBzxm(sBzxmbh: string): boolean;
begin
   result := False;
   retval := -1;
   retmsg := '';
   try
      with winddata.PublicQuery do
      begin
         sql.Clear;
         sql.Add('select * from cw_bz_bzxm where bzxmbh=''' + sBzxmbh + '''');
         open;
         if not Eof then
         begin
            Bzxmbh := sBzxmbh; //补助项目编号
            bzxmmc := fieldbyname('bzxmmc').AsString; //补助项目名称
            scrq := fieldbyname('scrq').AsString; //生成日期
            ffdw := fieldbyname('ffdw').AsString; ; //发放单位
            dwje := fieldbyname('dwje').AsFloat; //单位金额
            bzzje := fieldbyname('bzzje').AsFloat; //补助总金额
            bzzrs := fieldbyname('bzzrs').AsInteger; //补助总人数
            sjffje := fieldbyname('sjffje').AsFloat; //实际发放金额
            sjffrs := fieldbyname('sjffrs').AsInteger; //实际发放总人数
            qybz := fieldbyname('qybz').AsInteger; //启用标志
            czy := fieldbyname('czy').AsString; //操作员
         end
         else
            retmsg := '无符合记录';
      end;
   except
      retval := -1;
      retmsg := '操作异常';
      result := False;
   end;
end;

procedure TBzxm.IniData;
begin
   Bzxmbh := ''; //补助项目编号
   bzxmmc := ''; //补助项目名称
   scrq := ''; //生成日期
   ffdw := ''; //发放单位
   dwje := 0; //单位金额
   bzzje := 0; //补助总金额
   bzzrs := 0; //补助总人数
   sjffje := 0; //实际发放金额
   sjffrs := 0; //实际发放总人数
   qybz := -1; //启用标志
   czy := ''; //操作员
end;

//修改补助项目

function TBzxm.ModBzxm: boolean;
begin
   result := False;
   retval := -1;
   retmsg := '';
   try
      with winddata.pcw_801_Bzxmxx do
      begin
         parameters.ParamByName('@czfs').Value := 3;
         parameters.ParamByName('@bzxmbh').Value := bzxmbh;
         parameters.ParamByName('@bzxmmc').Value := bzxmmc;
         parameters.ParamByName('@scrq').Value := scrq;
         parameters.ParamByName('@ffdw').Value := ffdw;
         parameters.ParamByName('@dwje').Value := dwje;
         parameters.ParamByName('@bzzje').Value := bzzje;
         parameters.ParamByName('@bzzrs').Value := bzzrs;
         parameters.ParamByName('@qybz').Value := qybz;
         parameters.ParamByName('@czy').Value := gtUser.UsrName;
         execproc;
         retval := parameters.ParamByName('@return_value').Value;
         retmsg := parameters.ParamByName('@retmsg').Value;
         if retval = 0 then result := True;
      end;
   except
      retval := -1;
      retmsg := '操作异常';
      result := False;
   end;
end;

end.