Commit 7c5e49b5 authored by nikolaus's avatar nikolaus
Browse files

Initial commit

parents
.svn
*~
.*.sw?
*.smw
*.sml
*.smp
*.sbm
ignore this file
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
<!DOCTYPE simpoldataform1 [
<!--
VERSION:
"-//simpol//SIMPOL dataform1 V1.1//EN"
PURPOSE:
This DTD is intended to define the XML Form Storage format for SIMPOL
forms when stored on disk. This does not imply that this is the sole format
nor does it imply that every part of the format that is described here is
or will be implemented in the reader of this format for SIMPOL.
-->
<!ELEMENT simpoldataform1 (version?, name, filename?, designdpi?, datasource*, childlinks*, siblinglinks*, sdf1page+)>
<!ATTLIST simpoldataform1 units (pixels|thous|mm) "pixels" >
<!ELEMENT version (#PCDATA)>
<!ELEMENT name (#PCDATA)>
<!ELEMENT filename (#PCDATA)>
<!ELEMENT designdpi (#PCDATA)>
<!ELEMENT datasource (sourcetype, source, username?, codepage?, sdf1table*)>
<!-- sourcetype can be one of SBME or PPCS1 -->
<!ELEMENT sourcetype (#PCDATA)>
<!ELEMENT source (#PCDATA)>
<!ELEMENT username (#PCDATA)>
<!ELEMENT codepage (#PCDATA)>
<!ELEMENT sdf1table (#PCDATA)>
<!ATTLIST sdf1table master (y|n) "n">
<!ELEMENT siblinglinks (sdf1link*)>
<!ELEMENT childlinks (sdf1link*)>
<!ELEMENT sdf1link (sourcefield, sourcetable, targetfield, targettable, childlinks?, siblinglinks?)>
<!ATTLIST sdf1link
id CDATA #REQUIRED
>
<!ELEMENT sourcefield (#PCDATA)>
<!ELEMENT sourcetable (#PCDATA)>
<!ELEMENT targetfield (#PCDATA)>
<!ELEMENT targettable (#PCDATA)>
<!ELEMENT sdf1page (name, width, height, backgroundrgb, backgroundrgbid?, onmousemask?,
onmouse?, graphics?, controls?)>
<!ATTLIST sdf1page
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT width (#PCDATA)>
<!ELEMENT height (#PCDATA)>
<!ELEMENT backgroundrgb (red?, green?, blue?)>
<!ATTLIST backgroundrgb value CDATA #IMPLIED >
<!ELEMENT red (#PCDATA)>
<!ELEMENT green (#PCDATA)>
<!ELEMENT blue (#PCDATA)>
<!ELEMENT controls ((sdf1text|sdf1edittext|sdf1button|sdf1bitmapbutton|sdf1bitmap|
sdf1checkbox|sdf1combo|sdf1list|sdf1optiongroup|sdf1grid|sdf1datagrid|sdf1scrollbar|
sdf1detailblock|sdf1gauge)*)>
<!ELEMENT sdf1text (name, left, top, width, height, text,
backgroundrgb, textrgb, font, controlsource?, displayformat?, alignment?,
backgroundrgbid?, textrgbid?, onmousemask?, onmouse?, tooltip?)>
<!ATTLIST sdf1text
enabled (0|1) "1"
focusable (0|1) "0"
visible (0|1) "1"
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT sdf1edittext (name, left, top, width, height, backgroundrgb,
textrgb, font, ongotfocus?, onlostfocus?, onchange?, hscrollbar?,
vscrollbar?, calc?, calcformat?, controlsource?, displayformat?,
alignment?, backgroundrgbid?, textrgbid?, onmousemask?, onmouse?, tooltip?, maxlength?)>
<!ATTLIST sdf1edittext
enabled (0|1) "1"
focusable (0|1) "1"
visible (0|1) "1"
multiline (0|1) #IMPLIED
hscroll (0|1) #IMPLIED
readonly (0|1) #IMPLIED
password (0|1) #IMPLIED
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT sdf1button (name, left, top, width, height, text,
backgroundrgb, textrgb, font, ongotfocus?, onlostfocus?, onclick?,
backgroundrgbid?, textrgbid?, onmousemask?, onmouse?, tooltip?)
>
<!ATTLIST sdf1button
enabled (0|1) "1"
focusable (0|1) "1"
visible (0|1) "1"
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT sdf1bitmapbutton (name, left, top, width, height, backgroundrgb, ongotfocus?,
onlostfocus?, onclick?, bitmap, selectedbitmap?, disabledbitmap?,
focusbitmap?, backgroundrgbid?, onmousemask?, onmouse?, tooltip?)>
<!ATTLIST sdf1bitmapbutton
enabled (0|1) "1"
focusable (0|1) "1"
visible (0|1) "1"
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT sdf1bitmap (name, left, top, width, height, backgroundrgb, bitmap, scaling,
backgroundrgbid?, onmousemask?, onmouse?, tooltip?, controlsource?, displayformat?,
emptyrgb?, missingrgb?, missinglinergb?)>
<!ATTLIST sdf1bitmap
enabled (0|1) "1"
visible (0|1) "1"
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT emptyrgb (red?, green?, blue?)>
<!ATTLIST emptyrgb value CDATA #IMPLIED >
<!ELEMENT missingrgb (red?, green?, blue?)>
<!ATTLIST missingrgb value CDATA #IMPLIED >
<!ELEMENT missinglinergb (red?, green?, blue?)>
<!ATTLIST missinglinergb value CDATA #IMPLIED >
<!ELEMENT sdf1checkbox (name, left, top, width, height, text,
backgroundrgb, textrgb, font, ongotfocus?, onlostfocus?,
onchange?, state?, valueon?, valueoff?,
controlsource?, displayformat?, backgroundrgbid?, textrgbid?,
onmousemask?, onmouse?, tooltip?)>
<!ATTLIST sdf1checkbox
enabled (0|1) "1"
focusable (0|1) "1"
visible (0|1) "1"
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT sdf1optiongroup (name, controlsource?,
displayformat?, sdf1option+)>
<!ELEMENT sdf1option (name, left, top, width, height, text,
backgroundrgb, textrgb, font, ongotfocus?, onlostfocus?,
onchange?, state?, valueon?, backgroundrgbid?, textrgbid?,
onmousemask?, onmouse?, tooltip?)>
<!ATTLIST sdf1option
enabled (0|1) "1"
focusable (0|1) "1"
visible (0|1) "1"
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT sdf1combo (name, left, top, width, height,
backgroundrgb, textrgb, font, ongotfocus?, onlostfocus?,
onselectionchange?, onfill?, controlsource?,
displayformat?, listsourcetype, listsource?, order?,
valuesource?, listsourceentries?, backgroundrgbid?, textrgbid?,
onmousemask?, onmouse?, tooltip?)>
<!ATTLIST sdf1combo
enabled (0|1) "1"
focusable (0|1) "1"
visible (0|1) "1"
sorted (0|1) "0"
edittype (droplist|dropedit) #REQUIRED
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT sdf1list (name, left, top, width, height,
backgroundrgb, textrgb, font, ongotfocus?, onlostfocus?,
onselectionchange?, ondoubleclick?, onfill?, controlsource?,
displayformat?, listsourcetype, listsource?,
order?, valuesource?, listsourceentries?, backgroundrgbid?, textrgbid?,
onmousemask?, onmouse?, tooltip?)>
<!ATTLIST sdf1list
enabled (0|1) "1"
focusable (0|1) "1"
visible (0|1) "1"
sorted (0|1) "0"
selectiontype (single|multiple|extended) #REQUIRED
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT sdf1grid (name, left, top, width, height, font, labelfont?,
colcount?, rowcount?, collabelheight?, rowlabelwidth?, alignment?,
collabelalignment?, rowlabelalignment?, ongotfocus?, onlostfocus?,
oncellchange?, oncellselect?, oncolwidthchange?, onrowheightchange?,
onfill?, oncelleftclick?, oncellleftdblclick?, oncellrightclick?,
oncellrightdblclick?, onlabelclick?, onlabelleftdblclick?,
onlabelrightclick?, onlabelrightdblclick?, tooltip?,
sdf1gridcol*, sdf1gridrow*)>
<!ATTLIST sdf1grid
enabled (0|1) "1"
focusable (0|1) "1"
visible (0|1) "1"
colwidthdraggable (0|1) #IMPLIED
rowheightdraggable (0|1) #IMPLIED
>
<!ELEMENT sdf1gridcol (label, width) >
<!ELEMENT sdf1gridrow (label) >
<!ELEMENT sdf1datagrid (name, left, top, width, height, font, labelfont?,
colcount?, collabelheight?, rowlabelwidth?, alignment?,
collabelalignment?, rowlabelalignment?, ongotfocus?, onlostfocus?,
oncellchange?, oncellselect?, oncolwidthchange?, onrowheightchange?,
oncelleftclick?, oncellleftdblclick?, oncellrightclick?,
oncellrightdblclick?, onlabelclick?, onlabelleftdblclick?,
onlabelrightclick?, onlabelrightdblclick?, tooltip?, targettable?,
targetfield?, siblinglinks?,sdf1datagridcol+)>
<!ATTLIST sdf1datagrid
enabled (0|1) "1"
focusable (0|1) "1"
visible (0|1) "1"
colwidthdraggable (0|1) #IMPLIED
rowheightdraggable (0|1) #IMPLIED
masterlinkid CDATA #IMPLIED
>
<!ELEMENT sdf1datagridcol (label, cellalignment?, controlsource?,
displayformat?, width?) >
<!ATTLIST sdf1datagridcol linkid CDATA #IMPLIED>
<!ELEMENT sdf1scrollbar (name, left, top, width, height, backgroundrgb,
orientation, range?, position?, pagesize?, thumbsize?, ongotfocus?,
onlostfocus?, onscroll?, controlsource?, displayformat?,
backgroundrgbid?, textrgbid?, onmousemask?, onmouse?, tooltip?)>
<!ATTLIST sdf1scrollbar
enabled (0|1) "1"
focusable (0|1) "1"
visible (0|1) "1"
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT sdf1detailblock (name, rowcount, rowoffset, colcount, coloffset,
scrollbaroffset?, sortfield?, targettable?, targetfield?, siblinglinks?,
childlinks?, controls+)>
<!ATTLIST sdf1detailblock
scrollbartype (left|right|top|bottom|none) "right"
tabacross (0|1) "1"
sort (0|1) "0"
sortascending (0|1) "1"
masterlinkid CDATA #IMPLIED
>
<!ELEMENT sdf1gauge (name, left, top, width, height, backgroundrgb,
range?, position?, backgroundrgbid?, tooltip?)>
<!ATTLIST sdf1gauge
focusable (0|1) "1"
visible (0|1) "1"
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT font EMPTY>
<!ATTLIST font
facename CDATA #REQUIRED
pointsize CDATA #REQUIRED
weight (n|b|l) #IMPLIED
style (n|i) #IMPLIED
decoration (n|s|u|su|us) #IMPLIED
>
<!ELEMENT labelfont EMPTY>
<!ATTLIST labelfont
facename CDATA #REQUIRED
pointsize CDATA #REQUIRED
weight (n|b|l) #IMPLIED
style (n|i) #IMPLIED
decoration (n|s|u|su|us) #IMPLIED
>
<!ELEMENT textrgb (red?, green?, blue?)>
<!ATTLIST textrgb value CDATA #IMPLIED >
<!ELEMENT left (#PCDATA)>
<!ELEMENT top (#PCDATA)>
<!ELEMENT onclick (#PCDATA)>
<!ELEMENT ondoubleclick (#PCDATA)>
<!ELEMENT onchange (#PCDATA)>
<!ELEMENT ongotfocus (#PCDATA)>
<!ELEMENT onlostfocus (#PCDATA)>
<!ELEMENT onselectionchange (#PCDATA)>
<!ELEMENT onfill (#PCDATA)>
<!ELEMENT scaling (#PCDATA)>
<!ELEMENT text (#PCDATA)>
<!ELEMENT tooltip (#PCDATA)>
<!ELEMENT maxlength (#PCDATA)>
<!ELEMENT rowoffset (#PCDATA)>
<!ELEMENT coloffset (#PCDATA)>
<!ELEMENT scrollbaroffset (#PCDATA)>
<!ELEMENT hscrollbar (#PCDATA)>
<!ELEMENT vscrollbar (#PCDATA)>
<!ELEMENT fieldname (#PCDATA)>
<!ELEMENT tablename (#PCDATA)>
<!ELEMENT sortfield (#PCDATA)>
<!ELEMENT displayformat (#PCDATA) >
<!ELEMENT valueon (#PCDATA)>
<!ELEMENT valueoff (#PCDATA)>
<!ELEMENT calc (#PCDATA)>
<!ELEMENT calcformat (#PCDATA)>
<!ELEMENT bitmap (#PCDATA)>
<!ATTLIST bitmap
content (uri|embed|data) #REQUIRED
width CDATA #IMPLIED
height CDATA #IMPLIED
>
<!ELEMENT disabledbitmap (#PCDATA)>
<!ATTLIST disabledbitmap
content (uri|embed) #REQUIRED
width CDATA #IMPLIED
height CDATA #IMPLIED
>
<!ELEMENT focusbitmap (#PCDATA)>
<!ATTLIST focusbitmap
content (uri|embed) #REQUIRED
width CDATA #IMPLIED
height CDATA #IMPLIED
>
<!ELEMENT selectedbitmap (#PCDATA)>
<!ATTLIST selectedbitmap
content (uri|embed) #REQUIRED
width CDATA #IMPLIED
height CDATA #IMPLIED
>
<!ELEMENT state (#PCDATA) >
<!ELEMENT optiongroup (#PCDATA)>
<!ELEMENT controlsource (fieldname, tablename) >
<!ELEMENT listsourcetype (#PCDATA) >
<!ELEMENT listsource (fieldname, tablename) >
<!ELEMENT valuesource (fieldname, tablename) >
<!ELEMENT order (fieldname, tablename) >
<!ELEMENT listsourceentries (listsourceentry*) >
<!ELEMENT listsourceentry (#PCDATA) >
<!-- A listsourceentry may have a value as an attribute that
is the value assigned to the bound field when the list entry
is selected. -->
<!ATTLIST listsourceentry value CDATA #IMPLIED >
<!ELEMENT label (#PCDATA) >
<!ELEMENT alignment (#PCDATA) >
<!ELEMENT colcount (#PCDATA)>
<!ELEMENT rowcount (#PCDATA)>
<!ELEMENT cellalignment (#PCDATA) >
<!ELEMENT collabelheight (#PCDATA) >
<!ELEMENT rowlabelwidth (#PCDATA) >
<!ELEMENT oncellchange (#PCDATA) >
<!ELEMENT oncellselect (#PCDATA) >
<!ELEMENT oncolwidthchange (#PCDATA)>
<!ELEMENT onrowheightchange (#PCDATA)>
<!ELEMENT oncelleftclick (#PCDATA)>
<!ELEMENT oncellleftdblclick (#PCDATA)>
<!ELEMENT oncellrightclick (#PCDATA)>
<!ELEMENT oncellrightdblclick (#PCDATA)>
<!ELEMENT onlabelclick (#PCDATA)>
<!ELEMENT onlabelleftdblclick (#PCDATA)>
<!ELEMENT onlabelrightclick (#PCDATA)>
<!ELEMENT onlabelrightdblclick (#PCDATA)>
<!ELEMENT collabelalignment (#PCDATA) >
<!ELEMENT rowlabelalignment (#PCDATA) >
<!ELEMENT onmouse (#PCDATA)>
<!ELEMENT onmousemask (#PCDATA)>
<!ELEMENT onscroll (#PCDATA)>
<!ELEMENT orientation (#PCDATA)>
<!ELEMENT pagesize (#PCDATA)>
<!ELEMENT range (#PCDATA)>
<!ELEMENT position (#PCDATA)>
<!ELEMENT thumbsize (#PCDATA)>
<!ELEMENT pulse (#PCDATA)>
<!ELEMENT backgroundrgbid (#PCDATA)>
<!ELEMENT textrgbid (#PCDATA)>
<!ELEMENT graphics ((sdf1line|sdf1rectangle|sdf1triangle|sdf1arc|sdf1ellipse)*)>
<!ELEMENT sdf1line (name, point1, point2, rgb, width, rgbid?)>
<!ATTLIST sdf1line
visible (0|1) "1"
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT sdf1rectangle (name, point1, point2, rgb, borderrgb, borderwidth, rgbid?, borderrgbid?)>
<!ATTLIST sdf1rectangle
visible (0|1) "1"
bordervisible (0|1) "1"
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT sdf1triangle (name, point1, point2, point3, rgb, borderrgb, borderwidth, rgbid?, borderrgbid?)>
<!ATTLIST sdf1triangle
visible (0|1) "1"
bordervisible (0|1) "1"
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT sdf1arc (name, point1, point2, midpoint, rgb, borderrgb, borderwidth, rgbid?, borderrgbid?)>
<!ATTLIST sdf1arc
visible (0|1) "1"
bordervisible (0|1) "1"
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT sdf1ellipse (name, point1, point2, midpoint, rgb, borderrgb, borderwidth, rgbid?, borderrgbid?)>
<!ATTLIST sdf1ellipse
visible (0|1) "1"
bordervisible (0|1) "1"
usesystemcolors (0|1) #IMPLIED
>
<!ELEMENT rgb (red?, green?, blue?)>
<!ATTLIST rgb value CDATA #IMPLIED >
<!ELEMENT borderrgb (red?, green?, blue?)>
<!ATTLIST borderrgb value CDATA #IMPLIED >
<!ELEMENT point1 (x, y)>
<!ELEMENT point2 (x, y)>
<!ELEMENT point3 (x, y)>
<!ELEMENT midpoint (x, y)>
<!ELEMENT x (#PCDATA) >
<!ELEMENT y (#PCDATA) >
<!ELEMENT borderwidth (#PCDATA) >
<!ELEMENT rgbid (#PCDATA)>
<!ELEMENT borderrgbid (#PCDATA)>
]>
<simpoldataform1 units="pixels">
<version>1.0</version>
<name>login</name>
<designdpi>96</designdpi>
<sdf1page>
<name>login</name>
<width>400</width>
<height>150</height>
<backgroundrgb value="0xf0f0f0">
<red>0xf0</red>
<green>0xf0</green>
<blue>0xf0</blue>
</backgroundrgb>
<controls>
<sdf1text enabled="1" visible="1" focusable="0">
<name>lusername</name>
<left>11</left>
<top>14</top>
<width>53</width>
<height>13</height>
<text>Username:</text>
<backgroundrgb value="0xf0f0f0">
<red>0xf0</red>
<green>0xf0</green>
<blue>0xf0</blue>
</backgroundrgb>
<textrgb value="0x0">
<red>0x0</red>
<green>0x0</green>
<blue>0x0</blue>
</textrgb>
<font facename="MS Shell Dlg 2" pointsize="8" weight="n" style="n" decoration="n" />
<alignment>right</alignment>
</sdf1text>
<sdf1edittext enabled="1" visible="1" focusable="1">
<name>tbusername</name>
<left>68</left>
<top>12</top>
<width>176</width>
<height>19</height>
<backgroundrgb value="0xf0f0f0">
<red>0xf0</red>
<green>0xf0</green>
<blue>0xf0</blue>
</backgroundrgb>
<textrgb value="0x0">
<red>0x0</red>
<green>0x0</green>
<blue>0x0</blue>
</textrgb>
<font facename="MS Shell Dlg 2" pointsize="8" weight="n" style="n" decoration="n" />
<onlostfocus>olf_text</onlostfocus>
<maxlength>30</maxlength>
</sdf1edittext>
<sdf1text enabled="1" visible="1" focusable="0">
<name>lpassword</name>
<left>11</left>
<top>36</top>
<width>53</width>
<height>16</height>
<text>Password:</text>
<backgroundrgb value="0xf0f0f0">
<red>0xf0</red>
<green>0xf0</green>
<blue>0xf0</blue>
</backgroundrgb>
<textrgb value="0x0">
<red>0x0</red>
<green>0x0</green>
<blue>0x0</blue>
</textrgb>
<font facename="MS Shell Dlg 2" pointsize="8" weight="n" style="n" decoration="n" />
<alignment>right</alignment>
</sdf1text>
<sdf1edittext enabled="1" visible="1" focusable="1" password="1">
<name>tbpassword</name>
<left>67</left>
<top>35</top>
<width>176</width>
<height>19</height>
<backgroundrgb value="0xf0f0f0">
<red>0xf0</red>
<green>0xf0</green>
<blue>0xf0</blue>
</backgroundrgb>
<textrgb value="0x0">
<red>0x0</red>
<green>0x0</green>
<blue>0x0</blue>
</textrgb>
<font facename="MS Shell Dlg 2" pointsize="8" weight="n" style="n" decoration="n" />
<onlostfocus>olf_text</onlostfocus>
<maxlength>30</maxlength>
</sdf1edittext>
<sdf1button enabled="1" visible="1" focusable="1">
<name>bLogin</name>
<left>65</left>
<top>80</top>
<width>110</width>
<height>34</height>
<text>Login</text>
<backgroundrgb value="0xf0f0f0">
<red>0xf0</red>
<green>0xf0</green>
<blue>0xf0</blue>
</backgroundrgb>
<textrgb value="0x0">
<red>0x0</red>
<green>0x0</green>
<blue>0x0</blue>
</textrgb>
<font facename="MS Shell Dlg 2" pointsize="8" weight="n" style="n" decoration="n" />
<onclick>oc_login</onclick>
</sdf1button>
<sdf1button enabled="1" visible="1" focusable="1">
<name>bCreate</name>
<left>218</left>
<top>80</top>
<width>110</width>
<height>34</height>
<text>Create Account</text>
<backgroundrgb value="0xf0f0f0">
<red>0xf0</red>
<green>0xf0</green>
<blue>0xf0</blue>
</backgroundrgb>
<textrgb value="0x0">
<red>0x0</red>
<green>0x0</green>
<blue>0x0</blue>
</textrgb>
<font facename="MS Shell Dlg 2" pointsize="8" weight="n" style="n" decoration="n" />
<onclick>oc_create</onclick>
</sdf1button>
<sdf1checkbox enabled="1" visible="1" focusable="1">
<name>cbShowPassword</name>
<left>254</left>
<top>38</top>
<width>94</width>
<height>12</height>
<text>Show Password</text>
<backgroundrgb value="0xf0f0f0">
<red>0xf0</red>
<green>0xf0</green>
<blue>0xf0</blue>
</backgroundrgb>
<textrgb value="0x0">
<red>0x0</red>
<green>0x0</green>
<blue>0x0</blue>
</textrgb>
<font facename="MS Shell Dlg 2" pointsize="8" weight="n" style="n" decoration="n" />
<state></state>
</sdf1checkbox>
</controls>
</sdf1page>
</simpoldataform1>
[NODE_1]
COMPONENT3=ppcs
MAKE_FILE=F
COMPONENT2=lxml
COMPONENT1=wxwn
PRJ_TYPE=NOR
SMA_PREFERENCE=T
COMPONENT0=utos
SMP_FILE=bin\login.smp
FATHER_SECTION=NODE_0
SML_FILE0=C:\SIMPOL\lib\appframework.sml
COMPONENT6=sock
COMPONENT5=slib
FILE_FOLDER0=C:\SIMPOL\include\
COMPONENT4=sbme
[NODE_2]
MODULE=login\
SMP_FILE=login\login.smp
FATHER_SECTION=NODE_1
MAIN_FILE=login\login.sma
// formfunc.sma - SIMPOL Basic GUI Example
//
// Created on: 23 April 2020
// Created by: Nikolaus-Maxim Zolnhofer
// Copyright 2020 Superbase Software Limited, all rights reserved
//
// Description
// ===========
// This file contains all the code for
//
////////////////////////////////////////////////////////////////////////////
function preploginform(appwindow appw)
dataform1 f
f =@ appw.form
f!tbusername.onlostfocus.reference =@ appw
f!tbpassword.onlostfocus.reference =@ appw
f!bLogin.onclick.reference =@ appw
f!bCreate.onclick.reference =@ appw
f!bLogin.setenabled(.false)
end function
function oc_login(dataform1button me, appwindow appw)
sbme1table table
sbme1index idx
sbme1record r
string username
integer e
boolean found
e = 0
found = .false
username = me.form!tbusername.text
table =@ appw.tables.getfirst()
idx =@ table!username.index
r =@ idx.selectkey(username,error=e,found=found)
if found
if r!password == me.form!tbpassword.text
wxmessagedialog(appw.w,"Welcome " + username)
else