Search options (Page 1 of 2)

procedure main_dobjectcategory_OnChange (Sender: string);
begin
    if main.dregion.dbItemID>0
        then begin
            if main.dobjectcategory.dbItemID>0
                then begin
                    main.dobject.dbFilter:='(id_Region='''+IntToStr(main.dregion.dbItemId)+''') and (id_ObjectCategory='''+IntToStr(main.dobjectcategory.dbItemId)+''') ';
                    UpdateDatabase('Object');
                     end
                else begin
                    main.dobject.dbFilter:='id_Region='''+IntToStr(main.dregion.dbItemId)+'''';
                    UpdateDatabase('Object');
                     end
             end
        else begin
            if main.dobjectcategory.dbItemID>0
                then begin
                    main.dobject.dbFilter:='(id_ObjectCategory='''+IntToStr(main.dobjectcategory.dbItemId)+''') ';
                    UpdateDatabase('Object');
                     end
                else begin
                    main.dobject.dbFilter:='object LIKE "%%"';
                    UpdateDatabase('Object');
                     end
             end

end;

procedure main_dregion_OnChange (Sender: string);
begin
    if main.dregion.dbItemID>0
        then begin
            if main.dobjectcategory.dbItemID>0
                then begin
                    main.dobject.dbFilter:='(id_Region='''+IntToStr(main.dregion.dbItemId)+''') and (id_ObjectCategory='''+IntToStr(main.dobjectcategory.dbItemId)+''') ';
                    UpdateDatabase('Object');
                     end
                else begin
                    main.dobject.dbFilter:='id_Region='''+IntToStr(main.dregion.dbItemId)+'''';
                    UpdateDatabase('Object');
                     end
             end
        else begin
            if main.dobjectcategory.dbItemID>0
                then begin
                    main.dobject.dbFilter:='(id_ObjectCategory='''+IntToStr(main.dobjectcategory.dbItemId)+''') ';
                    UpdateDatabase('Object');
                     end
                else begin
                    main.dobject.dbFilter:='object LIKE "%%"';
                    UpdateDatabase('Object');
                     end
             end

end;

SELECT DISTINCT 

`Doctor`.`dName` as "Doctor.dName",
`Rating`.`rating` as "Rating.rating",
`Specialty`.`specialty` as "Specialty.specialty",
`Agent`.`login` as "Agent.login",
`Object`.`object` as "Object.object",
`ObjectCategory`.`objectcategory` as "ObjectCategory.objectcategory",
`Region`.`region` as "Region.region",
`City`.`city` as "City.city",
`Doctor`.id,
`Doctor`.`id_Specialty` as "Doctor.id_Specialty",
`Doctor`.`id_Agent` as "Doctor.id_Agent",
`Region`.`id_City` as "Region.id_City",
`Doctor`.`id_Object` as "Doctor.id_Object",
`Object`.`id_ObjectCategory` as "Object.id_ObjectCategory",
`Doctor`.`id_Rating` as "Doctor.id_Rating",
`Region`.`id_City` as "Region.id_City" 

FROM `Doctor` 
LEFT OUTER JOIN `Specialty` ON `Doctor`.`id_Specialty`=`Specialty`.id 
LEFT OUTER JOIN `Agent` ON `Doctor`.`id_Agent`=` Agent`.id 
LEFT OUTER JOIN `City` ON `Region`.`id_City`=`City`.id 
LEFT OUTER JOIN `Object` ON `Doctor`.`id_Object`=`Object`.id 
LEFT OUTER JOIN `Objectcategory` ON `Object`.`id_ObjectCategory`=`Objectcategory`.id 
LEFT OUTER JOIN `Rating` ON `Doctor`.`id_Rating`=`Rating`.id 
LEFT OUTER JOIN `Region` ON `City`.id=`Region`.`id_City`

FROM Doctor
LEFT OUTER JOIN `Rating` ON `Doctor`.`id_Rating`=`Rating`.id
LEFT OUTER JOIN `Specialty` ON `Doctor`.`id_Specialty`=`Specialty`.id
LEFT OUTER JOIN `Agent` ON `Doctor`.`id_Agent`=`Agent`.id
LEFT OUTER JOIN `Object` ON `Doctor`.`id_Object`=`Object`.id
LEFT OUTER JOIN `Objectcategory` ON `Object`.`id_ObjectCategory`=`ObjectCategory`.id
LEFT OUTER JOIN `Region` ON `Object`.`id_Region`=`Region`.id
LEFT OUTER JOIN `City` ON `Region`.`id_City`=`City`.id

`Region`.`id_City` as "Region.id_City"

`Object`.`id_Region` as "Object.id_Region"

`Region`.`id_City` as "Region.id_City"

Form1_TableGrid1_OnCellDoubleClick 

idEmp := IntToStr(Form1.TableGrid1.dbItemID);