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)
{
}

Add(MainForm,16194020,56,224)
{
 link(onCreate,1084754:doString,[])
}
Add(StrList,1506974,280,196)
{
 Strings=#23:SELECT * FROM PHONE.DBF|
}
Add(MTStrTbl,2217219,393,245)
{
 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,337,245)
{
 MSTControl="MST"
 Point(doClearAll)
}
Add(Dir,5145339,112,189)
{
}
Add(FormatStr,1084754,112,238)
{
 DataCount=1
 Mask="Provider=Microsoft.Jet.OLEDB.4.0;\r\nData Source=%1;\r\nExtended Properties=dBASE IV;\r\nUser ID=Admin;Password=;\r\n\r\n"
 link(onFString,9000139:doOpen,[])
 link(Str1,5145339:CurrentDir,[])
}
Add(DS_OLEDB,9000139,161,238)
{
 Name="MyDB"
 Point(onError)
 link(onCreate,531851:doEvent1,[])
}
Add(DSC_Query,15431247,280,245)
{
 DSManager="MyDB"
 link(onQuery,10290878:doAddRow,[])
 link(onColumns,10290878:doAddCols,[])
 link(SQL,1506974:Text,[])
}
Add(Hub,531851,210,238)
{
 link(onEvent1,2944764:doEnum,[(235,244)(235,153)])
 link(onEvent2,15431247:doQuery,[])
}
Add(DSC_Exec,9147106,329,147)
{
 DSManager="MyDB"
}
Add(ArrayEnum,2944764,280,147)
{
 link(onItem,9147106:doExec,[])
 link(Array,10017277:Array,[])
}
Add(StrList,10017277,266,98)
{
 Strings=#19:DROP TABLE [PHONE];|184:CREATE TABLE [PHONE] ([LASTNAME] VarChar(50),[NAME] VarChar(50),[PHONE] VarChar(12),[STREET] VarChar(50),[HOUSE] VarChar(4),[APP] VarChar(4),[NOTES] VarChar(100),[Email] VarChar(100));|97:INSERT INTO [PHONE] VALUES ('Potapov','Sergey','55-55-55','Mokhovaya','3','10','No comment',NOW);|91:INSERT INTO [PHONE] VALUES ('Popov','Andrey','56-56-56','Lenina','3','5','No comment',NOW);|96:INSERT INTO [PHONE] VALUES ('Ivanov','Ivan','17-17-17','SSadovaya','4','6','Very good man',NOW);|108:INSERT INTO [PHONE] VALUES ('Kazakov','Sergey','24-19-68','Polezhaeva','101','22','Also very good man',NOW);|0:|
}

CREATE TABLE [PHONE] (
	[LASTNAME] VarChar(50), 
	[NAME] VarChar(50), 
	[PHONE] VarChar(12), 
	[STREET] VarChar(50), 
	[HOUSE] VarChar(4), 
	[APP] VarChar(4), 
	[NOTES] VarChar(100), 
	[EMAIL] VarChar(100)
)

function TForm1.FieldS(NomF : Integer; Beg: Integer):Integer;
Var
   f:  file of Byte;
   bt: Byte;
   pos: Integer;
begin
 bt := 0;
 pos:=Beg+NomF*32;
 AssignFile(f, OpenDialog1.FileName);
 Reset(f);
  try
    Seek(f, pos);
    Read(f, bt);
  finally
    CloseFile(f);
  end;
  Result :=bt;
end;

