Make(cnet)
ver(4.04 build 185)
Add(EntryPoint,2953706,567,196)
{
 Width=435
 Height=310
 Text="ODBC access"
 Platform=1
 Point(doText)
 link(onError,13992230:doShow,[])
}
Add(Button,4603873,84,231)
{
 Left=10
 Top=90
 Width=70
 Text="Read DB"
 Point(onClick)
 link(onClick,780636:doEvent1,[])
 AddHint(-74,6,59,13,Text)
}
Add(OdbcConnection,10618559,238,252)
{
 Name="db"
 ConnectionTimeout=25
 Point(doOpen)
 Point(doClose)
 Point(doConnectionStr)
 link(onStateChange,3070861:doGetMethod,[])
 link(ConnectionStr,11317351:ConnectionString,[])
}
Add(ConnectionState,680685,357,210)
{
 ConnectionState=2
}
Add(If_else,14873477,357,259)
{
 link(onTrue,3519827:doEvent1,[])
 link(Op1,680685:ConnectionState,[])
}
Add(Hub,1657405,322,252)
{
 link(onEvent1,11922358:doWork2,[(345,258)(345,202)])
 link(onEvent2,14873477:doCompare,[])
}
Add(Button,13945932,84,273)
{
 Left=10
 Top=120
 Width=70
 Text="Close DB"
 Point(onClick)
 link(onClick,10618559:doClose,[(224,279)(224,265)])
 AddHint(-76,6,59,13,Text)
}
Add(StateChangeEventArgs,3070861,280,252)
{
 link(onCurrentState,1657405:doEvent1,[])
}
Add(OdbcConnectionStringBuilder,11317351,231,161)
{
 Point(keyword)
 Point(doDriver)
 Point(doItem)
 Point(value)
 Point(ConnectionString)
 link(keyword,7399489:Value,[(237,149)(202,149)])
 link(value,4322410:Text,[])
}
Add(DoData,3385822,154,161)
{
 link(onEventData,11317351:doDriver,[])
 link(Data,5493934:Text,[])
}
Add(TextBox,5493934,154,105)
{
 Left=85
 Top=35
 Width=330
 Text="Microsoft Access Driver (*.mdb)"
 Anchor=13
 Lines=[]
 Point(doText)
 Point(Text)
 Point(Data)
 AddHint(-142,-52,163,13,Text)
}
Add(TextBox,4322410,238,105)
{
 Left=85
 Top=10
 Width=330
 Text="C:\\HiAsm\\Elements\\CNET\\Example\\DataBase\\test.mdb"
 Anchor=13
 Lines=[]
 Point(doText)
 Point(Text)
 Point(Data)
 AddHint(-46,-58,299,26,Text)
}
Add(Hub,780636,126,231)
{
 OutCount=4
 link(onEvent1,3385822:doData,[(147,237)(147,167)])
 link(onEvent2,11317351:doItem,[(197,244)(197,174)])
 link(onEvent3,10618559:doConnectionStr,[(189,251)(189,272)])
 link(onEvent4,10618559:doOpen,[])
}
Add(Memory,7399489,196,105)
{
 Default=String(dbq)
}
Add(Label,5873414,112,105)
{
 Left=10
 Top=37
 Width=70
 Height=18
 Text="Driver:"
 TextAlign=1
 Point(doText)
 Point(onClick)
}
Add(Label,8565674,280,105)
{
 Left=10
 Top=13
 Width=70
 Height=18
 Text="File:"
 TextAlign=1
 Point(doText)
 Point(onClick)
}
Add(OdbcDataAdapter,8882469,434,259)
{
 Point(selectCommandText)
 Point(doConstructor3)
 Point(selectConnection)
 Point(dataTable)
 Point(doFill2)
 link(selectCommandText,7235866:Text,[])
 link(selectConnection,10618559:OdbcConnection,[(447,247)(398,247)(398,302)(244,302)])
 link(dataTable,5036416:Var2,[])
}
Add(TextBox,7235866,434,105)
{
 Left=85
 Top=60
 Width=330
 Text="SELECT * FROM ALL_TYPES_FIELD"
 Anchor=13
 Lines=[]
 Point(doText)
 Point(Text)
 Point(Data)
 AddHint(-82,43,196,13,Text)
}
Add(Label,3503562,476,105)
{
 Left=10
 Top=63
 Width=70
 Height=18
 Text="Query:"
 TextAlign=1
 Point(doText)
 Point(onClick)
}
Add(DataGridView,10949420,511,287)
{
 Left=90
 Top=85
 Width=325
 Height=185
 Anchor=15
 Columns=[]
 Point(doConstructor)
 Point(doDataSource)
 Point(onDataError)
 link(onDataError,11922358:doWork3,[(557,293)])
}
Add(Hub,3519827,406,259)
{
 OutCount=3
 link(onEvent1,8882469:doConstructor3,[])
 link(onEvent2,8882469:doFill2,[])
 link(onEvent3,11359729:doData,[(428,279)(428,300)])
}
Add(HubEx,11922358,553,196)
{
 link(onEvent,2953706:doText,[])
}
Add(DataTable,2769330,448,210)
{
}
Add(DoData,11359729,469,294)
{
 link(onEventData,10949420:doDataSource,[])
 link(Data,5036416:Var3,[(475,250)])
}
Add(GetDataEx,5036416,448,245)
{
 link(Data,2769330:DataTable,[])
}
Add(InfoTip,16667374,14,21)
{
 Info=#28:CHECK THE CONNECTION STRING!|
 Font=[MS Sans Serif,8,1,0,1]
 Frame=1
 Transparent=1
 Width=246
 Height=17
}
Add(MessageBox,13992230,616,203)
{
}