CREATESEQUENCE "cities_id_seq" start7 increment1 maxvalue2147483647 minvalue1 cache1 ;

SELECT nextval ('cities_id_seq');

CREATETABLE "pga_queries" (

"queryname"character varying(64),

"querytype" character,

"querycommand"text,

"querytables"text,

"querylinks"text,

"queryresults"text,

"querycomments"text);

CREATETABLE "pga_forms" (

"formname"character varying(64),

"formsource"text);

CREATETABLE "pga_scripts" (

"scriptname"character varying(64),

"scriptsource"text);

CREATETABLE "pga_reports" (

"reportname"character varying(64),

"reportsource"text,

"reportbody"text,

"reportprocs"text,

"reportoptions"text);

CREATETABLE "phonebook" (

"name"character varying(32),

"phone_nr"character varying(16),

"city"character varying(32),

"company" bool,

"continent"character varying(16));

CREATETABLE "pga_layout" (

"tablename"character varying(64),

"nrcols" int2,

"colnames"text,

"colwidth"text);

CREATETABLE "pga_schema" (

"schemaname"character varying(64),

"schematables"text,

"schemalinks"text);

REVOKE ALLon"pga_schema"from PUBLIC;

GRANT ALLon"pga_schema" to PUBLIC;

CREATETABLE "cities" (

"id" int4 DEFAULT nextval('"cities_id_seq"')NOT NULL,

"name"character varying(32)NOT NULL,

"prefix"character varying(16)NOT NULL);

REVOKE ALLon"cities"from PUBLIC;

GRANTUPDATE,DELETE,SELECT,RULEon"cities" to"fane";

GRANT ALLon"cities" to"liviu";

CREATEFUNCTION "getcityprefix" (int4 ) RETURNSvarcharAS'select prefix from cities where id = $1' LANGUAGE'SQL';

COPY"pga_queries"FROM stdin;

Query that can be savedas viewSselect*from phonebookwhere continent='usa' \N\N\N\N

\.

COPY"pga_forms"FROM stdin;

Phone bookpb28 {FS {}} 444x307+284+246 {label label1 {33106828} {} Name {} label1 flat#000000 #d9d9d9 1 n} {entry name_entry {87 9 227 27} {} entry2 DataSet(.pb.qs,name) name_entry sunken #000000 #fefefe 1 n} {label label3 {33 37 73 52} {} Phone {} label3 flat #000000 #d9d9d9 1 n} {entry entry4 {87 36 195 54} {} entry4 DataSet(.pb.qs,phone_nr) entry4 sunken #000000 #fefefe 1 n} {label label5 {33 64 78 82} {} City {} label5 flat #000000 #d9d9d9 1 n} {entry entry6 {87 63 195 81} {} entry6 DataSet(.pb.qs,city) entry6 sunken #000000 #fefefe 1 n} {query qs {3 6 33 33} {} query7 {} qs flat {} {} 1 n} {button button8 {174 177 246 203} {namespace eval DataControl(.pb.qs) {\

\setSQL"select oid,* from phonebook where name ~* '$what' order by name"\

\open\

\set nrecs [getRowCount]\

\updateDataSet\

\fill .pb.allnames name\

\bind .pb.allnames<ButtonRelease-1> {\

\set ancr [.pb.allnames curselection]\

\ if {$ancr!=""} {\

\\DataControl(.pb.qs)::moveTo $ancr\

\\DataControl(.pb.qs)::updateDataSet\

\ }\

\}\

}} {Start search} {} button8 raised#000000 #d9d9d9 1 n} {button button9 {363 276 433 300} {DataControl(.pb.qs)::close\

DataControl(.pb.qs)::clearDataSet\

set nrecs {}\

set what {}\

destroy .pb\

} Exit {} button9 raised#000000 #d9d9d9 2 n} {button button10 {291 237 313 257} {namespace eval DataControl(.pb.qs) {\

\moveFirst\

\updateDataSet\

}\

} |< {} button10 ridge#000092 #d9d9d9 2 n} {button button11 {324 237 346 257} {namespace eval DataControl(.pb.qs) {\

\movePrevious\

\updateDataSet\

}\

}<< {} button11 ridge#000000 #d9d9d9 2 n} {button button12 {348 237 370 257} {namespace eval DataControl(.pb.qs) {\

\moveNext\

\updateDataSet\

}}>> {} button12 ridge#000000 #d9d9d9 2 n} {button button13 {381 237 403 257} {namespace eval DataControl(.pb.qs) {\

\moveLast\

