---------------------------------------------------------------------------

Copyright (c) 1994-7 Regents of the University of California

Permission to use, copy, modify, and distribute this software and its

ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATIONS TO

PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.

---------------------------------------------------------------------------

PGACCESS 0.83 11 March 1998

PGACCESS 0.86 29 March 1998

================================

I dedicate this program to my little 4 year daughter Ana-Maria and my wife

for their understanding. I hope they will forgive me for spending so many

can manage your tables, edit them, define queries, sequences and

functions.

I use Tcl/Tk because it's apowerfull language, and it took me only

I use Tcl/Tk because it's apowerful language, and it took me only

four days of hard work to get it as you see it now.

2.How to INSTALL ?

You will need Tcl/Tk package, I am using now Tcl 7.6 and Tk 4.2. There

are some problemsrunningunderTcl/Tk 8.0 but I will soon fix them.

You will need Tcl/Tk package, I am using now Tcl 7.6 and Tk 4.2.

PgAccess isrunningalso onTcl/Tk 8.0

Also, you will need the PostgreSQL to Tcl interface library, lined as a

Tcl/Tk 'load'-able module. It is called libpgtcl and the source is

You run it with the command:

wish -f pgaccess.tcl

wish -f pgaccess.tcl [database]

[database] is optional.

Another way of loading the PostgreSQL library is running it with pgwish.

It's a wish compiled with libpgtcl library so it could understand the

- Saves preferences in ~/pgaccessrc file

Tables

- opening tables forvieweing, max 200 records

- opening tables forviewing, max 200 records

- column resizing by dragging the vertical grid lines

- text will wrap in cells now

- dynamic row height when editing

- editing in place, double click the text you want to change

- record deleting , point the record, press Del key

- adding new records ,save new row with right-button-click on table for the moment

- table generator assistant lizzard :-) (not wizzard)

- table generator assistant

- table renaming and deleting (dropping)

- table information retrieving : owner, field information, indexes

- save view layout

- can store queries as views

- execution of queries

-vieweing of select type queries result

-viewing of select type queries result

- running action queries (insert, update, delete)

- visual query builder with drag & drop support, table aliasing

Forms

- open user defined forms

- form design module available

- query widget allowing access to arecordset

- query widget allowing access to arecord set

Scripts

- define, modify and call user defined scripts

- table design (add new fields, renaming, etc)

- sequence and function renaming

- morepowerfull report generator and viewer

- morepowerful report generator and viewer

- help on line

6. How you should report the errors?

First of all : operating system, PostgreSQL version,Tcl/Tk version.

A more detailed story of what have you done when error hadoccured.

A more detailed story of what have you done when error hadoccurred.

Tcl/Tk stops usually with a error message and there is a button there

"Stack Trace" and if you press it, you will see a detailed information

about the place where itstucks. Please send it to me.

about the place where itstuck. Please send it to me.

Some information about table structure, no. of fields, records would

be also good.

CREATETABLEphonebook (namevarchar(32), phone_nrvarchar(16), cityvarchar(32), company bool, continent char16);

CREATETABLEpga_layout (tablenamevarchar(64), nrcols int2, colnamestext, colwidthtext);

COPY pga_queriesFROM stdin;

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

\.

COPY pga_formsFROM stdin;

A simple demo formasdf 14 {1 2 3 4 5 6 7 8 9 10 11 12 13 14} 377x315+170+155 {label label1 {15 36 99 57} {} {Selected color} {}} {entry entry2 {111 36 225 54} {} entry2 color} {radio red {249 21 342 36} {} {Red as cherry} color} {radio green {249 45 342 60} {} {Green as a melon} color} {radio blue {249 69 342 84} {} {Blue as the sky} color} {button button6 {45 69 198 99} {set color spooky} {Set a weird color} {}} {label label7 {24 129 138 147} {} {The checkbox's value} {}} {entry entry8 {162 129 172 147} {} entry8 cbvalue} {checkbox checkbox9 {180 126 279 150} {} {Check me :-)} cbvalue} {button button10 {219 273 366 303} {destroy .asdf} {Close that simple form} {}} {button button11 {219 237 366 267} {open_form "Phone book"} {Open my phone book} {}} {listbox lb {12 192 162 267} {} listbox12 {}} {button button13 {12 156 162 186} {.asdf.lb insert end red green blue cyan white navy black purple maroon violet} {Add some information} {}} {button button14 {12 273 162 303} {.asdf.lb delete 0 end} {Clear this listbox} {}}

Phone bookpb26 {1234567891011121314151617181920212223242526} 444x310+284+246 {label label1 {33126330} {} Name {}} {entry name_entry {87921730} {} entry2 pbqs(name)} {label label3 {33397354} {} Phone {}} {entry entry4 {873619557} {} entry4 pbqs(phone_nr)} {label label5 {33667884} {} City {}} {entry entry6 {876319584} {} entry6 pbqs(city)} {query qs {363333} {} query7 {}} {button button8 {126177198203} {.pb.qs:setsql"select oid,* from phonebook where name ~* '$what' order by name"\

.pb.qs:open\

set nrecs [.pb.qs:nrecords]\

.pb.qs:updatecontrols\

.pb.qs:fill .pb.allnames name} Find {}} {button button9 {159276229302} {.pb.qs:close\

.pb.qs:fill .pb.allnames name\

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

set ancr [.pb.allnames curselection]\

if {$ancr!=""} {\

\.pb.qs:moveto $ancr\

\.pb.qs:updatecontrols\

}\

}} Find {}} {button button9 {159276229302} {.pb.qs:close\

.pb.qs:clearcontrols\

set nrecs {}\

set what {}\