mirror of https://github.com/postgres/postgres
Bruce Momjian
28 years ago
parent
2fb643758d
commit
09b187598c
@ -0,0 +1,104 @@ |
|||||||
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"> |
||||||
|
<HTML> |
||||||
|
<HEAD> |
||||||
|
<TITLE></TITLE> |
||||||
|
<META NAME="GENERATOR" CONTENT="Mozilla/3.04Gold (X11; I; Linux 2.0.32 i586) [Netscape]"> |
||||||
|
</HEAD> |
||||||
|
<BODY TEXT="#000000" BGCOLOR="#FFEBCD" LINK="#0000EF" VLINK="#51188E" ALINK="#FF0000"> |
||||||
|
|
||||||
|
<H1>FORMS</H1> |
||||||
|
|
||||||
|
<P> |
||||||
|
<HR WIDTH="100%"></P> |
||||||
|
|
||||||
|
<P>This version (0.81) of PgAccess introduce the visual form builder.</P> |
||||||
|
|
||||||
|
<P>For the moment, it has only some basic widgets : labels, entries, buttons |
||||||
|
, listboxes , checkboxes and radiobuttons.</P> |
||||||
|
|
||||||
|
<P>Also there is a query widget that allows you yo have access to a query |
||||||
|
results.</P> |
||||||
|
|
||||||
|
<P>In a manner very similar with Visual Tcl or Visual Basic, the user must |
||||||
|
select a widget from the toolbar and drags on the canvas the rectangle |
||||||
|
that would define the widget. It can also specify some attributes in a |
||||||
|
separate window. Renaming, resizing items are possible modifying parameters |
||||||
|
in attribute window. Do not forget to press Enter in the edit field after |
||||||
|
changing a value in order to be accepted.</P> |
||||||
|
|
||||||
|
<P>You can also move items by dragging them or delete them by pressing |
||||||
|
Del key.</P> |
||||||
|
|
||||||
|
<P>In attribute window, there are some fields named <B><TT><FONT SIZE=+1>Command |
||||||
|
</FONT></TT></B>and <B><TT><FONT SIZE=+1>Variable</FONT></TT></B>.</P> |
||||||
|
|
||||||
|
<P>The field <B><TT><FONT SIZE=+1>Command </FONT></TT></B>have meaning |
||||||
|
only for Button widgets and holds the command that will be invoked when |
||||||
|
the button is pressed.</P> |
||||||
|
|
||||||
|
<P>The field <B><TT><FONT SIZE=+1>Variable </FONT></TT></B>have meaning |
||||||
|
only for EditField , Label widgets and checkboxes and it is the name of |
||||||
|
the global variable that will hold the value for that widget. For checkboxes |
||||||
|
the values are 1 or 0.</P> |
||||||
|
|
||||||
|
<P>In order to make a simple test, put an entry field and set it's variable |
||||||
|
to <B>v1</B> and a button who's command is "set v1 whisky". Press |
||||||
|
the button "Test form" and click on the button. In that entry |
||||||
|
should appear whisky. <BR> |
||||||
|
Another test is defining in Script module a script called "My first |
||||||
|
script" having the following commands:<BR> |
||||||
|
<TT><FONT SIZE=+1>tk_messageBox -title Warning -message "This is my |
||||||
|
first message!"<BR> |
||||||
|
</FONT></TT>and then define a button who's command is <B><TT><FONT SIZE=+1>execute_script |
||||||
|
"My first script"</FONT></TT></B>.</P> |
||||||
|
|
||||||
|
<H2>Database manipulation</H2> |
||||||
|
|
||||||
|
<P>Let's presume that our form have the internal name <B><TT>mf </TT></B>(my |
||||||
|
form). He wil be referred inside the Tcl/Tk source as <B><TT>.mf<BR> |
||||||
|
</TT></B>If you want to close the form in run-time you have to issue the |
||||||
|
command <B><TT>destroy .mf</TT></B></P> |
||||||
|
|
||||||
|
<P>Also, any widget will have the name prefixed by <B><TT>.mf </TT></B> We |
||||||
|
will have <B><TT>.mf.button1</TT></B> or <B><TT>.mf.listbox1</TT></B> .</P> |
||||||
|
|
||||||
|
<P>We can name the query widget <B><TT>qry</TT></B> for example. The complete |
||||||
|
name will be <B><TT>.mf.qry</TT></B> then.<BR> |
||||||
|
The <B><TT>Command </TT></B>property of the query widget must contain the |
||||||
|
SQL command that will be executed.<BR> |
||||||
|
When the form will be in run-time, automatically you will have acces to |
||||||
|
the following methods :</P> |
||||||
|
|
||||||
|
<P><TT>.mf.qry:execute</TT> - opens the connection and execute the query |
||||||
|
(returns nothing)<BR> |
||||||
|
<TT>.mf.qry:nrecords</TT> - returns the number of records in the selected |
||||||
|
query<BR> |
||||||
|
<TT>.mf.qry:fields</TT> - returns a list of the fields in the result set<BR> |
||||||
|
<TT>.mf.qry:movefirst</TT> - move the cursor to the first record in the |
||||||
|
recordset<BR> |
||||||
|
<TT>.mf.qry:movelast , .mf.qry:movenext , .mf.qry:moveprevious </TT>- moves |
||||||
|
the cursor <BR> |
||||||
|
<TT>.mf.qry:updatecontrols</TT> - update the variables inside the designed |
||||||
|
form that have a particular name (I'll explain later)<BR> |
||||||
|
<TT>.mf.qry:close</TT> - close the connection (<B><FONT COLOR="#FF0000">if |
||||||
|
you don't close the query result, you will loose memory</FONT></B>)</P> |
||||||
|
|
||||||
|
<P>If you want to bound some controls to the fields of the recordset, you |
||||||
|
will have to name their associate variable like that :</P> |
||||||
|
|
||||||
|
<P><TT>.mf.qry.salary</TT> to get the "salary" field , or <TT>.mf.qry.name</TT> |
||||||
|
to get the "name" field.</P> |
||||||
|
|
||||||
|
<P>It's simple, isn't it ? It's just like a new widget that have some properties |
||||||
|
and methods that can be accesed.<BR> |
||||||
|
Also, the name convention is just like in Tcl/Tk.</P> |
||||||
|
|
||||||
|
<P> |
||||||
|
<HR WIDTH="25%"></P> |
||||||
|
|
||||||
|
<P>Please feel free to send me your oppinion at <B>teo@flex.ro</B> on forms |
||||||
|
designing and usage.<BR> |
||||||
|
</P> |
||||||
|
|
||||||
|
</BODY> |
||||||
|
</HTML> |
||||||
@ -0,0 +1,124 @@ |
|||||||
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"> |
||||||
|
<HTML> |
||||||
|
<HEAD> |
||||||
|
<TITLE>PgAccess - a Tcl/Tk PostgreSQL interface</TITLE> |
||||||
|
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=iso-8859-1"> |
||||||
|
<META NAME="GENERATOR" CONTENT="Mozilla/3.04Gold (X11; I; Linux 2.0.32 i586) [Netscape]"> |
||||||
|
</HEAD> |
||||||
|
<BODY BGCOLOR="#FFFFFF"> |
||||||
|
|
||||||
|
<H1>PgAccess - a database management tool for <A HREF="http://www.postgreSQL.org">PostgreSQL</A></H1> |
||||||
|
|
||||||
|
<P> |
||||||
|
<HR></P> |
||||||
|
|
||||||
|
<P>This program is protected by the following <A HREF="copyright.html">copyright</A> |
||||||
|
</P> |
||||||
|
|
||||||
|
<LI><A HREF="pgaccess-0.81.tar.gz">Download the last version of Pgaccess |
||||||
|
(press shift and click this link)</A>.</LI> |
||||||
|
|
||||||
|
<P>Latest version of PgAccess is 0.81 , 1 March 1998 ! </P> |
||||||
|
|
||||||
|
<CENTER><TABLE BORDER=3 CELLSPACING=0 CELLPADDING=0 WIDTH="100%" BGCOLOR="#FFB6C1" > |
||||||
|
<TR> |
||||||
|
<TD> |
||||||
|
<CENTER><P><BR> |
||||||
|
<B><FONT SIZE=+2>PgAccess can now design <A HREF="forms.html">Forms</A></FONT></B>, |
||||||
|
<B><FONT SIZE=+2><A HREF="pga-rad.html">Reports and Scripts</A></FONT></B></P></CENTER> |
||||||
|
</TD> |
||||||
|
</TR> |
||||||
|
</TABLE></CENTER> |
||||||
|
|
||||||
|
<P>I think that there were some problems loading libpgtcl library. <BR> |
||||||
|
I invite you to read a <A HREF="index.html#libpgtcl">special section concerning |
||||||
|
<B>libpgtcl</B></A> </P> |
||||||
|
|
||||||
|
<H3><FONT COLOR="#191970">What does PgAccess now!</FONT></H3> |
||||||
|
|
||||||
|
<P>Here are some images from PgAccess windows : <A HREF="pic-pga-1.gif">Main |
||||||
|
window </A>, <A HREF="pic-pga-2.gif">table builder </A>, <A HREF="pic-pga-4.gif">table(query) |
||||||
|
view </A>, <A HREF="pic-pga-3.gif">visual query builder </A>. </P> |
||||||
|
|
||||||
|
<P><B>Tables</B> <BR> |
||||||
|
- opening tables for viewing, max 200 records (changed by preferences menu) |
||||||
|
<BR> |
||||||
|
- column resizing, dragging the vertical grid line (better in table space |
||||||
|
rather than in the table header) <BR> |
||||||
|
- text wrap in cells - layout saved for every table <BR> |
||||||
|
- import/export to external files (SDF,CSV) <BR> |
||||||
|
- filter capabilities (enter filter like (price>3.14) <BR> |
||||||
|
- sort order capabilities (enter manually the sort field(s)) <BR> |
||||||
|
- editing in place <BR> |
||||||
|
- improved table generator assistant <BR> |
||||||
|
- improved field editing <BR> |
||||||
|
<B>Queries</B> <BR> |
||||||
|
- define , edit and stores "user defined queries" <BR> |
||||||
|
- store queries as views <BR> |
||||||
|
- execution of queries <BR> |
||||||
|
- viewing of select type queries result <BR> |
||||||
|
- query deleting and renaming <BR> |
||||||
|
- <B><BLINK><FONT COLOR="#FF0000">NEW !!!</FONT></BLINK></B> Visual query |
||||||
|
builder with drag & drop capabilities. For any of you who had installed |
||||||
|
the Tcl/Tk plugin for Netscape Navigator, you can see it at work <A HREF="qbtclet.html">clicking |
||||||
|
here</A> <BR> |
||||||
|
<B>Sequences</B> <BR> |
||||||
|
- defines sequences, delete them and inspect them <BR> |
||||||
|
<B>Functions</B> <BR> |
||||||
|
- define, inspect and delete functions in SQL language <BR> |
||||||
|
<B>Reports<BR> |
||||||
|
</B>- design and display simple reports from tables<BR> |
||||||
|
- fields and labels, font changing, style and size<BR> |
||||||
|
- saves and loads report description from database<BR> |
||||||
|
- show report previews, sample postscript output file<BR> |
||||||
|
<B>Forms<BR> |
||||||
|
</B>- open user defined forms<BR> |
||||||
|
- form design module available<BR> |
||||||
|
- query widget available, controls bound to query results<BR> |
||||||
|
- <A HREF="forms.html">click here</A> for a description of forms and how |
||||||
|
they can be used<BR> |
||||||
|
<B>Scripts<BR> |
||||||
|
</B>- define, modify and call user defined scripts<BR> |
||||||
|
Here is <A HREF="pga-rad.html">a special section concerning forms and scripts</A> |
||||||
|
.</P> |
||||||
|
|
||||||
|
<P>On the TODO list! <BR> |
||||||
|
- table design (add new fields, renaming, etc.) <BR> |
||||||
|
<BR> |
||||||
|
</P> |
||||||
|
|
||||||
|
<P>If you have any comment, suggestion for improvements, please feel free |
||||||
|
to e-mail to : <A HREF="mailto:teo@flex.ro">teo@flex.ro </A> <BR> |
||||||
|
</P> |
||||||
|
|
||||||
|
<P><B><FONT COLOR="#FF1493"><FONT SIZE=+2>Mailing list for PgAccess </FONT></FONT></B><A HREF="maillist.html">Here |
||||||
|
you will find how to subscribe to this mailing list</A>.</P> |
||||||
|
|
||||||
|
<P> |
||||||
|
<HR></P> |
||||||
|
|
||||||
|
<H1>More information about libgtcl</H1> |
||||||
|
|
||||||
|
<P>Also, you will need the PostgreSQL to Tcl interface library, lined as |
||||||
|
a Tcl/Tk 'load'-able module. It is called libpgtcl and the source is located |
||||||
|
in the PostgreSQL directory /src/interfaces/libpgtcl. Specifically, you |
||||||
|
will need a libpgtcl library that is 'load'-able from Tcl/Tk. This is technically |
||||||
|
different from an ordinary PostgreSQL loadable object file, because libpgtcl |
||||||
|
is a collection of object files. Under Linux, this is called libpgtcl.so. |
||||||
|
<BR> |
||||||
|
You can download <A HREF="libpgtcl.so">from here </A>a version already |
||||||
|
compiled for Linux i386 systems. Just copy libpgtcl.so into your system |
||||||
|
library director (/usr/lib) and go for it. One of the solutions is to remove |
||||||
|
from the source the line containing <B>load libpgtcl.so </B>and to load |
||||||
|
pgaccess.tcl not with wish, but with pgwish (or wishpg) that wish that |
||||||
|
was linked with libpgtcl library! </P> |
||||||
|
|
||||||
|
<P>If you have installed RedHat 5.0, you should get the last distribution |
||||||
|
kit of postgreSQL and compile it from scratch. RedHat 5.0 is using some |
||||||
|
new versions of libraries and you have to compile and install again at |
||||||
|
least <B>libpq </B>and <B><TT>libpgtcl </TT></B>libraries.</P> |
||||||
|
|
||||||
|
<P>However, the application should work without problems! </P> |
||||||
|
|
||||||
|
</BODY> |
||||||
|
</HTML> |
||||||
@ -0,0 +1,43 @@ |
|||||||
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"> |
||||||
|
<HTML> |
||||||
|
<HEAD> |
||||||
|
<TITLE></TITLE> |
||||||
|
<META NAME="GENERATOR" CONTENT="Mozilla/3.04Gold (X11; I; Linux 2.0.32 i586) [Netscape]"> |
||||||
|
</HEAD> |
||||||
|
<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#0000EF" VLINK="#51188E" ALINK="#FF0000"> |
||||||
|
|
||||||
|
<P>The mailing list for PgAccess is : <B><TT>pgsql-interfaces@postgresql.org</TT></B></P> |
||||||
|
|
||||||
|
<P>If you have some questions regarding PgAccess you should mail to this |
||||||
|
address. I will also answer to messages addresed directly to me but it |
||||||
|
would be better to post your messages here because it might be possible |
||||||
|
to get an answer quickly from another user of PgAccess.</P> |
||||||
|
|
||||||
|
<P> |
||||||
|
<HR WIDTH="100%"></P> |
||||||
|
|
||||||
|
<P>To subscribe please send a mail message to :</P> |
||||||
|
|
||||||
|
<P> <B><TT><FONT SIZE=+1>pgsql-interfaces-request@postgresql.org |
||||||
|
</FONT></TT></B> </P> |
||||||
|
|
||||||
|
<P>having a single line in the body message : <B><TT><FONT SIZE=+1>subscribe</FONT></TT></B></P> |
||||||
|
|
||||||
|
<P>In a couple of minutes , if everything is ok, you must receive something |
||||||
|
like that :</P> |
||||||
|
|
||||||
|
<P> |
||||||
|
<HR WIDTH="100%"></P> |
||||||
|
|
||||||
|
<P><TT>Welcome to the pgsql-interfaces mailing list!</TT></P> |
||||||
|
|
||||||
|
<P><TT>Please save this message for future reference. Thank you.</TT></P> |
||||||
|
|
||||||
|
<P><TT>If you ever want to remove yourself from this mailing list, you |
||||||
|
can send mail to <Majordomo@hub.org> with the following command in |
||||||
|
the body of your email message:</TT></P> |
||||||
|
|
||||||
|
<P><TT>unsubscribe pgsql-interfaces yourname@yourdomain</TT></P> |
||||||
|
<TT></TT> |
||||||
|
</BODY> |
||||||
|
</HTML> |
||||||
@ -0,0 +1,198 @@ |
|||||||
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"> |
||||||
|
<HTML> |
||||||
|
<HEAD> |
||||||
|
<TITLE></TITLE> |
||||||
|
<META NAME="GENERATOR" CONTENT="Mozilla/3.04Gold (X11; I; Linux 2.0.32 i586) [Netscape]"> |
||||||
|
</HEAD> |
||||||
|
<BODY TEXT="#000000" BGCOLOR="#FFFFFF" LINK="#0000EF" VLINK="#51188E" ALINK="#FF0000"> |
||||||
|
|
||||||
|
<H1>PgAccess - Scripts and Forms |
||||||
|
<HR WIDTH="100%"></H1> |
||||||
|
|
||||||
|
<P>Beginning with 0.70 version, I have introduced in PgAccess two new modules |
||||||
|
for operating with scripts and forms.</P> |
||||||
|
|
||||||
|
<P> This would give to PgAccess the power of creating |
||||||
|
application directly into PgAccess, defining new modules, procedures, forms |
||||||
|
and possibly making it a rapid development tool for PostgreSQL. The "scripts" |
||||||
|
and "forms" modules are using two new tables called pga_forms |
||||||
|
and pga_scripts. PgAccess take care of creating them if user is opening |
||||||
|
a new database and grant ALL permissions on them to PUBLIC. <BR> |
||||||
|
Both scripts and forms are containing in fact sources |
||||||
|
of code written in Tcl/Tk and when the user has choose to "open" |
||||||
|
one of them, either by double-clicking in the main window or pressing the |
||||||
|
"Open" button PgAccess is searching for them in pga_forms or |
||||||
|
pga_scripts table, get the code and simply "<B>eval</B>" it !<BR> |
||||||
|
Of course, when Designing a script, a simple text editor |
||||||
|
is opened and text is saved as is in pga_scripts table. When "designing" |
||||||
|
a form, a "form editor" that would be very similar with "Visual |
||||||
|
Tcl" would be invoked.</P> |
||||||
|
|
||||||
|
<P> This mechanism and the extremely versatile scripting |
||||||
|
mode of Tcl/Tk would give PgAccess a great power for creating end user |
||||||
|
application using PosgreSQL. The most important thing is that the user |
||||||
|
could call procedures and functions that I have used for building up PgAccess |
||||||
|
!</P> |
||||||
|
|
||||||
|
<H3>Forms</H3> |
||||||
|
|
||||||
|
<P> Forms are special Tcl/Tk source code that is used |
||||||
|
for creating windows and placing widgets inside it. When Tcl/Tk is "eval" |
||||||
|
them, a new window appears, with buttons as defined that could call "user |
||||||
|
defined scripts", "user defined procedures" or "internal |
||||||
|
PgAccess procedures".<BR> |
||||||
|
For the moment, 0.70 version of PgAccess does not have |
||||||
|
a module for designing forms. It is intended to make an interface to the |
||||||
|
most powerful program of designing applications under Tcl/Tk , Visual Tcl |
||||||
|
, so it could handle forms designed to be used inside PgAccess.<BR> |
||||||
|
Forms can hold all the widgets allowed in Tcl/Tk , buttons, |
||||||
|
check-boxes, radio-buttons, list-boxes, frames, canvases, etc. With these |
||||||
|
forms, you can control your application so PgAccess would become just a |
||||||
|
"shell", a startup point for you applications.</P> |
||||||
|
|
||||||
|
<H3>Scripts</H3> |
||||||
|
|
||||||
|
<P> Scripts are normal Tcl/Tk code that is interpreted |
||||||
|
by Tcl/Tk. You can define your own procedures inside a script called "Library" |
||||||
|
for example. You can call your procedures from within another script, from |
||||||
|
another procedure.<BR> |
||||||
|
The most important thing is that you have total access |
||||||
|
to the PgAccess's core of functions and procedures used by me in building |
||||||
|
PgAccess as an application. Just write <B><TT><FONT COLOR="#000080">open_table |
||||||
|
"Your sample table"</FONT></TT></B> and you'll see the result.<BR> |
||||||
|
If you are writing a script called "Autoexec" |
||||||
|
then it will be executed every time the database is opened. You can put |
||||||
|
inside different commands that you want to be executed such as : running |
||||||
|
scripts that would define your own procedures such as <B><TT><FONT COLOR="#000080">execute_script |
||||||
|
"My own procedure library"</FONT></TT></B> or open a form with |
||||||
|
<B><TT><FONT COLOR="#000080">open_form "Main window with menu buttons"</FONT></TT></B> |
||||||
|
, and so on.</P> |
||||||
|
|
||||||
|
<P> |
||||||
|
<HR WIDTH="100%"></P> |
||||||
|
|
||||||
|
<H2>Examples :</H2> |
||||||
|
|
||||||
|
<P>We would like to give you some examples for using forms and scripts. |
||||||
|
First of all, get your PgAccess 0.70 version NOW !</P> |
||||||
|
|
||||||
|
<P><IMG SRC="a_right.gif" HEIGHT=20 WIDTH=20> Define your first |
||||||
|
form. Remember, the form design module hasn't arrived yet :-( , so you |
||||||
|
will have to define your first form using an action query :<BR> |
||||||
|
1. Click on Query tab and press "New" button<BR> |
||||||
|
2. Enter "<TT>Generate my first form</TT>" in Query name field<BR> |
||||||
|
3. Copy and paste from your browser window into query definition area the |
||||||
|
next text :<BR> |
||||||
|
<BR> |
||||||
|
<TT>insert into pga_forms values('My first form',' set base .pga_win_1; |
||||||
|
if {[winfo exists $base]} { wm deiconify $base; return }; toplevel $base |
||||||
|
-class Toplevel; wm focusmodel $base passive; wm geometry $base 395x389+325+188; |
||||||
|
wm maxsize $base 1009 738; wm minsize $base 1 1; wm overrideredirect $base |
||||||
|
0; wm resizable $base 1 1; wm deiconify $base; wm title $base "User |
||||||
|
defined Form No.1"; button $base.b1 -command {execute_script "My |
||||||
|
first script"} -text "My first button" ; button $base.bexit |
||||||
|
-command {destroy [focus]} -padx 9 -pady 3 -text Exit ; place $base.bexit |
||||||
|
-x 340 -y 355 -anchor nw -bordermode ignore ; place $base.b1 -x 10 -y 10 |
||||||
|
-anchor nw;'); </TT></P> |
||||||
|
|
||||||
|
<P>4. Press "Save query definition button" and then "Close"<BR> |
||||||
|
5. In the mai window, select by clicking the query "Generate my first |
||||||
|
form" and press "Open" button.</P> |
||||||
|
|
||||||
|
<P>Your query must have been executed without errors! If you will check |
||||||
|
now the "Forms" tab, you will find there your first form. Press |
||||||
|
"Open" button and enjoy it! For the moment, if you will press |
||||||
|
"My first button" you will get an error message. Of course : |
||||||
|
we haven't yet defined our first script ! </P> |
||||||
|
|
||||||
|
<P><IMG SRC="a_right.gif" HEIGHT=20 WIDTH=20> Defining our first |
||||||
|
script :<BR> |
||||||
|
1. Click on Scripts tab and pres "New" button<BR> |
||||||
|
2. Enter "My first script" in script's name field<BR> |
||||||
|
3. Enter the body as the script the following statements :<BR> |
||||||
|
<BR> |
||||||
|
<TT>MsgBox "Warning" "PgAccess unleashed!"<BR> |
||||||
|
open_table pga_scripts<BR> |
||||||
|
<BR> |
||||||
|
</TT>4. Press "Save" button then "Cancel"</P> |
||||||
|
|
||||||
|
<P>It's now the time to define our first library script. I am defining |
||||||
|
not because I need it. I could write directly in "My first script" |
||||||
|
the instructions for creating that warning window but I only wanted to |
||||||
|
show you how you can mix PgAccess script execution with Tcl/Tk code and |
||||||
|
so on.</P> |
||||||
|
|
||||||
|
<P><IMG SRC="a_right.gif" HEIGHT=20 WIDTH=20> Define our first |
||||||
|
library that will contain your "user defined" Tcl/Tk procedures |
||||||
|
and functions :<BR> |
||||||
|
1. Click on Scripts tab and pres "New" button<BR> |
||||||
|
2. Enter "My first library" in script's name field<BR> |
||||||
|
3. Enter the body of the script the following statements :<BR> |
||||||
|
<BR> |
||||||
|
<TT>proc MsgBox {title msg} {<BR> |
||||||
|
tk_messageBox -title $title -message |
||||||
|
$msg<BR> |
||||||
|
}<BR> |
||||||
|
<BR> |
||||||
|
</TT>4. Press "Save" button then "Cancel"</P> |
||||||
|
|
||||||
|
<P><IMG SRC="file:/home/teo/a_right.gif" HEIGHT=20 WIDTH=20> Define |
||||||
|
our first autoexec script that will contain commands that will be executed |
||||||
|
when opening database :<BR> |
||||||
|
1. Click on Scripts tab and pres "New" button<BR> |
||||||
|
2. Enter "Autoexec" in script's name field<BR> |
||||||
|
3. Enter the body of the script the following statements :<BR> |
||||||
|
<BR> |
||||||
|
<TT>execute_script "My first library"<BR> |
||||||
|
open_form "My first form"<BR> |
||||||
|
<BR> |
||||||
|
</TT>4. Press "Save" button then "Cancel"</P> |
||||||
|
|
||||||
|
<P>Everything is OK now! You will have to exit PgAccess and enter it again |
||||||
|
opening the same database ! Voila , your first form will pop-up on the |
||||||
|
screen, a message box is displayed and after clicking Ok button the table |
||||||
|
pga_scripts will be opened in table viewer revealing what's inside ! With |
||||||
|
this occasion I have shown how you could open in table view mode a "pga_..." |
||||||
|
system table that is hidden by PgAccess in main view mode!</P> |
||||||
|
|
||||||
|
<P>I am stopping here, asking you to try this new features and sending |
||||||
|
me as more feed-backs as you can! What do you think about this new features |
||||||
|
? How would you like to be developed PgAccess in future ? In this |
||||||
|
moment, I am working in recoding the main part of PgAccess in order to |
||||||
|
give to the user more "system" functions that would help him |
||||||
|
creating new applications very easy.<BR> |
||||||
|
<BR> |
||||||
|
Remember : I'm waiting your messages at <A HREF="mailto:teo@flex.ro">teo@flex.ro</A> |
||||||
|
</P> |
||||||
|
|
||||||
|
<P> |
||||||
|
<HR WIDTH="50%"></P> |
||||||
|
|
||||||
|
<P>You will also have the ability of hiding the main window of PgAccess |
||||||
|
at the beginning of "Autoexec" script execution and showing it |
||||||
|
before destroying "My first form". For this example, delete the |
||||||
|
previously defined "My first form" and create it with another |
||||||
|
action query with this code :<BR> |
||||||
|
<BR> |
||||||
|
<TT>insert into pga_forms values('My first form',' set base .pga_win_1; |
||||||
|
if {[winfo exists $base]} { wm deiconify $base; return }; toplevel $base |
||||||
|
-class Toplevel; wm focusmodel $base passive; wm geometry $base 395x389+325+188; |
||||||
|
wm maxsize $base 1009 738; wm minsize $base 1 1; wm overrideredirect $base |
||||||
|
0; wm resizable $base 1 1; wm deiconify $base; wm title $base "User |
||||||
|
defined Form No.1"; button $base.b1 -command {execute_script "My |
||||||
|
first script"} -text "My first button" ; button $base.bexit |
||||||
|
-command {Window show .dw ; destroy [focus]} -padx 9 -pady 3 -text Exit |
||||||
|
; place $base.bexit -x 340 -y 355 -anchor nw -bordermode ignore ; place |
||||||
|
$base.b1 -x 10 -y 10 -anchor nw;'); <BR> |
||||||
|
<BR> |
||||||
|
</TT>This new one is just showing main window (.dw) before destroying the |
||||||
|
"user defined window" . <BR> |
||||||
|
Also make "Autoexec" script to show like this :<BR> |
||||||
|
<BR> |
||||||
|
<TT>execute_script "My first library"<BR> |
||||||
|
Window hide .dw<BR> |
||||||
|
open_form "My first form"</TT><BR> |
||||||
|
</P> |
||||||
|
|
||||||
|
</BODY> |
||||||
|
</HTML> |
||||||
@ -0,0 +1,45 @@ |
|||||||
|
<html> |
||||||
|
|
||||||
|
<title> Visual Query Builder in Tcl/Tk </title> |
||||||
|
<body bgcolor=white> |
||||||
|
<h1> Visual Query Builder</h1> |
||||||
|
<hr> |
||||||
|
This visual query builder is included in <a href='http://www.flex.ro/pgaccess'> |
||||||
|
PgAccess</a>, a visual interface to |
||||||
|
<a href='http://www.postgreSQL.org'> PostgreSQL</a> written entirely in |
||||||
|
vTcl , (Visual Tcl). |
||||||
|
|
||||||
|
|
||||||
|
<p align="center"> |
||||||
|
|
||||||
|
<embed src="qbtclet.tcl" width=590 height=485> |
||||||
|
|
||||||
|
</p> |
||||||
|
|
||||||
|
<br> |
||||||
|
|
||||||
|
|
||||||
|
Visual Query Designer demo<br> |
||||||
|
Click <a href='qbtclet.tar.gz'>here</a> to download the source </a> |
||||||
|
created by Constantin Teodorescu with vTcl (visual Tcl), teo@flex.ro |
||||||
|
<hr> |
||||||
|
Facitilies<br> |
||||||
|
- drag and drop selection of fields<br> |
||||||
|
- drag and drop fields from a table to another do create links<br> |
||||||
|
- move table position by dragging<br> |
||||||
|
- point and click any link or table then press delete to delete them<br> |
||||||
|
- modify sort order by clicking on (unsorted)<br> |
||||||
|
- enter filter conditions as criteria (>2000 , ='item')<br> |
||||||
|
- easy panning of table and result panels<br> |
||||||
|
- show SQL command<br> |
||||||
|
<br> |
||||||
|
If you want to use it for your database, modify ql_read_struct in order to read |
||||||
|
your table structure. |
||||||
|
<br> |
||||||
|
Feel free to use, modify or copy this software for non-commercial purposes.<br> |
||||||
|
In any other case, please contact me. |
||||||
|
<br> |
||||||
|
FLEX Consulting Braila, ROMANIA is able to deliver high end interfaces |
||||||
|
and any other commercial products written in Tcl/Tk just like that you have seen. |
||||||
|
</body> |
||||||
|
</html> |
||||||
Loading…
Reference in new issue