\updateDataSet\

}\

}>| {} button13 ridge#000088 #d9d9d9 2 n} {checkbox checkbox14 {33 87 126 105} {} {Is it a company ?} DataSet(.pb.qs,company) checkbox14 flat #000000 #d9d9d9 1 n} {radio usa {63 108 201 120} {} U.S.A. DataSet(.pb.qs,continent) usa flat #000000 #d9d9d9 1 n} {radio europe {63 126 204 141} {} Europe DataSet(.pb.qs,continent) europe flat #000000 #d9d9d9 1 n} {radio africa {63 144 210 159} {} Africa DataSet(.pb.qs,continent) africa flat #000000 #d9d9d9 1 n} {entry entry18 {129 180 169 198} {} entry18 what entry18 sunken #000000 #fefefe 1 n} {label label19 {108 219 188 234} {} {records found} {} label19 flat #000000 #d9d9d9 1 n} {label label20 {90 219 105 234} {} { } nrecs label20 flat #000000 #d9d9d9 1 n} {label label21 {3 252 33 267} {} OID= {} label21 flat #000000 #d9d9d9 1 n} {label label22 {39 252 87 267} {} { } pbqs(oid) label22 flat #000000 #d9d9d9 1 n} {button button23 {9 276 79 300} {set oid {}\

catch {setoid $DataSet(.pb.qs,oid)}\

if {[stringtrim $oid]!=""} {\

sql_exec noquiet"update phonebook set name='$DataSet(.pb.qs,name)', phone_nr='$DataSet(.pb.qs,phone_nr)',city='$DataSet(.pb.qs,city)',company='$DataSet(.pb.qs,company)',continent='$DataSet(.pb.qs,continent)' where oid=$oid"\

} else {\

tk_messageBox-title Error-message"No record is displayed!"\

}\

\

}Update {} button23 raised#000000 #d9d9d9 1 n} {button button24 {210 276 280 300} {set thisname $DataSet(.pb.qs,name)\

if {[stringtrim $thisname]!=""} {\

\sql_exec noquiet"insert into phonebook values (\

\)"\

\tk_messageBox-title Information-message"A new record has been added!"\

} else {\

\tk_messageBox-title Error-message"This one doesn't have a name?"\

}\

\

} {Add record} {} button24 raised#000000 #d9d9d9 1 n} {button button25 {141 276 204 300} {DataControl(.pb.qs)::clearDataSet\

set DataSet(.pb.qs,company) f\

focus .pb.name_entry} {Clear all} {} button25 raised#000000 #d9d9d9 1 n} {listbox allnames {249 6 435 231} {} listbox26 {} allnames sunken #000000 #fefefe 1 n} {label label27 {33 252 90 267} {} {} DataSet(.pb.qs,oid) label27 flat #000000 #d9d9d9 1 n} {label label28 {3 182 128 197} {} {Find name containing} {} {} flat #000000 #d9d9d9 1 n}

