UPgrade to 0.96 ..
--- /dev/null
+---------------------------------------------------------------------------
+
+Copyright (c) 1994-7 Regents of the University of California
+
+Permission to use, copy, modify, and distribute this software and its
+documentation for any purpose, without fee, and without a written agreement
+is hereby granted, provided that the above copyright notice and this
+paragraph and the following two paragraphs appear in all copies.
+
+IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO ANY PARTY FOR
+DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR CONSEQUENTIAL DAMAGES, INCLUDING
+LOST PROFITS, ARISING OUT OF THE USE OF THIS SOFTWARE AND ITS
+DOCUMENTATION, EVEN IF THE UNIVERSITY OF CALIFORNIA HAS BEEN ADVISED OF THE
+POSSIBILITY OF SUCH DAMAGE.
+
+THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY WARRANTIES,
+INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
+AND FITNESS FOR A PARTICULAR PURPOSE. THE SOFTWARE PROVIDED HEREUNDER IS
+ON AN "AS IS" BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATIONS TO
+PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
+
+---------------------------------------------------------------------------
+
+
+PGACCESS 0.96 9 March 1999
+================================
+I dedicate this program to my little daughters Ana-Maria and Emilia and to my
+wife for their understanding. I hope they will forgive me for spending so many
+time far from them.
+
+
+
+1.Why PgAccess ?
+
+First of all because PostgreSQL lacks a graphical interface where you
+can manage your tables, edit them, define queries, sequences and
+functions.
+
+
+
+2.How to INSTALL ?
+
+You will need Tcl/Tk package, I am using now Tcl 7.6 and Tk 4.2.
+PgAccess is running fine also on Tcl/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
+located in the PostgreSQL directory /src/interfaces/libpgtcl.
+Specifically, you will need a libpgtcl library that is 'load'-able from
+Tcl/Tk. This is technically different from an ordinary PostgreSQL
+loadable object file, because libpgtcl is a collection of object files.
+
+Under Linux, this is called libpgtcl.so. You will find a pre-compiled
+copy of it for Linux i386 systems at : http://www.flex.ro/pgaccess.
+Just copy libpgtcl.so into your system library directory /usr/lib or
+/lib and go for it.
+
+Under Windows, copy libpgtcl.dll and libpq.dll into C:\WINDOWS\SYSTEM directory.
+Make sure you have Tcl/Tk at least version 8.0.0 for Microsoft Windows 95 & NT.
+PgAccess has been checked with Tcl/Tk 8.0.4 version on Windows95 and Windows98
+platforms.
+
+Tcl/Tk 8.0.4 for Windows95 & NT can be downloaded from
+ftp://ftp.scriptics.com/pub/tcl/tcl8_0/tcl804.exe
+It is 1833712 bytes long.
+
+
+3.How to run it?
+
+You run it with the command:
+
+ 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
+commands for working with PostgreSQL. For this, remove the line "load
+libpgtcl.so" from the source. If your operating system has a different
+library name or location, change the 'load libpgtcl.so' line in the
+pgaccess.tcl file.
+
+
+4.What does it now ?
+
+- Opens any database on a specified host at the specified port, username and password
+- Perform vacuum command.
+- Saves preferences in ~/.pgaccessrc file
+
+Tables
+- opening multiple tables for viewing, max n records (configurable)
+- column resizing by dragging the vertical grid lines
+- text will wrap in cells now
+- dynamic row height when editing
+- table layout saved for every table
+- import/export to external files (SDF,CSV)
+- filter capabilities ,enter filter like price>3.14
+- sort order capabilities ,enter manually the sort field(s)
+- 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
+- table renaming and deleting (dropping)
+- table information retrieving : owner, field information, indexes
+
+Queries
+- define, edit and store "user defined queries"
+- save view layout
+- can store queries as views
+- execution of queries with optional user input parameters ( select * from invoices where year=[parameter "Year of selection"] )
+- viewing of select type queries result
+- running action queries (insert, update, delete)
+- visual query builder with drag & drop support, table aliasing
+
+Sequences
+- define
+- inspect
+- delete
+
+Views
+- defining them saving queries as views
+- view them , with filtering and sorting capabilities
+- design views
+- delete them
+
+Functions
+- define , inspect , delete
+
+Reports
+- simple reports from a table (beta stage)
+- change font,size and style of fields and labels
+- load and save reports from the database
+- table previews, sample postscript print
+
+Forms
+- open user defined forms
+- form design module available
+- query widget allowing access to a record set
+
+Scripts
+- define, modify and call user defined scripts
+
+5.What it should do in the future ?
+
+- sequence and function renaming
+- more powerful 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 had occurred.
+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 it stuck. Please send it to me.
+Some information about table structure, no. of fields, records would
+be also good.
+
+===========================================================================
+You would find always the latest version at http://www.flex.ro/pgaccess
+
+Please feel free to e-mail me with any suggestion or bug description
+that will help to improve it.
+
+Constantin Teodorescu <teo@flex.ro>
+
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
-<HTML>
-<HEAD>
- <META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1">
- <META NAME="GENERATOR" CONTENT="Mozilla/4.07 [en] (X11; I; Linux 2.0.36 i586) [Netscape]">
- <TITLE>PgAccess - a Tcl/Tk PostgreSQL interface</TITLE>
-</HEAD>
-<BODY BGCOLOR="#FFFFFF">
+<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
+<html>
+<head>
+ <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+ <meta name="GENERATOR" content="Mozilla/4.5 [en] (X11; I; Linux 2.0.36 i586) [Netscape]">
+ <title>PgAccess - a Tcl/Tk PostgreSQL interface</title>
+</head>
+<body bgcolor="#FFFFFF">
-<H1>
-PgAccess - a free database management tool for <A HREF="http://www.postgreSQL.org">PostgreSQL</A></H1>
+<h1>
+PgAccess - a free database management tool for <a href="http://www.postgreSQL.org">PostgreSQL</a></h1>
-<HR>
-<LI>
-Download the last version of PgAccess <A HREF="pgaccess-0.93.tar.gz">(press
-shift and click this link) (tar.gz file)</A> or <A HREF="pgaccess.zip">this
-one (zip file for Windows)</A></LI>
+<hr>
+<li>
+Download the last version of PgAccess <a href="pgaccess-0.96.tar.gz">(press
+shift and click this link) (tar.gz file)</a> or <a href="pgaccess.zip">this
+one (zip file for Windows)</a></li>
-<CENTER>
-<P><BR>Latest stable version of PgAccess is 0.93 , released 10 December
-1998 !
-<P><FONT SIZE=+2><B><FONT COLOR="#FF0000">NEW *</FONT></B> <B><FONT COLOR="#FF0000">NEW
-*</FONT></B></FONT><B><FONT COLOR="#FF0000"> </FONT><FONT COLOR="#000000"><FONT SIZE=+1>
-==> </FONT><FONT SIZE=+2>Microsoft Windows compatible version</FONT></FONT></B>
-<P> <B><FONT COLOR="#FF0000">NEW *</FONT></B> ==== > <B>PostgreSQL
-user management, multiple table views</B>,. <B>Query parameters</B> (see
+<p><br>
+<center>
+<p>Latest stable version of PgAccess is 0.96 , released 9 March 1999
+!
+<p><font size=+2>PgAccess 0.93 and higher will not work from the begining
+with PostgreSQL 6.3.x !!<br>
+Read <a href="pg93patch.html">here</a> how to apply a simple patch in order
+to make it work !</font>
+<br>
+<p><font size=+2><b><font color="#FF0000">NEW *</font></b> <b><font color="#FF0000">NEW
+*</font></b></font><b><font color="#FF0000"> </font><font color="#000000"><font size=+1>
+==> </font><font size=+2>Microsoft Windows compatible version</font></font></b>
+<p> <b><font color="#FF0000">NEW *</font></b> ==== > <b>PostgreSQL
+user management, multiple table views</b>,. <b>Query parameters</b> (see
section Queries below)
-<P>Precompiled libpgtcl and libpq binaries and dll's for i386 are <A HREF="ftp://ftp.flex.ro/pub/pgaccess">here
-</A>!!!</CENTER>
+<p>Precompiled libpgtcl and libpq binaries and dll's for i386 are <a href="ftp://ftp.flex.ro/pub/pgaccess">here
+</a>!!!</center>
-<BR>
-<H3>
-<FONT COLOR="#000080">Installation problems</FONT></H3>
+<h3>
+<font color="#000080">Installation problems</font></h3>
-<UL>
-<LI>
+<ul>
+<li>
Some problems related with locale special characters could be solved by
-this <A HREF="specialchars.html">simple patch</A></LI>
+this <a href="specialchars.html">simple patch</a></li>
-<LI>
+<li>
I think that there were some problems loading libpgtcl library. I invite
-you to read a <A HREF="index.html#libpgtcl">special section concerning
-libpgtcl</A></LI>
+you to read a <a href="index.html#libpgtcl">special section concerning
+libpgtcl</a></li>
-<LI>
+<li>
For Silicon Graphics Indigo computers, Irix operating system, there is
-a <A HREF="irix.html">HOWTO make PgAccess to work</A></LI>
-</UL>
+a <a href="irix.html">HOWTO make PgAccess to work</a></li>
+</ul>
-<H3>
-<FONT COLOR="#191970">What does PgAccess now!</FONT></H3>
-Here are some screenshots from PgAccess windows : <A HREF="pic-pga-1.gif">Main
-window </A>, <A HREF="pic-pga-2.gif">table builder </A>, <A HREF="pic-pga-4.gif">table(query)
-view </A>, <A HREF="pic-pga-3.gif">visual query builder </A>.
-<P><B>Tables</B>
-<BR>- opening multiple tables for viewing, max. n records (changed by preferences
+<h3>
+<font color="#191970">What does PgAccess now!</font></h3>
+Here are some screenshots from PgAccess windows : <a href="pic-pga-1.gif">Main
+window </a>, <a href="pic-pga-2.gif">table builder </a>, <a href="pic-pga-4.gif">table(query)
+view </a>, <a href="pic-pga-3.gif">visual query builder </a>.
+<p><b>Tables</b>
+<br>- opening multiple tables for viewing, max. n records (changed by preferences
menu)
-<BR>- column resizing, dragging the vertical grid line (better in table
+<br>- column resizing, dragging the vertical grid line (better in table
space rather than in the table header)
-<BR>- text wrap in cells - layout saved for every table
-<BR>- import/export to external files (SDF,CSV)
-<BR>- filter capabilities (enter filter like (price>3.14)
-<BR>- sort order capabilities (enter manually the sort field(s))
-<BR>- editing in place
-<BR>- improved table generator assistant
-<BR>- improved field editing
-<BR><B>Queries</B>
-<BR>- define , edit and stores "user defined queries"
-<BR>- store queries as views
-<BR>- execution of queries with optional user input parameters ( select
+<br>- text wrap in cells - layout saved for every table
+<br>- import/export to external files (SDF,CSV)
+<br>- filter capabilities (enter filter like (price>3.14)
+<br>- sort order capabilities (enter manually the sort field(s))
+<br>- editing in place
+<br>- improved table generator assistant
+<br>- improved field editing
+<br><b>Queries</b>
+<br>- define , edit and stores "user defined queries"
+<br>- store queries as views
+<br>- execution of queries with optional user input parameters ( select
* from invoices where year=[parameter "Year of selection"] )
-<BR>- viewing of select type queries result
-<BR>- query deleting and renaming
-<BR>- visual query builder with drag & drop capabilities. For any of
+<br>- viewing of select type queries result
+<br>- query deleting and renaming
+<br>- visual query builder with drag & drop capabilities. For any of
you who had installed the Tcl/Tk plugin for Netscape Navigator, you can
-see it at work <A HREF="qbtclet.html">clicking here</A>
-<BR><B>Sequences</B>
-<BR>- defines sequences, delete them and inspect them
-<BR><B>Functions</B>
-<BR>- define, inspect and delete functions in SQL language
-<BR><B>Reports</B>
-<BR>- design and display simple reports from tables
-<BR>- fields and labels, font changing, style and size
-<BR>- saves and loads report description from database
-<BR>- show report previews, sample postscript output file
-<BR><B>Forms</B>
-<BR>- open user defined forms
-<BR>- form design module available
-<BR>- query widget available, controls bound to query results
-<BR>- <A HREF="forms.html">click here</A> for a description of forms and
+see it at work <a href="qbtclet.html">clicking here</a>
+<br><b>Sequences</b>
+<br>- defines sequences, delete them and inspect them
+<br><b>Functions</b>
+<br>- define, inspect and delete functions in SQL language
+<br><b>Reports</b>
+<br>- design and display simple reports from tables
+<br>- fields and labels, font changing, style and size
+<br>- saves and loads report description from database
+<br>- show report previews, sample postscript output file
+<br><b>Forms</b>
+<br>- open user defined forms
+<br>- form design module available
+<br>- query widget available, controls bound to query results
+<br>- <a href="forms.html">click here</a> for a description of forms and
how they can be used
-<BR><B>Scripts</B>
-<BR>- define, modify and call user defined scripts
-<BR><B>Users</B>
-<BR>- define and modify user parameters
-<P>Here is <A HREF="pga-rad.html">a special section concerning forms and
-scripts</A> .
-<P>This program is protected by the following <A HREF="copyright.html">copyright</A>
-<P>If you have any comment, suggestion for improvements, please feel free
-to e-mail to : <A HREF="mailto:teo@flex.ro">teo@flex.ro</A>
-<P><B><FONT COLOR="#FF1493"><FONT SIZE=+2>Mailing list for PgAccess </FONT></FONT></B><A HREF="maillist.html">Here
-you will find how to subscribe to this mailing list</A>.
-<P>
-<HR>
-<H1>
-More information about libpgtcl - downloads</H1>
+<br><b>Scripts</b>
+<br>- define, modify and call user defined scripts
+<br><b>Users</b>
+<br>- define and modify user parameters
+<p>Here is <a href="pga-rad.html">a special section concerning forms and
+scripts</a> .
+<p>This program is protected by the following <a href="copyright.html">copyright</a>
+<p>If you have any comment, suggestion for improvements, please feel free
+to e-mail to : <a href="mailto:teo@flex.ro">teo@flex.ro</a>
+<p><b><font color="#FF1493"><font size=+2>Mailing list for PgAccess </font></font></b><a href="maillist.html">Here
+you will find how to subscribe to this mailing list</a>.
+<p>
+<hr>
+<h1>
+More information about libpgtcl - downloads</h1>
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 located in the PostgreSQL directory /src/interfaces/libpgtcl.
Tcl/Tk. This is technically different from
an ordinary PostgreSQL loadable object file, because libpgtcl is a collection
of object files. Under Linux, this is called libpgtcl.so.
-<P> One of the solutions is to remove from the
-source the line containing <B>load libpgtcl.so </B>and to load pgaccess.tcl
+<p> One of the solutions is to remove from the
+source the line containing <b>load libpgtcl.so </b>and to load pgaccess.tcl
not with wish, but with pgwish (or wishpg) that wish that was linked with
libpgtcl library! I do not recommend this one.
-<P> If you have installed RedHat 5.x, you should
+<p> If you have installed RedHat 5.x, you should
get the last distribution kit of PostgreSQL and compile it from scratch.
RedHat 5.x is using some new versions of libraries and you have to compile
-and install again at least <B>libpq </B>and <B><TT>libpgtcl </TT></B>libraries.
-<P> PostgreSQL 6.4 release has a minor bug. I does not
+and install again at least <b>libpq </b>and <b><tt>libpgtcl </tt></b>libraries.
+<p> PostgreSQL 6.4 release has a minor bug. I does not
includ by default the crypt lib when compiling libpgtcl. So, you will need
to manually add a -lcrypt to SHLIB line in Makefile in src/interfaces/libpgtcl
and then make clean and make again. The new libpgtcl.so library is properly
configured to run pgaccess.
-<BR>
-</BODY>
-</HTML>
+<br>
+</body>
+</html>
--- /dev/null
+<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
+<html>
+<head>
+ <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+ <meta name="GENERATOR" content="Mozilla/4.5 [en] (X11; I; Linux 2.0.36 i586) [Netscape]">
+</head>
+<body text="#000000" bgcolor="#FFFFFF" link="#0000FF" vlink="#FF0000" alink="#000088">
+
+<h1>
+PgAccess 0.93 patch to make it work with PostgreSQL 6.3.x
+<hr WIDTH="100%"></h1>
+
+<p><br>PgAccess 0.93 is working fine with PostgreSQL 6.4.x due to some
+changes in libpgtcl !
+<p>There is a small patch that you have to make in order to make it work
+with 6.3.x !
+<p>Replace in procedure <tt>wpg_exec</tt> the following line:
+<p><tt>set pgsql(errmsg) [pg_result $pgsql(res) -error]</tt>
+<p>with this one :
+<p><tt>set pgsql(errmsg) "NO ERROR INFORMATION SUPPLIED"</tt>
+<p>And it will work fine! In some error cases, you will not get the appropriate
+error message from libpgtcl.
+<p> <a href="index.html">Back</a>
+</body>
+</html>
-#!/usr/bin/wish
+#!/bin/sh
+# the next line restarts using wish \
+exec wish "$0" "$@"
global widget;
set qlvar(reswidth) 150
set qlvar(resfields) {}
set qlvar(ressort) {}
+set qlvar(resreturn) {}
set qlvar(rescriteria) {}
set qlvar(restables) {}
set qlvar(critedit) 0
set tablename $objname
switch $activetab {
Queries {open_query design}
+ Views {open_view_design}
Scripts {design_script $objname}
Forms {fd_load_form $objname design}
Reports {
proc {cmd_Functions} {} {
global dbc
-set maxim 0
-set pgid 0
+set maxim 16384
cursor_clock
catch {
- wpg_select $dbc "select proowner,count(*) from pg_proc group by proowner" rec {
- if {$rec(count)>$maxim} {
- set maxim $rec(count)
- set pgid $rec(proowner)
- }
+ wpg_select $dbc "select oid from pg_database where datname='template1'" rec {
+ set maxim $rec(oid)
}
+}
.dw.lb delete 0 end
catch {
- wpg_select $dbc "select proname from pg_proc where prolang=14 and proowner<>$pgid order by proname" rec {
+ wpg_select $dbc "select proname from pg_proc where prolang=14 and oid>$maxim order by proname" rec {
.dw.lb insert end $rec(proname)
}
}
cursor_normal
}
-}
proc {cmd_Import_Export} {how} {
global dbc ie_tablename ie_filename activetab
Window show .qb
set queryoid 0
set queryname {}
- set cbv 0
+ set cbv 0
.qb.cbv configure -state normal
}
Users {
proc {cmd_Views} {} {
global dbc
-
cursor_clock
.dw.lb delete 0 end
catch {
+ wpg_select $dbc "select c.relname,count(c.relname) from pg_class C, pg_rewrite R where (relname !~ '^pg_') and (r.ev_class = C.oid) and (r.ev_type = '1') group by relname" rec {
+ if {$rec(count)!=0} {
+ set itsaview($rec(relname)) 1
+ }
+ }
wpg_select $dbc "select relname from pg_class where (relname !~ '^pg_') and (relkind='r') and (relhasrules) order by relname" rec {
- .dw.lb insert end $rec(relname)
+ if {[info exists itsaview($rec(relname))]} {
+ .dw.lb insert end $rec(relname)
+ }
}
}
cursor_normal
return
}
frame $base.ddf -borderwidth 1 -height 75 -relief raised -width 55
-listbox $base.ddf.lb -background #fefefe -borderwidth 1 -font $pref(font_normal) -highlightthickness 0 -selectborderwidth 0 -yscrollcommand [subst {$base.ddf.sb set}]
+listbox $base.ddf.lb -background #fefefe -foreground #000000 -selectbackground #c3c3c3 -borderwidth 1 -font $pref(font_normal) -highlightthickness 0 -selectborderwidth 0 -yscrollcommand [subst {$base.ddf.sb set}]
scrollbar $base.ddf.sb -borderwidth 1 -command [subst {$base.ddf.lb yview}] -highlightthickness 0 -orient vert
place $base.ddf -x $x -y $y -width $w -height 185 -anchor nw -bordermode ignore
place $base.ddf.lb -x 1 -y 1 -width [expr $w-18] -height 182 -anchor nw -bordermode ignore
fd_draw_rectangle $x1 $y1 $x2 $y2 raised #a0a0a0 o$i
.fd.c create text [expr ($x1+$x2)/2] [expr ($y1+$y2)/2] -text $fdobj($i,l) -font $pref(font_normal) -tags o$i
}
+ text {
+ fd_draw_rectangle $x1 $y1 $x2 $y2 sunken #a0a0a0 o$i
+ }
entry {
fd_draw_rectangle $x1 $y1 $x2 $y2 sunken white o$i
}
entry $base.$name -bo 1 -ba white -selectborderwidth 0 -highlightthickness 0
if {$var!=""} {$base.$name configure -textvar $var}
}
+ text {
+ text $base.$name -font $pref(font_normal) -borderwidth 1
+ }
label {
set wh {}
label $base.$name -font $pref(font_normal) -anchor nw -padx 0 -pady 0 -text $fdobj($item,l)
proc {get_tables} {} {
global dbc
set tbl {}
-catch {
- wpg_select $dbc "select * from pg_class where (relname !~ '^pg_') and (relkind='r') order by relname" rec {
- if {![regexp "^pga_" $rec(relname)]} then {lappend tbl $rec(relname)}
+if {[catch {
+ wpg_select $dbc "select c.relname,count(c.relname) from pg_class C, pg_rewrite R where (relname !~ '^pg_') and (r.ev_class = C.oid) and (r.ev_type = '1') group by relname" rec {
+ if {$rec(count)!=0} {
+ set itsaview($rec(relname)) 1
+ }
+ }
+ wpg_select $dbc "select relname from pg_class where (relname !~ '^pg_') and (relkind='r') order by relname" rec {
+ if {![regexp "^pga_" $rec(relname)]} then {
+ if {![info exists itsaview($rec(relname))]} {
+ lappend tbl $rec(relname)
+ }
+ }
}
+} gterrmsg]} {
+ show_error $gterrmsg
}
return $tbl
}
rb_preview
}
+proc {open_view_design} {} {
+global dbc cbv queryname
+set viewname [.dw.lb get [.dw.lb curselection]]
+set vd {}
+wpg_select $dbc "select pg_get_viewdef('$viewname')as vd" tup {
+ set vd $tup(vd)
+}
+if {$vd==""} {
+ show_error "Error retrieving view definition for '$viewname'!"
+ return
+}
+Window show .qb
+.qb.text1 delete 0.0 end
+.qb.text1 insert end $vd
+set cbv 1
+.qb.cbv configure -state disabled
+set queryname $viewname
+}
+
proc {open_query} {how} {
global dbc queryname mw queryoid
proc {ql_compute_sql} {} {
global qlvar
set sqlcmd "select "
+#rjr 8Mar1999 added logical return state for results
for {set i 0} {$i<[llength $qlvar(resfields)]} {incr i} {
+ if {[lindex $qlvar(resreturn) $i]} {
if {$sqlcmd!="select "} {set sqlcmd "$sqlcmd, "}
- set sqlcmd "$sqlcmd[lindex $qlvar(restables) $i].[lindex $qlvar(resfields) $i]"
+ set sqlcmd "$sqlcmd[lindex $qlvar(restables) $i].\"[lindex $qlvar(resfields) $i]\""
+}
}
set tables {}
for {set i 0} {$i<$qlvar(ntables)} {incr i} {
set sup1 "where "
foreach link $qlvar(links) {
if {$sup1!="where "} {set sup1 "$sup1 and "}
- set sup1 "$sup1 ([lindex $link 0].[lindex $link 1]=[lindex $link 2].[lindex $link 3])"
+ set sup1 "$sup1 ([lindex $link 0].\"[lindex $link 1]\"=[lindex $link 2].\"[lindex $link 3]\")"
}
}
for {set i 0} {$i<[llength $qlvar(resfields)]} {incr i} {
if {$crit!=""} {
if {$sup1==""} {set sup1 "where "}
if {[string length $sup1]>6} {set sup1 "$sup1 and "}
- set sup1 "$sup1 ([lindex $qlvar(restables) $i].[lindex $qlvar(resfields) $i] $crit) "
+ set sup1 "$sup1 ([lindex $qlvar(restables) $i].\"[lindex $qlvar(resfields) $i]\" $crit) "
}
}
set sqlcmd "$sqlcmd $sup1"
if {$how!="unsorted"} {
if {$how=="Ascending"} {set how asc} else {set how desc}
if {$sup2==""} {set sup2 " order by "} else {set sup2 "$sup2,"}
- set sup2 "$sup2 [lindex $qlvar(restables) $i].[lindex $qlvar(resfields) $i] $how "
+ set sup2 "$sup2 [lindex $qlvar(restables) $i].\"[lindex $qlvar(resfields) $i]\" $how "
}
}
set sqlcmd "$sqlcmd $sup2"
if {$col==""} return
if {[tk_messageBox -title WARNING -icon question -parent .ql -message "Remove field from result ?" -type yesno -default no]=="no"} return
set qlvar(resfields) [lreplace $qlvar(resfields) $col $col]
+ set qlvar(ressort) [lreplace $qlvar(ressort) $col $col]
+ set qlvar(resreturn) [lreplace $qlvar(resreturn) $col $col]
set qlvar(restables) [lreplace $qlvar(restables) $col $col]
set qlvar(rescriteria) [lreplace $qlvar(rescriteria) $col $col]
ql_draw_res_panel
for {set i [expr [llength $qlvar(restables)]-1]} {$i>=0} {incr i -1} {
if {"$tablename"==[lindex $qlvar(restables) $i]} {
set qlvar(resfields) [lreplace $qlvar(resfields) $i $i]
+ set qlvar(ressort) [lreplace $qlvar(ressort) $i $i]
+ set qlvar(resreturn) [lreplace $qlvar(resreturn) $i $i]
set qlvar(restables) [lreplace $qlvar(restables) $i $i]
set qlvar(rescriteria) [lreplace $qlvar(rescriteria) $i $i]
}
set qlvar(ressort) [linsert $qlvar(ressort) $col unsorted]
set qlvar(rescriteria) [linsert $qlvar(rescriteria) $col {}]
set qlvar(restables) [linsert $qlvar(restables) $col $tabtag]
+ set qlvar(resreturn) [linsert $qlvar(resreturn) $col yes]
ql_draw_res_panel
} else {
# Drop position : in the table panel
.ql.c create text 5 [expr 16+$qlvar(yoffs)] -text Table: -anchor nw -font $pref(font_normal) -tags {reshdr}
.ql.c create text 5 [expr 31+$qlvar(yoffs)] -text Sort: -anchor nw -font $pref(font_normal) -tags {reshdr}
.ql.c create text 5 [expr 46+$qlvar(yoffs)] -text Criteria: -anchor nw -font $pref(font_normal) -tags {reshdr}
+.ql.c create text 5 [expr 61+$qlvar(yoffs)] -text Return: -anchor nw -font $pref(font_normal) -tags {reshdr}
.ql.c bind mov <Button-1> {ql_dragstart %W %x %y}
.ql.c bind mov <B1-Motion> {ql_dragit %W %x %y}
bind .ql <ButtonRelease-1> {ql_dragstop %x %y}
if {[lindex $qlvar(rescriteria) $i]!=""} {
.ql.c create text [expr $resoffset+4+$qlvar(xoffs)+$i*$qlvar(reswidth)] [expr $qlvar(yoffs)+46+15*0] -anchor nw -text [lindex $qlvar(rescriteria) $i] -font $pref(font_normal) -tags [subst {resp cr-c$i-r0}]
}
+ .ql.c create text [expr $resoffset+4+$qlvar(xoffs)+$i*$qlvar(reswidth)] [expr 61+$qlvar(yoffs)] -text [lindex $qlvar(resreturn) $i] -anchor nw -tags {resp retval} -font $pref(font_normal)
}
.ql.c raise reshdr
.ql.c bind resf <Button-1> {ql_resfield_click %x %y}
.ql.c bind sort <Button-1> {ql_swap_sort %W %x %y}
+.ql.c bind retval <Button-1> {ql_toggle_return %W %x %y}
}
proc {ql_draw_table} {it} {
set qlvar(xoffs) 50
set qlvar(reswidth) 150
set qlvar(resfields) {}
+set qlvar(resreturn) {}
set qlvar(ressort) {}
set qlvar(rescriteria) {}
set qlvar(restables) {}
.ql.c itemconfigure $obj -text $cum
}
+#rjr 8Mar1999 toggle logical return state for result
+proc {ql_toggle_return} {w x y} {
+global qlvar
+set obj [$w find closest $x $y]
+set taglist [.ql.c gettags $obj]
+if {[lsearch $taglist retval]==-1} return
+set cum [.ql.c itemcget $obj -text]
+if {$cum} {
+ set cum no
+} else {
+ set cum yes
+}
+set col [expr int(($x-$qlvar(xoffs))/$qlvar(reswidth))]
+set qlvar(resreturn) [lreplace $qlvar(resreturn) $col $col $cum]
+.ql.c itemconfigure $obj -text $cum
+}
+
proc {qlc_click} {x y w} {
global qlvar pref
set qlvar(panstarted) 0
place .dw.lmask -x 80 -y [expr 86+25*[lsearch -exact $tablist $curtab]]
set activetab $curtab
# Tabs where button Design is enabled
-if {[lsearch {Scripts Queries Reports Forms Users} $activetab]!=-1} {
+if {[lsearch {Scripts Queries Views Reports Forms Users} $activetab]!=-1} {
.dw.btndesign configure -state normal
}
.dw.lb delete 0 end
label $base.l2 -relief groove -text {A Tcl/Tk interface to
PostgreSQL
by Constantin Teodorescu}
- label $base.l3 -borderwidth 0 -relief sunken -text {v 0.93}
+ label $base.l3 -borderwidth 0 -relief sunken -text {v 0.96}
label $base.l4 -relief groove -text {You will always get the latest version at:
http://www.flex.ro/pgaccess
-relief raised
listbox $base.lb \
-background #fefefe \
+ -selectbackground #c3c3c3 \
-foreground black -highlightthickness 0 -selectborderwidth 0 \
-yscrollcommand {.dw.sb set}
bind $base.lb <Double-Button-1> {
-text Create
listbox $base.lb \
-background #fefefe -borderwidth 1 \
+ -selectbackground #c3c3c3 \
-font $pref(font_fix) \
-selectborderwidth 0 -yscrollcommand {.nt.sb set}
bind $base.lb <ButtonRelease-1> {
set qtype A
}
if {$cbv} {
+ wpg_select $dbc "select pg_get_viewdef('$queryname') as vd" tup {
+ if {$tup(vd)!="Not a view"} {
+ if {[tk_messageBox -title Warning -message "View '$queryname' already exists! Delete ?" -type yesno -default no]=="yes"} {
+ set pg_res [wpg_exec $dbc "drop view \"$queryname\""]
+ if {$pgsql(status)!="PGRES_COMMAND_OK"} {
+ show_error "Error deleting view '$queryname'"
+ }
+ }
+ }
+ }
set pgres [wpg_exec $dbc "create view \"$queryname\" as $qcmd"]
if {$pgsql(status)!="PGRES_COMMAND_OK"} {
show_error "Error defining view\n\n$pgsql(errmsg)"
-relief raised -text {Report fields}
listbox $base.lb \
-background #fefefe -borderwidth 1 \
+ -selectbackground #c3c3c3 \
-highlightthickness 1 -selectborderwidth 0 \
-yscrollcommand {.rb.sb set}
bind $base.lb <ButtonRelease-1> {
label $base.l2 -anchor w -borderwidth 0 -text conturi -textvariable tiw(tablename)
label $base.l3 -borderwidth 0 -text Owner
label $base.l4 -anchor w -borderwidth 1 -textvariable tiw(owner)
- listbox $base.lb -background #fefefe -borderwidth 1 -font $pref(font_fix) -highlightthickness 1 -selectborderwidth 0 -yscrollcommand {.tiw.sb set}
+ listbox $base.lb -background #fefefe -selectbackground #c3c3c3 -borderwidth 1 -font $pref(font_fix) -highlightthickness 1 -selectborderwidth 0 -yscrollcommand {.tiw.sb set}
scrollbar $base.sb -activebackground #d9d9d9 -activerelief sunken -borderwidth 1 -command {.tiw.lb yview} -orient vert
button $base.closebtn -borderwidth 1 -command {Window destroy .tiw} -pady 3 -text Close
button $base.renbtn -borderwidth 1 -command {
label $base.l12 -borderwidth 1 -relief raised -text size
label $base.lfi -borderwidth 0 -text {Field information}
label $base.lii -borderwidth 1 -relief raised -text {Indexes defined}
- listbox $base.ilb -background #fefefe -borderwidth 1 -highlightthickness 1 -selectborderwidth 0
+ listbox $base.ilb -background #fefefe -borderwidth 1 -highlightthickness 1 -selectborderwidth 0 -selectbackground #c3c3c3
bind $base.ilb <ButtonRelease-1> {
tiw_show_index
}
}
toplevel $base -class Toplevel
wm focusmodel $base passive
- wm geometry $base 90x152+0+0
+ wm geometry $base 90x172+0+0
wm maxsize $base 785 570
wm minsize $base 1 1
wm overrideredirect $base 0
-anchor w -borderwidth 1 \
-highlightthickness 0 -text {Radio btn} -value radio \
-variable fdvar(tool) -width 9
+ radiobutton $base.rb9 \
+ -anchor w -borderwidth 1 \
+ -highlightthickness 0 -text {Text} -value text \
+ -variable fdvar(tool) -width 9
radiobutton $base.rb8 \
-anchor w -borderwidth 1 \
-highlightthickness 0 -text Query -value query -variable fdvar(tool) \
-in .fdtb -column 0 -row 5 -columnspan 1 -rowspan 1
grid $base.rb7 \
-in .fdtb -column 0 -row 6 -columnspan 1 -rowspan 1
- grid $base.rb8 \
+ grid $base.rb9 \
-in .fdtb -column 0 -row 7 -columnspan 1 -rowspan 1
+ grid $base.rb8 \
+ -in .fdtb -column 0 -row 8 -columnspan 1 -rowspan 1
}
proc vTclWindow.sqlw {base} {
OSDN Git Service
