【delphi开源代码栏目提醒】:网学会员为需要delphi开源代码的朋友们搜集整理了protitle_unit.pas相关资料,希望对各位网友有所帮助!
unit protitle_unit;
interface
uses
Windows,Messages,SysUtils,Variants,DBclient,Graphics,Classes,persondatamod_unit;
type
Tprotitle=class(TObject)
private
Datamod:TPerson_datamod;
public
function ProtitleRec(Id:string):Boolean;
function ProtitleRec1(FindSQL:string):Boolean;
function GetWorkerName(Id:string):string;
function GetAssessDate(Id:string):string;
function GetAssessUnit(Id:string):string;
function GetAssessTitle(Id:string):string;
function GetRemark(Id:string):string;
function ProtitleRecs(SQL:string):OLEVariant;
procedure RecInsert(InsertSQl:string);
procedure RecUpdate(UpdateSQl:string);
procedure RecDel(Id:string);
constructor create;
destructor Destroy;override;
end;
implementation
constructor Tprotitle.create ;
begin
Datamod:=TPerson_datamod.Create(nil);
end;
destructor Tprotitle.Destroy;
begin
freeandnil(Datamod);
inherited;
end;
function Tprotitle.ProtitleRec(Id:string):Boolean;
begin
Datamod.Person_adoq2.Close;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(' select * from pro_title where worker_id='''+Id+'''');
Datamod.Person_adoq2.Open ;
if Datamod.Person_adoq2.Eof then result:=false
else result:=true;
end;
function Tprotitle.ProtitleRec1(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 Tprotitle.GetWorkerName(Id:string):string;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(' select * from pro_title where worker_id='''+Id+'''');
Datamod.Person_adoq2.Open ;
result:=Datamod.Person_adoq2.fieldbyname('worker_name').AsString;
end;
function Tprotitle.GetAssessDate(Id:string):string;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(' select * from pro_title where worker_id='''+Id+'''');
Datamod.Person_adoq2.Open ;
result:=Datamod.Person_adoq2.fieldbyname('assess_date').AsString;
end;
function Tprotitle.GetAssessUnit(Id:string):string;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(' select * from pro_title where worker_id='''+Id+'''');
Datamod.Person_adoq2.Open ;
result:=Datamod.Person_adoq2.fieldbyname('assess_unit').AsString;
end;
function Tprotitle.GetAssessTitle(Id:string):string;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(' select * from pro_title where worker_id='''+Id+'''');
Datamod.Person_adoq2.Open ;
result:=Datamod.Person_adoq2.fieldbyname('assess_title').AsString;
end;
function Tprotitle.GetRemark(Id:string):string;
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add(' select * from pro_title where worker_id='''+Id+'''');
Datamod.Person_adoq2.Open ;
result:=Datamod.Person_adoq2.fieldbyname('remark').AsString;
end;
function Tprotitle.ProtitleRecs(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 Tprotitle.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 Tprotitle.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 Tprotitle.RecDel(Id:string);
begin
Datamod.Person_adoq2.Close ;
Datamod.Person_adoq2.SQL.Clear;
Datamod.Person_adoq2.SQL.Add('delete from protitle where worker_id='''+Id+'''');
Datamod.Person_adoq2.ExecSQL;
end;
end.
上一篇:
protitle.pas
下一篇:
汝康皮肤护理液医治烧伤的可行性和效果分析