Search options (Page 166 of 400)

procedure Form1_edGroupSearch_OnChange (Sender: string);
begin
    Form1.cbGroups.dbFilter := 'groupname LIKE "%'+ Form1.edGroupSearch.Text +'%"';
    UpdateDatabase('groups');

    if Form1.cbGroups.Items.Count = 2 then
    begin
        Form1.cbGroups.DroppedDown:=False;
        Form1.cbGroups.ItemIndex := 1;
    end else Form1.cbGroups.DroppedDown:=True;

    if Form1.cbGroups.Items.Count = 1 then
    begin
        if (LowerCase(Form1.edGroupSearch.Text) = 'дом') or
           (LowerCase(Form1.edGroupSearch.Text) = 'хата') then
        begin
            Form1.cbGroups.dbFilter := '';
            UpdateDatabase('groups');
            Form1.cbGroups.DroppedDown:=False;
            Form1.cbGroups.dbItemID := 1;
        end;

        if (LowerCase(Form1.edGroupSearch.Text) = 'работа') then
        begin
            Form1.cbGroups.dbFilter := '';
            UpdateDatabase('groups');
            Form1.cbGroups.DroppedDown:=False;
            Form1.cbGroups.dbItemID := 2;
        end;


        if (LowerCase(Form1.edGroupSearch.Text) = 'друг') or
           (LowerCase(Form1.edGroupSearch.Text) = 'кореш') or
           (LowerCase(Form1.edGroupSearch.Text) = 'друган') then
        begin
            Form1.cbGroups.dbFilter := '';
            UpdateDatabase('groups');
            Form1.cbGroups.DroppedDown:=False;
            Form1.cbGroups.dbItemID := 3;
        end;


    end;

end;

Form2.ShowRecord('tablename', 1);

ShowRecord(Form2, 'tablename', 1); 

Web.ClickElement('a', 'FORUM')

Sleep(1000);
Application.ProcessMessages;

SELECT
person.firstname,
person.lastname,
groups.groupname,
groups1.groupname,
person.id

FROM person
  
LEFT OUTER JOIN groups ON groups.id=person.id_groups
LEFT OUTER JOIN groups groups1 ON groups1.id=person.id_groups1

WHERE
(CASE WHEN {cbGroup}=-1 THEN 1=1 ELSE person.id_groups={cbGroup} END) OR
(CASE WHEN {cbGroup}=-1 THEN 1=1 ELSE person.id_groups1={cbGroup} END)

procedure Form1_bLineUpdate_OnClick (Sender: string; var Cancel: boolean);
var
    Results: TDataSet;
    DateValue: Double;
    QtyValue: string;

    sSQL, s: string;
    sCountry, sRegion, sCity, sDateFrom, sDateTo: string;
begin
    ChartBar.Series[0].Clear;

    sCountry := IntToStr(Form1.cbCountry.dbItemID);
    sRegion := IntToStr(Form1.cbRegion.dbItemID);
    sCity := IntToStr(Form1.cbCity.dbItemID);
    sDateFrom := Form1.DateTimePicker1.sqlDate;
    sDateTo   := Form1.DateTimePicker2.sqlDate;

    sSQL :=
    'SELECT '+
    '    Country.country, '+
    '    COUNT(Country.id) as qty'+

    '    FROM MyFavoriteCities '+

    '    LEFT OUTER JOIN City ON City.id=MyFavoriteCities.id_City '+
    '    LEFT OUTER JOIN Region ON Region.id=City.id_Region '+
    '    LEFT OUTER JOIN Country ON Country.id=Region.id_Country '+

    'WHERE '+
    '(CASE WHEN '+sCountry+'=-1 THEN 1=1 ELSE Country.id='+sCountry+' END) AND '+
    '(CASE WHEN '+sRegion+'=-1 THEN 1=1 ELSE Region.id='+sRegion+' END) AND '+
    '(CASE WHEN '+sCity+'=-1 THEN 1=1 ELSE City.id='+sCity+' END) AND' +
    '(CASE WHEN '+sDateFrom+' IS NULL THEN 1=1 ELSE MyFavoriteCities."Date">=date('+sDateFrom+') END) AND' +
    '(CASE WHEN '+sDateTo+' IS NULL THEN 1=1 ELSE MyFavoriteCities."Date"<=date('+sDateTo+') END) ' +
    'GROUP BY Country.id ';

    SQLQuery(sSQL, Results);

    while not Results.Eof do
    begin
        s :=  Results.FieldByName('country').asString ;
        QtyValue := Results.FieldByName('qty').asString;

        if ValidInt(QtyValue) then ChartBar.Series[0].AddY(StrToInt(QtyValue), s );
        Results.Next;
    end;


end;