Commit a34ce62f authored by Bruce Momjian's avatar Bruce Momjian

Update pgaccess to 0.98.5

parent e854d3da
......@@ -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
......
......@@ -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
......
......@@ -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>
......
......@@ -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;
......
......@@ -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
......
......@@ -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>
......
......@@ -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')"
......
......@@ -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
......
......@@ -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
......
......@@ -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 \[, ...\] ) \] \]
......
array set Messages {
"Label" "Cimke"
"Label" "Cmke"
"Save schema" "Sma mentse"
"Is unique ?" "Egyedi (UNIQUE) ?"
"Is unique ?" "Egyedi ?"
"Report builder" "Jelents szerkeszt"
"Criteria" "Felttelek"
"FATAL ERROR upgrading PgAccess table" "FATLIS HIBA keletkezett a PgAccess tbla frissitse kzben"
"FATAL ERROR upgrading PgAccess table" "SLYOS HIBA a PgAccess tbla frisstse kzben"
"Save this query as a view" "Nzetknt (VIEW) akarod elmenteni a lekrdezst?"
"Save this query as a view" "Lekrdezs mentse nzetknt?"
"Page header" "Oldal fejlc"
"Page header" "Fejlc"
"Query name" "Lekrdezs nv"
"Please select an object first!" "Elszr vlassz egy objektumot!"
"Fields :" "Mezk :"
"Fields :" "Mezk"
"Name" "Nv"
"File name" "Fjl nv"
"Detail record" "Rszletes bejegyzs"
"Detail record" "Rszletes rekord"
"Auto-load the last opened database at startup" "Az utolsknt hasznlt adatbzis automatikus nyitsa inditskor"
"repAuto-load the last opened database at startup" "Az utolsknt hasznlt adatbzis automatikus megnyitsa indtskor?"
"Maxvalue" "Maximlis rtk"
......@@ -36,41 +36,42 @@ array set Messages {
"Report fields" "Jelents mezk"
"Test form" "Teszt krdiv (FORM)"
"Test form" "Teszt rlap"
"Error trying to connect to database '%s' on host %s \n\nPostgreSQL error message:%s" "Hiba a(z) '%s' nev adatbzishoz kapcsolds kzben a(z) '%s' szerveren.\n\nPostgreSQL hibazenet:%s"
"Error trying to connect to database '%s' on host %s \n\nPostgreSQL error message:%s" "Hiba a(z) '%s' adatbzishoz kapcsolds kzben a(z) %s szerveren.\n\nPostgreSQL
hibazenet:%s"
"No field type ?" "Nincs a meznek tipusa ?"
"No field type ?" "Nincs a meznek tpusa ?"
"User without name?" "Felhasznl nv nlkl ?"
"You have to supply a name for this schema!" "Nevet kell adj ennek a smnak !"
"You have to supply a name for this schema!" "A smhoz nv megadsa szksges !"
"Last value" "Legutbbi rtk"
"Preferences" "Bellitsok"
"Preferences" "Belltsok"
"View '%s' already exists!\nOverwrite ?" "A(z) '%s' nev nzet (VIEW) mr ltezik!\n Fellirs ?"
"View '%s' already exists!\nOverwrite ?" "A(z) '%s' nzet mr ltezik!\n Fellrs ?"
"You have to select an index!" "Vlasztanod kell egy indexet!"
"You have to select an index!" "Vlasztani kell egy indexet!"
"Field type" "Meztipus"
"Field type" "Meztpus"
"Script name" "Szkript neve"
"Reload" "jratlt"
"Remove table %s from query?" "Trlni akarod a(z) '%s' tblt ebbl a lekrdezsbl ?"
"Remove table %s from query?" "%s tbla eltvoltsa a lekrdezsbl ?"
"SQL window" "SQL ablak"
"Allow user to create other users" "Engedly a felhasznlnak j felhasznl kszitsre"
"Allow user to create other users" "Engedly msik felhasznl ltrehozsra"
"Delete current record ?" "Az aktulis bejegyzs trlse ?"
"Delete current record ?" "Aktulis rekord trlse ?"
"List box" "Lista"
"Save to query builder" "Mentsd a lekrdezs szerkesztbe"
"Save to query builder" "Ments a lekrdezs szerkesztbe"
"fixed width" "fix szlessg"
......@@ -78,109 +79,109 @@ array set Messages {
"Yes" "Igen"
"Add label" "Adj hozz cimkt"
"Add label" "Cmke hozzadsa"
"Sequence created!" "A szekvencia (SEQUENCE) elkszlt!"
"Sequence created!" "A szekvencia elkszlt!"
"Field information" "Mez informci"
"Design" "Tervezs"
"Field" "Mez"
"You have to supply an external file name!" "Meg kell adj egy kls fjlnevet!"
"You have to supply an external file name!" "Meg kell adni egy kls fjlnevet!"
"Increment" "Nvels"
"Increment" "Nvel"
"No" "Nem"
"Form design" "Krdiv (FORM) tervezs"
"Form design" "rlap tervezs"
"You must supply a return type!" "Szksg van visszatrsi rtkre!"
"You must supply a return type!" "Meg kell adni visszatrsi rtket!"
"Remove field from result ?" "A mez trlse az eredmnybl ?"
"Remove field from result ?" "Mez eltvoltsa az eredmnybl ?"
"There is another object (a %s) with the same name.\nPlease change it!" "Van mr ilyen nev (%s) objektum!\nLgyszives vltoztasd meg!"
"There is another object (a %s) with the same name.\nPlease change it!" "Mr van egy (%s) nev objektum. \n Krlek vltoztasd meg!"
"This query has no commands?" "Ebben a lekrdezsben nincs parancs?"
"Execute query" "Lekrdezs futtatsa"
"Execute query" "Lekrdezs vgrehajtsa"
"field cannot be null" "a mez nem lehet NULL"
"Help" "Sg"
"Rename column" "Az oszlop tnevezse"
"Rename column" "Oszlop tnevezse"
"Database" "Adatbzis"
"Information" "Informci"
"Close" "Zrs"
"Close" "Bezr"
"Command" "Utasits"
"Command" "Parancs"
"Table" "Tbla"
"verify password" "jelsz ellenrzs"
"verify password" "jelsz ellenrzse"
"Vacuum" "Porszivzs (VACUUM)"
"Default value" "Alaprtk"
"Import" "Behozatal"
"Import" "Import"
"Delete index" "Index trls"
"Move up" "Mozgasd fel"
"Move up" "Mozgats fel"
"index properties" "index tulajdonsgok"
"check" "ellenrzi"
"check" "ellenrzs"
"Create new table" "j tbla kszits"
"Create new table" "j tbla ksztse"
"Visual query designer" "Lekrdezs tervez"
"Visual query designer" "Vizulis lekrdezs tervez"
"Delete all" "Trlni mindet"
"Delete all" "Mindent trl"
"You are going to delete\n\n %s \n\nProceed?" "Le fogod trlni az albbit:\n\n %s \n\nFolytatod?"
"You are going to delete\n\n %s \n\nProceed?" "Biztosan trlni akarja %s-t ?"
"Schema name" "Sma neve"
"Error executing query" "Hiba a lekrdezs futtatsa kzben"
"Error executing query" "Hiba a lekrdezs vgrehajtsa kzben"
"Report name" "Jelents neve"
"Add field" "Mez hozzads"
"Add field" "Mez hozzadsa"
"Field name" "Meznv"
"FATAL ERROR searching for PgAccess system tables" "FATLIS HIBA a PgAccess rendszertblk keressnl"
"FATAL ERROR searching for PgAccess system tables" "SLYOS HIBA a PgAccess rendszertblk keressekor"
"A big number of rows displayed in table view will take a lot of memory!" "A nzetnl (VIEW) kijelzend sorok nagy szma miatt sok memria fog lefoglaldni !"
"A big number of rows displayed in table view will take a lot of memory!" "Sok oszlop mutatsa a tblanzetben sok memrit ignyel!"
"Preview" "Elzetes nzet"
"Preview" "Elnzet"
"Users" "Felhasznlk"
"Owner" "Tulajdonos"
"Form's window internal name" "Krdiv (FORM) ablaknak bels hasznlat neve"
"Form's window internal name" "rlap ablak bels hasznlat neve"
"Sort field" "Mez rendezse"
"Sort field" "Mezk rendezse"
"New name is the same as the old one!" "Az j nv megegyezik a rgivel!"
"Warning" "Figyelem"
"Suggestions at" "Javaslatok itt:"
"Suggestions at" "Javaslatok"
"Functions" "Fggvnyek"
"Schema" "Sma"
"Open" "Nyit"
"Open" "Megnyit"
"size" "mret"
......@@ -190,7 +191,7 @@ array set Messages {
"Define new user" "j felhasznl definilsa"
"Move down" "Mozgasd le"
"Move down" "mozgats le"
"Design script" "Szkript tervezs"
......@@ -198,37 +199,37 @@ array set Messages {
"FINAL WARNING" "UTOLS FIGYELMEZTETS"
"Add table" "Tbla hozzads"
"Add table" "Tbla hozzadsa"
"Table viewer font" "Tbla nz betkszlet"
"Table viewer font" "Tbla nz bettpusa"
"The field type is not specified!" "A mez tipusa nincs megadva!"
"The field type is not specified!" "A mez tpusa nincs megadva!"
"Close test form" "Zrd le a teszt krdivet (FORM)"
"Close test form" "Teszt rlap bezrsa"
"Export table" "Tbla kivitel"
"Export table" "Tbla export"
"Add new index" "j index hozzads"
"Add new index" "j index hozzadsa"
"Left" "Bal"
"Field delimiter" "Mez hatrol"
"Add formula" "Formula hozzads"
"Add formula" "Formula hozzadsa"
"Open database" "Adatbzis megnyits"
"Open database" "Adatbzis megnyitsa"
"Return" "Visszatrs"
"Changed fonts may appear in the next working session!" "A megvltoztatott betkszlet a kvetkez futtatsnl lesz lthat!"
"Changed fonts may appear in the next working session!" "A megltoztatott bettpusok csak a kvetkez futtatskor ltszdnak majd!"
"Error" "Hiba"
"Enter a field name" "Adj meg egy meznevet !"
"field name" "Meznv"
"field name" "mez nv"
"Forms" "Krdivek"
"Forms" "rlapok"
"Cannot add column" "Nem lehet oszlopot hozzadni"
......@@ -238,7 +239,7 @@ array set Messages {
"Preferred language" "Vlasztott nyelv"
"Execute SQL" "SQL futtats"
"Execute SQL" "SQL futtatsa"
"Sequences" "Szekvencik"
......@@ -246,65 +247,65 @@ array set Messages {
"Language" "Nyelv"
"Query '%s' was not found!" "A(z) '%s' nev lekrdezs nem tallhat!"
"Query '%s' was not found!" "%s lekrdezs nem tallhat!"
"Object" "Objektum"
"Font fixed" "Fix betkszlet"
"Font fixed" "Fix bettpus"
"Table name" "Tblanv"
"Table name" "Tblanv"
"Export" "Kivitel"
"Export" "Export"
"Change user" "Felhasznlcsere"
"Change user" "Felhasznl vltoztatsa"
"You must give object a new name!" "Az objektumnak j nevet kell adjl!"
"You must give object a new name!" "j nevet kell adni az objektumnak!"
"Query" "Lekrdezs"
"User name" "Felhasznlnv"
"Font normal" "Normlis betkszlet"
"Font normal" "Norml bettpus"
"Import table" "Tbla bevitel"
"Import table" "Tbla import"
"Toolbar" "Eszkzpult"
"Toolbar" "Eszkzsor"
"Radio btn" "Rdigomb"
"You must supply a name for this function!" "Hinyzik a fggvny neve!"
"You have to select index fields!" "Az index mezket kell vlasztanod!"
"You have to select index fields!" "Index mezket kell vlasztani!"
"Constraint" "Knyszer (CONSTRAINT)"
"Constraint" "Knyszer"
"The script must have a name" "Hinyzik a szkript neve"
"The script must have a name" "A szkriptnek nevet kell adni"
"Save" "Ments"
"Exit" "Kilps"
"Inherits" "rkli"
"Inherits" "rkli"
"Delete field" "Mez trls"
"Delete field" "Mez trlse"
"About" "A programrl"
"About" "A PgAccess-rl"
"Empty field name ?" "Nom de champ inexistant ?"
"Empty field name ?" "res meznv ?"
"All report information will be deleted.\n\nProceed ?" "Toutes les informations de l'tat vont tre dtruites\n\nContinuer ?"
"All report information will be deleted.\n\nProceed ?" "Minden jelents infomci trlve lesz.\n\nRendben ?"
"Host" "Szerver"
"vacuuming database %s ..." "A(z) %s adatbzis porszivzsa ..."
"vacuuming database %s ..." "%s adatbzis porszivzsa ..."
"Indexes defined" "Definilt indexek"
"Indexes defined" "Indexek definilva"
"You must specify field size!" "Hinyzik a mezmret!"
"Schema '%s' already exists!" "A(z) '%s' schma mr ltezik!"
"Schema '%s' already exists!" "'%s' sma mr ltezik!"
"There is another field with the same name: '%s'!\n\nReplace it ?" "Mr van ilyen nev mez: '%s'!\n\nFellirs ?"
"There is another field with the same name: '%s'!\n\nReplace it ?" "Mr van '%s' nev mez!\n\nCserlhet ?"
"Contents" "Tartalom"
......@@ -312,37 +313,37 @@ array set Messages {
"Variable" "Vltoz"
"Error executing query\n\n%s\n\nPostgreSQL error message:\n%s\nPostgreSQL status:%s" "Hiba a lekrdezs futtatsa kzben\n\n%s\n\nPostgreSQL hibazenet:\n%s\nPostgreSQL sttusz:%s"
"Error executing query\n\n%s\n\nPostgreSQL error message:\n%s\nPostgreSQL status:%s" "Hiba(z) %s lekrdezs vgrehajtsakor\n\nPostgreSQL hibazenet:\n%s\nPostgreSQL llapot:%s"
"Filter conditions" "Szrfelttelek"
"Error retrieving query definition" "Hiba a lekrdezs definicijnak betltsnl"
"Error retrieving query definition" "Hiba a lekrdezs definci betltsekor"
"Error deleting view" "Hiba a nzet (VIEW) trlsnl"
"Error deleting view" "Hiba a nzet trlskor"
"New" "j"
"Tables" "Tblk"
"Create" "Elkszit"
"Create" "Ltrehoz"
"Forms need an internal name, only literals, low case" "A krdiveknek (FORM) kell egy bels nv, csak kisbetkkel"
"Forms need an internal name, only literals, low case" "Az rlapoknak kell egy bels nv, csak kisbetkbl llhat!"
"Do you want to save the form into the database?" "El akarod menteni a krdivet (FORM) az adatbzisba ?"
"Schema '%s' was not found!" "A(z) '%s' nev sma nem tallhat!"
"Do you want to save the form into the database?" "Kvnod lementeni az rlapot az adatbzisba?"
"proportional" "megfelel"
"Schema '%s' was not found!" "'%s' sma nem tallhat!"
"Function saved!" "A fggvny elmentve!"
"proportional" "propcionlis"
"Function saved!" "Fggvny elmentve!"
"with OIDs" "OID-ekkel"
"Table information" "Tbla informci"
"Error inserting new record" "Hiba az j bejegyzs trolsval"
"Error inserting new record" "Hiba az j rekord beszrsa kzben"
"Column name '%s' already exists in this table!" "A(z) '%s' nev oszlop mr ltezik ebben a tblban !"
"Column name '%s' already exists in this table!" "'%s' nev oszlop mr van ebben a tblban !"
"File" "Fjl"
......@@ -352,130 +353,130 @@ array set Messages {
"You will always get the latest version at:" "A legfrissebb verzi megszerezhet innen:"
"Form must have a name" "Hinyzik a krdiv (FORM) neve !"
"Form must have a name" "Hinyzik az rlap neve !"
"Password" "Jelsz"
"Valid until (date)" "rvnyes eddig (dtum)"
"Report source" "A jelents forrsa"
"Report source" "Jelents forrsa"
"Allow user to create databases" "Engedly a felhasznlnak j adatbzis kszitsre"
"Allow user to create databases" "Adatbzis ltrehozs engedlyezse a felhasznlnak"
"Cancel" "Mgsem"
"Is clustered ?" "CLUSTER-elt ?"
"Is clustered ?" "Klaszterezett ?"
"Add new column" "j oszlop hozzads"
"Add new column" "j oszlop hozzadsa"
"Show SQL" "SQL parancsok"
"New name" "j nv"
"Table '%s' not found!" "A(z) '%s' nev tbla nem tallhat!"
"Table '%s' not found!" "'%s' tbla nem tallhat!"
"Form name" "Krdiv (FORM) nv"
"Form name" "rlap nv"
"Visual designer" "Tervez"
"Visual designer" "Vizulis tervez"
"You choose to delete index\n\n %s \n\nProceed?" "Biztos, hogy akarod trlni az albbi indexet?\n\n %s"
"You choose to delete index\n\n %s \n\nProceed?" "%s\n\n index trlst vlasztottad?\n\nBiztos vagy benne?"
"Error retrieving from" "Hiba a betltsnl errl a helyrl"
"Error retrieving from" "Hiba betlts kzben"
"Save query definition" "A lekrdezs elmentse"
"Save query definition" "Lekrdezs definci elmentse"
"A Tcl/Tk interface to\nPostgreSQL\nby Constantin Teodorescu" "Egy Tcl/Tk fellet a\nPostgreSQL-hez\nKszitette: Constantin Teodorescu"
"A Tcl/Tk interface to\nPostgreSQL\nby Constantin Teodorescu" "Tcl/Tk fellet a\nPostgreSQL-hez.\n Ksztette: Constantin Teodorescu"
"Operation completed!" "Beavatkozs vgrehajtva!"
"Operation completed!" "Mvelet vgrehajtva!"
"Max rows displayed in table/query view" "Maximlis sorok szma a tblknl/lekrdezseknl"
"Max rows displayed in table/query view" "Maximlisan megjelentett sorok szma a tbla/lekrdezs nzetben"
"Passwords do not match!" "A jelszk nem egyeznek!"
"Passwords do not match!" "Nem egyeznek a jelszavak!"
"Rename" "tnevezs"
"Entry" "Bejegyzs"
"Entry" "Bevitel"
"Error retrieving schema definition" "Hiba a sma-definici betltse kzben"
"Error retrieving schema definition" "Hiba a sma definci betltse kzben"
"This is an action query!\n\nExecute it?" "Ez nem lekrdezs, hanem parancs.\nFuttats ?"
"This is an action query!\n\nExecute it?" "Ez egy lekrdezs !\nVgrehajts ?"
"Error retrieving view definition for" "Hiba a nzet (VIEW) betltse kzben "
"Error retrieving view definition for" "Hiba a nzetdefinci betltse kzben"
"options" "bellitsok"
"options" "opcik"
"Sequence '%s' not found!" "A(z) '%s' nev szekvencia nem tallhat!"
"Sequence '%s' not found!" "'%s' szekvencia nem tallhat"
"Text" "Szveg"
"Tcl error executing pg_exec %s\n\n%s" "Tcl hiba a pg_exec futtatsnl %s\n\n%s"
"Tcl error executing pg_exec %s\n\n%s" "Tcl hiba pg_exec futtatsakor %s\n\n%s"
"Width" "Szlessg"
"You have to supply a name for this query!" "Hinyzik a lekrdezs neve!"
"You have to supply a name for this query!" "Nevet kell adni ehhez a lekrdezshez!"
"Accessing data. Please wait ..." "Adatelrs. Kis trelmet ..."
"Report footer" "A jelents alja"
"Report footer" "Jelents lblc"
"Parameters" "Paramterek"
"Queries" "Lekrdezsek"
"Query '%s' already exists!" "A(z) '%s' nev lekrdezs mr ltezik!"
"Query '%s' already exists!" "'%s' lekrdezs mr ltezik!"
"Font bold" "Vastag betkszlet"
"Font bold" "Flkvr bettpus"
"Query builder" "Lekrdezs szerkeszt"
"Error defining view" "Hiba a nzet (VIEW) definilsnl"
"Error defining view" "Hiba a nzet definciban"
"Top" "Cscs"
"Top" "Teteje"
"You must supply a name for your table!" "Hinyzik a tbla neve!"
"You must supply a name for your table!" "Nevet kell adni a tblnak!"
"Page footer" "A lap alja"
"Page footer" "Lblc"
"Font italic" "Dlt betkszlet"
"Font italic" "Dlt bettpus"
"Field name not entered!" "A meznv hinyzik!"
"Index name cannot be null!" "Az index nem lehet NULL!"
"Index name cannot be null!" "Az indexnv nem lehet NULL"
"Sort" "Rendezs"
"Import-Export table" "Tbla behozatal/kivitel"
"Import-Export table" "Tbla import/export"
"Point" "Pont"
"type" "tipus"
"type" "tpus"
"You should supply a name for this sequence" "Hinyzik a szekvencia neve!"
"You should supply a name for this sequence" "Nevet kell adni ehhez a szekvencinak"
"Remove link ?" "A kapcsolat trlse?"
"Remove link ?" "Kapcsolat eltvoltsa?"
"You have to supply a table name!" "Hinyzik a tbla neve!"
"You have to supply a table name!" "Meg kell adni tblanevet!"
"Report header" "Jelents fejlc"
"Attributes" "Attribtumok"
"Table '%s' already in schema" "A(z) '%s' tbla mr szerepel a smban!"
"Table '%s' already in schema" "'%s' tbla mr szerepel a smban"
"Username" "Felhasznl nv"
"Minvalue" "Minimlis rtk"
"Sequence name" "Szekvencianv"
"Sequence name" "Szekvencia neve"
"Define sequence" "Szekvencia definils"
"Define sequence" "Szekvencia definilsa"
"Function" "Fggvny"
"Sorting and filtering not (yet) available from queries!\n\nPlease enter them in the query definition!" "A rendezs s szrs (mg) nem megoldott a lekrdezseknl!\n\nHasznld ket a lekrdezs definicikban!"
"Sorting and filtering not (yet) available from queries!\n\nPlease enter them in the query definition!" "A rendezs s szrs (mg) nem rhet el a lekrdezsbl!\n\n Hasznld ket a lekrdezs definiciban!"
"Reports" "Jelentsek"
"Columns" "Oszlopok"
"Indexes" "Indexek"
......@@ -484,25 +485,25 @@ array set Messages {
"not null" "nem NULL"
"Cluster index" "Index CLUSTER-els"
"Cluster index" "Klaszter index"
"index columns" "indexelt oszlopok"
"index columns" "oszlopok indexelse"
"Add user" "Felhasznl hozzads"
"Add user" "Felhasznl hozzadsa"
"Change permissions" "Engedlyek megvltoztatsa"
"select" "olvass"
"select" "kivlaszt"
"update" "frissits"
"update" "frissts"
"insert" "trols"
"insert" "beszr"
"rule" "szablyok"
"rule" "szably"
"Identification" "Azonosits"
"Identification" "Azonosts"
"Owner ID" "Tulajdonos azonosit"
"Owner ID" "Tulajdonos azonost"
"Has primary key ?" "Van elsdleges kulcsa ?"
......@@ -518,8 +519,6 @@ array set Messages {
"Index fields" "Index mezk"
"Table OID" "Tbla OID"
}
"Table OID" "Tbla tulajdonos azonost"
}
......@@ -48,7 +48,7 @@ array set Messages {
"Last value" "Ultima valoare"
"Preferences" "Preferine"
"Preferences" "Opiuni"
"View '%s' already exists!\nOverwrite ?" "Vederea '%s' mai exista!\nO suprainscriem ?"
......@@ -282,7 +282,7 @@ array set Messages {
"Save" "Salveaz"
"Exit" "Terminare"
"Exit" "Termin"
"Inherits" "Strmoi"
......@@ -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" "Coninut"
"Contents" "Cuprins"
"Views" "Vederi"
......@@ -478,7 +478,7 @@ array set Messages {
"primary key" "cheie primar"
"Back" "Inapoi"
"Back" "napoi"
"Columns" "Coloane"
......
......@@ -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
......
......@@ -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 \
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
......@@ -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
......
#!/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 "$@"
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment