1
0
mirror of https://github.com/postgres/postgres.git synced 2025-06-13 07:41:39 +03:00

Update pgaccess to 0.98.5

This commit is contained in:
Bruce Momjian
2000-03-31 11:22:36 +00:00
parent e854d3da54
commit a34ce62fdf
20 changed files with 312 additions and 205 deletions

View File

@ -22,7 +22,7 @@ PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS.
---------------------------------------------------------------------------
PGACCESS 0.98 29 August 1999
PGACCESS 0.98.4 29 January 2000
================================
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

View File

@ -38,12 +38,10 @@ CREATE TABLE "pga_schema" (
REVOKE ALL on "pga_schema" from PUBLIC;
GRANT ALL on "pga_schema" to PUBLIC;
CREATE TABLE "cities" (
"id" int4 DEFAULT nextval('"cities_id_seq"') NOT NULL,
"id" int4 DEFAULT nextval ( '"cities_id_seq"' ) NOT NULL,
"name" character varying(32) NOT NULL,
"prefix" character varying(16) NOT NULL);
REVOKE ALL on "cities" from PUBLIC;
GRANT UPDATE,DELETE,SELECT,RULE on "cities" to "fane";
GRANT ALL on "cities" to "liviu";
CREATE FUNCTION "getcityprefix" (int4 ) RETURNS varchar AS 'select prefix from cities where id = $1 ' LANGUAGE 'SQL';
COPY "pga_queries" FROM stdin;
Query that can be saved as view S select * from phonebook where continent='usa' \N \N \N \N

View File

@ -14,11 +14,11 @@ Download</h2>
<ul><a href="ftp://ftp.flex.ro/pub/pgaccess">ftp://ftp.flex.ro/pub/pgaccess</a>
<ul>
<li>
<a href="ftp://ftp.flex.ro/pub/pgaccess/pgaccess-0.98.tar.gz">Unix tar.gz
<a href="ftp://ftp.flex.ro/pub/pgaccess/pgaccess-0.98.5.tar.gz">Unix tar.gz
file</a></li>
<li>
<a href="ftp://ftp.flex.ro/pub/pgaccess/pgaccess-0.98.zip">Windows .zip
<a href="ftp://ftp.flex.ro/pub/pgaccess/pgaccess-0.98.5.zip">Windows .zip
file</a></li>
</ul>
</ul>
@ -28,11 +28,11 @@ be :
<ul><a href="ftp://speedy.flex.ro/pub/pgaccess">ftp://speedy.flex.ro/pub/pgaccess</a>
<ul>
<li>
<a href="ftp://speedy.flex.ro/pub/pgaccess/pgaccess-0.98.tar.gz">Unix tar.gz
<a href="ftp://speedy.flex.ro/pub/pgaccess/pgaccess-0.98.5.tar.gz">Unix tar.gz
file</a></li>
<li>
<a href="ftp://speedy.flex.ro/pub/pgaccess/pgaccess-0.98.zip">Windows .zip
<a href="ftp://speedy.flex.ro/pub/pgaccess/pgaccess-0.98.5.zip">Windows .zip
file</a></li>
</ul>
</ul>

View File

@ -2,7 +2,7 @@
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Mozilla/4.61 [en] (X11; I; Linux 2.2.12 i586) [Netscape]">
<meta name="GENERATOR" content="Mozilla/4.7 [en] (X11; I; Linux 2.2.12-20 i586) [Netscape]">
</head>
<body bgcolor="#FEFEDF">
@ -77,7 +77,32 @@ forget to send me a copy in order to include it into the standard distribution.<
name "namespace" while executing "namespace eval Mainlib</tt>&nbsp; ..."</b>
<blockquote>That means 100% that you have an older version of Tcl/Tk that
don't recognize namespaces command. Please upgrade to Tcl/Tk 8.0.x minimum</blockquote>
<b>9. When saving big forms with a lot of widgets and code inside, a big
error message appears, PgAccess crashes, cannot recover old form, pga_forms
table appears to be corrupted.</b>
<blockquote>Your form source is exceeding 8000 bytes. A PostgreSQL record
cannot hold more than 8 Kb and pga_forms table is corrupted. Sorry for
your work :-( , your old form cannot be recovered anymore if you don't
have a backup (dumped) database. Upgrade to PgAccess 0.98.3 that will prevent
saving of those big forms. In order to make your form sources smaller,
define some scripts for your form initialize routines or for other big
portions of code and call them from the form code with the command <tt>Scripts::execute
"Your space saving code script name"</tt></blockquote>
<p><br><b>10. I have a dual boot machine with Linux and Windows 9x installed.
PgAccess works fine from Linux but when trying to connect under Windows
it says something about wrong access rights to the same database. Tcl/Tk
version and PostgreSQL server version matches libpgtcl and libpq DLL's.</b>
<blockquote>Check your Windows TCP/IP configuration. If you configured
the Windows TCP/IP machine address to by dynamic allocated by the server
then it got another IP address, different from Linux. If you have host
based authentication then you have no rights for the database. Change the
Windows TCP/IP configuration and set up manually the same TCP/IP address
as from Linux installation or change the pg_hba.conf configuration file
from the server to allow access to the database from the whole domain not
from a single IP address.</blockquote>
<br>&nbsp;
<br>&nbsp;
<br>&nbsp;
<br>&nbsp;

View File

@ -2,7 +2,7 @@
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Mozilla/4.61 [en] (X11; I; Linux 2.2.12 i586) [Netscape]">
<meta name="GENERATOR" content="Mozilla/4.72 [en] (X11; I; Linux 2.2.14 i586) [Netscape]">
</head>
<body bgcolor="#FEFEDF">
@ -14,14 +14,15 @@ PgAccess has been written by <a href="mailto:teo@flex.ro">Constantin Teodorescu<
using Visual Tcl, the best tool for developing Tcl/Tk applications I've
ever seen.
<p><b>Last version</b>
<br>Last stable version is 0.98 , released on 29 August 1999. Read <a href="whatsnew.html">what's
new</a> in 0.98.
<br>Last stable version is 0.98.5 , released on 30 March 2000. Read <a href="whatsnew.html">what's
new</a> .
<p><b>Portability issues</b>
<br>PgAccess is available for every platform where PostgreSQL was ported
and where a Tcl/Tk package is available. PgAccess has been reported running
on :
<br>- Linux
<br>- FreeBSD
<br>- NetBSD
<br>- Solaris
<br>- HPUX
<br>- Irix

View File

@ -2,9 +2,47 @@
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Mozilla/4.61 [en] (X11; I; Linux 2.2.11 i586) [Netscape]">
<meta name="GENERATOR" content="Mozilla/4.72 [en] (X11; I; Linux 2.2.14 i586) [Netscape]">
</head>
<body bgcolor="#FEFEDF">
<b>30 March 2000 - PgAccess 0.98.5</b>
<ul>
<li>
added the "new database" feature</li>
<li>
added the czech and spanish message file</li>
</ul>
<b>29 January 2000 - PgAccess 0.98.4</b>
<ul>
<li>
fixed a problem granting or revoking rights from PUBLIC</li>
<li>
added the portuguese message file translation</li>
<li>
fixed the preferences window problems for big screens 1280x1024</li>
</ul>
<b>17 January 2000 - PgAccess 0.98.3</b>
<ul>
<li>
prevent saving of big forms that source size has more than 8000 bytes so
pga_forms table does not crash anymore, read <a href="faq.html">FAQ</a>
how to make your form sources smaller</li>
<li>
other very small bug fixes (less important)</li>
<li>
some windows can resize now up to 1280x1024 on big screens</li>
<li>
deutsh, russian and magyar message file available</li>
<li>
FAQ updates</li>
</ul>
<b>29 August 1999</b> - PgAccess 0.98 has been released!
<ul>
<li>

View File

@ -419,6 +419,10 @@ global PgAcVar CurrentDB
}
lappend info [list $PgAcVar(fdobj,$i,class) $PgAcVar(fdobj,$i,name) $PgAcVar(fdobj,$i,coord) $PgAcVar(fdobj,$i,command) $PgAcVar(fdobj,$i,label) $PgAcVar(fdobj,$i,variable) $PgAcVar(fdobj,$i,value) $PgAcVar(fdobj,$i,relief) $PgAcVar(fdobj,$i,fcolor) $PgAcVar(fdobj,$i,bcolor) $PgAcVar(fdobj,$i,borderwidth) $wfont]
}
if {[string length $info]>8000} {
tk_messageBox -title [intlmsg Error] -message [intlmsg "Form too big!\nSource size [string length $info] bytes\nCannot save !"]
return 0
}
sql_exec noquiet "delete from pga_forms where formname='$PgAcVar(fdvar,formtitle)'"
regsub -all "'" $info "''" info
sql_exec noquiet "insert into pga_forms values ('$PgAcVar(fdvar,formtitle)','$info')"

