Thread Rating:
  • 326 Vote(s) - 2.84 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Page 8: Extra Practice
06-16-2011, 04:39 PM, (This post was last modified: 06-23-2011, 04:13 PM by ashimo.)
#1
Page 8: Extra Practice
Extra Practice

Practice Problem 1: Application

In the "Application" sample, add a button whose function is to delete a selected line.

Hint: To delete a selected line, use {RecordGrid.delete-selection}.

Solution

Solution Program: c:\Curl\Try3\04_exercise1\start.curl

Code:
{value
    let data:RecordSet =
        {RecordSet
            {RecordFields
                {RecordField name, domain = String},
                {RecordField age, domain = int},
                {RecordField score, domain = int},
                {RecordField city, domain = String},
                {RecordField tel, domain = String}
            },
            {RecordData name = Matt, age = 33, score = 88, city = Cambridge, tel = 555-1567},
            {RecordData name = Sarah, age = 27, score = 79, city = Seattle, tel = 555-5692},
            {RecordData name = Jacob, age = 26, score = 90, city = Chicago, tel = 555-7259},
            {RecordData name = Miles, age = 23, score = 98, city = Miami, tel = 555-2644},
            {RecordData name = Anna, age = 27, score = 81, city = San Diego, tel = 555-9968},
            {RecordData name = Paul, age = 28, score = 86, city = Denver, tel = 555-6389},
            {RecordData name = Diana, age = 25, score = 85, city = Atlanta, tel = 555-4712}
        }
    let rg:RecordGrid = {RecordGrid
                            record-source = data,
                            height = 3cm,
                            width = 10cm
                        }
    let sort-button:CommandButton = {CommandButton
                                        label = Sort score in descending order,
                                        {on Action do
                                            set rg.sort = score DESC
                                        }
                                    }
    let filter-button:CommandButton = {CommandButton
                                          label = Display data of city 'Miami',
                                          {on Action do
                                              set rg.filter = {RecordData city = Miami}
                                          }
                                      }
    let reverse-button:CommandButton = {CommandButton
                                           label = Cancel the filter,
                                           {on Action do
                                               set rg.filter = null
                                           }
                                       }
    let delete-button:CommandButton = {CommandButton
                                          label = Delete the selected line,
                                          {on Action do
                                              {rg.delete-selection}
                                          }
                                      }
    {rg.set-frozen-region 0, 1}
    {VBox
        rg,
        {HBox
            sort-button,
            filter-button,
            reverse-button,
            delete-button
        }
    }
}


Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  Page 1: Displaying Data in a Grid ashimo 2 6,559 08-25-2011, 09:55 AM
Last Post: ashimo
  Page 7: Summary ashimo 0 3,177 06-16-2011, 04:37 PM
Last Post: ashimo
  Page 6: Structure of a Program that Sorts and Filters the Data ashimo 0 3,281 06-16-2011, 04:32 PM
Last Post: ashimo
  Page 5: Sorting and Filtering Data ashimo 0 3,794 06-16-2011, 04:27 PM
Last Post: ashimo
  Page 4: Structure of a Program for Setting the RecordGrid's Appearance and Functiona ashimo 0 3,702 06-16-2011, 04:24 PM
Last Post: ashimo
  Page 3: Using Options to Modify the RecordGrid Appearance and Functionality ashimo 0 3,781 06-16-2011, 04:20 PM
Last Post: ashimo
  Page 2: Structure of a Program that Displays a Table in a Grid ashimo 0 3,230 06-16-2011, 04:16 PM
Last Post: ashimo
Forum Jump:


Users browsing this thread:
1 Guest(s)

MyBB SQL Error

MyBB has experienced an internal SQL error and cannot continue.

SQL Error:
1017 - Can't find file: 'mybb_threadviews' (errno: 2)
Query:
INSERT INTO mybb_threadviews (tid) VALUES('62')