【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“rewardpun_unit.pas”一文,供大家参考学习
unit rewardpun_unit;
interface
uses
Windows,Messages,SysUtils,Variants,DBclient,Graphics,Classes,persondatamod_unit;
type
Trewardpun=class(TObject)
private
Datamod:TPerson_datamod;
public
function RewardPunRec(ReId:string):Boolean;
function RewardPunRec1(FindSQL:string):Boolean;
function GetRWPIdList():Tstrings;
function GetWorkerId(ReId:string):string;
function GetRecordDate(ReId:string):string;
function GetRecordType(ReId:string):string;
function GetWorkerName(ReId:string):string;
function GetRecCont(ReId:string):string;
function GetRecReason(ReId:string):string;
function GetAllowUnit(ReId:string):string;
function GetRemark(ReId:string):string;
function GetRewardCount(year,month:string):Integer;
function GetPunCount(year,month:string):Integer;
function RewardPunRecs(SQL:string):OLEVariant;
procedure RecInsert(InsertSQl:string);
procedure RecUpdate(UpdateSQl:string);
procedure RecDel(ReId:string);
constructor create;
destructor Destroy;override;
end;
implementation
constructor Trewardpun.create ;
begin
Datamod:=TPerson_datamod.Create(nil);
end;
destructor Trewardpun.Destroy;
begin
freeandnil(Datamod);
inherited;
end;
function Trewardpun.GetRWPIdList():TStrings;
var
idrec:TStrings;
begin
idrec:=TStringlist.Create ;
Datamod.Person_adoq2.Close;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add('select distinct(worker_id) from reward_pun');
Datamod.Person_adoq2.Open;
while not Datamod.Person_adoq2.Eof do
begin
idrec.Add(Datamod.Person_adoq2.fieldbyname('worker_id').AsString);
Datamod.Person_adoq2.Next;
end;
result:=idrec;
end;
function Trewardpun.RewardPunRec(ReId:string):Boolean;
begin
Datamod.Person_adoq2.Close;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(' select * from reward_pun where record_id='''+ReId+'''');
Datamod.Person_adoq2.Open ;
if Datamod.Person_adoq2.Eof then result:=false
else result:=true;
end;
function Trewardpun.RewardPunRec1(FindSQL:string):Boolean;
begin
Datamod.Person_adoq2.Close;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(FindSQL);
Datamod.Person_adoq2.Open ;
if Datamod.Person_adoq2.Eof then result:=false
else result:=true;
end;
function Trewardpun.GetWorkerId(ReId:string):string;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(' select * from reward_pun where record_id='''+ReId+'''');
Datamod.Person_adoq2.Open ;
result:=Datamod.Person_adoq2.fieldbyname('worker_id').AsString;
end;
function Trewardpun.GetWorkerName(ReId:string):string;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(' select * from reward_pun where record_id='''+ReId+'''');
Datamod.Person_adoq2.Open ;
result:=Datamod.Person_adoq2.fieldbyname('worker_name').AsString;
end;
function Trewardpun.GetRecordDate(ReId:string):string;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(' select * from reward_pun where record_id='''+ReId+'''');
Datamod.Person_adoq2.Open ;
result:=Datamod.Person_adoq2.fieldbyname('record_date').AsString;
end;
function Trewardpun.GetRecordType(ReId:string):string;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(' select * from reward_pun where record_id='''+ReId+'''');
Datamod.Person_adoq2.Open ;
result:=Datamod.Person_adoq2.fieldbyname('record_type').AsString;
end;
function Trewardpun.GetRecCont(ReId:string):string;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(' select * from reward_pun where record_id='''+ReId+'''');
Datamod.Person_adoq2.Open ;
result:=Datamod.Person_adoq2.fieldbyname('record_content').AsString;
end;
function Trewardpun.GetRecReason(ReId:string):string;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(' select * from reward_pun where record_id='''+ReId+'''');
Datamod.Person_adoq2.Open ;
result:=Datamod.Person_adoq2.fieldbyname('record_reason').AsString;
end;
function Trewardpun.GetAllowUnit(ReId:string):string;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add('select * from reward_pun where record_id='''+ReId+'''');
Datamod.Person_adoq2.Open ;
result:=Datamod.Person_adoq2.fieldbyname('allow_unit').AsString;
end;
function Trewardpun.GetRemark (ReId:string):string;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add('select * from reward_pun where record_id='''+ReId+'''');
Datamod.Person_adoq2.Open;
result:=Datamod.Person_adoq2.fieldbyname('remark').AsString;
end;
function Trewardpun.GetRewardCount(year,month:string):Integer;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add('select * from reward_pun where record_type=''奖励'' '
+'and year(record_date)='''+year+''' and month(record_date)='''+month+'''');
Datamod.Person_adoq2.Open;
result:=Datamod.Person_adoq2.RecordCount;
end;
function Trewardpun.GetPunCount(year,month:string):Integer;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add('select * from reward_pun where record_type=''惩罚'' '
+'and year(record_date)='''+year+''' and month(record_date)='''+month+'''');
Datamod.Person_adoq2.Open;
result:=Datamod.Person_adoq2.RecordCount;
end;
function Trewardpun.RewardPunRecs(SQL:string):OLEVariant;
begin
Datamod.Person_adoq1.Close ;
Datamod.Person_adoq1.SQL.Clear;
Datamod.Person_adoq1.SQL.Add(SQL);
Datamod.Person_adoq1.Open ;
result:=Datamod.Person_dsp1.Data;
end;
procedure Trewardpun.RecInsert(InsertSQL:string);
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(InsertSQL);
Datamod.Person_adoq2.ExecSQL;
end;
procedure Trewardpun.RecUpdate(UpdateSQL:string);
begin
Datamod.Person_adoq2.Close;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(UpdateSQL);
Datamod.Person_adoq2.ExecSQL;
end;
procedure Trewardpun.RecDel(ReId:string);
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add('delete from check_info where record_id='''+ReId+'''');
Datamod.Person_adoq2.ExecSQL;
end;
end.
上一篇:
rewardpunfrm.pas
下一篇:
2018年汽车自驾运动营地攻防箭大赛总决赛圆满落幕