Kod: Tümünü seç
AnaTip = class(TRemotable)
private
published
end;
Kod: Tümünü seç
AnaTip = class(TRemotable)
private
published
end;
Kod: Tümünü seç
function TWebService1.GetPolic(FKimlikNo:TckimlikTip):Dataset;
const
c_cnstr = 'user id=sa;initial catalog=HastaBYS;persist security info=False';
var
TCk:String;
sqlcn: SqlConnection;
sqlDA: SqlDataAdapter;
ds: DataSet;
begin
try
TCK := FKimlikNo.KimlikNo;
csel:= 'SELECT Patient.PatientId, Patient.Name +'' ''+ Patient.Surname AS Hasta, Policlinic.RecDate, Part.Part, Cure.Cure '+
'FROM Part INNER JOIN Policlinic ON Part.PartID = Policlinic.ClinicId INNER JOIN Patient ON Policlinic.Patient = Patient.PatientId INNER JOIN Cure ON Policlinic.CureId = Cure.CureId Where IdentityId='''+TCK+'''';
sqlcn := SqlConnection.Create(c_cnstr);
sqlDA := SqlDataAdapter.Create(csel, sqlcn);
ds := DataSet.Create;
sqlDA.Fill(ds, 'Polic');
sqlcn.Close;
Result := ds;
except
Result := nil;
raise;
end;
end;