{"id":293,"date":"2004-08-15T14:34:40","date_gmt":"2004-08-15T06:34:40","guid":{"rendered":"http:\/\/foxpro.ntsl119.com\/scr\/?p=293"},"modified":"2007-11-02T13:36:26","modified_gmt":"2007-11-02T05:36:26","slug":"displaying-database-index-tag-names-in-combo-boxes","status":"publish","type":"post","link":"https:\/\/foxpro.ntsl119.com\/scr\/archives\/293","title":{"rendered":"Displaying database index tag names in combo boxes"},"content":{"rendered":"

Here’s a simple 2:00<\/font>AM code I made. Its objective is to make a certain combo box automatically reflect the tag names for the databases you are currently using.<\/p>\n

with thisform<\/font>
\r\n     DatabaseInitialization()\t
\r\n     <\/font>select<\/font> FILEAREA
\r\n     nTagCount = tagcount<\/font>()
\r\n     dimension<\/font> aIndex(nTagCount)\t
\r\n     for<\/font> nCount = 1 to<\/font> tagcount()
\r\n          if !empty<\/font>(tag<\/font>(nCount))
\r\n               store tag<\/font>(nCount) to<\/font> aIndex(nCount)
\r\n          else   \t\t
\r\n               exit      \t\t
\r\n          endif<\/font>   \t\t
\r\n     endfor<\/font>
\r\n     .cmbIndex.rowsourcetype<\/font> = 5
\r\n     .cmbIndex.rowsource<\/font> = 'aIndex'
\r\n     .cmbIndex.value<\/font> = aIndex(1) 
\r\nendwith<\/font><\/pre>\n
\nIt’s too simple really but this was the first time I used this. I even had to refer to Foxpro’s help file in the formulation process.<\/p>\n
The main purpose is to create a template form for the ‘File Utility’ type of modules. The term ‘File Utility’ was something I have acquired from College MacPros (Machine Problems). This is a part of those old DOS based Programs we had back then (created in either Pascal, C\/C++, Clipper 5.2<\/font>) which hold the records for your database-based values, or as one of my clients call it… directories.<\/p>\n
This has been a practice which I find useful especially when you’re already in the maintenance mode of your program. Directories like this, however, should be planned in advance. The ‘Design phase’ of your project is a good place to start.<\/p>\n
These directories can also be used inside combo boxes, and if in the future you would like to add values that those combo boxes display, you don’t need to touch the hard code. You just either edit the database or use your File Utility module.<\/p>\n
Very handy too when your database application is being used by more than one client.<\/p>\n
Let’s give an example.<\/p>\n
Suppose you have a combo box for Profession. Of course you can choose the combo box builder wizard and enter the data by hand but that would be lame.<\/p>\n
Totally lame that only castrated over-boozed programmers of the 60<\/font>s do that.<\/p>\n
You use a database approach and set the combo box to grab the values of that database.<\/p>\n
     .cmbProf.<\/font>rowsource<\/font> = 'DATABASENAME.FIELDNAME'
\r\n     .cmbProf.rowsourcetype<\/font> = 6<\/pre>\n
\n… where cmbProf is your Profession combo box and 6<\/font> stands for (database) fields, the source of the values the combo box will display.<\/p>\n
You can also use the Property box to set things. Other sources include value, alias, sql statement, query (.qpr), array, files, structure, popup, DoomPortal, BermudaTriangle, RiverofLesRough and so on.<\/p>\n
Now back to the code above (Darn I’m wandering off once again), the algorithm gets the number of tags the compound index file has, gets the tag names and stores them in an array.<\/p>\n
Now using the values in that array, you can place the code below in an object (a ‘Browse’ command button perhaps).<\/p>\n
     <\/font>select<\/font> FILEAREA
\r\n     set order to alltrim<\/font>(.cmbIndex.value<\/font>)
\r\n     .GridProf.refresh<\/font><\/pre>\n
\nThis will reflect the changes you want to view, which in my case is found in a grid that displays the sorted records.<\/p>\n
<\/p>\n
Figure 292.1 Image too shy to enlarge itself since its design and alignment was not optimized yet. Check back later when Image.nConfidenceLevel++.<\/font><\/p>\n","protected":false},"excerpt":{"rendered":"
Here’s a simple 2:00AM code I made. Its objective is to make a certain combo box automatically reflect the tag names for the databases you are currently using. with thisform DatabaseInitialization() select FILEAREA nTagCount = tagcount() dimension aIndex(nTagCount) for nCount = 1 to tagcount() if !empty(tag(nCount)) store tag(nCount) to aIndex(nCount) else exit endif endfor .cmbIndex.rowsourcetype […]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[3,10],"tags":[],"class_list":["post-293","post","type-post","status-publish","format-standard","hentry","category-visual-foxpro","category-workblog"],"_links":{"self":[{"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/posts\/293","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/comments?post=293"}],"version-history":[{"count":0,"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/posts\/293\/revisions"}],"wp:attachment":[{"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/media?parent=293"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/categories?post=293"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/foxpro.ntsl119.com\/scr\/wp-json\/wp\/v2\/tags?post=293"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}