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