Full featured formfull21 {FS {set entrydemo {nice}\

set color {no color selected}}} 377x418+50+130 {label label1 {3 396 165 411} {} {Status line} {} {} sunken #000000 #d9d9d9 2 n} {label label2 {171 396 369 411} {} {Grooved status line} {} {} groove #000098 #d9d9d9 2 f} {label label3 {108 9 270 31} {} { Full featured form} {} {} ridge #000000 #d9d9d9 4 {Times 16 bold italic}} {button button4 {15 210 144 243} {.full.lb insert end {it's} a nice demo form} {Java style button} {} {} groove #6161b6 #d9d9d9 2 b} {label label5 {15 42 115 58} {} {Java style label} {} {} flat #6161b6 #d9d9d9 1 b} {entry entry6 {123 39 279 60} {} entry6 entrydemo {} groove #000000 #fefefe 2 {Courier 13}} {listbox lb {12 69 147 201} {} listbox8 {} {} ridge #000000 #ffffc8 2 n} {button button9 {18 264 39 282} {} 1 {} {} flat #000000 #d9d9d9 1 n} {button button10 {48 264 68 282} {} 2 {} {} flat #000000 #d9d9d9 1 n} {button button11 {78 264 234 282} {} {and other hidden buttons} {} {} flat #000000 #d9d9d9 1 n} {text txt {153 69 372 201} {} text12 {} {} sunken #000000 #d4ffff 1 n} {button button13 {150 210 369 243} {.full.txt tag configure bold -font {Helvetica 12 bold}\

.full.txt tag configure italic-font {Helvetica12 italic}\

.full.txt tag configure large-font {Helvetica-14 bold}\

.full.txt tag configure title-font {Helvetica12 bold italic}-justify center\

.full.txt tag configure link-font {Helvetica-12 underline}-foreground#000080\

.full.txt tag configure code-font {Courier13}\

.full.txt tag configure warning-font {Helvetica12 bold}-foreground#800000\

\

\

.full.txtdelete1.0 end\

.full.txt insert end {Centered title} {title}"\

You can make different" {}"portions of text bold" {bold}" or italic" {italic}".\

Some parts of them can be written as follows" {}"\

SELECT * FROM PHONEBOOK" {code}"\

You can also change" {}"colors for some words" {warning}"or underline them" {link} } {Old style button} {} {} raised#000000 #d9d9d9 2 n} {checkbox checkbox14 {48 297 153 309} {} different {} {} flat #00009c #d9d9d9 1 b} {checkbox checkbox15 {48 321 156 336} {} {fonts and} {} {} flat #cc0000 #d9d9d9 1 i} {checkbox checkbox16 {48 345 156 360} {} colors {} {} flat #00b600 #dfb2df 1 f} {radio radio17 {207 297 330 315} {} {red , rosu , rouge} color red flat #9c0000 #d9d9d9 1 n} {radio radio18 {207 321 324 333} {} {green , verde , vert} color green flat #009000 #d9d9d9 1 n} {radio radio19 {207 345 327 363} {} {blue , albastru, bleu} color blue flat #000000 #d9d9d9 1 n} {label selcolor {210 369 345 384} {} {} color {} flat #000000 #d9d9d9 1 n} {button button21 {285 258 363 285} {destroy .full} Exit {} {} raised #7c0000 #dfdbb8 1 b}

Working with Tables namespacef313 {34567910111213} 377x263+59+127 {radio usa {362413836} {} USA selcont} {radio europe {364514160} {} Europe selcont} {radio africa {366614781} {} Africa selcont} {label label6 {999339114} {} {Select one of the above continentsand press} {}} {button button7 {27093354117} {Tables::open phonebook"continent='$selcont'" $selorder} {Show them} {}} {button button9 {66189312213} {Tables::design phonebook} {Show me the phonebook table structure} {}} {button button10 {141228240252} {destroy .f3} {Close the form} {}} {button button11 {93141282165} {Tables::open phonebook"company=true"} {Show me only the companies} {}} {radio name {1832426136} {} {Order by name} selorder} {radio phone_nr {1834526757} {} {Order by phonenumber} selorder}

The simplest formmf5 {FS {set thename {}}} 306x136+82+146 {label label {42459960} {} Name {} label flat#000000 #d9d9d9 1 {Helvetica 12 bold italic}} {entry ename {120 42 219 63} {} entry2 thename ename sunken #000000 #fefefe 1 n} {button button3 {6 96 108 129} {set thename Teo} {Set the name} {} button3 raised #000000 #d9d9d9 1 n} {button button4 {192 96 300 129} {destroy .mf} {Close the form} {} button4 raised #000000 #d9d9d9 1 n} {button button5 {114 96 186 129} {set thename {}} {Clear it} {} button5 raised #000000 #d9d9d9 1 n}

A simple demo formasdf 14 {FS {set color none}} 370x310+50+75 {label label1 {15 36 99 57} {} {Selected color} {} label1 flat #000000 #d9d9d9 1} {entry entry2 {111 36 225 54} {} entry2 color entry2 sunken #000000 #fefefe 1} {radio red {249 21 342 36} {} {Red as cherry} color red flat #900000 #d9d9d9 1} {radio green {249 45 342 60} {} {Green as a melon} color green flat #008800 #d9d9d9 1} {radio blue {249 69 342 84} {} {Blue as the sky} color blue flat #00008c #d9d9d9 1} {button button6 {45 69 198 99} {set color spooky} {Set a weird color} {} button6 ridge #0000b0 #dfbcdf 2} {label label7 {24 129 149 145} {} {The checkbox's value} {} label7 flat #000000 #d9d9d9 1} {entry entry8 {162 127 172 145} {} entry8 cbvalue entry8 sunken #000000 #fefefe 1} {checkbox checkbox9 {180 126 279 150} {} {Check me :-)} cbvalue checkbox9 flat #000000 #d9d9d9 1} {button button10 {219 273 366 303} {destroy .asdf} {Close that simple form} {} button10 raised #000000 #d9d9d9 1} {button button11 {219 237 366 267} {Forms::open "Phone book"} {Open my phone book} {} button11 raised #000000 #d9d9d9 1} {listbox lb {12 192 162 267} {} listbox12 {} lb sunken #000000 #fefefe 1} {button button13 {12 156 162 186} {.asdf.lb insert end red green blue cyan white navy black purple maroon violet} {Add some information} {} button13 raised #000000 #d9d9d9 1} {button button14 {12 273 162 303} {.asdf.lb delete 0 end} {Clear this listbox} {} button14 raised #000000 #d9d9d9 1}

Working with listboxesf25 {FS {set thestudent""}} 257x263+139+147 {listbox lb {66246186} {} listbox1 {} lb sunken#000000 #ffffd4 1} {button button2 {9 234 124 258} {# Populate the listbox with some data\

\

foreach student {John Bill Doe Gigi} {\

\.f2.lb insert end $student\

}\

\

\

\

\

bind .f2.lb<ButtonRelease-1> {\

\set idsel [.f2.lb curselection]\

\if {$idsel!=""} {\

\\set thestudent [.f2.lb get $idsel]\

\}\

}\

\

\

set thestudent {}} {Show students} {} button2 groove#000000 #d9d9d9 2} {button button3 {132 234 247 258} {destroy .f2} {Close the form} {} button3 groove #000000 #d9d9d9 1} {label label4 {9 213 119 228} {} {You have selected} {} label4 flat #000000 #d9d9d9 1} {label label5 {129 213 219 228} {} {} thestudent label5 flat #00009a #d9d9d9 1}

Invoicesinv0 {FS {frame .inv.f\

place .inv.f-x5-y100-width500-height300\

set wn [Tables::getNewWindowName]\

Tables::createWindow .inv.f\

set PgAcVar(mw,.inv.f,updatable)0\

set PgAcVar(mw,.inv.f,layout_found)0\

set PgAcVar(mw,.inv.f,layout_name)""\

Tables::selectRecords .inv.f"select * from cities"\

}} 631x439+87+84

\.

COPY"pga_scripts"FROM stdin;

How are forms keeped inside ?Tables::open pga_forms\

\

\

\

Opening a table with filtersTables::open phonebook"name ~* 'e'""name desc"\

\

\

AutoexecMainlib::tab_click Forms\

Forms::open {Full featured form}\

\

\

\.

COPY"pga_reports"FROM stdin;

My phone bookphonebookset PgAcVar(report,tablename) "phonebook" ; set PgAcVar(report,y_rpthdr) 21 ; set PgAcVar(report,y_pghdr) 47 ; set PgAcVar(report,y_detail) 66 ; set PgAcVar(report,y_pgfoo) 96 ; set PgAcVar(report,y_rptfoo) 126 ; .pgaw:ReportBuilder.c create text 10 35 -font -Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-* -anchor nw -text {name} -tags {t_l mov ro} ; .pgaw:ReportBuilder.c create text 10 52 -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-* -anchor nw -text {name} -tags {f-name t_f rg_detail mov ro} ; .pgaw:ReportBuilder.c create text 141 36 -font -Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-* -anchor nw -text {city} -tags {t_l mov ro} ; .pgaw:ReportBuilder.c create text 141 51 -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-* -anchor nw -text {city} -tags {f-city t_f rg_detail mov ro} ; .pgaw:ReportBuilder.c create text 231 35 -font -Adobe-Helvetica-Bold-R-Normal--*-120-*-*-*-*-*-* -anchor nw -text {phone_nr} -tags {t_l mov ro} ; .pgaw:ReportBuilder.c create text 231 51 -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-* -anchor nw -text {phone_nr} -tags {f-phone_nr t_f rg_detail mov ro}\N\N

\.

COPY"phonebook"FROM stdin;

FIAT623463445teurope

Gelu Voican01-32234Bucurestifeurope

Radu Vasile01-5523423Bucurestifeurope

MUGADUMBU SRL+92534662634Cairotafrica

Jimmy Page66323452feurope

IBM623346234\Ntusa

John Doe+44352993825Washingtonfusa

Bill Clinton+44359283845New Yorkfusa

Monica Levintchi+44385234526Dallasfusa

Bill Gates+42644523454Los Angelesfusa

COMPAQ623462345\Ntusa

SUN784563253\Ntusa

DIGITAL922644516\Ntusa

Frank Zappa6734567Montrealfusa

Constantin Teodorescu+4039611820Brailafeurope

Ngbendu Wazabanga34577345fafrica

Mugabe Kandalam7635745fafrica

Vasile Lupu52345623Bucurestifeurope

Gica Farafrica+42644523454Los Angelesfusa

Victor Ciorbea634567Bucurestifeurope

\.

COPY"pga_layout"FROM stdin;

pga_forms2formname formsource82713

Usaisti5name phone_nr city company continent150150150150150

q15name phone_nr city company continent150150150150150

view_saved_from_that_query5name phone_nr city company continent150150150150150

phonebook5name phone_nr city company continent1501058066104

Query that can be savedas view5name phone_nr city company continent150150150150150

pg_database4datname datdba encoding datpath150150150150

pg_language5lanname lanispl lanpltrusted lanplcallfoid lancompiler150150150150150

cities3id name prefix60150150

3id name prefix125150150

3id name prefix150150150

3id name prefix150150150

3id name prefix150150150

\.

COPY"pga_schema"FROM stdin;

Simple schemacities1010 phonebook201.084.0{cities name phonebook city}

\.

COPY"cities"FROM stdin;

3Braila4039

4Galati4036

5Dallas5362

6Cairo9352

1Bucuresti4013

7Montreal5325

\.

CREATEUNIQUE INDEX "cities_id_key"on"cities" using btree ("id""int4_ops" );