Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,56,175)
{
 link(onCreate,4595292:doEvent1,[])
}
Add(OLEdb,2142462,242,245)
{
 Driver="Driver={Microsoft Paradox Driver (*.db )};\r\nDriverId=538;FIL=Paradox 5.X;\r\nDefaultDir=C:\Hosp;\r\nParadoxNetPath=C:\Hosp;\r\nParadoxNetStyle=4.x;\r\nParadoxUserName=admin;\r\nPageTimeout=600;"
 Point(onError)
 link(onConnect,14252000:doCreate,[])
 link(Driver,5435641:Var,[])
}
Add(OLEdb_Query,11136757,476,273)
{
 Text="\r\n\r\n"
 link(onQuery,10290878:doAddRow,[])
 link(onColumns,10290878:doAddCols,[])
 link(Text,1506974:Text,[])
}
Add(OLEdb_Session,14252000,288,245)
{
 Point(onError)
 link(onCreate,14897651:doEvent1,[])
 link(dbHandle,2142462:dbHandle,[(294,233)(271,233)(271,289)(248,289)])
}
Add(DoData,6765452,151,196)
{
 link(onEventData,4773895:doReplace,[])
 link(Data,13291680:Text,[])
}
Add(Replace,4773895,193,196)
{
 SubStr="***"
 link(onReplace,5435641:doValue,[])
 link(Dest,6602387:Var,[])
}
Add(GlobalVar,6602387,207,168)
{
 Name="path"
 Data=String()
}
Add(GlobalVar,5435641,242,196)
{
 Name="CSDBase"
}
Add(StrList,13291680,151,140)
{
 Strings=#33:Provider=Microsoft.Jet.OLEDB.4.0;|16:Data Source=***;|29:Extended Properties=dBASE IV;|24:User ID=Admin;Password=;|0:|
}
Add(Application,12333461,151,49)
{
}
Add(FilePartElm,7879668,151,98)
{
 Mode=0
 link(onPart,11280931:doValue,[])
 link(FileName,12333461:AppFileName,[])
}
Add(GlobalVar,11280931,200,98)
{
 Name="path"
 Data=String()
}
Add(Hub,4595292,105,189)
{
 OutCount=3
 link(onEvent1,7879668:doPart,[(135,195)(135,104)])
 link(onEvent2,6765452:doData,[])
 link(onEvent3,2142462:doOpen,[(135,209)(135,251)])
}
Add(StrList,1506974,483,196)
{
 Strings=#63:SELECT * FROM D:\\alter\\111111.DBF where mfo_k not like 851011|0:|
}
Add(MTStrTbl,2217219,575,273)
{
 Left=7
 Top=47
 Width=427
 Height=285
 Align=5
 TabOrder=1
 Name="MST"
 Layout="lll"
 DoubleBuffered=0
 Point(doVisible)
 Point(doBringToFront)
 Point(doFont)
}
Add(MST_DB,10290878,526,273)
{
 MSTControl="MST"
 Point(doClearAll)
}
Add(Hub,14897651,357,245)
{
 link(onEvent1,7069330:doExec,[])
 link(onEvent2,11136757:doQuery,[(389,258)(389,279)])
}
Add(OLEdb_Query,7069330,392,238)
{
 Text="\r\n\r\n"
 link(onError,2230939:doMessage,[(432,258)(432,244)])
 link(dbSession,14252000:dbSession,[(398,226)(346,226)(346,289)(294,289)])
 link(Text,1509744:Text,[])
}
Add(StrList,1509744,399,161)
{
 Strings=#51:ALTER TABLE "D:\\alter\\111111.DBF" ADD Email date;|0:|
}
Add(Message,2230939,441,238)
{
}