View File

@ -57,7 +57,8 @@ global PgAcVar
showError [intlmsg "You must supply the function language!"]
} else {
set funcbody [.pgaw:Function.fs.text1 get 1.0 end]
regsub -all "\n" $funcbody " " funcbody
# regsub -all "\n" $funcbody " " funcbody
regsub -all {'} $funcbody {''} funcbody
if {$PgAcVar(function,nametodrop) != ""} {
if {! [sql_exec noquiet "drop function $PgAcVar(function,nametodrop)"]} {
return

View File

@ -80,7 +80,7 @@ global PgAcVar
set x [expr {($sw - 640)/2}]
set y [expr {($sh - 480)/2}]
wm geometry $base 640x480+$x+$y
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 1 1

View File

@ -7,6 +7,8 @@ VACUUM opens every class in the database, cleans out records from rolled back tr
We recommend that active production databases be cleaned nightly, in order to keep statistics relatively current. The VACUUM query may be executed at any time, however. In particular, after copying a large class into Postgres or after deleting a large number of records, it may be a good idea to issue a VACUUM query. This will update the system catalogs with the results of all recent changes, and allow the Postgres query optimizer to make better choices in planning user queries.
If the server crashes during a VACUUM command, chances are it will leave a lock file hanging around. Attempts to re-run the VACUUM command result in an error message about the creation of a lock file. If you are sure VACUUM is not running, remove the pg_vlock file in your database directory (i.e. PGDATA/base/dbname/pg_vlock).
" {} "Synopsis" {bold} "
VACUUM \[ VERBOSE \] \[ ANALYZE \] \[ table \]
VACUUM \[ VERBOSE \] ANALYZE \[ table \[ (column \[, ...\] ) \] \]

View File

@ -1,34 +1,34 @@
array set Messages {
"Label" "Cimke"
"Label" "C<EFBFBD>mke"
"Save schema" "S<>ma ment<6E>se"
"Is unique ?" "Egyedi (UNIQUE) ?"
"Is unique ?" "Egyedi ?"
"Report builder" "Jelent<6E>s szerkeszt<7A>"
"Criteria" "Felt<6C>telek"
"FATAL ERROR upgrading PgAccess table" "FAT<EFBFBD>LIS HIBA keletkezett a PgAccess t<>bla frissit<EFBFBD>se k<>zben"
"FATAL ERROR upgrading PgAccess table" "S<EFBFBD>LYOS HIBA a PgAccess t<>bla friss<EFBFBD>t<EFBFBD>se k<>zben"
"Save this query as a view" "N<EFBFBD>zetk<EFBFBD>nt (VIEW) akarod elmenteni a lek<65>rdez<65>st?"
"Save this query as a view" "Lek<EFBFBD>rdez<EFBFBD>s ment<6E>se n<>zetk<74>nt?"
"Page header" "Oldal fejl<EFBFBD>c"
"Page header" "Fejl<EFBFBD>c"
"Query name" "Lek<65>rdez<65>s n<>v"
"Please select an object first!" "El<45>sz<73>r v<>lassz egy objektumot!"
"Fields :" "Mez<65>k :"
"Fields :" "Mez<65>k"
"Name" "N<>v"
"File name" "F<>jl n<>v"
"Detail record" "R<>szletes bejegyz<EFBFBD>s"
"Detail record" "R<>szletes rekord"
"Auto-load the last opened database at startup" "Az utols<6C>k<EFBFBD>nt haszn<7A>lt adatb<74>zis automatikus nyit<69>sa indit<EFBFBD>skor"
"repAuto-load the last opened database at startup" "Az utols<6C>k<EFBFBD>nt haszn<7A>lt adatb<74>zis automatikus megnyit<EFBFBD>sa ind<EFBFBD>t<EFBFBD>skor?"
"Maxvalue" "Maxim<69>lis <20>rt<72>k"
@ -36,41 +36,42 @@ array set Messages {
"Report fields" "Jelent<6E>s mez<65>k"
"Test form" "Teszt k<EFBFBD>rd<EFBFBD>iv (FORM)"
"Test form" "Teszt <20>rlap"
"Error trying to connect to database '%s' on host %s \n\nPostgreSQL error message:%s" "Hiba a(z) '%s' nev<65> adatb<74>zishoz kapcsol<6F>d<EFBFBD>s k<>zben a(z) '%s' szerveren.\n\nPostgreSQL hiba<62>zenet:%s"
"Error trying to connect to database '%s' on host %s \n\nPostgreSQL error message:%s" "Hiba a(z) '%s' adatb<74>zishoz kapcsol<6F>d<EFBFBD>s k<>zben a(z) %s szerveren.\n\nPostgreSQL
hiba<EFBFBD>zenet:%s"
"No field type ?" "Nincs a mez<65>nek tipusa ?"
"No field type ?" "Nincs a mez<65>nek t<EFBFBD>pusa ?"
"User without name?" "Felhaszn<7A>l<EFBFBD> n<>v n<>lk<6C>l ?"
"You have to supply a name for this schema!" "Nevet kell adj ennek a s<>m<EFBFBD>nak !"
"You have to supply a name for this schema!" "A s<>m<EFBFBD>hoz n<>v megad<61>sa sz<73>ks<6B>ges !"
"Last value" "Legut<75>bbi <20>rt<72>k"
"Preferences" "Be<42>llit<EFBFBD>sok"
"Preferences" "Be<42>ll<EFBFBD>t<EFBFBD>sok"
"View '%s' already exists!\nOverwrite ?" "A(z) '%s' nev<EFBFBD> n<>zet (VIEW) m<>r l<>tezik!\n Fel<65>lir<EFBFBD>s ?"
"View '%s' already exists!\nOverwrite ?" "A(z) '%s' n<EFBFBD>zet m<>r l<>tezik!\n Fel<65>l<EFBFBD>r<EFBFBD>s ?"
"You have to select an index!" "V<>lasztanod kell egy indexet!"
"You have to select an index!" "V<>lasztani kell egy indexet!"
"Field type" "Mez<65>tipus"
"Field type" "Mez<65>t<EFBFBD>pus"
"Script name" "Szkript neve"
"Reload" "<22>jrat<61>lt"
"Remove table %s from query?" "T<EFBFBD>r<EFBFBD>lni akarod a(z) '%s' t<>bl<EFBFBD>t ebb<62>l a lek<65>rdez<65>sb<73>l ?"
"Remove table %s from query?" "%s t<>bla elt<6C>vol<6F>t<EFBFBD>sa a lek<65>rdez<65>sb<73>l ?"
"SQL window" "SQL ablak"
"Allow user to create other users" "Enged<65>ly a felhaszn<7A>l<EFBFBD>nak <20>j felhaszn<7A>l<EFBFBD> k<EFBFBD>szit<EFBFBD>s<EFBFBD>re"
"Allow user to create other users" "Enged<65>ly m<EFBFBD>sik felhaszn<7A>l<EFBFBD> l<EFBFBD>trehoz<EFBFBD>s<EFBFBD>ra"
"Delete current record ?" "Az aktu<EFBFBD>lis bejegyz<EFBFBD>s t<>rl<72>se ?"
"Delete current record ?" "Aktu<74>lis rekord t<>rl<72>se ?"
"List box" "Lista"
"Save to query builder" "Mentsd a lek<65>rdez<65>s szerkeszt<7A>be"
"Save to query builder" "Ment<EFBFBD>s a lek<65>rdez<65>s szerkeszt<7A>be"
"fixed width" "fix sz<73>less<73>g"
@ -78,109 +79,109 @@ array set Messages {
"Yes" "Igen"
"Add label" "Adj hozz<7A> cimk<6D>t"
"Add label" "C<EFBFBD>mke hozz<7A>ad<EFBFBD>sa"
"Sequence created!" "A szekvencia (SEQUENCE) elk<6C>sz<73>lt!"
"Sequence created!" "A szekvencia elk<6C>sz<73>lt!"
"Field information" "Mez<65> inform<72>ci<63>"
"Design" "Tervez<65>s"
"Field" "Mez<65>"
"You have to supply an external file name!" "Meg kell adj egy k<>ls<6C> f<>jlnevet!"
"You have to supply an external file name!" "Meg kell adni egy k<>ls<6C> f<>jlnevet!"
"Increment" "N<>vel<EFBFBD>s"
"Increment" "N<>vel"
"No" "Nem"
"Form design" "K<EFBFBD>rd<EFBFBD>iv (FORM) tervez<65>s"
"Form design" "<22>rlap tervez<65>s"
"You must supply a return type!" "Sz<EFBFBD>ks<EFBFBD>g van visszat<61>r<EFBFBD>si <20>rt<72>kre!"
"You must supply a return type!" "Meg kell adni visszat<61>r<EFBFBD>si <20>rt<72>ket!"
"Remove field from result ?" "A mez<EFBFBD> t<EFBFBD>rl<EFBFBD>se az eredm<64>nyb<79>l ?"
"Remove field from result ?" "Mez<EFBFBD> elt<EFBFBD>vol<EFBFBD>t<EFBFBD>sa az eredm<64>nyb<79>l ?"
"There is another object (a %s) with the same name.\nPlease change it!" "Van m<>r ilyen nev<65> (%s) objektum!\nL<6E>gyszives v<>ltoztasd meg!"
"There is another object (a %s) with the same name.\nPlease change it!" "M<EFBFBD>r van egy (%s) nev<65> objektum. \n K<>rlek v<>ltoztasd meg!"
"This query has no commands?" "Ebben a lek<65>rdez<65>sben nincs parancs?"
"Execute query" "Lek<65>rdez<65>s futtat<EFBFBD>sa"
"Execute query" "Lek<65>rdez<65>s v<EFBFBD>grehajt<EFBFBD>sa"
"field cannot be null" "a mez<65> nem lehet NULL"
"Help" "S<>g<EFBFBD>"
"Rename column" "Az oszlop <20>tnevez<65>se"
"Rename column" "Oszlop <20>tnevez<65>se"
"Database" "Adatb<74>zis"
"Information" "Inform<72>ci<63>"
"Close" "Z<EFBFBD>r<EFBFBD>s"
"Close" "Bez<EFBFBD>r"
"Command" "Utasit<EFBFBD>s"
"Command" "Parancs"
"Table" "T<>bla"
"verify password" "jelsz<73> ellen<65>rz<72>s"
"verify password" "jelsz<73> ellen<65>rz<72>se"
"Vacuum" "Porsziv<69>z<EFBFBD>s (VACUUM)"
"Default value" "Alap<61>rt<72>k"
"Import" "Behozatal"
"Import" "Import"
"Delete index" "Index t<>rl<72>s"
"Move up" "Mozgasd fel"
"Move up" "Mozgat<EFBFBD>s fel"
"index properties" "index tulajdons<6E>gok"
"check" "ellen<65>rzi"
"check" "ellen<65>rz<EFBFBD>s"
"Create new table" "<22>j t<>bla k<>szit<EFBFBD>s"
"Create new table" "<22>j t<>bla k<>sz<EFBFBD>t<EFBFBD>se"
"Visual query designer" "Lek<EFBFBD>rdez<EFBFBD>s tervez<65>"
"Visual query designer" "Vizu<EFBFBD>lis lek<EFBFBD>rdez<EFBFBD>s tervez<65>"
"Delete all" "T<EFBFBD>r<EFBFBD>lni mindet"
"Delete all" "Mindent t<>r<EFBFBD>l"
"You are going to delete\n\n %s \n\nProceed?" "Le fogod t<>r<EFBFBD>lni az al<61>bbit:\n\n %s \n\nFolytatod?"
"You are going to delete\n\n %s \n\nProceed?" "Biztosan t<>r<EFBFBD>lni akarja %s-t ?"
"Schema name" "S<>ma neve"
"Error executing query" "Hiba a lek<65>rdez<65>s futtat<EFBFBD>sa k<>zben"
"Error executing query" "Hiba a lek<65>rdez<65>s v<EFBFBD>grehajt<EFBFBD>sa k<>zben"
"Report name" "Jelent<6E>s neve"
"Add field" "Mez<65> hozz<7A>ad<61>s"
"Add field" "Mez<65> hozz<7A>ad<61>sa"
"Field name" "Mez<65>n<EFBFBD>v"
"FATAL ERROR searching for PgAccess system tables" "FAT<EFBFBD>LIS HIBA a PgAccess rendszert<72>bl<62>k keres<65>s<EFBFBD>n<EFBFBD>l"
"FATAL ERROR searching for PgAccess system tables" "S<EFBFBD>LYOS HIBA a PgAccess rendszert<72>bl<62>k keres<65>sekor"
"A big number of rows displayed in table view will take a lot of memory!" "A n<>zetn<74>l (VIEW) kijelzend<6E> sorok nagy sz<73>ma miatt sok mem<65>ria fog lefoglal<61>dni !"
"A big number of rows displayed in table view will take a lot of memory!" "Sok oszlop mutat<61>sa a t<>blan<61>zetben sok mem<65>ri<72>t ig<69>nyel!"
"Preview" "El<45>zetes n<EFBFBD>zet"
"Preview" "El<45>n<EFBFBD>zet"
"Users" "Felhaszn<7A>l<EFBFBD>k"
"Owner" "Tulajdonos"
"Form's window internal name" "K<EFBFBD>rd<EFBFBD>iv (FORM) ablak<61>nak bels<6C> haszn<7A>lat<61> neve"
"Form's window internal name" "<22>rlap ablak bels<6C> haszn<7A>lat<61> neve"
"Sort field" "Mez<65> rendez<65>se"
"Sort field" "Mez<65>k rendez<65>se"
"New name is the same as the old one!" "Az <20>j n<>v megegyezik a r<>givel!"
"Warning" "Figyelem"
"Suggestions at" "Javaslatok itt:"
"Suggestions at" "Javaslatok"
"Functions" "F<>ggv<67>nyek"
"Schema" "S<>ma"
"Open" "Nyit"
"Open" "Megnyit"
"size" "m<>ret"
@ -190,7 +191,7 @@ array set Messages {
"Define new user" "<22>j felhaszn<7A>l<EFBFBD> defini<6E>l<EFBFBD>sa"
"Move down" "Mozgasd le"
"Move down" "mozgat<EFBFBD>s le"
"Design script" "Szkript tervez<65>s"
@ -198,37 +199,37 @@ array set Messages {
"FINAL WARNING" "UTOLS<4C> FIGYELMEZTET<45>S"
"Add table" "T<>bla hozz<7A>ad<61>s"
"Add table" "T<>bla hozz<7A>ad<61>sa"
"Table viewer font" "T<>bla n<>z<EFBFBD> bet<65>k<EFBFBD>szlet"
"Table viewer font" "T<>bla n<>z<EFBFBD> bet<65>t<EFBFBD>pusa"
"The field type is not specified!" "A mez<65> tipusa nincs megadva!"
"The field type is not specified!" "A mez<65> t<EFBFBD>pusa nincs megadva!"
"Close test form" "Z<EFBFBD>rd le a teszt k<>rd<72>ivet (FORM)"
"Close test form" "Teszt <20>rlap bez<65>r<EFBFBD>sa"
"Export table" "T<>bla kivitel"
"Export table" "T<>bla export"
"Add new index" "<22>j index hozz<7A>ad<61>s"
"Add new index" "<22>j index hozz<7A>ad<61>sa"
"Left" "Bal"
"Field delimiter" "Mez<65> hat<61>rol<6F>"
"Add formula" "Formula hozz<7A>ad<61>s"
"Add formula" "Formula hozz<7A>ad<61>sa"
"Open database" "Adatb<74>zis megnyit<69>s"
"Open database" "Adatb<74>zis megnyit<69>sa"
"Return" "Visszat<61>r<EFBFBD>s"
"Changed fonts may appear in the next working session!" "A megv<EFBFBD>ltoztatott bet<65>k<EFBFBD>szlet a k<>vetkez<65> futtat<61>sn<EFBFBD>l lesz l<>that<61>!"
"Changed fonts may appear in the next working session!" "A meg<65>ltoztatott bet<65>t<EFBFBD>pusok csak a k<>vetkez<65> futtat<61>skor l<>tsz<73>dnak majd!"
"Error" "Hiba"
"Enter a field name" "Adj meg egy mez<65>nevet !"
"field name" "Mez<EFBFBD>n<EFBFBD>v"
"field name" "mez<EFBFBD> n<EFBFBD>v"
"Forms" "K<EFBFBD>rd<EFBFBD>ivek"
"Forms" "<22>rlapok"
"Cannot add column" "Nem lehet oszlopot hozz<7A>adni"
@ -238,7 +239,7 @@ array set Messages {
"Preferred language" "V<>lasztott nyelv"
"Execute SQL" "SQL futtat<61>s"
"Execute SQL" "SQL futtat<61>sa"
"Sequences" "Szekvenci<63>k"
@ -246,65 +247,65 @@ array set Messages {
"Language" "Nyelv"
"Query '%s' was not found!" "A(z) '%s' nev<65> lek<65>rdez<65>s nem tal<61>lhat<61>!"
"Query '%s' was not found!" "%s lek<65>rdez<65>s nem tal<61>lhat<61>!"
"Object" "Objektum"
"Font fixed" "Fix bet<65>k<EFBFBD>szlet"
"Font fixed" "Fix bet<65>t<EFBFBD>pus"
"Table name" "T<>blan<61>v"
"Table name" "T<>blan<61>v"
"Export" "Kivitel"
"Export" "Export"
"Change user" "Felhaszn<7A>l<EFBFBD>csere"
"Change user" "Felhaszn<7A>l<EFBFBD> v<>ltoztat<61>sa"
"You must give object a new name!" "Az objektumnak <EFBFBD>j nevet kell adj<EFBFBD>l!"
"You must give object a new name!" "<22>j nevet kell adni az objektumnak!"
"Query" "Lek<65>rdez<65>s"
"User name" "Felhaszn<7A>l<EFBFBD>n<EFBFBD>v"
"Font normal" "Norm<72>lis bet<65>k<EFBFBD>szlet"
"Font normal" "Norm<72>l bet<65>t<EFBFBD>pus"
"Import table" "T<>bla bevitel"
"Import table" "T<>bla import"
"Toolbar" "Eszk<7A>zpult"
"Toolbar" "Eszk<7A>zsor"
"Radio btn" "R<>di<64>gomb"
"You must supply a name for this function!" "Hi<48>nyzik a f<>ggv<67>ny neve!"
"You have to select index fields!" "Az index mez<65>ket kell v<>lasztanod!"
"You have to select index fields!" "Index mez<65>ket kell v<>lasztani!"
"Constraint" "K<>nyszer (CONSTRAINT)"
"Constraint" "K<>nyszer"
"The script must have a name" "Hi<EFBFBD>nyzik a szkript neve"
"The script must have a name" "A szkriptnek nevet kell adni"
"Save" "Ment<6E>s"
"Exit" "Kil<69>p<EFBFBD>s"
"Inherits" "<22>r<EFBFBD>kli"
"Inherits" "<22>r<EFBFBD>kli"
"Delete field" "Mez<65> t<>rl<72>s"
"Delete field" "Mez<65> t<>rl<72>se"
"About" "A programr<EFBFBD>l"
"About" "A PgAccess-r<EFBFBD>l"
"Empty field name ?" "Nom de champ inexistant ?"
"Empty field name ?" "<EFBFBD>res mez<65>n<EFBFBD>v ?"
"All report information will be deleted.\n\nProceed ?" "Toutes les informations de l'<27>tat vont <20>tre d<>truites\n\nContinuer ?"
"All report information will be deleted.\n\nProceed ?" "Minden jelent<6E>s infom<6F>ci<63> t<>r<EFBFBD>lve lesz.\n\nRendben ?"
"Host" "Szerver"
"vacuuming database %s ..." "A(z) %s adatb<74>zis porsziv<69>z<EFBFBD>sa ..."
"vacuuming database %s ..." "%s adatb<74>zis porsziv<69>z<EFBFBD>sa ..."
"Indexes defined" "Defini<EFBFBD>lt indexek"
"Indexes defined" "Indexek defini<6E>lva"
"You must specify field size!" "Hi<48>nyzik a mez<65>m<EFBFBD>ret!"
"Schema '%s' already exists!" "A(z) '%s' sch<EFBFBD>ma m<>r l<>tezik!"
"Schema '%s' already exists!" "'%s' s<>ma m<>r l<>tezik!"
"There is another field with the same name: '%s'!\n\nReplace it ?" "M<>r van ilyen nev<65> mez<65>: '%s'!\n\nFel<65>lir<69>s ?"
"There is another field with the same name: '%s'!\n\nReplace it ?" "M<>r van '%s' nev<65> mez<65>!\n\nCser<65>lhet<65> ?"
"Contents" "Tartalom"
@ -312,37 +313,37 @@ array set Messages {
"Variable" "V<>ltoz<6F>"
"Error executing query\n\n%s\n\nPostgreSQL error message:\n%s\nPostgreSQL status:%s" "Hiba a lek<65>rdez<65>s futtat<EFBFBD>sa k<>zben\n\n%s\n\nPostgreSQL hiba<62>zenet:\n%s\nPostgreSQL st<EFBFBD>tusz:%s"
"Error executing query\n\n%s\n\nPostgreSQL error message:\n%s\nPostgreSQL status:%s" "Hiba(z) %s lek<65>rdez<65>s v<EFBFBD>grehajt<EFBFBD>sakor\n\nPostgreSQL hiba<62>zenet:\n%s\nPostgreSQL <EFBFBD>llapot:%s"
"Filter conditions" "Sz<53>r<EFBFBD>felt<6C>telek"
"Error retrieving query definition" "Hiba a lek<65>rdez<65>s definici<EFBFBD>j<EFBFBD>nak bet<65>lt<6C>s<EFBFBD>n<EFBFBD>l"
"Error retrieving query definition" "Hiba a lek<65>rdez<65>s defin<EFBFBD>ci<EFBFBD> bet<65>lt<6C>sekor"
"Error deleting view" "Hiba a n<>zet (VIEW) t<>rl<72>s<EFBFBD>n<EFBFBD>l"
"Error deleting view" "Hiba a n<>zet t<>rl<72>skor"
"New" "<22>j"
"Tables" "T<>bl<62>k"
"Create" "Elk<EFBFBD>szit"
"Create" "L<EFBFBD>trehoz"
"Forms need an internal name, only literals, low case" "A k<>rd<72>iveknek (FORM) kell egy bels<6C> n<>v, csak kisbet<65>kkel"
"Forms need an internal name, only literals, low case" "Az <20>rlapoknak kell egy bels<6C> n<>v, csak kisbet<65>kb<EFBFBD>l <20>llhat!"
"Do you want to save the form into the database?" "El akarod menteni a k<>rd<72>ivet (FORM) az adatb<74>zisba ?"
"Schema '%s' was not found!" "A(z) '%s' nev<65> s<>ma nem tal<61>lhat<61>!"
"Do you want to save the form into the database?" "K<EFBFBD>v<EFBFBD>nod lementeni az <20>rlapot az adatb<74>zisba?"
"proportional" "megfelel<65>"
"Schema '%s' was not found!" "'%s' s<>ma nem tal<61>lhat<61>!"
"Function saved!" "A f<>ggv<67>ny elmentve!"
"proportional" "prop<6F>cion<6F>lis"
"Function saved!" "F<>ggv<67>ny elmentve!"
"with OIDs" "OID-ekkel"
"Table information" "T<>bla inform<72>ci<63>"
"Error inserting new record" "Hiba az <20>j bejegyz<EFBFBD>s t<>rol<6F>s<EFBFBD>val"
"Error inserting new record" "Hiba az <20>j rekord besz<73>r<EFBFBD>sa k<>zben"
"Column name '%s' already exists in this table!" "A(z) '%s' nev<65> oszlop m<>r l<EFBFBD>tezik ebben a t<>bl<62>ban !"
"Column name '%s' already exists in this table!" "'%s' nev<65> oszlop m<>r van ebben a t<>bl<62>ban !"
"File" "F<>jl"
@ -352,130 +353,130 @@ array set Messages {
"You will always get the latest version at:" "A legfrissebb verzi<7A> megszerezhet<65> innen:"
"Form must have a name" "Hi<48>nyzik a k<>rd<72>iv (FORM) neve !"
"Form must have a name" "Hi<48>nyzik az <20>rlap neve !"
"Password" "Jelsz<73>"
"Valid until (date)" "<22>rv<72>nyes eddig (d<>tum)"
"Report source" "A jelent<EFBFBD>s forr<72>sa"
"Report source" "Jelent<EFBFBD>s forr<72>sa"
"Allow user to create databases" "Enged<EFBFBD>ly a felhaszn<7A>l<EFBFBD>nak <20>j adatb<74>zis k<>szit<69>s<EFBFBD>re"
"Allow user to create databases" "Adatb<EFBFBD>zis l<>trehoz<6F>s enged<EFBFBD>lyez<EFBFBD>se a felhaszn<7A>l<EFBFBD>nak"
"Cancel" "M<>gsem"
"Is clustered ?" "CLUSTER-elt ?"
"Is clustered ?" "Klaszterezett ?"
"Add new column" "<22>j oszlop hozz<7A>ad<61>s"
"Add new column" "<22>j oszlop hozz<7A>ad<61>sa"
"Show SQL" "SQL parancsok"
"New name" "<22>j n<>v"
"Table '%s' not found!" "A(z) '%s' nev<65> t<>bla nem tal<61>lhat<61>!"
"Table '%s' not found!" "'%s' t<>bla nem tal<61>lhat<61>!"
"Form name" "K<EFBFBD>rd<EFBFBD>iv (FORM) n<>v"
"Form name" "<22>rlap n<>v"
"Visual designer" "Tervez<EFBFBD>"
"Visual designer" "Vizu<EFBFBD>lis tervez<EFBFBD>"
"You choose to delete index\n\n %s \n\nProceed?" "Biztos, hogy akarod t<>r<EFBFBD>lni az al<61>bbi indexet?\n\n %s"
"You choose to delete index\n\n %s \n\nProceed?" "%s\n\n index t<>rl<72>s<EFBFBD>t v<>lasztottad?\n\nBiztos vagy benne?"
"Error retrieving from" "Hiba a bet<EFBFBD>lt<EFBFBD>sn<EFBFBD>l err<72>l a helyr<79>l"
"Error retrieving from" "Hiba bet<65>lt<6C>s k<>zben"
"Save query definition" "A lek<EFBFBD>rdez<EFBFBD>s elment<6E>se"
"Save query definition" "Lek<EFBFBD>rdez<EFBFBD>s defin<69>ci<63> elment<6E>se"
"A Tcl/Tk interface to\nPostgreSQL\nby Constantin Teodorescu" "Egy Tcl/Tk fel<65>let a\nPostgreSQL-hez\nK<6E>szitette: Constantin Teodorescu"
"A Tcl/Tk interface to\nPostgreSQL\nby Constantin Teodorescu" "Tcl/Tk fel<65>let a\nPostgreSQL-hez.\n K<EFBFBD>sz<EFBFBD>tette: Constantin Teodorescu"
"Operation completed!" "Beavatkoz<EFBFBD>s v<>grehajtva!"
"Operation completed!" "M<EFBFBD>velet v<>grehajtva!"
"Max rows displayed in table/query view" "Maxim<69>lis sorok sz<73>ma a t<>bl<EFBFBD>kn<EFBFBD>l/lek<65>rdez<65>sekn<EFBFBD>l"
"Max rows displayed in table/query view" "Maxim<69>lisan megjelen<65>tett sorok sz<73>ma a t<>bla/lek<65>rdez<65>s n<>zetben"
"Passwords do not match!" "A jelsz<73>k nem egyeznek!"
"Passwords do not match!" "Nem egyeznek a jelszavak!"
"Rename" "<22>tnevez<65>s"
"Entry" "Bejegyz<EFBFBD>s"
"Entry" "Bevitel"
"Error retrieving schema definition" "Hiba a s<>ma-definici<EFBFBD> bet<65>lt<6C>se k<>zben"
"Error retrieving schema definition" "Hiba a s<>ma defin<EFBFBD>ci<EFBFBD> bet<65>lt<6C>se k<>zben"
"This is an action query!\n\nExecute it?" "Ez nem lek<65>rdez<65>s, hanem parancs.\nFuttat<EFBFBD>s ?"
"This is an action query!\n\nExecute it?" "Ez egy lek<65>rdez<65>s !\nV<6E>grehajt<EFBFBD>s ?"
"Error retrieving view definition for" "Hiba a n<>zet (VIEW) bet<65>lt<6C>se k<>zben "
"Error retrieving view definition for" "Hiba a n<>zetdefin<EFBFBD>ci<EFBFBD> bet<65>lt<6C>se k<>zben"
"options" "be<EFBFBD>llit<EFBFBD>sok"
"options" "opci<EFBFBD>k"
"Sequence '%s' not found!" "A(z) '%s' nev<65> szekvencia nem tal<61>lhat<61>!"
"Sequence '%s' not found!" "'%s' szekvencia nem tal<61>lhat<61>"
"Text" "Sz<53>veg"
"Tcl error executing pg_exec %s\n\n%s" "Tcl hiba a pg_exec futtat<61>s<EFBFBD>n<EFBFBD>l %s\n\n%s"
"Tcl error executing pg_exec %s\n\n%s" "Tcl hiba pg_exec futtat<61>sakor %s\n\n%s"
"Width" "Sz<53>less<73>g"
"You have to supply a name for this query!" "Hi<EFBFBD>nyzik a lek<65>rdez<65>s neve!"
"You have to supply a name for this query!" "Nevet kell adni ehhez a lek<65>rdez<65>shez!"
"Accessing data. Please wait ..." "Adatel<65>r<EFBFBD>s. Kis t<>relmet ..."
"Report footer" "A jelent<EFBFBD>s alja"
"Report footer" "Jelent<EFBFBD>s l<EFBFBD>bl<EFBFBD>c"
"Parameters" "Param<61>terek"
"Queries" "Lek<65>rdez<65>sek"
"Query '%s' already exists!" "A(z) '%s' nev<65> lek<65>rdez<65>s m<>r l<>tezik!"
"Query '%s' already exists!" "'%s' lek<65>rdez<65>s m<>r l<>tezik!"
"Font bold" "Vastag bet<65>k<EFBFBD>szlet"
"Font bold" "F<EFBFBD>lk<EFBFBD>v<EFBFBD>r bet<65>t<EFBFBD>pus"
"Query builder" "Lek<65>rdez<65>s szerkeszt<7A>"
"Error defining view" "Hiba a n<>zet (VIEW) defini<6E>l<EFBFBD>s<EFBFBD>n<EFBFBD>l"
"Error defining view" "Hiba a n<>zet defin<EFBFBD>ci<EFBFBD>ban"
"Top" "Cs<EFBFBD>cs"
"Top" "Teteje"
"You must supply a name for your table!" "Hi<EFBFBD>nyzik a t<>bla neve!"
"You must supply a name for your table!" "Nevet kell adni a t<>bl<EFBFBD>nak!"
"Page footer" "A lap alja"
"Page footer" "L<EFBFBD>bl<EFBFBD>c"
"Font italic" "D<>lt bet<65>k<EFBFBD>szlet"
"Font italic" "D<>lt bet<65>t<EFBFBD>pus"
"Field name not entered!" "A mez<65>n<EFBFBD>v hi<68>nyzik!"
"Index name cannot be null!" "Az index nem lehet NULL!"
"Index name cannot be null!" "Az indexn<EFBFBD>v nem lehet NULL"
"Sort" "Rendez<65>s"
"Import-Export table" "T<>bla behozatal/kivitel"
"Import-Export table" "T<>bla import/export"
"Point" "Pont"
"type" "tipus"
"type" "t<EFBFBD>pus"
"You should supply a name for this sequence" "Hi<EFBFBD>nyzik a szekvencia neve!"
"You should supply a name for this sequence" "Nevet kell adni ehhez a szekvenci<EFBFBD>nak"
"Remove link ?" "A kapcsolat t<EFBFBD>rl<EFBFBD>se?"
"Remove link ?" "Kapcsolat elt<EFBFBD>vol<EFBFBD>t<EFBFBD>sa?"
"You have to supply a table name!" "Hi<EFBFBD>nyzik a t<>bla neve!"
"You have to supply a table name!" "Meg kell adni t<>blanevet!"
"Report header" "Jelent<6E>s fejl<6A>c"
"Attributes" "Attrib<69>tumok"
"Table '%s' already in schema" "A(z) '%s' t<>bla m<>r szerepel a s<>m<EFBFBD>ban!"
"Table '%s' already in schema" "'%s' t<>bla m<>r szerepel a s<>m<EFBFBD>ban"
"Username" "Felhaszn<7A>l<EFBFBD> n<>v"
"Minvalue" "Minim<69>lis <20>rt<72>k"
"Sequence name" "Szekvencian<EFBFBD>v"
"Sequence name" "Szekvencia neve"
"Define sequence" "Szekvencia defini<6E>l<EFBFBD>s"
"Define sequence" "Szekvencia defini<6E>l<EFBFBD>sa"
"Function" "F<>ggv<67>ny"
"Sorting and filtering not (yet) available from queries!\n\nPlease enter them in the query definition!" "A rendez<65>s <20>s sz<73>r<EFBFBD>s (m<>g) nem megoldott a lek<65>rdez<65>sekn<EFBFBD>l!\n\nHaszn<7A>ld <20>ket a lek<65>rdez<65>s definici<63>kban!"
"Sorting and filtering not (yet) available from queries!\n\nPlease enter them in the query definition!" "A rendez<65>s <20>s sz<73>r<EFBFBD>s (m<>g) nem <EFBFBD>rhet<EFBFBD> el a lek<65>rdez<65>sb<EFBFBD>l!\n\n Haszn<EFBFBD>ld <20>ket a lek<65>rdez<65>s definici<63>ban!"
"Reports" "Jelent<6E>sek"
"Columns" "Oszlopok"
"Indexes" "Indexek"
@ -484,25 +485,25 @@ array set Messages {
"not null" "nem NULL"
"Cluster index" "Index CLUSTER-el<65>s"
"Cluster index" "Klaszter index"
"index columns" "indexelt oszlopok"
"index columns" "oszlopok indexel<65>se"
"Add user" "Felhaszn<7A>l<EFBFBD> hozz<7A>ad<61>s"
"Add user" "Felhaszn<7A>l<EFBFBD> hozz<7A>ad<61>sa"
"Change permissions" "Enged<65>lyek megv<67>ltoztat<61>sa"
"select" "olvas<EFBFBD>s"
"select" "kiv<EFBFBD>laszt"
"update" "frissit<EFBFBD>s"
"update" "friss<73>ts"
"insert" "t<EFBFBD>rol<EFBFBD>s"
"insert" "besz<EFBFBD>r"
"rule" "szab<61>lyok"
"rule" "szab<61>ly"
"Identification" "Azonosit<EFBFBD>s"
"Identification" "Azonos<EFBFBD>t<EFBFBD>s"
"Owner ID" "Tulajdonos azonosit<EFBFBD>"
"Owner ID" "Tulajdonos azonos<EFBFBD>t<EFBFBD>"
"Has primary key ?" "Van els<6C>dleges kulcsa ?"
@ -518,8 +519,6 @@ array set Messages {
"Index fields" "Index mez<65>k"
"Table OID" "T<>bla OID"
"Table OID" "T<>bla tulajdonos azonos<6F>t<EFBFBD>"
}

View File

@ -48,7 +48,7 @@ array set Messages {
"Last value" "Ultima valoare"
"Preferences" "Preferin<EFBFBD>e"
"Preferences" "Op<EFBFBD>iuni"
"View '%s' already exists!\nOverwrite ?" "Vederea '%s' mai exista!\nO suprainscriem ?"
@ -282,7 +282,7 @@ array set Messages {
"Save" "Salveaz<61>"
"Exit" "Terminare"
"Exit" "Termin<EFBFBD>"
"Inherits" "Str<74>mo<6D>i"
@ -306,7 +306,7 @@ array set Messages {
"There is another field with the same name: '%s'!\n\nReplace it ?" "Mai exista un cimp cu acelasi nume: '%s'!\n\nIl inlocuim cu descrierea noua?"
"Contents" "Con<EFBFBD>inut"
"Contents" "Cuprins"
"Views" "Vederi"
@ -478,7 +478,7 @@ array set Messages {
"primary key" "cheie primar<61>"
"Back" "Inapoi"
"Back" "<EFBFBD>napoi"
"Columns" "Coloane"

View File

@ -222,6 +222,7 @@ global PgAcVar CurrentDB
}
set PgAcVar(Old_Object_Name) $temp
Window show .pgaw:RenameObject
wm transient .pgaw:RenameObject .pgaw:Main
}
@ -472,7 +473,7 @@ global PgAcVar
-background #efefef -cursor left_ptr
wm focusmodel $base passive
wm geometry $base 332x390+96+172
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@ -506,6 +507,8 @@ global PgAcVar
menu $base.fm.mndb.01 \
-borderwidth 1 -font $PgAcVar(pref,font_normal) \
-tearoff 0
$base.fm.mndb.01 add command \
-command {Window show .pgaw:NewDatabase ; wm transient .pgaw:NewDatabase .pgaw:Main} -label [intlmsg New]
$base.fm.mndb.01 add command \
-command {
Window show .pgaw:OpenDB
@ -610,7 +613,7 @@ proc vTclWindow.pgaw:ImportExport {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 287x151+259+304
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@ -674,7 +677,7 @@ proc vTclWindow.pgaw:RenameObject {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 272x105+294+262
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@ -749,6 +752,36 @@ proc vTclWindow.pgaw:RenameObject {base} {
place $base.b2 -x 155 -y 65 -width 80 -anchor nw -bordermode ignore
}
proc vTclWindow.pgaw:NewDatabase {base} {
if {$base == ""} {
set base .pgaw:NewDatabase
}
if {[winfo exists $base]} {
wm deiconify $base; return
}
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 272x105+294+262
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
wm title $base [intlmsg "New"]
label $base.l1 -borderwidth 0 -text [intlmsg {Name}]
entry $base.e1 -background #fefefe -borderwidth 1 -textvariable PgAcVar(New_Database_Name)
button $base.b1 -borderwidth 1 -command {
set retval [sql_exec noquiet "create database $PgAcVar(New_Database_Name)"]
if {$retval} {
Window destroy .pgaw:NewDatabase
}
} -text [intlmsg Create]
button $base.b2 -borderwidth 1 -command {Window destroy .pgaw:NewDatabase} -text [intlmsg Cancel]
place $base.l1 -x 15 -y 28 -anchor nw -bordermode ignore
place $base.e1 -x 100 -y 25 -anchor nw -bordermode ignore
place $base.b1 -x 55 -y 65 -width 80 -anchor nw -bordermode ignore
place $base.b2 -x 155 -y 65 -width 80 -anchor nw -bordermode ignore
}
proc vTclWindow.pgaw:GetParameter {base} {
if {$base == ""} {
@ -764,7 +797,7 @@ proc vTclWindow.pgaw:GetParameter {base} {
set x [expr ($sw - 297)/2]
set y [expr ($sh - 98)/2]
wm geometry $base 297x98+$x+$y
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@ -811,7 +844,7 @@ proc vTclWindow.pgaw:SQLWindow {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 551x408+192+169
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 1 1
@ -863,14 +896,14 @@ proc vTclWindow.pgaw:About {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 471x177+168+243
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 1 1
wm title $base [intlmsg "About"]
label $base.l1 -borderwidth 3 -font -Adobe-Helvetica-Bold-R-Normal-*-*-180-*-*-*-*-* -relief ridge -text PgAccess
label $base.l2 -relief groove -text [intlmsg "A Tcl/Tk interface to\nPostgreSQL\nby Constantin Teodorescu"]
label $base.l3 -borderwidth 0 -relief sunken -text {v 0.98}
label $base.l3 -borderwidth 0 -relief sunken -text {v 0.98.5}
label $base.l4 -relief groove -text "[intlmsg {You will always get the latest version at:}]
http://www.flex.ro/pgaccess
@ -893,7 +926,7 @@ proc vTclWindow.pgaw:OpenDB {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 283x172+119+210
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0

View File

@ -121,11 +121,11 @@ proc vTclWindow.pgaw:Preferences {base} {
}
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 450x360+100+213
wm geometry $base 500x400+100+113
wm maxsize $base 1009 738
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
wm resizable $base 1 1
wm deiconify $base
wm title $base [intlmsg "Preferences"]
bind $base <Key-Escape> "Window destroy .pgaw:Preferences"
@ -190,7 +190,7 @@ proc vTclWindow.pgaw:Preferences {base} {
frame $base.fpl.flb \
-height 75 -relief sunken -width 125
listbox $base.fpl.flb.llb \
-borderwidth 1 -height 6 -yscrollcommand {.pgaw:Preferences.fpl.flb.vsb set}
-borderwidth 1 -height 3 -yscrollcommand {.pgaw:Preferences.fpl.flb.vsb set}
scrollbar $base.fpl.flb.vsb \
-borderwidth 1 -command {.pgaw:Preferences.fpl.flb.llb yview} -orient vert
frame $base.fb \
@ -254,15 +254,15 @@ tk_messageBox -title [intlmsg Warning] -parent .pgaw:Main -message [intlmsg "Cha
pack $base.fal.st \
-in .pgaw:Preferences.fal -anchor center -expand 0 -fill x -side top -anchor w
pack $base.fpl \
-in .pgaw:Preferences -anchor center -expand 0 -fill x -side top
-in .pgaw:Preferences -anchor center -expand 1 -fill both -side top
pack $base.fpl.lt \
-in .pgaw:Preferences.fpl -anchor center -expand 0 -fill none -side top
pack $base.fpl.flb \
-in .pgaw:Preferences.fpl -anchor center -expand 0 -fill none -side top
-in .pgaw:Preferences.fpl -anchor center -expand 1 -fill y -side top
pack $base.fpl.flb.llb \
-in .pgaw:Preferences.fpl.flb -anchor center -expand 0 -fill none -side left
-in .pgaw:Preferences.fpl.flb -anchor center -expand 1 -fill y -side left
pack $base.fpl.flb.vsb \
-in .pgaw:Preferences.fpl.flb -anchor center -expand 0 -fill y -side right
-in .pgaw:Preferences.fpl.flb -anchor center -expand 1 -fill y -side right
pack $base.fb \
-in .pgaw:Preferences -anchor center -expand 0 -fill none -side bottom
grid $base.fb.btnsave \

View File

@ -185,7 +185,7 @@ global PgAcVar
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 542x364+150+150
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0

View File

@ -368,7 +368,7 @@ global PgAcVar
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 652x426+96+120
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@ -562,7 +562,7 @@ proc vTclWindow.pgaw:ReportPreview {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 495x500+230+50
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 1 1

View File

@ -482,7 +482,7 @@ global PgAcVar
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 759x530+10+13
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 1 1

View File

@ -148,18 +148,23 @@ global PgAcVar
showError [intlmsg "User without name?"]
return
}
sql_exec noquiet "revoke all on \"$PgAcVar(tblinfo,tablename)\" from $PgAcVar(permission,username)"
if {$PgAcVar(permission,username)=="PUBLIC"} {
set usrname PUBLIC
} else {
set usrname "\"$PgAcVar(permission,username)\""
}
sql_exec noquiet "revoke all on \"$PgAcVar(tblinfo,tablename)\" from $usrname"
if {$PgAcVar(permission,select)} {
sql_exec noquiet "GRANT SELECT on \"$PgAcVar(tblinfo,tablename)\" to $PgAcVar(permission,username)"
sql_exec noquiet "GRANT SELECT on \"$PgAcVar(tblinfo,tablename)\" to $usrname"
}
if {$PgAcVar(permission,insert)} {
sql_exec noquiet "GRANT INSERT on \"$PgAcVar(tblinfo,tablename)\" to $PgAcVar(permission,username)"
sql_exec noquiet "GRANT INSERT on \"$PgAcVar(tblinfo,tablename)\" to $usrname"
}
if {$PgAcVar(permission,update)} {
sql_exec noquiet "GRANT UPDATE on \"$PgAcVar(tblinfo,tablename)\" to $PgAcVar(permission,username)"
sql_exec noquiet "GRANT UPDATE on \"$PgAcVar(tblinfo,tablename)\" to $usrname"
}
if {$PgAcVar(permission,rule)} {
sql_exec noquiet "GRANT RULE on \"$PgAcVar(tblinfo,tablename)\" to $PgAcVar(permission,username)"
sql_exec noquiet "GRANT RULE on \"$PgAcVar(tblinfo,tablename)\" to $usrname"
}
refreshTableInformation
}
@ -939,7 +944,7 @@ global PgAcVar
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 650x400
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 650 400
wm overrideredirect $base 0
wm resizable $base 1 1
@ -1242,7 +1247,7 @@ global PgAcVar
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 634x392+78+181
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@ -1513,7 +1518,7 @@ global PgAcVar
-background #c7c3c7
wm focusmodel $base passive
wm geometry $base 522x398+152+135
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@ -1929,7 +1934,7 @@ proc vTclWindow.pgaw:AddIndex {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 334x203+265+266
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@ -1998,7 +2003,7 @@ proc vTclWindow.pgaw:AddField {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 302x114+195+175
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@ -2054,7 +2059,7 @@ proc vTclWindow.pgaw:RenameField {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 215x75+258+213
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0
@ -2097,7 +2102,7 @@ proc vTclWindow.pgaw:Permissions {base} {
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 273x147+256+266
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 0 0

View File

@ -714,7 +714,7 @@ global PgAcVar
toplevel $base -class Toplevel
wm focusmodel $base passive
wm geometry $base 759x530+10+13
wm maxsize $base 1009 738
wm maxsize $base 1280 1024
wm minsize $base 1 1
wm overrideredirect $base 0
wm resizable $base 1 1

View File

@ -1,9 +1,10 @@
#!/bin/sh
PATH_TO_WISH=__wish__
PGACCESS_HOME=__POSTGRESDIR__/pgaccess
PATH_TO_WISH=/usr/bin/wish
PGACCESS_HOME=/usr/local/pgaccess
export PATH_TO_WISH
export PGACCESS_HOME
exec $PATH_TO_WISH $PGACCESS_HOME/main.tcl "$@"
exec ${PATH_TO_WISH} ${PGACCESS_HOME}/main.tcl "$@"