Add(MainForm,2953706,28,133)
{
 link(onCreate,12483500:doExecute,[])
}
Add(MemoryStream,8725824,413,175)
{
 Point(doPosition)
}
Add(FileStream,189724,140,147)
{
 Point(doPosition)
 link(onLoad,4521693:doEvent1,[])
}
Add(DataToFileEx,772172,560,245)
{
 Type=3
 DataSize=10
 BigEndian=0
 Point(Position)
 Point(doPosition)
 link(onGet,16462917:doValue,[])
 link(Stream,6314117:Var2,[])
}
Add(ODialog,12483500,84,147)
{
 Filter="dBase|*.dbf"
 link(onExecute,189724:doOpen,[])
}
Add(Hub,4521693,189,147)
{
 link(onEvent1,476097:doData,[])
 link(onEvent2,1356853:doGet,[(214,160)(214,251)])
}
Add(DoData,476097,231,147)
{
 Data=Integer(8)
 link(onEventData,13559934:doWork3,[(277,153)])
}
Add(DataToFileEx,4017472,658,287)
{
 Type=3
 Point(Position)
 Point(doPosition)
 link(onGet,14732784:doMultiReplace,[])
 link(Stream,11156953:Var2,[])
}
Add(DataToFileEx,15136235,749,336)
{
 BigEndian=0
 Point(Position)
 Point(doPosition)
 link(onGet,14148414:doString,[])
 link(Stream,11156953:Var3,[(755,215)])
}
Add(Math,7889300,266,245)
{
 OpType=1
 Op2=32
 ResultType=0
 link(onResult,15747468:doFor,[])
}
Add(DataToFileEx,1356853,224,245)
{
 DataSize=2
 link(onGet,7889300:doOperation,[])
}
Add(StreamCopy,2156903,413,259)
{
 Count=32
 link(onCopy,611066:doEvent1,[])
 link(Dest,6179572:Var2,[])
 link(Source,189724:Stream,[(426,236)(146,236)])
}
Add(DoData,10164947,511,259)
{
 Data=Integer(0)
 link(onEventData,772172:doPosition,[])
}
Add(HubEx,13559934,273,133)
{
 Angle=2
 link(onEvent,189724:doPosition,[(130,139)(130,167)])
}
Add(For,15747468,315,245)
{
 Start=32
 Step=32
 IncludeEnd=1
 InData=0
 link(onEvent,14982555:doEvent1,[])
}
Add(Hub,14982555,357,245)
{
 OutCount=3
 link(onEvent1,13559934:doWork2,[(382,251)(382,139)])
 link(onEvent2,8725824:doClear,[(403,258)(403,188)])
 link(onEvent3,2156903:doCopy,[])
}
Add(GetDataEx,6179572,413,210)
{
 link(Data,8725824:Stream,[])
}
Add(DoData,14921833,609,301)
{
 Data=Integer(11)
 link(onEventData,4017472:doPosition,[])
}
Add(DoData,6097407,700,350)
{
 Data=Integer(16)
 link(onEventData,15136235:doPosition,[])
}
Add(StringTable,12465438,854,336)
{
 Left=895
 Top=425
 Align=5
 Columns=#10:Field name|10:Field type|12:Field length|
}
Add(FormatStr,14148414,805,336)
{
 DataCount=3
 Mask="%1;%2;%3"
 link(onFString,12465438:doAdd,[])
 link(Str1,16462917:Value,[])
 link(Str2,11272687:Value,[])
}
Add(Memory,16462917,805,245)
{
}
Add(Memory,11272687,812,287)
{
}
Add(Hub,2384150,665,350)
{
 link(onEvent1,6097407:doData,[])
 link(onEvent2,15136235:doGet,[(690,363)(690,342)])
}
Add(Hub,611066,469,259)
{
 OutCount=3
 link(onEvent1,10164947:doData,[])
 link(onEvent2,772172:doGet,[(494,272)(494,251)])
 link(onEvent3,12847906:doEvent1,[(494,279)(494,307)])
}
Add(Hub,12847906,567,301)
{
 OutCount=3
 link(onEvent1,14921833:doData,[])
 link(onEvent2,4017472:doGet,[(599,314)(599,293)])
 link(onEvent3,2384150:doEvent1,[(599,321)(599,356)])
}
Add(GetDataEx,6314117,560,210)
{
 Angle=3
 link(Data,6179572:Var3,[])
}
Add(GetDataEx,11156953,658,210)
{
 Angle=3
 link(Data,6314117:Var3,[])
}
Add(MultiReplace,14732784,714,287)
{
 ReplaceList="C=Character;\r\nD=Date;\r\nF=Floating point;\r\nL=Logical;\r\nM=Memo;\r\nN=Numeric;\r\n"
 link(onResult,11272687:doValue,[])
}