#!/usr/local/odd/hyper -f
#
# $Id: master_detail,v 2.7 1995-07-12 11:29:36+01 zkoppany Rel $
#
# $Log: master_detail,v $
# Revision 2.7  1995-07-12 11:29:36+01  zkoppany
# Checkin for: 2.7
#
# Revision 2.6  1995/05/30  16:22:48  zkoppany
# Checkin for: 2.6
#
# Revision 2.5  1994/10/31  10:51:34  zkoppany
# Checkin for: 2.5
#
# Revision 2.4  1994/08/01  13:37:11  zkoppany
# Checkin for: 2.4
#
# Revision 2.3.2.1  1994/07/21  17:36:32  zkoppany
# General master-detail examples.
#
# Revision 2.3  1994/06/15  14:23:10  zkoppany
# *** empty log message ***
#
# Revision 2.2  1994/05/16  16:27:31  zkoppany
# *** empty log message ***
#
#

lappend auto_path . [pwd]

set host multixd
set dbname mxora
set dbtype Oracle
set user ""
set passwd ""

wm withdraw .
toplevel .form
frame .form.master_detail -class Form

Form_detail form_test $host $dbtype $dbname\
	"SELECT * FROM DEPT"\
	-User $user\
	-Password $passwd\
	-frame .form.master_detail\
	-master_field DEPTNO\
	-detail_field DEPTNO\
	-detail_query {SELECT * FROM EMP}\
	-exit_process 1

wm minsize .form 0 0
pack .form.master_detail -side top -expand y -fill both
