grd içinde verilerin görünmesi

LPARAMETERS nColIndex
SELECT hasta
LOCATE FOR no=no
thisform.Refresh

Turk atasozu:
public kullanan aglamaz

Visual Fox Pro

PUBLIC oForm

oForm = CREATEOBJECT('filterSample')

oForm.Show()

 

DEFINE CLASS filterSample as Form

    DataSession = 2

 

    ADD OBJECT grdEmployee as grid WITH ;

        Left = 10,Top = 10, Height = 200, Width = 500

    ADD OBJECT optTitle as optionGroup WITH Left = 10, Top = 220

    ADD OBJECT optCountry as optionGroup WITH Left = 10, Top = 220

 

 

    PROCEDURE load

        USE (_samples+'data\employee')

    ENDPROC

 

    PROCEDURE init

        this.AddProperty('aTitles[1]')

        this.AddProperty('aCountries[1]')

        SELECT distinct title FROM employee WHERE !EMPTY(title) ;

            UNION ;

            select '--Hepsi--' as title FROM employee ;

            INTO ARRAY this.aTitles

 

        SELECT distinct country FROM employee WHERE !EMPTY(country) ;

            UNION ;

            select '--Hepsi--' as country FROM employee ;

            INTO ARRAY this.aCountries

 

 

        ASORT(this.aTitles)

        ASORT(this.aCountries)

 

        this.InitOptionGroups()

    ENDPROC

 

    PROCEDURE UpdateFilter

        SELECT employee

        DO case

            CASE this.optTitle.Value=1 AND this.optCountry.Value=1

        SET FILTER TO

            CASE this.optTitle.Value=1

        SET FILTER TO Country = thisform.aCountries[thisform.OptCountry.Value]

            CASE this.optCountry.Value=1

        SET FILTER TO Title = thisform.aTitles[thisform.optTitle.Value]

            OTHERWISE

        SET FILTER TO Title = thisform.aTitles[thisform.optTitle.Value] AND ;

            Country = thisform.aCountries[thisform.OptCountry.Value]

        endcase

        this.grdEmployee.Refresh

    ENDPROC

 

    PROCEDURE optTitle.Valid

        thisform.UpdateFilter()

    endproc

 

    PROCEDURE optCountry.Valid

        thisform.UpdateFilter()

    endproc

 

    PROCEDURE InitOptionGroups

        WITH this.optTitle

            .ButtonCount = ALEN( this.aTitles, 1 )

            FOR ix = 1 TO ALEN( this.aTitles, 1 )

                .Buttons[m.ix].Caption = this.aTitles[m.ix,1]

                .Buttons[m.ix].Autosize = .T.

            ENDFOR

            .AutoSize = .T.

            .Value = 1

        endwith

 

        WITH this.optCountry

            .Left = .Parent.optTitle.Left + .Parent.optTitle.Width + 10

            .ButtonCount = ALEN( this.aCountries, 1 )

            FOR ix = 1 TO ALEN( this.aCountries, 1 )

                .Buttons[m.ix].Caption = this.aCountries[m.ix,1]

                .Buttons[m.ix].Autosize = .T.

            ENDFOR

            .AutoSize = .T.

            .Value = 1

        ENDWITH

        this.Height = this.optTitle.Top + this.optTitle.Height + 10

        this.Width  = MAX(this.grdEmployee.Left + this.grdEmployee.Width,;

            this.optCountry.Left + this.optCountry.Width) + 10

        SELECT employee

        FOR ix=1 TO FCOUNT()

            IF FIELD(m.ix) == 'TITLE'

                this.grdEmployee.Columns(m.ix).ColumnOrder = 1

            endif

            IF FIELD(m.ix) == 'COUNTRY'

                this.grdEmployee.Columns(m.ix).ColumnOrder = 2

            endif

        endfor

    endproc

enddefine

Gene de filter konusunda tavsiye: Filter kullanma:)
Alternatifleri dene:
set key to
cursor
view
Hicbiri istedigin degilse son care filter.