commit 5e9ac89dcdd4524accc0684e7dbd03b5671ec610 Author: tminkenberrg Date: Fri Oct 11 17:38:28 2024 +0200 Init diff --git a/DBKonverter.dpr b/DBKonverter.dpr new file mode 100644 index 0000000..f2b79a6 --- /dev/null +++ b/DBKonverter.dpr @@ -0,0 +1,17 @@ +program DBKonverter; + +uses + Vcl.Forms, + Unit1 in 'Unit1.pas' {main}, + Vcl.Themes, + Vcl.Styles, + Str_Tool_UTF in '..\Str_Tool\Str_Tool_UTF.pas'; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + Application.CreateForm(Tmain, main); + Application.Run; +end. diff --git a/DBKonverter.dproj b/DBKonverter.dproj new file mode 100644 index 0000000..358f572 --- /dev/null +++ b/DBKonverter.dproj @@ -0,0 +1,570 @@ + + + {EDDA6659-A9ED-4795-BC3A-3BEDE04605E9} + 18.4 + VCL + DBKonverter.dpr + True + Debug + Win32 + 1 + Application + + + true + + + true + Base + true + + + true + Base + true + + + true + Base + true + + + true + Cfg_1 + true + true + + + true + Base + true + + + true + Cfg_2 + true + true + + + .\$(Platform)\$(Config) + .\$(Platform)\$(Config) + false + false + false + false + false + RESTComponents;FireDACIBDriver;FireDACCommon;RESTBackendComponents;soapserver;CloudService;FireDACCommonDriver;inet;FireDAC;FireDACSqliteDriver;soaprtl;soapmidas;$(DCC_UsePackage) + System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace) + $(BDS)\bin\delphi_PROJECTICON.ico + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png + $(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png + DBKonverter + + + DBXSqliteDriver;ZComponent;DBXInterBaseDriver;vclactnband;ZCore;vclFireDAC;TM;tethering;svnui;JvGlobus;FireDACADSDriver;QRBarcode;frxe25;JvPluginSystem;JvMM;vcltouch;JvBands;vcldb;bindcompfmx;svn;JvJans;JvNet;inetdb;JvAppFrm;FmxTeeUI;JvDotNetCtrls;fmx;fmxdae;frxDB25;CPortLib;frxTee25;JvWizards;dbexpress;IndyCore;OnGuardDR;PCSC;vclx;ZParseSql;JvPageComps;dsnap;IcsVclD102Run;bdertl;JvDB;VCLRESTComponents;JclDeveloperTools;IcsFmxD102Run;vclie;l4000_package;bindengine;DBXMySQLDriver;JvCmp;FireDACMySQLDriver;JvHMI;FireDACCommonODBC;IndyIPCommon;bindcompdbx;JvCustom;vcl;IndyIPServer;Datamatrix;JvXPCtrls;IndySystem;dsnapcon;FireDACMSAccDriver;fmxFireDAC;vclimg;ZDbc;TeeDB;Jcl;JvCore;JvCrypt;FireDACPgDriver;FMXTee;DbxCommonDriver;JvDlgs;JvRuntimeDesign;JvManagedThreads;Tee;AsyncProDR;xmlrtl;frx25;fmxobj;vclwinx;JvTimeFramework;rtl;IPDA018;DbxClientDriver;CamRemoteD103;CustomIPTransport;vcldsnap;JvSystem;JvStdCtrls;bindcomp;appanalytics;ZPlain;IndyIPClient;SelectLine;bindcompvcl;vcldbx;TeeUI;JvDocking;dbxcds;VclSmp;JvPascalInterpreter;adortl;JclVcl;dsnapxml;dbrtl;IndyProtocols;inetdbxpress;IcsCommonD102Run;JvControls;JvPrintPreview;OnGuardFMXDR;JclContainers;fmxase;$(DCC_UsePackage) + Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace) + Debug + true + CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProgramID=com.embarcadero.$(MSBuildProjectName);ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments= + 1033 + $(BDS)\bin\default_app.manifest + + + DBXSqliteDriver;DBXInterBaseDriver;vclactnband;ZCore;vclFireDAC;tethering;FireDACADSDriver;vcltouch;vcldb;bindcompfmx;inetdb;FmxTeeUI;fmx;fmxdae;CPortLib;dbexpress;IndyCore;OnGuardDR;vclx;dsnap;IcsVclD102Run;VCLRESTComponents;IcsFmxD102Run;vclie;bindengine;DBXMySQLDriver;FireDACMySQLDriver;FireDACCommonODBC;IndyIPCommon;bindcompdbx;vcl;IndyIPServer;IndySystem;dsnapcon;FireDACMSAccDriver;fmxFireDAC;vclimg;TeeDB;FireDACPgDriver;FMXTee;DbxCommonDriver;Tee;AsyncProDR;xmlrtl;fmxobj;vclwinx;rtl;DbxClientDriver;CamRemoteD103;CustomIPTransport;vcldsnap;bindcomp;appanalytics;IndyIPClient;bindcompvcl;TeeUI;dbxcds;VclSmp;adortl;dsnapxml;dbrtl;IndyProtocols;inetdbxpress;IcsCommonD102Run;OnGuardFMXDR;fmxase;$(DCC_UsePackage) + + + DEBUG;$(DCC_Define) + true + false + true + true + true + + + false + true + true + true + 1033 + + + false + RELEASE;$(DCC_Define) + 0 + 0 + + + true + true + + + + MainSource + + +
main
+ dfm + + + + Cfg_2 + Base + + + Base + + + Cfg_1 + Base + + + + Delphi.Personality.12 + Application + + + + DBKonverter.dpr + + + PCSC_COMP + Embarcadero C++Builder-Package für Office 2000-Server + Embarcadero C++Builder-Package für Office XP-Server + Microsoft Office 2000 Beispiele für gekapselte Komponenten für Automatisierungsserver + Microsoft Office XP Beispiele für gekapselte Komponenten für Automation Server + + + + + + DBKonverter.exe + true + + + + + 1 + + + Contents\MacOS + 1 + + + Contents\MacOS + 0 + + + + + classes + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + library\lib\armeabi + 1 + + + + + library\lib\mips + 1 + + + + + library\lib\armeabi-v7a + 1 + + + + + res\drawable + 1 + + + + + res\values + 1 + + + + + res\drawable + 1 + + + + + res\drawable-xxhdpi + 1 + + + + + res\drawable-ldpi + 1 + + + + + res\drawable-mdpi + 1 + + + + + res\drawable-hdpi + 1 + + + + + res\drawable-xhdpi + 1 + + + + + res\drawable-small + 1 + + + + + res\drawable-normal + 1 + + + + + res\drawable-large + 1 + + + + + res\drawable-xlarge + 1 + + + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + Contents\MacOS + 1 + .framework + + + 0 + + + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + 0 + .dll;.bpl + + + + + 1 + .dylib + + + 1 + .dylib + + + 1 + .dylib + + + Contents\MacOS + 1 + .dylib + + + 0 + .bpl + + + + + 0 + + + 0 + + + 0 + + + 0 + + + Contents\Resources\StartUp\ + 0 + + + 0 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + ..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF + 1 + + + + + 1 + + + 1 + + + + + ..\ + 1 + + + ..\ + 1 + + + + + 1 + + + 1 + + + 1 + + + + + 1 + + + 1 + + + 1 + + + + + ..\ + 1 + + + + + Contents + 1 + + + + + Contents\Resources + 1 + + + + + library\lib\armeabi-v7a + 1 + + + 1 + + + 1 + + + 1 + + + 1 + + + Contents\MacOS + 1 + + + 0 + + + + + 1 + + + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + Assets + 1 + + + Assets + 1 + + + + + + + + + + + + + True + False + + + 12 + + + + + diff --git a/DBKonverter.dproj.local b/DBKonverter.dproj.local new file mode 100644 index 0000000..c739bde --- /dev/null +++ b/DBKonverter.dproj.local @@ -0,0 +1,10 @@ + + + + 1899.12.30 00:00:00.000.435,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.dfm=D:\Projekte\DBKonverter\Unit1.dfm + 1899.12.30 00:00:00.000.616,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Project46.dproj=D:\Projekte\DBKonverter\DBKonverter.dproj + 1899.12.30 00:00:00.000.435,C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.pas=D:\Projekte\DBKonverter\Unit1.pas + 1899.12.30 00:00:00.000.301,=C:\Users\tminkenberg\Documents\Embarcadero\Studio\Projekte\Unit42.pas + 2024.10.11 14:38:12.467,=D:\Projekte\Str_Tool\Str_Tool_UTF.pas + + diff --git a/DBKonverter.identcache b/DBKonverter.identcache new file mode 100644 index 0000000..e6501e6 Binary files /dev/null and b/DBKonverter.identcache differ diff --git a/DBKonverter.res b/DBKonverter.res new file mode 100644 index 0000000..bf7e57d Binary files /dev/null and b/DBKonverter.res differ diff --git a/DBKonverter.stat b/DBKonverter.stat new file mode 100644 index 0000000..3afec55 --- /dev/null +++ b/DBKonverter.stat @@ -0,0 +1,10 @@ +[Stats] +EditorSecs=765 +DesignerSecs=91 +InspectorSecs=263 +CompileSecs=41164 +OtherSecs=249 +StartTime=19.12.2023 17:20:49 +RealKeys=0 +EffectiveKeys=0 +DebugSecs=1359 diff --git a/Unit1.dfm b/Unit1.dfm new file mode 100644 index 0000000..8bcd9c4 --- /dev/null +++ b/Unit1.dfm @@ -0,0 +1,140 @@ +object main: Tmain + Left = 0 + Top = 0 + BorderIcons = [biSystemMenu, biMinimize] + BorderStyle = bsSingle + Caption = 'DBKonverter' + ClientHeight = 641 + ClientWidth = 1153 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object sfl: TLabel + Left = 155 + Top = 21 + Width = 3 + Height = 13 + end + object BitBtn1: TBitBtn + Left = 8 + Top = 16 + Width = 133 + Height = 25 + Caption = 'Quelldatei w'#228'hlen' + TabOrder = 0 + OnClick = BitBtn1Click + end + object JvDBGrid1: TJvDBGrid + Left = 0 + Top = 47 + Width = 1153 + Height = 524 + DataSource = DS + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + SelectColumnsDialogStrings.Caption = 'Select columns' + SelectColumnsDialogStrings.OK = '&OK' + SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' + EditControls = <> + RowsHeight = 17 + TitleRowHeight = 17 + end + object BitBtn2: TBitBtn + Left = 1000 + Top = 16 + Width = 136 + Height = 25 + Caption = 'Konvertieren' + Enabled = False + TabOrder = 2 + OnClick = BitBtn2Click + end + object ST: TStatusBar + Left = 0 + Top = 609 + Width = 1153 + Height = 32 + Panels = < + item + Width = 300 + end + item + Width = 300 + end + item + Width = 300 + end + item + Width = 300 + end> + end + object JvDBNavigator1: TJvDBNavigator + Left = 5 + Top = 577 + Width = 1140 + Height = 25 + DataSource = DS + TabOrder = 4 + end + object OD: TOpenDialog + DefaultExt = 'db' + Filter = 'Paradox Dateien|*.db' + Options = [ofHideReadOnly, ofAllowMultiSelect, ofEnableSizing] + Left = 20 + Top = 56 + end + object T1: TTable + TableType = ttParadox + Left = 56 + Top = 56 + end + object DS: TDataSource + DataSet = T1 + Left = 92 + Top = 56 + end + object ZDB: TZConnection + ControlsCodePage = cCP_UTF16 + Catalog = 'AUFTRAX' + Properties.Strings = ( + 'RawStringEncoding=DB_CP') + HostName = '' + Port = 0 + Database = + 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Init' + + 'ial Catalog="";Data Source=WIN10-TM\SELECTLINE;Initial File Name' + + '="";Server SPN=""' + User = 'sa' + Password = 'Elfio2004' + Protocol = 'ado' + Left = 1068 + Top = 60 + end + object ZT1: TZTable + Connection = ZDB + TableName = 'AUFTRAX.dbo.adrbrief' + Left = 1068 + Top = 108 + end + object ZQ1: TZQuery + Connection = ZDB + Params = <> + Left = 1068 + Top = 160 + end + object AP: TAppPath + Left = 128 + Top = 56 + end +end diff --git a/Unit1.pas b/Unit1.pas new file mode 100644 index 0000000..27973d6 --- /dev/null +++ b/Unit1.pas @@ -0,0 +1,190 @@ +UNIT Unit1; + +INTERFACE + +USES + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, + Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, + ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, + ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, + JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; + +TYPE + Tmain = CLASS(TForm) + BitBtn1: TBitBtn; + OD: TOpenDialog; + sfl: TLabel; + T1: TTable; + DS: TDataSource; + JvDBGrid1: TJvDBGrid; + ZDB: TZConnection; + ZT1: TZTable; + BitBtn2: TBitBtn; + ZQ1: TZQuery; + ST: TStatusBar; + JvDBNavigator1: TJvDBNavigator; + AP: TAppPath; + PROCEDURE BitBtn1Click(Sender: TObject); + PROCEDURE BitBtn2Click(Sender: TObject); + PROCEDURE FormCreate(Sender: TObject); + PRIVATE + { Private-Deklarationen } + PUBLIC + { Public-Deklarationen } + END; + +VAR + main: Tmain; + sfile: STRING; + Server, User, Password, Catalog: STRING; + +IMPLEMENTATION + +{$R *.dfm} +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn1Click(Sender: TObject); + +BEGIN + IF OD.Execute THEN + BEGIN + sfile := OD.FileName; + sfl.Caption := OD.FileName; + T1.Active := False; + T1.DatabaseName := ExtractFileDir(OD.FileName); + T1.TableName := ExtractFilename(OD.FileName); + T1.Active := TRUE; + ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datenstze'; + ST.Refresh; + BitBtn2.Enabled := TRUE; + END; +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn2Click(Sender: TObject); + +VAR + i, rc, fc: Integer; + fn: STRING; + createSQL: TStringList; + +BEGIN + FOR fc := 0 TO OD.Files.count - 1 DO + BEGIN + sfile := OD.Files[fc]; + sfl.Caption := OD.Files[fc]; + T1.Active := False; + T1.DatabaseName := ExtractFileDir(OD.Files[fc]); + T1.TableName := ExtractFilename(OD.Files[fc]); + T1.Active := TRUE; + ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datenstze'; + ST.Refresh; + fn := ExtractFilename(OD.Files[fc]); + fn := Copy(fn, 1, POS('.', fn) - 1); + ZQ1.SQL.Clear; + ZDB.Connect; + ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); + ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); + ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); + FOR i := 0 TO T1.Fielddefs.count - 1 DO + BEGIN + IF T1.Fielddefs[i].Datatype = ftString THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftBoolean THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' bit NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' float NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftCurrency THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' datetime NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftInteger THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE + BEGIN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + END; + END; + ZQ1.SQL[ZQ1.SQL.count - 1] := FilterChar(ZQ1.SQL[ZQ1.SQL.count - 1], ','); + ZQ1.SQL.Add(');'); + ZQ1.ExecSQL; + ZT1.Active := False; + ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); + ZT1.Active := TRUE; + T1.First; + rc := 0; + REPEAT + inc(rc); + ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); + ST.Refresh; + ZT1.Append; + FOR i := 0 TO T1.Fields.count - 1 DO + BEGIN + IF T1.Fields[i].value <> NULL THEN + BEGIN + TRY + IF T1.Fielddefs[i].Datatype = ftString THEN + ZT1.Fields[i].Text := T1.Fields[i].Text + ELSE + ZT1.Fields[i].value := T1.Fields[i].value + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(T1.Fielddefs[i].Name); + END; + END; + END; + END; + TRY + ZT1.Post; + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(e.Message); + END; + END; + T1.Next; + application.ProcessMessages; + UNTIL T1.Eof;; + END; + MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.FormCreate(Sender: TObject); + +VAR + ini: TIniFile; + +BEGIN + ZDB.Connected := False; + ini := TIniFile.Create(AP.AppPath + 'config.ini'); + Server := ini.ReadString('SETTINGS', 'SERVER', ''); + User := ini.ReadString('SETTINGS', 'USER', ''); + Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); + Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); + ini.Free; + ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; + ZDB.HostName := Server; + ZDB.User := User; + ZDB.Password := Password; + ZDB.Catalog := Catalog; + ZDB.Connected := TRUE; + ST.Panels[1].Text := 'Server: ' + Server; + ST.Panels[2].Text := 'Datenbank: ' + Catalog; + ST.Panels[3].Text := 'DB-User: ' + User; + ST.Refresh; +END; + +// ----------------------------------------------------------------------------- + +END. diff --git a/Win32/Debug/AppPath.dcu b/Win32/Debug/AppPath.dcu new file mode 100644 index 0000000..a95ca4b Binary files /dev/null and b/Win32/Debug/AppPath.dcu differ diff --git a/Win32/Debug/DBKonverter.exe b/Win32/Debug/DBKonverter.exe new file mode 100644 index 0000000..b928121 Binary files /dev/null and b/Win32/Debug/DBKonverter.exe differ diff --git a/Win32/Debug/README.txt b/Win32/Debug/README.txt new file mode 100644 index 0000000..6c27c88 --- /dev/null +++ b/Win32/Debug/README.txt @@ -0,0 +1,18 @@ +This file was provided by: https://www.dll-files.com/ + +If you downloaded it from somewhere else, please let us know: info@dll-files.com + +DLL-Files.com is owned and operated by Tilf AB, Sweden. The collection of DLL files as a whole (falls under the “collection copyright” laws) are © Copyright Tilf AB + +The individual DLL files are provided free of charge with the understanding that the user is familiar with their use. + +If you need help installing the file, please see: +https://www.dll-files.com/support/ +or ask your question in the forum: +https://forum.dll-files.com/ + +DISCLAIMER AND LIMITATION OF LIABILITY + +The Following Refers to all Files with the Extension of "dll" or dlls compressed as "zip". + +All files are provided on an as is basis. No guarantees or warranties are given or implied. Downloading files from this site is free of charge and the user assumes all risks of any damages that may occur, including but not limited to loss of data, damages to hardware, or loss of business profits. We do our best to ensure that all files are virus-free using available means. However, all files have not been tested for functionality or contamination. Many have been sent to us by visitors like yourself. Thus, we suggest that you do a virus scan using an up-to-date version of an anti-virus program before use. Please use at your own risk. diff --git a/Win32/Debug/Str_Tool_UTF.dcu b/Win32/Debug/Str_Tool_UTF.dcu new file mode 100644 index 0000000..5f87eb6 Binary files /dev/null and b/Win32/Debug/Str_Tool_UTF.dcu differ diff --git a/Win32/Debug/Unit1.dcu b/Win32/Debug/Unit1.dcu new file mode 100644 index 0000000..0845364 Binary files /dev/null and b/Win32/Debug/Unit1.dcu differ diff --git a/Win32/Debug/ZAbstractConnection.dcu b/Win32/Debug/ZAbstractConnection.dcu new file mode 100644 index 0000000..f3b6bfd Binary files /dev/null and b/Win32/Debug/ZAbstractConnection.dcu differ diff --git a/Win32/Debug/ZAbstractDataset.dcu b/Win32/Debug/ZAbstractDataset.dcu new file mode 100644 index 0000000..8fbfbc4 Binary files /dev/null and b/Win32/Debug/ZAbstractDataset.dcu differ diff --git a/Win32/Debug/ZAbstractRODataset.dcu b/Win32/Debug/ZAbstractRODataset.dcu new file mode 100644 index 0000000..6512c15 Binary files /dev/null and b/Win32/Debug/ZAbstractRODataset.dcu differ diff --git a/Win32/Debug/ZAbstractTable.dcu b/Win32/Debug/ZAbstractTable.dcu new file mode 100644 index 0000000..4f133f1 Binary files /dev/null and b/Win32/Debug/ZAbstractTable.dcu differ diff --git a/Win32/Debug/ZAdoToken.dcu b/Win32/Debug/ZAdoToken.dcu new file mode 100644 index 0000000..1ebfaec Binary files /dev/null and b/Win32/Debug/ZAdoToken.dcu differ diff --git a/Win32/Debug/ZBase64.dcu b/Win32/Debug/ZBase64.dcu new file mode 100644 index 0000000..57c31b4 Binary files /dev/null and b/Win32/Debug/ZBase64.dcu differ diff --git a/Win32/Debug/ZClasses.dcu b/Win32/Debug/ZClasses.dcu new file mode 100644 index 0000000..d83eea4 Binary files /dev/null and b/Win32/Debug/ZClasses.dcu differ diff --git a/Win32/Debug/ZCollections.dcu b/Win32/Debug/ZCollections.dcu new file mode 100644 index 0000000..29387b2 Binary files /dev/null and b/Win32/Debug/ZCollections.dcu differ diff --git a/Win32/Debug/ZCompatibility.dcu b/Win32/Debug/ZCompatibility.dcu new file mode 100644 index 0000000..4a0f89e Binary files /dev/null and b/Win32/Debug/ZCompatibility.dcu differ diff --git a/Win32/Debug/ZConnection.dcu b/Win32/Debug/ZConnection.dcu new file mode 100644 index 0000000..88a489a Binary files /dev/null and b/Win32/Debug/ZConnection.dcu differ diff --git a/Win32/Debug/ZDataset.dcu b/Win32/Debug/ZDataset.dcu new file mode 100644 index 0000000..9b4e397 Binary files /dev/null and b/Win32/Debug/ZDataset.dcu differ diff --git a/Win32/Debug/ZDatasetParam.dcu b/Win32/Debug/ZDatasetParam.dcu new file mode 100644 index 0000000..8b97dcd Binary files /dev/null and b/Win32/Debug/ZDatasetParam.dcu differ diff --git a/Win32/Debug/ZDatasetUtils.dcu b/Win32/Debug/ZDatasetUtils.dcu new file mode 100644 index 0000000..f013582 Binary files /dev/null and b/Win32/Debug/ZDatasetUtils.dcu differ diff --git a/Win32/Debug/ZDbcASA.dcu b/Win32/Debug/ZDbcASA.dcu new file mode 100644 index 0000000..0bf0ec8 Binary files /dev/null and b/Win32/Debug/ZDbcASA.dcu differ diff --git a/Win32/Debug/ZDbcASAMetadata.dcu b/Win32/Debug/ZDbcASAMetadata.dcu new file mode 100644 index 0000000..0990439 Binary files /dev/null and b/Win32/Debug/ZDbcASAMetadata.dcu differ diff --git a/Win32/Debug/ZDbcASAResultSet.dcu b/Win32/Debug/ZDbcASAResultSet.dcu new file mode 100644 index 0000000..ab5b6ae Binary files /dev/null and b/Win32/Debug/ZDbcASAResultSet.dcu differ diff --git a/Win32/Debug/ZDbcASAStatement.dcu b/Win32/Debug/ZDbcASAStatement.dcu new file mode 100644 index 0000000..22cfbb3 Binary files /dev/null and b/Win32/Debug/ZDbcASAStatement.dcu differ diff --git a/Win32/Debug/ZDbcASAUtils.dcu b/Win32/Debug/ZDbcASAUtils.dcu new file mode 100644 index 0000000..e347d94 Binary files /dev/null and b/Win32/Debug/ZDbcASAUtils.dcu differ diff --git a/Win32/Debug/ZDbcAdo.dcu b/Win32/Debug/ZDbcAdo.dcu new file mode 100644 index 0000000..0051591 Binary files /dev/null and b/Win32/Debug/ZDbcAdo.dcu differ diff --git a/Win32/Debug/ZDbcAdoMetadata.dcu b/Win32/Debug/ZDbcAdoMetadata.dcu new file mode 100644 index 0000000..3675765 Binary files /dev/null and b/Win32/Debug/ZDbcAdoMetadata.dcu differ diff --git a/Win32/Debug/ZDbcAdoResultSet.dcu b/Win32/Debug/ZDbcAdoResultSet.dcu new file mode 100644 index 0000000..585475b Binary files /dev/null and b/Win32/Debug/ZDbcAdoResultSet.dcu differ diff --git a/Win32/Debug/ZDbcAdoStatement.dcu b/Win32/Debug/ZDbcAdoStatement.dcu new file mode 100644 index 0000000..7265979 Binary files /dev/null and b/Win32/Debug/ZDbcAdoStatement.dcu differ diff --git a/Win32/Debug/ZDbcAdoUtils.dcu b/Win32/Debug/ZDbcAdoUtils.dcu new file mode 100644 index 0000000..31785b1 Binary files /dev/null and b/Win32/Debug/ZDbcAdoUtils.dcu differ diff --git a/Win32/Debug/ZDbcBeginnerStatement.dcu b/Win32/Debug/ZDbcBeginnerStatement.dcu new file mode 100644 index 0000000..891b397 Binary files /dev/null and b/Win32/Debug/ZDbcBeginnerStatement.dcu differ diff --git a/Win32/Debug/ZDbcCache.dcu b/Win32/Debug/ZDbcCache.dcu new file mode 100644 index 0000000..6dca626 Binary files /dev/null and b/Win32/Debug/ZDbcCache.dcu differ diff --git a/Win32/Debug/ZDbcCachedResultSet.dcu b/Win32/Debug/ZDbcCachedResultSet.dcu new file mode 100644 index 0000000..70ced3f Binary files /dev/null and b/Win32/Debug/ZDbcCachedResultSet.dcu differ diff --git a/Win32/Debug/ZDbcConnection.dcu b/Win32/Debug/ZDbcConnection.dcu new file mode 100644 index 0000000..b4ffb32 Binary files /dev/null and b/Win32/Debug/ZDbcConnection.dcu differ diff --git a/Win32/Debug/ZDbcDbLib.dcu b/Win32/Debug/ZDbcDbLib.dcu new file mode 100644 index 0000000..b19b9af Binary files /dev/null and b/Win32/Debug/ZDbcDbLib.dcu differ diff --git a/Win32/Debug/ZDbcDbLibMetadata.dcu b/Win32/Debug/ZDbcDbLibMetadata.dcu new file mode 100644 index 0000000..4b81bf8 Binary files /dev/null and b/Win32/Debug/ZDbcDbLibMetadata.dcu differ diff --git a/Win32/Debug/ZDbcDbLibResultSet.dcu b/Win32/Debug/ZDbcDbLibResultSet.dcu new file mode 100644 index 0000000..7da3661 Binary files /dev/null and b/Win32/Debug/ZDbcDbLibResultSet.dcu differ diff --git a/Win32/Debug/ZDbcDbLibStatement.dcu b/Win32/Debug/ZDbcDbLibStatement.dcu new file mode 100644 index 0000000..efe424b Binary files /dev/null and b/Win32/Debug/ZDbcDbLibStatement.dcu differ diff --git a/Win32/Debug/ZDbcDbLibUtils.dcu b/Win32/Debug/ZDbcDbLibUtils.dcu new file mode 100644 index 0000000..90cba53 Binary files /dev/null and b/Win32/Debug/ZDbcDbLibUtils.dcu differ diff --git a/Win32/Debug/ZDbcFirebird.dcu b/Win32/Debug/ZDbcFirebird.dcu new file mode 100644 index 0000000..5c1a4ca Binary files /dev/null and b/Win32/Debug/ZDbcFirebird.dcu differ diff --git a/Win32/Debug/ZDbcFirebirdInterbase.dcu b/Win32/Debug/ZDbcFirebirdInterbase.dcu new file mode 100644 index 0000000..8a2bf2d Binary files /dev/null and b/Win32/Debug/ZDbcFirebirdInterbase.dcu differ diff --git a/Win32/Debug/ZDbcFirebirdResultSet.dcu b/Win32/Debug/ZDbcFirebirdResultSet.dcu new file mode 100644 index 0000000..595bd13 Binary files /dev/null and b/Win32/Debug/ZDbcFirebirdResultSet.dcu differ diff --git a/Win32/Debug/ZDbcFirebirdStatement.dcu b/Win32/Debug/ZDbcFirebirdStatement.dcu new file mode 100644 index 0000000..8a4a262 Binary files /dev/null and b/Win32/Debug/ZDbcFirebirdStatement.dcu differ diff --git a/Win32/Debug/ZDbcGenericResolver.dcu b/Win32/Debug/ZDbcGenericResolver.dcu new file mode 100644 index 0000000..69d6704 Binary files /dev/null and b/Win32/Debug/ZDbcGenericResolver.dcu differ diff --git a/Win32/Debug/ZDbcInterbase6.dcu b/Win32/Debug/ZDbcInterbase6.dcu new file mode 100644 index 0000000..861f6cf Binary files /dev/null and b/Win32/Debug/ZDbcInterbase6.dcu differ diff --git a/Win32/Debug/ZDbcInterbase6ResultSet.dcu b/Win32/Debug/ZDbcInterbase6ResultSet.dcu new file mode 100644 index 0000000..eb9b833 Binary files /dev/null and b/Win32/Debug/ZDbcInterbase6ResultSet.dcu differ diff --git a/Win32/Debug/ZDbcInterbase6Statement.dcu b/Win32/Debug/ZDbcInterbase6Statement.dcu new file mode 100644 index 0000000..fbd4b7a Binary files /dev/null and b/Win32/Debug/ZDbcInterbase6Statement.dcu differ diff --git a/Win32/Debug/ZDbcInterbase6Utils.dcu b/Win32/Debug/ZDbcInterbase6Utils.dcu new file mode 100644 index 0000000..85a631b Binary files /dev/null and b/Win32/Debug/ZDbcInterbase6Utils.dcu differ diff --git a/Win32/Debug/ZDbcInterbaseFirebirdMetadata.dcu b/Win32/Debug/ZDbcInterbaseFirebirdMetadata.dcu new file mode 100644 index 0000000..a0a405e Binary files /dev/null and b/Win32/Debug/ZDbcInterbaseFirebirdMetadata.dcu differ diff --git a/Win32/Debug/ZDbcIntfs.dcu b/Win32/Debug/ZDbcIntfs.dcu new file mode 100644 index 0000000..ba1c4a1 Binary files /dev/null and b/Win32/Debug/ZDbcIntfs.dcu differ diff --git a/Win32/Debug/ZDbcLogging.dcu b/Win32/Debug/ZDbcLogging.dcu new file mode 100644 index 0000000..92b192d Binary files /dev/null and b/Win32/Debug/ZDbcLogging.dcu differ diff --git a/Win32/Debug/ZDbcMetadata.dcu b/Win32/Debug/ZDbcMetadata.dcu new file mode 100644 index 0000000..739e792 Binary files /dev/null and b/Win32/Debug/ZDbcMetadata.dcu differ diff --git a/Win32/Debug/ZDbcMySql.dcu b/Win32/Debug/ZDbcMySql.dcu new file mode 100644 index 0000000..ee2c87e Binary files /dev/null and b/Win32/Debug/ZDbcMySql.dcu differ diff --git a/Win32/Debug/ZDbcMySqlMetadata.dcu b/Win32/Debug/ZDbcMySqlMetadata.dcu new file mode 100644 index 0000000..715a426 Binary files /dev/null and b/Win32/Debug/ZDbcMySqlMetadata.dcu differ diff --git a/Win32/Debug/ZDbcMySqlResultSet.dcu b/Win32/Debug/ZDbcMySqlResultSet.dcu new file mode 100644 index 0000000..e4a21a2 Binary files /dev/null and b/Win32/Debug/ZDbcMySqlResultSet.dcu differ diff --git a/Win32/Debug/ZDbcMySqlStatement.dcu b/Win32/Debug/ZDbcMySqlStatement.dcu new file mode 100644 index 0000000..afeff13 Binary files /dev/null and b/Win32/Debug/ZDbcMySqlStatement.dcu differ diff --git a/Win32/Debug/ZDbcMySqlUtils.dcu b/Win32/Debug/ZDbcMySqlUtils.dcu new file mode 100644 index 0000000..d1f62b7 Binary files /dev/null and b/Win32/Debug/ZDbcMySqlUtils.dcu differ diff --git a/Win32/Debug/ZDbcODBCCon.dcu b/Win32/Debug/ZDbcODBCCon.dcu new file mode 100644 index 0000000..b6d2407 Binary files /dev/null and b/Win32/Debug/ZDbcODBCCon.dcu differ diff --git a/Win32/Debug/ZDbcODBCMetadata.dcu b/Win32/Debug/ZDbcODBCMetadata.dcu new file mode 100644 index 0000000..35bc1eb Binary files /dev/null and b/Win32/Debug/ZDbcODBCMetadata.dcu differ diff --git a/Win32/Debug/ZDbcODBCResultSet.dcu b/Win32/Debug/ZDbcODBCResultSet.dcu new file mode 100644 index 0000000..510c9a6 Binary files /dev/null and b/Win32/Debug/ZDbcODBCResultSet.dcu differ diff --git a/Win32/Debug/ZDbcODBCStatement.dcu b/Win32/Debug/ZDbcODBCStatement.dcu new file mode 100644 index 0000000..84f1c7c Binary files /dev/null and b/Win32/Debug/ZDbcODBCStatement.dcu differ diff --git a/Win32/Debug/ZDbcODBCUtils.dcu b/Win32/Debug/ZDbcODBCUtils.dcu new file mode 100644 index 0000000..dfbc760 Binary files /dev/null and b/Win32/Debug/ZDbcODBCUtils.dcu differ diff --git a/Win32/Debug/ZDbcOleDB.dcu b/Win32/Debug/ZDbcOleDB.dcu new file mode 100644 index 0000000..1150e36 Binary files /dev/null and b/Win32/Debug/ZDbcOleDB.dcu differ diff --git a/Win32/Debug/ZDbcOleDBMetadata.dcu b/Win32/Debug/ZDbcOleDBMetadata.dcu new file mode 100644 index 0000000..e0e8378 Binary files /dev/null and b/Win32/Debug/ZDbcOleDBMetadata.dcu differ diff --git a/Win32/Debug/ZDbcOleDBResultSet.dcu b/Win32/Debug/ZDbcOleDBResultSet.dcu new file mode 100644 index 0000000..29dfd9e Binary files /dev/null and b/Win32/Debug/ZDbcOleDBResultSet.dcu differ diff --git a/Win32/Debug/ZDbcOleDBStatement.dcu b/Win32/Debug/ZDbcOleDBStatement.dcu new file mode 100644 index 0000000..e4022a2 Binary files /dev/null and b/Win32/Debug/ZDbcOleDBStatement.dcu differ diff --git a/Win32/Debug/ZDbcOleDBUtils.dcu b/Win32/Debug/ZDbcOleDBUtils.dcu new file mode 100644 index 0000000..7935f55 Binary files /dev/null and b/Win32/Debug/ZDbcOleDBUtils.dcu differ diff --git a/Win32/Debug/ZDbcOracle.dcu b/Win32/Debug/ZDbcOracle.dcu new file mode 100644 index 0000000..c44d552 Binary files /dev/null and b/Win32/Debug/ZDbcOracle.dcu differ diff --git a/Win32/Debug/ZDbcOracleMetadata.dcu b/Win32/Debug/ZDbcOracleMetadata.dcu new file mode 100644 index 0000000..8205cac Binary files /dev/null and b/Win32/Debug/ZDbcOracleMetadata.dcu differ diff --git a/Win32/Debug/ZDbcOracleResultSet.dcu b/Win32/Debug/ZDbcOracleResultSet.dcu new file mode 100644 index 0000000..d6a716d Binary files /dev/null and b/Win32/Debug/ZDbcOracleResultSet.dcu differ diff --git a/Win32/Debug/ZDbcOracleStatement.dcu b/Win32/Debug/ZDbcOracleStatement.dcu new file mode 100644 index 0000000..f156c05 Binary files /dev/null and b/Win32/Debug/ZDbcOracleStatement.dcu differ diff --git a/Win32/Debug/ZDbcOracleUtils.dcu b/Win32/Debug/ZDbcOracleUtils.dcu new file mode 100644 index 0000000..0be45a0 Binary files /dev/null and b/Win32/Debug/ZDbcOracleUtils.dcu differ diff --git a/Win32/Debug/ZDbcPooled.dcu b/Win32/Debug/ZDbcPooled.dcu new file mode 100644 index 0000000..cf7ca8b Binary files /dev/null and b/Win32/Debug/ZDbcPooled.dcu differ diff --git a/Win32/Debug/ZDbcPostgreSql.dcu b/Win32/Debug/ZDbcPostgreSql.dcu new file mode 100644 index 0000000..86c217b Binary files /dev/null and b/Win32/Debug/ZDbcPostgreSql.dcu differ diff --git a/Win32/Debug/ZDbcPostgreSqlMetadata.dcu b/Win32/Debug/ZDbcPostgreSqlMetadata.dcu new file mode 100644 index 0000000..65e3aaf Binary files /dev/null and b/Win32/Debug/ZDbcPostgreSqlMetadata.dcu differ diff --git a/Win32/Debug/ZDbcPostgreSqlResultSet.dcu b/Win32/Debug/ZDbcPostgreSqlResultSet.dcu new file mode 100644 index 0000000..260231f Binary files /dev/null and b/Win32/Debug/ZDbcPostgreSqlResultSet.dcu differ diff --git a/Win32/Debug/ZDbcPostgreSqlStatement.dcu b/Win32/Debug/ZDbcPostgreSqlStatement.dcu new file mode 100644 index 0000000..1db651d Binary files /dev/null and b/Win32/Debug/ZDbcPostgreSqlStatement.dcu differ diff --git a/Win32/Debug/ZDbcPostgreSqlUtils.dcu b/Win32/Debug/ZDbcPostgreSqlUtils.dcu new file mode 100644 index 0000000..56cc877 Binary files /dev/null and b/Win32/Debug/ZDbcPostgreSqlUtils.dcu differ diff --git a/Win32/Debug/ZDbcProperties.dcu b/Win32/Debug/ZDbcProperties.dcu new file mode 100644 index 0000000..d8f9a47 Binary files /dev/null and b/Win32/Debug/ZDbcProperties.dcu differ diff --git a/Win32/Debug/ZDbcProxy.dcu b/Win32/Debug/ZDbcProxy.dcu new file mode 100644 index 0000000..1912f3b Binary files /dev/null and b/Win32/Debug/ZDbcProxy.dcu differ diff --git a/Win32/Debug/ZDbcProxyMetadata.dcu b/Win32/Debug/ZDbcProxyMetadata.dcu new file mode 100644 index 0000000..6c641f1 Binary files /dev/null and b/Win32/Debug/ZDbcProxyMetadata.dcu differ diff --git a/Win32/Debug/ZDbcProxyResultSet.dcu b/Win32/Debug/ZDbcProxyResultSet.dcu new file mode 100644 index 0000000..04236e6 Binary files /dev/null and b/Win32/Debug/ZDbcProxyResultSet.dcu differ diff --git a/Win32/Debug/ZDbcProxyStatement.dcu b/Win32/Debug/ZDbcProxyStatement.dcu new file mode 100644 index 0000000..4dc09a1 Binary files /dev/null and b/Win32/Debug/ZDbcProxyStatement.dcu differ diff --git a/Win32/Debug/ZDbcProxyUtils.dcu b/Win32/Debug/ZDbcProxyUtils.dcu new file mode 100644 index 0000000..3bb6931 Binary files /dev/null and b/Win32/Debug/ZDbcProxyUtils.dcu differ diff --git a/Win32/Debug/ZDbcResultSet.dcu b/Win32/Debug/ZDbcResultSet.dcu new file mode 100644 index 0000000..5fc13d1 Binary files /dev/null and b/Win32/Debug/ZDbcResultSet.dcu differ diff --git a/Win32/Debug/ZDbcResultSetMetadata.dcu b/Win32/Debug/ZDbcResultSetMetadata.dcu new file mode 100644 index 0000000..2493a57 Binary files /dev/null and b/Win32/Debug/ZDbcResultSetMetadata.dcu differ diff --git a/Win32/Debug/ZDbcSQLAnywhere.dcu b/Win32/Debug/ZDbcSQLAnywhere.dcu new file mode 100644 index 0000000..0bc571f Binary files /dev/null and b/Win32/Debug/ZDbcSQLAnywhere.dcu differ diff --git a/Win32/Debug/ZDbcSQLAnywhereResultSet.dcu b/Win32/Debug/ZDbcSQLAnywhereResultSet.dcu new file mode 100644 index 0000000..62c4de9 Binary files /dev/null and b/Win32/Debug/ZDbcSQLAnywhereResultSet.dcu differ diff --git a/Win32/Debug/ZDbcSQLAnywhereStatement.dcu b/Win32/Debug/ZDbcSQLAnywhereStatement.dcu new file mode 100644 index 0000000..e312cb4 Binary files /dev/null and b/Win32/Debug/ZDbcSQLAnywhereStatement.dcu differ diff --git a/Win32/Debug/ZDbcSQLAnywhereUtils.dcu b/Win32/Debug/ZDbcSQLAnywhereUtils.dcu new file mode 100644 index 0000000..2b71b68 Binary files /dev/null and b/Win32/Debug/ZDbcSQLAnywhereUtils.dcu differ diff --git a/Win32/Debug/ZDbcSqLite.dcu b/Win32/Debug/ZDbcSqLite.dcu new file mode 100644 index 0000000..ca645b7 Binary files /dev/null and b/Win32/Debug/ZDbcSqLite.dcu differ diff --git a/Win32/Debug/ZDbcSqLiteMetadata.dcu b/Win32/Debug/ZDbcSqLiteMetadata.dcu new file mode 100644 index 0000000..857c6af Binary files /dev/null and b/Win32/Debug/ZDbcSqLiteMetadata.dcu differ diff --git a/Win32/Debug/ZDbcSqLiteResultSet.dcu b/Win32/Debug/ZDbcSqLiteResultSet.dcu new file mode 100644 index 0000000..9fe7d56 Binary files /dev/null and b/Win32/Debug/ZDbcSqLiteResultSet.dcu differ diff --git a/Win32/Debug/ZDbcSqLiteStatement.dcu b/Win32/Debug/ZDbcSqLiteStatement.dcu new file mode 100644 index 0000000..9491b9f Binary files /dev/null and b/Win32/Debug/ZDbcSqLiteStatement.dcu differ diff --git a/Win32/Debug/ZDbcSqLiteUtils.dcu b/Win32/Debug/ZDbcSqLiteUtils.dcu new file mode 100644 index 0000000..799239c Binary files /dev/null and b/Win32/Debug/ZDbcSqLiteUtils.dcu differ diff --git a/Win32/Debug/ZDbcStatement.dcu b/Win32/Debug/ZDbcStatement.dcu new file mode 100644 index 0000000..cd61587 Binary files /dev/null and b/Win32/Debug/ZDbcStatement.dcu differ diff --git a/Win32/Debug/ZDbcUtils.dcu b/Win32/Debug/ZDbcUtils.dcu new file mode 100644 index 0000000..34467c4 Binary files /dev/null and b/Win32/Debug/ZDbcUtils.dcu differ diff --git a/Win32/Debug/ZDbcXmlUtils.dcu b/Win32/Debug/ZDbcXmlUtils.dcu new file mode 100644 index 0000000..bcba97f Binary files /dev/null and b/Win32/Debug/ZDbcXmlUtils.dcu differ diff --git a/Win32/Debug/ZEncoding.dcu b/Win32/Debug/ZEncoding.dcu new file mode 100644 index 0000000..0507175 Binary files /dev/null and b/Win32/Debug/ZEncoding.dcu differ diff --git a/Win32/Debug/ZExceptions.dcu b/Win32/Debug/ZExceptions.dcu new file mode 100644 index 0000000..94a2644 Binary files /dev/null and b/Win32/Debug/ZExceptions.dcu differ diff --git a/Win32/Debug/ZExprParser.dcu b/Win32/Debug/ZExprParser.dcu new file mode 100644 index 0000000..78a7d4a Binary files /dev/null and b/Win32/Debug/ZExprParser.dcu differ diff --git a/Win32/Debug/ZExprToken.dcu b/Win32/Debug/ZExprToken.dcu new file mode 100644 index 0000000..6c80f9d Binary files /dev/null and b/Win32/Debug/ZExprToken.dcu differ diff --git a/Win32/Debug/ZExpression.dcu b/Win32/Debug/ZExpression.dcu new file mode 100644 index 0000000..65309b5 Binary files /dev/null and b/Win32/Debug/ZExpression.dcu differ diff --git a/Win32/Debug/ZFastCode.dcu b/Win32/Debug/ZFastCode.dcu new file mode 100644 index 0000000..0db6e55 Binary files /dev/null and b/Win32/Debug/ZFastCode.dcu differ diff --git a/Win32/Debug/ZFormatSettings.dcu b/Win32/Debug/ZFormatSettings.dcu new file mode 100644 index 0000000..32edfc3 Binary files /dev/null and b/Win32/Debug/ZFormatSettings.dcu differ diff --git a/Win32/Debug/ZFunctions.dcu b/Win32/Debug/ZFunctions.dcu new file mode 100644 index 0000000..3428187 Binary files /dev/null and b/Win32/Debug/ZFunctions.dcu differ diff --git a/Win32/Debug/ZFunctionsConvert.dcu b/Win32/Debug/ZFunctionsConvert.dcu new file mode 100644 index 0000000..a42c378 Binary files /dev/null and b/Win32/Debug/ZFunctionsConvert.dcu differ diff --git a/Win32/Debug/ZFunctionsDateTime.dcu b/Win32/Debug/ZFunctionsDateTime.dcu new file mode 100644 index 0000000..7b8ba99 Binary files /dev/null and b/Win32/Debug/ZFunctionsDateTime.dcu differ diff --git a/Win32/Debug/ZFunctionsMath.dcu b/Win32/Debug/ZFunctionsMath.dcu new file mode 100644 index 0000000..88a6e20 Binary files /dev/null and b/Win32/Debug/ZFunctionsMath.dcu differ diff --git a/Win32/Debug/ZFunctionsOther.dcu b/Win32/Debug/ZFunctionsOther.dcu new file mode 100644 index 0000000..e8337e1 Binary files /dev/null and b/Win32/Debug/ZFunctionsOther.dcu differ diff --git a/Win32/Debug/ZFunctionsStrings.dcu b/Win32/Debug/ZFunctionsStrings.dcu new file mode 100644 index 0000000..495c792 Binary files /dev/null and b/Win32/Debug/ZFunctionsStrings.dcu differ diff --git a/Win32/Debug/ZGenericSqlAnalyser.dcu b/Win32/Debug/ZGenericSqlAnalyser.dcu new file mode 100644 index 0000000..73f7b3b Binary files /dev/null and b/Win32/Debug/ZGenericSqlAnalyser.dcu differ diff --git a/Win32/Debug/ZGenericSqlToken.dcu b/Win32/Debug/ZGenericSqlToken.dcu new file mode 100644 index 0000000..b784450 Binary files /dev/null and b/Win32/Debug/ZGenericSqlToken.dcu differ diff --git a/Win32/Debug/ZInterbaseAnalyser.dcu b/Win32/Debug/ZInterbaseAnalyser.dcu new file mode 100644 index 0000000..9bc4150 Binary files /dev/null and b/Win32/Debug/ZInterbaseAnalyser.dcu differ diff --git a/Win32/Debug/ZInterbaseToken.dcu b/Win32/Debug/ZInterbaseToken.dcu new file mode 100644 index 0000000..903f7fc Binary files /dev/null and b/Win32/Debug/ZInterbaseToken.dcu differ diff --git a/Win32/Debug/ZMatchPattern.dcu b/Win32/Debug/ZMatchPattern.dcu new file mode 100644 index 0000000..87da7cb Binary files /dev/null and b/Win32/Debug/ZMatchPattern.dcu differ diff --git a/Win32/Debug/ZMemTable.dcu b/Win32/Debug/ZMemTable.dcu new file mode 100644 index 0000000..3913060 Binary files /dev/null and b/Win32/Debug/ZMemTable.dcu differ diff --git a/Win32/Debug/ZMessages.dcu b/Win32/Debug/ZMessages.dcu new file mode 100644 index 0000000..ce585dc Binary files /dev/null and b/Win32/Debug/ZMessages.dcu differ diff --git a/Win32/Debug/ZMySqlAnalyser.dcu b/Win32/Debug/ZMySqlAnalyser.dcu new file mode 100644 index 0000000..a4bbce5 Binary files /dev/null and b/Win32/Debug/ZMySqlAnalyser.dcu differ diff --git a/Win32/Debug/ZMySqlToken.dcu b/Win32/Debug/ZMySqlToken.dcu new file mode 100644 index 0000000..b43d6ff Binary files /dev/null and b/Win32/Debug/ZMySqlToken.dcu differ diff --git a/Win32/Debug/ZODBCToken.dcu b/Win32/Debug/ZODBCToken.dcu new file mode 100644 index 0000000..ad041a4 Binary files /dev/null and b/Win32/Debug/ZODBCToken.dcu differ diff --git a/Win32/Debug/ZOleDBToken.dcu b/Win32/Debug/ZOleDBToken.dcu new file mode 100644 index 0000000..d4a0703 Binary files /dev/null and b/Win32/Debug/ZOleDBToken.dcu differ diff --git a/Win32/Debug/ZOracleAnalyser.dcu b/Win32/Debug/ZOracleAnalyser.dcu new file mode 100644 index 0000000..6a3d0cb Binary files /dev/null and b/Win32/Debug/ZOracleAnalyser.dcu differ diff --git a/Win32/Debug/ZOracleToken.dcu b/Win32/Debug/ZOracleToken.dcu new file mode 100644 index 0000000..db5d7f8 Binary files /dev/null and b/Win32/Debug/ZOracleToken.dcu differ diff --git a/Win32/Debug/ZPlainASADriver.dcu b/Win32/Debug/ZPlainASADriver.dcu new file mode 100644 index 0000000..4e82d22 Binary files /dev/null and b/Win32/Debug/ZPlainASADriver.dcu differ diff --git a/Win32/Debug/ZPlainAdo.dcu b/Win32/Debug/ZPlainAdo.dcu new file mode 100644 index 0000000..b3a2b2f Binary files /dev/null and b/Win32/Debug/ZPlainAdo.dcu differ diff --git a/Win32/Debug/ZPlainAdoDriver.dcu b/Win32/Debug/ZPlainAdoDriver.dcu new file mode 100644 index 0000000..ffb6f9c Binary files /dev/null and b/Win32/Debug/ZPlainAdoDriver.dcu differ diff --git a/Win32/Debug/ZPlainDbLibDriver.dcu b/Win32/Debug/ZPlainDbLibDriver.dcu new file mode 100644 index 0000000..d573bd1 Binary files /dev/null and b/Win32/Debug/ZPlainDbLibDriver.dcu differ diff --git a/Win32/Debug/ZPlainDriver.dcu b/Win32/Debug/ZPlainDriver.dcu new file mode 100644 index 0000000..6c4b634 Binary files /dev/null and b/Win32/Debug/ZPlainDriver.dcu differ diff --git a/Win32/Debug/ZPlainFirebird.dcu b/Win32/Debug/ZPlainFirebird.dcu new file mode 100644 index 0000000..1205661 Binary files /dev/null and b/Win32/Debug/ZPlainFirebird.dcu differ diff --git a/Win32/Debug/ZPlainFirebirdInterbaseDriver.dcu b/Win32/Debug/ZPlainFirebirdInterbaseDriver.dcu new file mode 100644 index 0000000..4a64f3f Binary files /dev/null and b/Win32/Debug/ZPlainFirebirdInterbaseDriver.dcu differ diff --git a/Win32/Debug/ZPlainLoader.dcu b/Win32/Debug/ZPlainLoader.dcu new file mode 100644 index 0000000..4d16324 Binary files /dev/null and b/Win32/Debug/ZPlainLoader.dcu differ diff --git a/Win32/Debug/ZPlainMySqlDriver.dcu b/Win32/Debug/ZPlainMySqlDriver.dcu new file mode 100644 index 0000000..1b70810 Binary files /dev/null and b/Win32/Debug/ZPlainMySqlDriver.dcu differ diff --git a/Win32/Debug/ZPlainODBCDriver.dcu b/Win32/Debug/ZPlainODBCDriver.dcu new file mode 100644 index 0000000..001a0a2 Binary files /dev/null and b/Win32/Debug/ZPlainODBCDriver.dcu differ diff --git a/Win32/Debug/ZPlainOleDBDriver.dcu b/Win32/Debug/ZPlainOleDBDriver.dcu new file mode 100644 index 0000000..5cb06db Binary files /dev/null and b/Win32/Debug/ZPlainOleDBDriver.dcu differ diff --git a/Win32/Debug/ZPlainOracleDriver.dcu b/Win32/Debug/ZPlainOracleDriver.dcu new file mode 100644 index 0000000..1be0d61 Binary files /dev/null and b/Win32/Debug/ZPlainOracleDriver.dcu differ diff --git a/Win32/Debug/ZPlainPostgreSqlDriver.dcu b/Win32/Debug/ZPlainPostgreSqlDriver.dcu new file mode 100644 index 0000000..7d26f33 Binary files /dev/null and b/Win32/Debug/ZPlainPostgreSqlDriver.dcu differ diff --git a/Win32/Debug/ZPlainProxyDriver.dcu b/Win32/Debug/ZPlainProxyDriver.dcu new file mode 100644 index 0000000..cfd7c95 Binary files /dev/null and b/Win32/Debug/ZPlainProxyDriver.dcu differ diff --git a/Win32/Debug/ZPlainProxyDriverIntf.dcu b/Win32/Debug/ZPlainProxyDriverIntf.dcu new file mode 100644 index 0000000..cb1a25a Binary files /dev/null and b/Win32/Debug/ZPlainProxyDriverIntf.dcu differ diff --git a/Win32/Debug/ZPlainSQLAnywhere.dcu b/Win32/Debug/ZPlainSQLAnywhere.dcu new file mode 100644 index 0000000..6c1f989 Binary files /dev/null and b/Win32/Debug/ZPlainSQLAnywhere.dcu differ diff --git a/Win32/Debug/ZPlainSqLiteDriver.dcu b/Win32/Debug/ZPlainSqLiteDriver.dcu new file mode 100644 index 0000000..8616a25 Binary files /dev/null and b/Win32/Debug/ZPlainSqLiteDriver.dcu differ diff --git a/Win32/Debug/ZPostgreSqlAnalyser.dcu b/Win32/Debug/ZPostgreSqlAnalyser.dcu new file mode 100644 index 0000000..9d6007f Binary files /dev/null and b/Win32/Debug/ZPostgreSqlAnalyser.dcu differ diff --git a/Win32/Debug/ZPostgreSqlToken.dcu b/Win32/Debug/ZPostgreSqlToken.dcu new file mode 100644 index 0000000..27f774c Binary files /dev/null and b/Win32/Debug/ZPostgreSqlToken.dcu differ diff --git a/Win32/Debug/ZScriptParser.dcu b/Win32/Debug/ZScriptParser.dcu new file mode 100644 index 0000000..86bd82a Binary files /dev/null and b/Win32/Debug/ZScriptParser.dcu differ diff --git a/Win32/Debug/ZSelectSchema.dcu b/Win32/Debug/ZSelectSchema.dcu new file mode 100644 index 0000000..18430fc Binary files /dev/null and b/Win32/Debug/ZSelectSchema.dcu differ diff --git a/Win32/Debug/ZSequence.dcu b/Win32/Debug/ZSequence.dcu new file mode 100644 index 0000000..34c8917 Binary files /dev/null and b/Win32/Debug/ZSequence.dcu differ diff --git a/Win32/Debug/ZSqLiteAnalyser.dcu b/Win32/Debug/ZSqLiteAnalyser.dcu new file mode 100644 index 0000000..de68ebb Binary files /dev/null and b/Win32/Debug/ZSqLiteAnalyser.dcu differ diff --git a/Win32/Debug/ZSqLiteToken.dcu b/Win32/Debug/ZSqLiteToken.dcu new file mode 100644 index 0000000..e95e344 Binary files /dev/null and b/Win32/Debug/ZSqLiteToken.dcu differ diff --git a/Win32/Debug/ZSqlProcessor.dcu b/Win32/Debug/ZSqlProcessor.dcu new file mode 100644 index 0000000..ff7926e Binary files /dev/null and b/Win32/Debug/ZSqlProcessor.dcu differ diff --git a/Win32/Debug/ZSqlStrings.dcu b/Win32/Debug/ZSqlStrings.dcu new file mode 100644 index 0000000..efe6858 Binary files /dev/null and b/Win32/Debug/ZSqlStrings.dcu differ diff --git a/Win32/Debug/ZSqlUpdate.dcu b/Win32/Debug/ZSqlUpdate.dcu new file mode 100644 index 0000000..f2d86da Binary files /dev/null and b/Win32/Debug/ZSqlUpdate.dcu differ diff --git a/Win32/Debug/ZSybaseAnalyser.dcu b/Win32/Debug/ZSybaseAnalyser.dcu new file mode 100644 index 0000000..39eefed Binary files /dev/null and b/Win32/Debug/ZSybaseAnalyser.dcu differ diff --git a/Win32/Debug/ZSybaseToken.dcu b/Win32/Debug/ZSybaseToken.dcu new file mode 100644 index 0000000..f28678c Binary files /dev/null and b/Win32/Debug/ZSybaseToken.dcu differ diff --git a/Win32/Debug/ZSysUtils.dcu b/Win32/Debug/ZSysUtils.dcu new file mode 100644 index 0000000..dba2145 Binary files /dev/null and b/Win32/Debug/ZSysUtils.dcu differ diff --git a/Win32/Debug/ZTokenizer.dcu b/Win32/Debug/ZTokenizer.dcu new file mode 100644 index 0000000..5af7030 Binary files /dev/null and b/Win32/Debug/ZTokenizer.dcu differ diff --git a/Win32/Debug/ZTransaction.dcu b/Win32/Debug/ZTransaction.dcu new file mode 100644 index 0000000..99baf4e Binary files /dev/null and b/Win32/Debug/ZTransaction.dcu differ diff --git a/Win32/Debug/ZVariables.dcu b/Win32/Debug/ZVariables.dcu new file mode 100644 index 0000000..6aac196 Binary files /dev/null and b/Win32/Debug/ZVariables.dcu differ diff --git a/Win32/Debug/ZVariant.dcu b/Win32/Debug/ZVariant.dcu new file mode 100644 index 0000000..739d48a Binary files /dev/null and b/Win32/Debug/ZVariant.dcu differ diff --git a/Win32/Debug/config.ini b/Win32/Debug/config.ini new file mode 100644 index 0000000..3da97f5 --- /dev/null +++ b/Win32/Debug/config.ini @@ -0,0 +1,5 @@ +[SETTINGS] +SERVER=WIN10-TM\SELECTLINE +USER=sa +PASSWORD=Elfio2004 +CATALOG=AUFTRAX \ No newline at end of file diff --git a/Win32/Debug/ntwdblib.dll b/Win32/Debug/ntwdblib.dll new file mode 100644 index 0000000..bf8f979 Binary files /dev/null and b/Win32/Debug/ntwdblib.dll differ diff --git a/Win32/Debug/ntwdblib.zip b/Win32/Debug/ntwdblib.zip new file mode 100644 index 0000000..857a637 Binary files /dev/null and b/Win32/Debug/ntwdblib.zip differ diff --git a/__history/DBKonverter.dpr.~1~ b/__history/DBKonverter.dpr.~1~ new file mode 100644 index 0000000..6e0f72e --- /dev/null +++ b/__history/DBKonverter.dpr.~1~ @@ -0,0 +1,14 @@ +program DBKonverter; + +uses + Vcl.Forms, + Unit1 in 'Unit1.pas' {Form42}; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + Application.CreateForm(TForm42, Form42); + Application.Run; +end. diff --git a/__history/DBKonverter.dpr.~2~ b/__history/DBKonverter.dpr.~2~ new file mode 100644 index 0000000..c1b13f6 --- /dev/null +++ b/__history/DBKonverter.dpr.~2~ @@ -0,0 +1,14 @@ +program DBKonverter; + +uses + Vcl.Forms, + Unit1 in 'Unit1.pas' {main}; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + Application.CreateForm(Tmain, main); + Application.Run; +end. diff --git a/__history/DBKonverter.dpr.~3~ b/__history/DBKonverter.dpr.~3~ new file mode 100644 index 0000000..dcda254 --- /dev/null +++ b/__history/DBKonverter.dpr.~3~ @@ -0,0 +1,17 @@ +program DBKonverter; + +uses + Vcl.Forms, + Unit1 in 'Unit1.pas' {main}, + Vcl.Themes, + Vcl.Styles; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + TStyleManager.TrySetStyle('Metropolis UI Blue'); + Application.CreateForm(Tmain, main); + Application.Run; +end. diff --git a/__history/DBKonverter.dpr.~4~ b/__history/DBKonverter.dpr.~4~ new file mode 100644 index 0000000..420b26b --- /dev/null +++ b/__history/DBKonverter.dpr.~4~ @@ -0,0 +1,16 @@ +program DBKonverter; + +uses + Vcl.Forms, + Unit1 in 'Unit1.pas' {main}, + Vcl.Themes, + Vcl.Styles; + +{$R *.res} + +begin + Application.Initialize; + Application.MainFormOnTaskbar := True; + Application.CreateForm(Tmain, main); + Application.Run; +end. diff --git a/__history/Unit1.dfm.~20~ b/__history/Unit1.dfm.~20~ new file mode 100644 index 0000000..1ce8f42 --- /dev/null +++ b/__history/Unit1.dfm.~20~ @@ -0,0 +1,127 @@ +object main: Tmain + Left = 0 + Top = 0 + Caption = 'DBKonverter' + ClientHeight = 636 + ClientWidth = 1143 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object sfl: TLabel + Left = 155 + Top = 21 + Width = 822 + Height = 13 + end + object BitBtn1: TBitBtn + Left = 8 + Top = 16 + Width = 133 + Height = 25 + Caption = 'Quelldatei w'#228'hlen' + TabOrder = 0 + OnClick = BitBtn1Click + end + object JvDBGrid1: TJvDBGrid + Left = 8 + Top = 47 + Width = 1128 + Height = 538 + DataSource = DS + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + SelectColumnsDialogStrings.Caption = 'Select columns' + SelectColumnsDialogStrings.OK = '&OK' + SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' + EditControls = <> + RowsHeight = 17 + TitleRowHeight = 17 + end + object BitBtn2: TBitBtn + Left = 1000 + Top = 16 + Width = 136 + Height = 25 + Caption = 'Konvertieren' + TabOrder = 2 + OnClick = BitBtn2Click + end + object ST: TStatusBar + Left = 0 + Top = 604 + Width = 1143 + Height = 32 + Panels = <> + SimplePanel = True + ExplicitWidth = 697 + end + object JvDBNavigator1: TJvDBNavigator + Left = 8 + Top = 577 + Width = 1130 + Height = 25 + DataSource = DS + TabOrder = 4 + end + object OD: TOpenDialog + DefaultExt = 'db' + Filter = 'Paradox Dateien|*.db' + Left = 20 + Top = 56 + end + object T1: TTable + TableType = ttParadox + Left = 56 + Top = 56 + end + object DS: TDataSource + DataSet = T1 + Left = 92 + Top = 56 + end + object ZDB: TZConnection + ControlsCodePage = cCP_UTF16 + Catalog = 'AUFTRAX' + Properties.Strings = ( + 'RawStringEncoding=DB_CP') + HostName = 'WIN10-TM\SELECTLINE' + Port = 0 + Database = + 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Init' + + 'ial Catalog="";Data Source=WIN10-TM\SELECTLINE;Initial File Name' + + '="";Server SPN=""' + User = 'sa' + Password = 'Elfio2004' + Protocol = 'ado' + LibraryLocation = 'D:\Projekte\DBKonverter\Win32\Debug\ntwdblib.dll' + Left = 1068 + Top = 60 + end + object ZT1: TZTable + Connection = ZDB + TableName = 'AUFTRAX.dbo.adrbrief' + Left = 1068 + Top = 108 + end + object ZQ1: TZQuery + Connection = ZDB + Params = <> + Left = 1068 + Top = 160 + end + object AP: TAppPath + Left = 128 + Top = 56 + end +end diff --git a/__history/Unit1.dfm.~21~ b/__history/Unit1.dfm.~21~ new file mode 100644 index 0000000..d664fbe --- /dev/null +++ b/__history/Unit1.dfm.~21~ @@ -0,0 +1,128 @@ +object main: Tmain + Left = 0 + Top = 0 + Caption = 'DBKonverter' + ClientHeight = 636 + ClientWidth = 1143 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object sfl: TLabel + Left = 155 + Top = 21 + Width = 822 + Height = 13 + end + object BitBtn1: TBitBtn + Left = 8 + Top = 16 + Width = 133 + Height = 25 + Caption = 'Quelldatei w'#228'hlen' + TabOrder = 0 + OnClick = BitBtn1Click + end + object JvDBGrid1: TJvDBGrid + Left = 8 + Top = 47 + Width = 1128 + Height = 538 + DataSource = DS + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + SelectColumnsDialogStrings.Caption = 'Select columns' + SelectColumnsDialogStrings.OK = '&OK' + SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' + EditControls = <> + RowsHeight = 17 + TitleRowHeight = 17 + end + object BitBtn2: TBitBtn + Left = 1000 + Top = 16 + Width = 136 + Height = 25 + Caption = 'Konvertieren' + Enabled = False + TabOrder = 2 + OnClick = BitBtn2Click + end + object ST: TStatusBar + Left = 0 + Top = 604 + Width = 1143 + Height = 32 + Panels = <> + SimplePanel = True + ExplicitWidth = 697 + end + object JvDBNavigator1: TJvDBNavigator + Left = 8 + Top = 577 + Width = 1130 + Height = 25 + DataSource = DS + TabOrder = 4 + end + object OD: TOpenDialog + DefaultExt = 'db' + Filter = 'Paradox Dateien|*.db' + Left = 20 + Top = 56 + end + object T1: TTable + TableType = ttParadox + Left = 56 + Top = 56 + end + object DS: TDataSource + DataSet = T1 + Left = 92 + Top = 56 + end + object ZDB: TZConnection + ControlsCodePage = cCP_UTF16 + Catalog = 'AUFTRAX' + Properties.Strings = ( + 'RawStringEncoding=DB_CP') + HostName = 'WIN10-TM\SELECTLINE' + Port = 0 + Database = + 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Init' + + 'ial Catalog="";Data Source=WIN10-TM\SELECTLINE;Initial File Name' + + '="";Server SPN=""' + User = 'sa' + Password = 'Elfio2004' + Protocol = 'ado' + LibraryLocation = 'D:\Projekte\DBKonverter\Win32\Debug\ntwdblib.dll' + Left = 1068 + Top = 60 + end + object ZT1: TZTable + Connection = ZDB + TableName = 'AUFTRAX.dbo.adrbrief' + Left = 1068 + Top = 108 + end + object ZQ1: TZQuery + Connection = ZDB + Params = <> + Left = 1068 + Top = 160 + end + object AP: TAppPath + Left = 128 + Top = 56 + end +end diff --git a/__history/Unit1.dfm.~22~ b/__history/Unit1.dfm.~22~ new file mode 100644 index 0000000..a2c24c4 --- /dev/null +++ b/__history/Unit1.dfm.~22~ @@ -0,0 +1,137 @@ +object main: Tmain + Left = 0 + Top = 0 + Caption = 'DBKonverter' + ClientHeight = 636 + ClientWidth = 1143 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object sfl: TLabel + Left = 155 + Top = 21 + Width = 822 + Height = 13 + end + object JvDBStatusLabel1: TJvDBStatusLabel + Left = 1039 + Top = 585 + Width = 96 + Height = 13 + DataSource = DS + Style = lsRecordNo + Transparent = True + end + object BitBtn1: TBitBtn + Left = 8 + Top = 16 + Width = 133 + Height = 25 + Caption = 'Quelldatei w'#228'hlen' + TabOrder = 0 + OnClick = BitBtn1Click + end + object JvDBGrid1: TJvDBGrid + Left = 8 + Top = 47 + Width = 1128 + Height = 524 + DataSource = DS + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + SelectColumnsDialogStrings.Caption = 'Select columns' + SelectColumnsDialogStrings.OK = '&OK' + SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' + EditControls = <> + RowsHeight = 17 + TitleRowHeight = 17 + end + object BitBtn2: TBitBtn + Left = 1000 + Top = 16 + Width = 136 + Height = 25 + Caption = 'Konvertieren' + Enabled = False + TabOrder = 2 + OnClick = BitBtn2Click + end + object ST: TStatusBar + Left = 0 + Top = 604 + Width = 1143 + Height = 32 + Panels = <> + SimplePanel = True + ExplicitWidth = 697 + end + object JvDBNavigator1: TJvDBNavigator + Left = 8 + Top = 577 + Width = 1020 + Height = 25 + DataSource = DS + TabOrder = 4 + end + object OD: TOpenDialog + DefaultExt = 'db' + Filter = 'Paradox Dateien|*.db' + Left = 20 + Top = 56 + end + object T1: TTable + TableType = ttParadox + Left = 56 + Top = 56 + end + object DS: TDataSource + DataSet = T1 + Left = 92 + Top = 56 + end + object ZDB: TZConnection + ControlsCodePage = cCP_UTF16 + Catalog = 'AUFTRAX' + Properties.Strings = ( + 'RawStringEncoding=DB_CP') + HostName = 'WIN10-TM\SELECTLINE' + Port = 0 + Database = + 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Init' + + 'ial Catalog="";Data Source=WIN10-TM\SELECTLINE;Initial File Name' + + '="";Server SPN=""' + User = 'sa' + Password = 'Elfio2004' + Protocol = 'ado' + LibraryLocation = 'D:\Projekte\DBKonverter\Win32\Debug\ntwdblib.dll' + Left = 1068 + Top = 60 + end + object ZT1: TZTable + Connection = ZDB + TableName = 'AUFTRAX.dbo.adrbrief' + Left = 1068 + Top = 108 + end + object ZQ1: TZQuery + Connection = ZDB + Params = <> + Left = 1068 + Top = 160 + end + object AP: TAppPath + Left = 128 + Top = 56 + end +end diff --git a/__history/Unit1.dfm.~23~ b/__history/Unit1.dfm.~23~ new file mode 100644 index 0000000..96ff3d4 --- /dev/null +++ b/__history/Unit1.dfm.~23~ @@ -0,0 +1,138 @@ +object main: Tmain + Left = 0 + Top = 0 + Caption = 'DBKonverter' + ClientHeight = 636 + ClientWidth = 1143 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object sfl: TLabel + Left = 155 + Top = 21 + Width = 822 + Height = 13 + end + object JvDBStatusLabel1: TJvDBStatusLabel + Left = 1039 + Top = 585 + Width = 96 + Height = 13 + DataSource = DS + Style = lsRecordNo + Alignment = taRightJustify + Transparent = True + end + object BitBtn1: TBitBtn + Left = 8 + Top = 16 + Width = 133 + Height = 25 + Caption = 'Quelldatei w'#228'hlen' + TabOrder = 0 + OnClick = BitBtn1Click + end + object JvDBGrid1: TJvDBGrid + Left = 8 + Top = 47 + Width = 1128 + Height = 524 + DataSource = DS + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + SelectColumnsDialogStrings.Caption = 'Select columns' + SelectColumnsDialogStrings.OK = '&OK' + SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' + EditControls = <> + RowsHeight = 17 + TitleRowHeight = 17 + end + object BitBtn2: TBitBtn + Left = 1000 + Top = 16 + Width = 136 + Height = 25 + Caption = 'Konvertieren' + Enabled = False + TabOrder = 2 + OnClick = BitBtn2Click + end + object ST: TStatusBar + Left = 0 + Top = 604 + Width = 1143 + Height = 32 + Panels = <> + SimplePanel = True + ExplicitWidth = 697 + end + object JvDBNavigator1: TJvDBNavigator + Left = 8 + Top = 577 + Width = 1020 + Height = 25 + DataSource = DS + TabOrder = 4 + end + object OD: TOpenDialog + DefaultExt = 'db' + Filter = 'Paradox Dateien|*.db' + Left = 20 + Top = 56 + end + object T1: TTable + TableType = ttParadox + Left = 56 + Top = 56 + end + object DS: TDataSource + DataSet = T1 + Left = 92 + Top = 56 + end + object ZDB: TZConnection + ControlsCodePage = cCP_UTF16 + Catalog = 'AUFTRAX' + Properties.Strings = ( + 'RawStringEncoding=DB_CP') + HostName = 'WIN10-TM\SELECTLINE' + Port = 0 + Database = + 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Init' + + 'ial Catalog="";Data Source=WIN10-TM\SELECTLINE;Initial File Name' + + '="";Server SPN=""' + User = 'sa' + Password = 'Elfio2004' + Protocol = 'ado' + LibraryLocation = 'D:\Projekte\DBKonverter\Win32\Debug\ntwdblib.dll' + Left = 1068 + Top = 60 + end + object ZT1: TZTable + Connection = ZDB + TableName = 'AUFTRAX.dbo.adrbrief' + Left = 1068 + Top = 108 + end + object ZQ1: TZQuery + Connection = ZDB + Params = <> + Left = 1068 + Top = 160 + end + object AP: TAppPath + Left = 128 + Top = 56 + end +end diff --git a/__history/Unit1.dfm.~24~ b/__history/Unit1.dfm.~24~ new file mode 100644 index 0000000..c33a3c3 --- /dev/null +++ b/__history/Unit1.dfm.~24~ @@ -0,0 +1,128 @@ +object main: Tmain + Left = 0 + Top = 0 + Caption = 'DBKonverter' + ClientHeight = 636 + ClientWidth = 1143 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object sfl: TLabel + Left = 155 + Top = 21 + Width = 822 + Height = 13 + end + object BitBtn1: TBitBtn + Left = 8 + Top = 16 + Width = 133 + Height = 25 + Caption = 'Quelldatei w'#228'hlen' + TabOrder = 0 + OnClick = BitBtn1Click + end + object JvDBGrid1: TJvDBGrid + Left = 0 + Top = 0 + Width = 1143 + Height = 571 + DataSource = DS + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + SelectColumnsDialogStrings.Caption = 'Select columns' + SelectColumnsDialogStrings.OK = '&OK' + SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' + EditControls = <> + RowsHeight = 17 + TitleRowHeight = 17 + end + object BitBtn2: TBitBtn + Left = 1000 + Top = 16 + Width = 136 + Height = 25 + Caption = 'Konvertieren' + Enabled = False + TabOrder = 2 + OnClick = BitBtn2Click + end + object ST: TStatusBar + Left = 0 + Top = 604 + Width = 1143 + Height = 32 + Panels = <> + SimplePanel = True + ExplicitWidth = 697 + end + object JvDBNavigator1: TJvDBNavigator + Left = 0 + Top = 577 + Width = 1140 + Height = 25 + DataSource = DS + TabOrder = 4 + end + object OD: TOpenDialog + DefaultExt = 'db' + Filter = 'Paradox Dateien|*.db' + Left = 20 + Top = 56 + end + object T1: TTable + TableType = ttParadox + Left = 56 + Top = 56 + end + object DS: TDataSource + DataSet = T1 + Left = 92 + Top = 56 + end + object ZDB: TZConnection + ControlsCodePage = cCP_UTF16 + Catalog = 'AUFTRAX' + Properties.Strings = ( + 'RawStringEncoding=DB_CP') + HostName = 'WIN10-TM\SELECTLINE' + Port = 0 + Database = + 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Init' + + 'ial Catalog="";Data Source=WIN10-TM\SELECTLINE;Initial File Name' + + '="";Server SPN=""' + User = 'sa' + Password = 'Elfio2004' + Protocol = 'ado' + LibraryLocation = 'D:\Projekte\DBKonverter\Win32\Debug\ntwdblib.dll' + Left = 1068 + Top = 60 + end + object ZT1: TZTable + Connection = ZDB + TableName = 'AUFTRAX.dbo.adrbrief' + Left = 1068 + Top = 108 + end + object ZQ1: TZQuery + Connection = ZDB + Params = <> + Left = 1068 + Top = 160 + end + object AP: TAppPath + Left = 128 + Top = 56 + end +end diff --git a/__history/Unit1.dfm.~25~ b/__history/Unit1.dfm.~25~ new file mode 100644 index 0000000..4ef051e --- /dev/null +++ b/__history/Unit1.dfm.~25~ @@ -0,0 +1,128 @@ +object main: Tmain + Left = 0 + Top = 0 + Caption = 'DBKonverter' + ClientHeight = 636 + ClientWidth = 1143 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object sfl: TLabel + Left = 155 + Top = 21 + Width = 822 + Height = 13 + end + object BitBtn1: TBitBtn + Left = 8 + Top = 16 + Width = 133 + Height = 25 + Caption = 'Quelldatei w'#228'hlen' + TabOrder = 0 + OnClick = BitBtn1Click + end + object JvDBGrid1: TJvDBGrid + Left = 0 + Top = 47 + Width = 1143 + Height = 524 + DataSource = DS + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + SelectColumnsDialogStrings.Caption = 'Select columns' + SelectColumnsDialogStrings.OK = '&OK' + SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' + EditControls = <> + RowsHeight = 17 + TitleRowHeight = 17 + end + object BitBtn2: TBitBtn + Left = 1000 + Top = 16 + Width = 136 + Height = 25 + Caption = 'Konvertieren' + Enabled = False + TabOrder = 2 + OnClick = BitBtn2Click + end + object ST: TStatusBar + Left = 0 + Top = 604 + Width = 1143 + Height = 32 + Panels = <> + SimplePanel = True + ExplicitWidth = 697 + end + object JvDBNavigator1: TJvDBNavigator + Left = 0 + Top = 577 + Width = 1140 + Height = 25 + DataSource = DS + TabOrder = 4 + end + object OD: TOpenDialog + DefaultExt = 'db' + Filter = 'Paradox Dateien|*.db' + Left = 20 + Top = 56 + end + object T1: TTable + TableType = ttParadox + Left = 56 + Top = 56 + end + object DS: TDataSource + DataSet = T1 + Left = 92 + Top = 56 + end + object ZDB: TZConnection + ControlsCodePage = cCP_UTF16 + Catalog = 'AUFTRAX' + Properties.Strings = ( + 'RawStringEncoding=DB_CP') + HostName = 'WIN10-TM\SELECTLINE' + Port = 0 + Database = + 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Init' + + 'ial Catalog="";Data Source=WIN10-TM\SELECTLINE;Initial File Name' + + '="";Server SPN=""' + User = 'sa' + Password = 'Elfio2004' + Protocol = 'ado' + LibraryLocation = 'D:\Projekte\DBKonverter\Win32\Debug\ntwdblib.dll' + Left = 1068 + Top = 60 + end + object ZT1: TZTable + Connection = ZDB + TableName = 'AUFTRAX.dbo.adrbrief' + Left = 1068 + Top = 108 + end + object ZQ1: TZQuery + Connection = ZDB + Params = <> + Left = 1068 + Top = 160 + end + object AP: TAppPath + Left = 128 + Top = 56 + end +end diff --git a/__history/Unit1.dfm.~26~ b/__history/Unit1.dfm.~26~ new file mode 100644 index 0000000..bd085b6 --- /dev/null +++ b/__history/Unit1.dfm.~26~ @@ -0,0 +1,139 @@ +object main: Tmain + Left = 0 + Top = 0 + Caption = 'DBKonverter' + ClientHeight = 636 + ClientWidth = 1143 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object sfl: TLabel + Left = 155 + Top = 21 + Width = 822 + Height = 13 + end + object BitBtn1: TBitBtn + Left = 8 + Top = 16 + Width = 133 + Height = 25 + Caption = 'Quelldatei w'#228'hlen' + TabOrder = 0 + OnClick = BitBtn1Click + end + object JvDBGrid1: TJvDBGrid + Left = 0 + Top = 47 + Width = 1143 + Height = 524 + DataSource = DS + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + SelectColumnsDialogStrings.Caption = 'Select columns' + SelectColumnsDialogStrings.OK = '&OK' + SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' + EditControls = <> + RowsHeight = 17 + TitleRowHeight = 17 + end + object BitBtn2: TBitBtn + Left = 1000 + Top = 16 + Width = 136 + Height = 25 + Caption = 'Konvertieren' + Enabled = False + TabOrder = 2 + OnClick = BitBtn2Click + end + object ST: TStatusBar + Left = 0 + Top = 604 + Width = 1143 + Height = 32 + Panels = < + item + Width = 300 + end + item + Width = 300 + end + item + Width = 300 + end + item + Width = 300 + end> + ExplicitWidth = 697 + end + object JvDBNavigator1: TJvDBNavigator + Left = 0 + Top = 577 + Width = 1140 + Height = 25 + DataSource = DS + TabOrder = 4 + end + object OD: TOpenDialog + DefaultExt = 'db' + Filter = 'Paradox Dateien|*.db' + Left = 20 + Top = 56 + end + object T1: TTable + TableType = ttParadox + Left = 56 + Top = 56 + end + object DS: TDataSource + DataSet = T1 + Left = 92 + Top = 56 + end + object ZDB: TZConnection + ControlsCodePage = cCP_UTF16 + Catalog = 'AUFTRAX' + Properties.Strings = ( + 'RawStringEncoding=DB_CP') + HostName = 'WIN10-TM\SELECTLINE' + Port = 0 + Database = + 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Init' + + 'ial Catalog="";Data Source=WIN10-TM\SELECTLINE;Initial File Name' + + '="";Server SPN=""' + User = 'sa' + Password = 'Elfio2004' + Protocol = 'ado' + LibraryLocation = 'D:\Projekte\DBKonverter\Win32\Debug\ntwdblib.dll' + Left = 1068 + Top = 60 + end + object ZT1: TZTable + Connection = ZDB + TableName = 'AUFTRAX.dbo.adrbrief' + Left = 1068 + Top = 108 + end + object ZQ1: TZQuery + Connection = ZDB + Params = <> + Left = 1068 + Top = 160 + end + object AP: TAppPath + Left = 128 + Top = 56 + end +end diff --git a/__history/Unit1.dfm.~27~ b/__history/Unit1.dfm.~27~ new file mode 100644 index 0000000..54b9969 --- /dev/null +++ b/__history/Unit1.dfm.~27~ @@ -0,0 +1,142 @@ +object main: Tmain + Left = 0 + Top = 0 + BorderIcons = [biSystemMenu, biMinimize] + BorderStyle = bsSingle + Caption = 'DBKonverter' + ClientHeight = 641 + ClientWidth = 1153 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object sfl: TLabel + Left = 155 + Top = 21 + Width = 822 + Height = 13 + end + object BitBtn1: TBitBtn + Left = 8 + Top = 16 + Width = 133 + Height = 25 + Caption = 'Quelldatei w'#228'hlen' + TabOrder = 0 + OnClick = BitBtn1Click + end + object JvDBGrid1: TJvDBGrid + Left = 0 + Top = 47 + Width = 1153 + Height = 524 + DataSource = DS + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + SelectColumnsDialogStrings.Caption = 'Select columns' + SelectColumnsDialogStrings.OK = '&OK' + SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' + EditControls = <> + RowsHeight = 17 + TitleRowHeight = 17 + end + object BitBtn2: TBitBtn + Left = 1000 + Top = 16 + Width = 136 + Height = 25 + Caption = 'Konvertieren' + Enabled = False + TabOrder = 2 + OnClick = BitBtn2Click + end + object ST: TStatusBar + Left = 0 + Top = 609 + Width = 1153 + Height = 32 + Panels = < + item + Width = 300 + end + item + Width = 300 + end + item + Width = 300 + end + item + Width = 300 + end> + ExplicitTop = 604 + ExplicitWidth = 697 + end + object JvDBNavigator1: TJvDBNavigator + Left = 5 + Top = 577 + Width = 1140 + Height = 25 + DataSource = DS + TabOrder = 4 + end + object OD: TOpenDialog + DefaultExt = 'db' + Filter = 'Paradox Dateien|*.db' + Left = 20 + Top = 56 + end + object T1: TTable + TableType = ttParadox + Left = 56 + Top = 56 + end + object DS: TDataSource + DataSet = T1 + Left = 92 + Top = 56 + end + object ZDB: TZConnection + ControlsCodePage = cCP_UTF16 + Catalog = 'AUFTRAX' + Properties.Strings = ( + 'RawStringEncoding=DB_CP') + HostName = 'WIN10-TM\SELECTLINE' + Port = 0 + Database = + 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Init' + + 'ial Catalog="";Data Source=WIN10-TM\SELECTLINE;Initial File Name' + + '="";Server SPN=""' + User = 'sa' + Password = 'Elfio2004' + Protocol = 'ado' + LibraryLocation = 'D:\Projekte\DBKonverter\Win32\Debug\ntwdblib.dll' + Left = 1068 + Top = 60 + end + object ZT1: TZTable + Connection = ZDB + TableName = 'AUFTRAX.dbo.adrbrief' + Left = 1068 + Top = 108 + end + object ZQ1: TZQuery + Connection = ZDB + Params = <> + Left = 1068 + Top = 160 + end + object AP: TAppPath + Left = 128 + Top = 56 + end +end diff --git a/__history/Unit1.dfm.~28~ b/__history/Unit1.dfm.~28~ new file mode 100644 index 0000000..e0f41dd --- /dev/null +++ b/__history/Unit1.dfm.~28~ @@ -0,0 +1,139 @@ +object main: Tmain + Left = 0 + Top = 0 + BorderIcons = [biSystemMenu, biMinimize] + BorderStyle = bsSingle + Caption = 'DBKonverter' + ClientHeight = 641 + ClientWidth = 1153 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object sfl: TLabel + Left = 155 + Top = 21 + Width = 3 + Height = 13 + end + object BitBtn1: TBitBtn + Left = 8 + Top = 16 + Width = 133 + Height = 25 + Caption = 'Quelldatei w'#228'hlen' + TabOrder = 0 + OnClick = BitBtn1Click + end + object JvDBGrid1: TJvDBGrid + Left = 0 + Top = 47 + Width = 1153 + Height = 524 + DataSource = DS + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + SelectColumnsDialogStrings.Caption = 'Select columns' + SelectColumnsDialogStrings.OK = '&OK' + SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' + EditControls = <> + RowsHeight = 17 + TitleRowHeight = 17 + end + object BitBtn2: TBitBtn + Left = 1000 + Top = 16 + Width = 136 + Height = 25 + Caption = 'Konvertieren' + Enabled = False + TabOrder = 2 + OnClick = BitBtn2Click + end + object ST: TStatusBar + Left = 0 + Top = 609 + Width = 1153 + Height = 32 + Panels = < + item + Width = 300 + end + item + Width = 300 + end + item + Width = 300 + end + item + Width = 300 + end> + end + object JvDBNavigator1: TJvDBNavigator + Left = 5 + Top = 577 + Width = 1140 + Height = 25 + DataSource = DS + TabOrder = 4 + end + object OD: TOpenDialog + DefaultExt = 'db' + Filter = 'Paradox Dateien|*.db' + Left = 20 + Top = 56 + end + object T1: TTable + TableType = ttParadox + Left = 56 + Top = 56 + end + object DS: TDataSource + DataSet = T1 + Left = 92 + Top = 56 + end + object ZDB: TZConnection + ControlsCodePage = cCP_UTF16 + Catalog = 'AUFTRAX' + Properties.Strings = ( + 'RawStringEncoding=DB_CP') + HostName = '' + Port = 0 + Database = + 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Init' + + 'ial Catalog="";Data Source=WIN10-TM\SELECTLINE;Initial File Name' + + '="";Server SPN=""' + User = 'sa' + Password = 'Elfio2004' + Protocol = 'ado' + Left = 1068 + Top = 60 + end + object ZT1: TZTable + Connection = ZDB + TableName = 'AUFTRAX.dbo.adrbrief' + Left = 1068 + Top = 108 + end + object ZQ1: TZQuery + Connection = ZDB + Params = <> + Left = 1068 + Top = 160 + end + object AP: TAppPath + Left = 128 + Top = 56 + end +end diff --git a/__history/Unit1.dfm.~29~ b/__history/Unit1.dfm.~29~ new file mode 100644 index 0000000..e0f41dd --- /dev/null +++ b/__history/Unit1.dfm.~29~ @@ -0,0 +1,139 @@ +object main: Tmain + Left = 0 + Top = 0 + BorderIcons = [biSystemMenu, biMinimize] + BorderStyle = bsSingle + Caption = 'DBKonverter' + ClientHeight = 641 + ClientWidth = 1153 + Color = clBtnFace + Font.Charset = DEFAULT_CHARSET + Font.Color = clWindowText + Font.Height = -11 + Font.Name = 'Tahoma' + Font.Style = [] + OldCreateOrder = False + OnCreate = FormCreate + PixelsPerInch = 96 + TextHeight = 13 + object sfl: TLabel + Left = 155 + Top = 21 + Width = 3 + Height = 13 + end + object BitBtn1: TBitBtn + Left = 8 + Top = 16 + Width = 133 + Height = 25 + Caption = 'Quelldatei w'#228'hlen' + TabOrder = 0 + OnClick = BitBtn1Click + end + object JvDBGrid1: TJvDBGrid + Left = 0 + Top = 47 + Width = 1153 + Height = 524 + DataSource = DS + TabOrder = 1 + TitleFont.Charset = DEFAULT_CHARSET + TitleFont.Color = clWindowText + TitleFont.Height = -11 + TitleFont.Name = 'Tahoma' + TitleFont.Style = [] + SelectColumnsDialogStrings.Caption = 'Select columns' + SelectColumnsDialogStrings.OK = '&OK' + SelectColumnsDialogStrings.NoSelectionWarning = 'At least one column must be visible!' + EditControls = <> + RowsHeight = 17 + TitleRowHeight = 17 + end + object BitBtn2: TBitBtn + Left = 1000 + Top = 16 + Width = 136 + Height = 25 + Caption = 'Konvertieren' + Enabled = False + TabOrder = 2 + OnClick = BitBtn2Click + end + object ST: TStatusBar + Left = 0 + Top = 609 + Width = 1153 + Height = 32 + Panels = < + item + Width = 300 + end + item + Width = 300 + end + item + Width = 300 + end + item + Width = 300 + end> + end + object JvDBNavigator1: TJvDBNavigator + Left = 5 + Top = 577 + Width = 1140 + Height = 25 + DataSource = DS + TabOrder = 4 + end + object OD: TOpenDialog + DefaultExt = 'db' + Filter = 'Paradox Dateien|*.db' + Left = 20 + Top = 56 + end + object T1: TTable + TableType = ttParadox + Left = 56 + Top = 56 + end + object DS: TDataSource + DataSet = T1 + Left = 92 + Top = 56 + end + object ZDB: TZConnection + ControlsCodePage = cCP_UTF16 + Catalog = 'AUFTRAX' + Properties.Strings = ( + 'RawStringEncoding=DB_CP') + HostName = '' + Port = 0 + Database = + 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Init' + + 'ial Catalog="";Data Source=WIN10-TM\SELECTLINE;Initial File Name' + + '="";Server SPN=""' + User = 'sa' + Password = 'Elfio2004' + Protocol = 'ado' + Left = 1068 + Top = 60 + end + object ZT1: TZTable + Connection = ZDB + TableName = 'AUFTRAX.dbo.adrbrief' + Left = 1068 + Top = 108 + end + object ZQ1: TZQuery + Connection = ZDB + Params = <> + Left = 1068 + Top = 160 + end + object AP: TAppPath + Left = 128 + Top = 56 + end +end diff --git a/__history/Unit1.pas.~86~ b/__history/Unit1.pas.~86~ new file mode 100644 index 0000000..5535542 --- /dev/null +++ b/__history/Unit1.pas.~86~ @@ -0,0 +1,179 @@ +UNIT Unit1; + +INTERFACE + +USES + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, + Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, + ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, + ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, + JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; + +TYPE + Tmain = CLASS(TForm) + BitBtn1: TBitBtn; + OD: TOpenDialog; + sfl: TLabel; + T1: TTable; + DS: TDataSource; + JvDBGrid1: TJvDBGrid; + ZDB: TZConnection; + ZT1: TZTable; + BitBtn2: TBitBtn; + ZQ1: TZQuery; + ST: TStatusBar; + JvDBNavigator1: TJvDBNavigator; + AP: TAppPath; + PROCEDURE BitBtn1Click(Sender: TObject); + PROCEDURE BitBtn2Click(Sender: TObject); + PROCEDURE FormCreate(Sender: TObject); + PRIVATE + { Private-Deklarationen } + PUBLIC + { Public-Deklarationen } + END; + +VAR + main: Tmain; + sfile: STRING; + Server, User, Password, Catalog: STRING; + +IMPLEMENTATION + +{$R *.dfm} +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn1Click(Sender: TObject); + +BEGIN + IF OD.Execute THEN + BEGIN + sfile := OD.FileName; + sfl.Caption := OD.FileName; + T1.Active := False; + T1.DatabaseName := ExtractFileDir(OD.FileName); + T1.TableName := ExtractFilename(OD.FileName); + T1.Active := TRUE; + ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datenstze'; + ST.Refresh; + BitBtn2.Enabled := TRUE; + END; +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn2Click(Sender: TObject); + +VAR + i, rc: Integer; + fn: STRING; + createSQL: TStringList; + +BEGIN + fn := ExtractFilename(OD.FileName); + fn := Copy(fn, 1, POS('.', fn) - 1); + ZQ1.SQL.Clear; + ZDB.Connect; + ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); + ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); + ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); + FOR i := 0 TO T1.Fielddefs.Count - 1 DO + BEGIN + IF T1.Fielddefs[i].Datatype = ftString THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftBoolean THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' bit NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' float NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftCurrency THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' time NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftInteger THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE + BEGIN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + END; + END; + ZQ1.SQL[ZQ1.SQL.Count - 1] := FilterChar(ZQ1.SQL[ZQ1.SQL.Count - 1], ','); + ZQ1.SQL.Add(');'); + ZQ1.ExecSQL; + ZT1.Active := False; + ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); + ZT1.Active := TRUE; + T1.First; + rc := 0; + REPEAT + inc(rc); + ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); + ST.Refresh; + ZT1.Append; + FOR i := 0 TO T1.Fields.Count - 1 DO + BEGIN + IF T1.Fields[i].value <> NULL THEN + BEGIN + TRY + IF T1.Fielddefs[i].Datatype = ftString THEN + ZT1.Fields[i].Text := T1.Fields[i].Text + ELSE + ZT1.Fields[i].value := T1.Fields[i].value + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(T1.Fielddefs[i].Name); + END; + END; + END; + END; + TRY + ZT1.Post; + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(e.Message); + END; + END; + T1.Next; + application.ProcessMessages; + UNTIL T1.Eof;; + MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.FormCreate(Sender: TObject); + +VAR + ini: TIniFile; + +BEGIN + ZDB.Connected := False; + ini := TIniFile.Create(AP.AppPath + 'config.ini'); + Server := ini.ReadString('SETTINGS', 'SERVER', ''); + User := ini.ReadString('SETTINGS', 'USER', ''); + Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); + Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); + ini.Free; + ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; + ZDB.HostName := Server; + ZDB.User := User; + ZDB.Password := Password; + ZDB.Catalog := Catalog; + ZDB.Connected := TRUE; + ST.Panels[1].Text := 'Server: ' + Server; + ST.Panels[2].Text := 'Datenbank: ' + Catalog; + ST.Panels[3].Text := 'DB-User: ' + User; + ST.Refresh; +END; + +// ----------------------------------------------------------------------------- + +END. diff --git a/__history/Unit1.pas.~87~ b/__history/Unit1.pas.~87~ new file mode 100644 index 0000000..de12042 --- /dev/null +++ b/__history/Unit1.pas.~87~ @@ -0,0 +1,179 @@ +UNIT Unit1; + +INTERFACE + +USES + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, + Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, + ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, + ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, + JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; + +TYPE + Tmain = CLASS(TForm) + BitBtn1: TBitBtn; + OD: TOpenDialog; + sfl: TLabel; + T1: TTable; + DS: TDataSource; + JvDBGrid1: TJvDBGrid; + ZDB: TZConnection; + ZT1: TZTable; + BitBtn2: TBitBtn; + ZQ1: TZQuery; + ST: TStatusBar; + JvDBNavigator1: TJvDBNavigator; + AP: TAppPath; + PROCEDURE BitBtn1Click(Sender: TObject); + PROCEDURE BitBtn2Click(Sender: TObject); + PROCEDURE FormCreate(Sender: TObject); + PRIVATE + { Private-Deklarationen } + PUBLIC + { Public-Deklarationen } + END; + +VAR + main: Tmain; + sfile: STRING; + Server, User, Password, Catalog: STRING; + +IMPLEMENTATION + +{$R *.dfm} +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn1Click(Sender: TObject); + +BEGIN + IF OD.Execute THEN + BEGIN + sfile := OD.FileName; + sfl.Caption := OD.FileName; + T1.Active := False; + T1.DatabaseName := ExtractFileDir(OD.FileName); + T1.TableName := ExtractFilename(OD.FileName); + T1.Active := TRUE; + ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datenstze'; + ST.Refresh; + BitBtn2.Enabled := TRUE; + END; +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn2Click(Sender: TObject); + +VAR + i, rc: Integer; + fn: STRING; + createSQL: TStringList; + +BEGIN + fn := ExtractFilename(OD.FileName); + fn := Copy(fn, 1, POS('.', fn) - 1); + ZQ1.SQL.Clear; + ZDB.Connect; + ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); + ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); + ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); + FOR i := 0 TO T1.Fielddefs.Count - 1 DO + BEGIN + IF T1.Fielddefs[i].Datatype = ftString THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftBoolean THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' bit NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' float NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftCurrency THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN + // ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' time NULL,') + // ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftInteger THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE + BEGIN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + END; + END; + ZQ1.SQL[ZQ1.SQL.Count - 1] := FilterChar(ZQ1.SQL[ZQ1.SQL.Count - 1], ','); + ZQ1.SQL.Add(');'); + ZQ1.ExecSQL; + ZT1.Active := False; + ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); + ZT1.Active := TRUE; + T1.First; + rc := 0; + REPEAT + inc(rc); + ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); + ST.Refresh; + ZT1.Append; + FOR i := 0 TO T1.Fields.Count - 1 DO + BEGIN + IF T1.Fields[i].value <> NULL THEN + BEGIN + TRY + IF T1.Fielddefs[i].Datatype = ftString THEN + ZT1.Fields[i].Text := T1.Fields[i].Text + ELSE + ZT1.Fields[i].value := T1.Fields[i].value + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(T1.Fielddefs[i].Name); + END; + END; + END; + END; + TRY + ZT1.Post; + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(e.Message); + END; + END; + T1.Next; + application.ProcessMessages; + UNTIL T1.Eof;; + MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.FormCreate(Sender: TObject); + +VAR + ini: TIniFile; + +BEGIN + ZDB.Connected := False; + ini := TIniFile.Create(AP.AppPath + 'config.ini'); + Server := ini.ReadString('SETTINGS', 'SERVER', ''); + User := ini.ReadString('SETTINGS', 'USER', ''); + Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); + Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); + ini.Free; + ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; + ZDB.HostName := Server; + ZDB.User := User; + ZDB.Password := Password; + ZDB.Catalog := Catalog; + ZDB.Connected := TRUE; + ST.Panels[1].Text := 'Server: ' + Server; + ST.Panels[2].Text := 'Datenbank: ' + Catalog; + ST.Panels[3].Text := 'DB-User: ' + User; + ST.Refresh; +END; + +// ----------------------------------------------------------------------------- + +END. diff --git a/__history/Unit1.pas.~88~ b/__history/Unit1.pas.~88~ new file mode 100644 index 0000000..5535542 --- /dev/null +++ b/__history/Unit1.pas.~88~ @@ -0,0 +1,179 @@ +UNIT Unit1; + +INTERFACE + +USES + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, + Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, + ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, + ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, + JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; + +TYPE + Tmain = CLASS(TForm) + BitBtn1: TBitBtn; + OD: TOpenDialog; + sfl: TLabel; + T1: TTable; + DS: TDataSource; + JvDBGrid1: TJvDBGrid; + ZDB: TZConnection; + ZT1: TZTable; + BitBtn2: TBitBtn; + ZQ1: TZQuery; + ST: TStatusBar; + JvDBNavigator1: TJvDBNavigator; + AP: TAppPath; + PROCEDURE BitBtn1Click(Sender: TObject); + PROCEDURE BitBtn2Click(Sender: TObject); + PROCEDURE FormCreate(Sender: TObject); + PRIVATE + { Private-Deklarationen } + PUBLIC + { Public-Deklarationen } + END; + +VAR + main: Tmain; + sfile: STRING; + Server, User, Password, Catalog: STRING; + +IMPLEMENTATION + +{$R *.dfm} +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn1Click(Sender: TObject); + +BEGIN + IF OD.Execute THEN + BEGIN + sfile := OD.FileName; + sfl.Caption := OD.FileName; + T1.Active := False; + T1.DatabaseName := ExtractFileDir(OD.FileName); + T1.TableName := ExtractFilename(OD.FileName); + T1.Active := TRUE; + ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datenstze'; + ST.Refresh; + BitBtn2.Enabled := TRUE; + END; +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn2Click(Sender: TObject); + +VAR + i, rc: Integer; + fn: STRING; + createSQL: TStringList; + +BEGIN + fn := ExtractFilename(OD.FileName); + fn := Copy(fn, 1, POS('.', fn) - 1); + ZQ1.SQL.Clear; + ZDB.Connect; + ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); + ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); + ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); + FOR i := 0 TO T1.Fielddefs.Count - 1 DO + BEGIN + IF T1.Fielddefs[i].Datatype = ftString THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftBoolean THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' bit NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' float NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftCurrency THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' time NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftInteger THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE + BEGIN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + END; + END; + ZQ1.SQL[ZQ1.SQL.Count - 1] := FilterChar(ZQ1.SQL[ZQ1.SQL.Count - 1], ','); + ZQ1.SQL.Add(');'); + ZQ1.ExecSQL; + ZT1.Active := False; + ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); + ZT1.Active := TRUE; + T1.First; + rc := 0; + REPEAT + inc(rc); + ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); + ST.Refresh; + ZT1.Append; + FOR i := 0 TO T1.Fields.Count - 1 DO + BEGIN + IF T1.Fields[i].value <> NULL THEN + BEGIN + TRY + IF T1.Fielddefs[i].Datatype = ftString THEN + ZT1.Fields[i].Text := T1.Fields[i].Text + ELSE + ZT1.Fields[i].value := T1.Fields[i].value + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(T1.Fielddefs[i].Name); + END; + END; + END; + END; + TRY + ZT1.Post; + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(e.Message); + END; + END; + T1.Next; + application.ProcessMessages; + UNTIL T1.Eof;; + MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.FormCreate(Sender: TObject); + +VAR + ini: TIniFile; + +BEGIN + ZDB.Connected := False; + ini := TIniFile.Create(AP.AppPath + 'config.ini'); + Server := ini.ReadString('SETTINGS', 'SERVER', ''); + User := ini.ReadString('SETTINGS', 'USER', ''); + Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); + Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); + ini.Free; + ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; + ZDB.HostName := Server; + ZDB.User := User; + ZDB.Password := Password; + ZDB.Catalog := Catalog; + ZDB.Connected := TRUE; + ST.Panels[1].Text := 'Server: ' + Server; + ST.Panels[2].Text := 'Datenbank: ' + Catalog; + ST.Panels[3].Text := 'DB-User: ' + User; + ST.Refresh; +END; + +// ----------------------------------------------------------------------------- + +END. diff --git a/__history/Unit1.pas.~89~ b/__history/Unit1.pas.~89~ new file mode 100644 index 0000000..13e1283 --- /dev/null +++ b/__history/Unit1.pas.~89~ @@ -0,0 +1,179 @@ +UNIT Unit1; + +INTERFACE + +USES + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, + Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, + ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, + ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, + JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; + +TYPE + Tmain = CLASS(TForm) + BitBtn1: TBitBtn; + OD: TOpenDialog; + sfl: TLabel; + T1: TTable; + DS: TDataSource; + JvDBGrid1: TJvDBGrid; + ZDB: TZConnection; + ZT1: TZTable; + BitBtn2: TBitBtn; + ZQ1: TZQuery; + ST: TStatusBar; + JvDBNavigator1: TJvDBNavigator; + AP: TAppPath; + PROCEDURE BitBtn1Click(Sender: TObject); + PROCEDURE BitBtn2Click(Sender: TObject); + PROCEDURE FormCreate(Sender: TObject); + PRIVATE + { Private-Deklarationen } + PUBLIC + { Public-Deklarationen } + END; + +VAR + main: Tmain; + sfile: STRING; + Server, User, Password, Catalog: STRING; + +IMPLEMENTATION + +{$R *.dfm} +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn1Click(Sender: TObject); + +BEGIN + IF OD.Execute THEN + BEGIN + sfile := OD.FileName; + sfl.Caption := OD.FileName; + T1.Active := False; + T1.DatabaseName := ExtractFileDir(OD.FileName); + T1.TableName := ExtractFilename(OD.FileName); + T1.Active := TRUE; + ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datenstze'; + ST.Refresh; + BitBtn2.Enabled := TRUE; + END; +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn2Click(Sender: TObject); + +VAR + i, rc: Integer; + fn: STRING; + createSQL: TStringList; + +BEGIN + fn := ExtractFilename(OD.FileName); + fn := Copy(fn, 1, POS('.', fn) - 1); + ZQ1.SQL.Clear; + ZDB.Connect; + ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); + ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); + ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); + FOR i := 0 TO T1.Fielddefs.Count - 1 DO + BEGIN + IF T1.Fielddefs[i].Datatype = ftString THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftBoolean THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' bit NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' float NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftCurrency THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftInteger THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE + BEGIN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + END; + END; + ZQ1.SQL[ZQ1.SQL.Count - 1] := FilterChar(ZQ1.SQL[ZQ1.SQL.Count - 1], ','); + ZQ1.SQL.Add(');'); + ZQ1.ExecSQL; + ZT1.Active := False; + ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); + ZT1.Active := TRUE; + T1.First; + rc := 0; + REPEAT + inc(rc); + ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); + ST.Refresh; + ZT1.Append; + FOR i := 0 TO T1.Fields.Count - 1 DO + BEGIN + IF T1.Fields[i].value <> NULL THEN + BEGIN + TRY + IF T1.Fielddefs[i].Datatype = ftString THEN + ZT1.Fields[i].Text := T1.Fields[i].Text + ELSE + ZT1.Fields[i].value := T1.Fields[i].value + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(T1.Fielddefs[i].Name); + END; + END; + END; + END; + TRY + ZT1.Post; + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(e.Message); + END; + END; + T1.Next; + application.ProcessMessages; + UNTIL T1.Eof;; + MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.FormCreate(Sender: TObject); + +VAR + ini: TIniFile; + +BEGIN + ZDB.Connected := False; + ini := TIniFile.Create(AP.AppPath + 'config.ini'); + Server := ini.ReadString('SETTINGS', 'SERVER', ''); + User := ini.ReadString('SETTINGS', 'USER', ''); + Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); + Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); + ini.Free; + ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; + ZDB.HostName := Server; + ZDB.User := User; + ZDB.Password := Password; + ZDB.Catalog := Catalog; + ZDB.Connected := TRUE; + ST.Panels[1].Text := 'Server: ' + Server; + ST.Panels[2].Text := 'Datenbank: ' + Catalog; + ST.Panels[3].Text := 'DB-User: ' + User; + ST.Refresh; +END; + +// ----------------------------------------------------------------------------- + +END. diff --git a/__history/Unit1.pas.~90~ b/__history/Unit1.pas.~90~ new file mode 100644 index 0000000..5535542 --- /dev/null +++ b/__history/Unit1.pas.~90~ @@ -0,0 +1,179 @@ +UNIT Unit1; + +INTERFACE + +USES + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, + Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, + ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, + ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, + JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; + +TYPE + Tmain = CLASS(TForm) + BitBtn1: TBitBtn; + OD: TOpenDialog; + sfl: TLabel; + T1: TTable; + DS: TDataSource; + JvDBGrid1: TJvDBGrid; + ZDB: TZConnection; + ZT1: TZTable; + BitBtn2: TBitBtn; + ZQ1: TZQuery; + ST: TStatusBar; + JvDBNavigator1: TJvDBNavigator; + AP: TAppPath; + PROCEDURE BitBtn1Click(Sender: TObject); + PROCEDURE BitBtn2Click(Sender: TObject); + PROCEDURE FormCreate(Sender: TObject); + PRIVATE + { Private-Deklarationen } + PUBLIC + { Public-Deklarationen } + END; + +VAR + main: Tmain; + sfile: STRING; + Server, User, Password, Catalog: STRING; + +IMPLEMENTATION + +{$R *.dfm} +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn1Click(Sender: TObject); + +BEGIN + IF OD.Execute THEN + BEGIN + sfile := OD.FileName; + sfl.Caption := OD.FileName; + T1.Active := False; + T1.DatabaseName := ExtractFileDir(OD.FileName); + T1.TableName := ExtractFilename(OD.FileName); + T1.Active := TRUE; + ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datenstze'; + ST.Refresh; + BitBtn2.Enabled := TRUE; + END; +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn2Click(Sender: TObject); + +VAR + i, rc: Integer; + fn: STRING; + createSQL: TStringList; + +BEGIN + fn := ExtractFilename(OD.FileName); + fn := Copy(fn, 1, POS('.', fn) - 1); + ZQ1.SQL.Clear; + ZDB.Connect; + ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); + ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); + ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); + FOR i := 0 TO T1.Fielddefs.Count - 1 DO + BEGIN + IF T1.Fielddefs[i].Datatype = ftString THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftBoolean THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' bit NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' float NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftCurrency THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' time NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftInteger THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE + BEGIN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + END; + END; + ZQ1.SQL[ZQ1.SQL.Count - 1] := FilterChar(ZQ1.SQL[ZQ1.SQL.Count - 1], ','); + ZQ1.SQL.Add(');'); + ZQ1.ExecSQL; + ZT1.Active := False; + ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); + ZT1.Active := TRUE; + T1.First; + rc := 0; + REPEAT + inc(rc); + ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); + ST.Refresh; + ZT1.Append; + FOR i := 0 TO T1.Fields.Count - 1 DO + BEGIN + IF T1.Fields[i].value <> NULL THEN + BEGIN + TRY + IF T1.Fielddefs[i].Datatype = ftString THEN + ZT1.Fields[i].Text := T1.Fields[i].Text + ELSE + ZT1.Fields[i].value := T1.Fields[i].value + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(T1.Fielddefs[i].Name); + END; + END; + END; + END; + TRY + ZT1.Post; + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(e.Message); + END; + END; + T1.Next; + application.ProcessMessages; + UNTIL T1.Eof;; + MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.FormCreate(Sender: TObject); + +VAR + ini: TIniFile; + +BEGIN + ZDB.Connected := False; + ini := TIniFile.Create(AP.AppPath + 'config.ini'); + Server := ini.ReadString('SETTINGS', 'SERVER', ''); + User := ini.ReadString('SETTINGS', 'USER', ''); + Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); + Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); + ini.Free; + ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; + ZDB.HostName := Server; + ZDB.User := User; + ZDB.Password := Password; + ZDB.Catalog := Catalog; + ZDB.Connected := TRUE; + ST.Panels[1].Text := 'Server: ' + Server; + ST.Panels[2].Text := 'Datenbank: ' + Catalog; + ST.Panels[3].Text := 'DB-User: ' + User; + ST.Refresh; +END; + +// ----------------------------------------------------------------------------- + +END. diff --git a/__history/Unit1.pas.~91~ b/__history/Unit1.pas.~91~ new file mode 100644 index 0000000..abf8a60 --- /dev/null +++ b/__history/Unit1.pas.~91~ @@ -0,0 +1,179 @@ +UNIT Unit1; + +INTERFACE + +USES + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, + Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, + ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, + ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, + JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; + +TYPE + Tmain = CLASS(TForm) + BitBtn1: TBitBtn; + OD: TOpenDialog; + sfl: TLabel; + T1: TTable; + DS: TDataSource; + JvDBGrid1: TJvDBGrid; + ZDB: TZConnection; + ZT1: TZTable; + BitBtn2: TBitBtn; + ZQ1: TZQuery; + ST: TStatusBar; + JvDBNavigator1: TJvDBNavigator; + AP: TAppPath; + PROCEDURE BitBtn1Click(Sender: TObject); + PROCEDURE BitBtn2Click(Sender: TObject); + PROCEDURE FormCreate(Sender: TObject); + PRIVATE + { Private-Deklarationen } + PUBLIC + { Public-Deklarationen } + END; + +VAR + main: Tmain; + sfile: STRING; + Server, User, Password, Catalog: STRING; + +IMPLEMENTATION + +{$R *.dfm} +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn1Click(Sender: TObject); + +BEGIN + IF OD.Execute THEN + BEGIN + sfile := OD.FileName; + sfl.Caption := OD.FileName; + T1.Active := False; + T1.DatabaseName := ExtractFileDir(OD.FileName); + T1.TableName := ExtractFilename(OD.FileName); + T1.Active := TRUE; + ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datenstze'; + ST.Refresh; + BitBtn2.Enabled := TRUE; + END; +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn2Click(Sender: TObject); + +VAR + i, rc: Integer; + fn: STRING; + createSQL: TStringList; + +BEGIN + fn := ExtractFilename(OD.FileName); + fn := Copy(fn, 1, POS('.', fn) - 1); + ZQ1.SQL.Clear; + ZDB.Connect; + ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); + ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); + ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); + FOR i := 0 TO T1.Fielddefs.Count - 1 DO + BEGIN + IF T1.Fielddefs[i].Datatype = ftString THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftBoolean THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' bit NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' float NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftCurrency THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' datetime NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftInteger THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE + BEGIN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + END; + END; + ZQ1.SQL[ZQ1.SQL.Count - 1] := FilterChar(ZQ1.SQL[ZQ1.SQL.Count - 1], ','); + ZQ1.SQL.Add(');'); + ZQ1.ExecSQL; + ZT1.Active := False; + ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); + ZT1.Active := TRUE; + T1.First; + rc := 0; + REPEAT + inc(rc); + ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); + ST.Refresh; + ZT1.Append; + FOR i := 0 TO T1.Fields.Count - 1 DO + BEGIN + IF T1.Fields[i].value <> NULL THEN + BEGIN + TRY + IF T1.Fielddefs[i].Datatype = ftString THEN + ZT1.Fields[i].Text := T1.Fields[i].Text + ELSE + ZT1.Fields[i].value := T1.Fields[i].value + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(T1.Fielddefs[i].Name); + END; + END; + END; + END; + TRY + ZT1.Post; + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(e.Message); + END; + END; + T1.Next; + application.ProcessMessages; + UNTIL T1.Eof;; + MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.FormCreate(Sender: TObject); + +VAR + ini: TIniFile; + +BEGIN + ZDB.Connected := False; + ini := TIniFile.Create(AP.AppPath + 'config.ini'); + Server := ini.ReadString('SETTINGS', 'SERVER', ''); + User := ini.ReadString('SETTINGS', 'USER', ''); + Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); + Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); + ini.Free; + ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; + ZDB.HostName := Server; + ZDB.User := User; + ZDB.Password := Password; + ZDB.Catalog := Catalog; + ZDB.Connected := TRUE; + ST.Panels[1].Text := 'Server: ' + Server; + ST.Panels[2].Text := 'Datenbank: ' + Catalog; + ST.Panels[3].Text := 'DB-User: ' + User; + ST.Refresh; +END; + +// ----------------------------------------------------------------------------- + +END. diff --git a/__history/Unit1.pas.~92~ b/__history/Unit1.pas.~92~ new file mode 100644 index 0000000..70d7294 --- /dev/null +++ b/__history/Unit1.pas.~92~ @@ -0,0 +1,179 @@ +UNIT Unit1; + +INTERFACE + +USES + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, + Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, + ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, + ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, + JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; + +TYPE + Tmain = CLASS(TForm) + BitBtn1: TBitBtn; + OD: TOpenDialog; + sfl: TLabel; + T1: TTable; + DS: TDataSource; + JvDBGrid1: TJvDBGrid; + ZDB: TZConnection; + ZT1: TZTable; + BitBtn2: TBitBtn; + ZQ1: TZQuery; + ST: TStatusBar; + JvDBNavigator1: TJvDBNavigator; + AP: TAppPath; + PROCEDURE BitBtn1Click(Sender: TObject); + PROCEDURE BitBtn2Click(Sender: TObject); + PROCEDURE FormCreate(Sender: TObject); + PRIVATE + { Private-Deklarationen } + PUBLIC + { Public-Deklarationen } + END; + +VAR + main: Tmain; + sfile: STRING; + Server, User, Password, Catalog: STRING; + +IMPLEMENTATION + +{$R *.dfm} +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn1Click(Sender: TObject); + +BEGIN + IF OD.Execute THEN + BEGIN + sfile := OD.FileName; + sfl.Caption := OD.FileName; + T1.Active := False; + T1.DatabaseName := ExtractFileDir(OD.FileName); + T1.TableName := ExtractFilename(OD.FileName); + T1.Active := TRUE; + ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datenstze'; + ST.Refresh; + BitBtn2.Enabled := TRUE; + END; +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn2Click(Sender: TObject); + +VAR + i, rc: Integer; + fn: STRING; + createSQL: TStringList; + +BEGIN + fn := ExtractFilename(OD.FileName); + fn := Copy(fn, 1, POS('.', fn) - 1); + ZQ1.SQL.Clear; + ZDB.Connect; + ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); + ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); + ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); + FOR i := 0 TO T1.Fielddefs.Count - 1 DO + BEGIN + IF T1.Fielddefs[i].Datatype = ftString THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftBoolean THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' bit NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' float NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftCurrency THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' time(5) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftInteger THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE + BEGIN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + END; + END; + ZQ1.SQL[ZQ1.SQL.Count - 1] := FilterChar(ZQ1.SQL[ZQ1.SQL.Count - 1], ','); + ZQ1.SQL.Add(');'); + ZQ1.ExecSQL; + ZT1.Active := False; + ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); + ZT1.Active := TRUE; + T1.First; + rc := 0; + REPEAT + inc(rc); + ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); + ST.Refresh; + ZT1.Append; + FOR i := 0 TO T1.Fields.Count - 1 DO + BEGIN + IF T1.Fields[i].value <> NULL THEN + BEGIN + TRY + IF T1.Fielddefs[i].Datatype = ftString THEN + ZT1.Fields[i].Text := T1.Fields[i].Text + ELSE + ZT1.Fields[i].value := T1.Fields[i].value + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(T1.Fielddefs[i].Name); + END; + END; + END; + END; + TRY + ZT1.Post; + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(e.Message); + END; + END; + T1.Next; + application.ProcessMessages; + UNTIL T1.Eof;; + MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.FormCreate(Sender: TObject); + +VAR + ini: TIniFile; + +BEGIN + ZDB.Connected := False; + ini := TIniFile.Create(AP.AppPath + 'config.ini'); + Server := ini.ReadString('SETTINGS', 'SERVER', ''); + User := ini.ReadString('SETTINGS', 'USER', ''); + Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); + Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); + ini.Free; + ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; + ZDB.HostName := Server; + ZDB.User := User; + ZDB.Password := Password; + ZDB.Catalog := Catalog; + ZDB.Connected := TRUE; + ST.Panels[1].Text := 'Server: ' + Server; + ST.Panels[2].Text := 'Datenbank: ' + Catalog; + ST.Panels[3].Text := 'DB-User: ' + User; + ST.Refresh; +END; + +// ----------------------------------------------------------------------------- + +END. diff --git a/__history/Unit1.pas.~93~ b/__history/Unit1.pas.~93~ new file mode 100644 index 0000000..5535542 --- /dev/null +++ b/__history/Unit1.pas.~93~ @@ -0,0 +1,179 @@ +UNIT Unit1; + +INTERFACE + +USES + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, + Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, + ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, + ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, + JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; + +TYPE + Tmain = CLASS(TForm) + BitBtn1: TBitBtn; + OD: TOpenDialog; + sfl: TLabel; + T1: TTable; + DS: TDataSource; + JvDBGrid1: TJvDBGrid; + ZDB: TZConnection; + ZT1: TZTable; + BitBtn2: TBitBtn; + ZQ1: TZQuery; + ST: TStatusBar; + JvDBNavigator1: TJvDBNavigator; + AP: TAppPath; + PROCEDURE BitBtn1Click(Sender: TObject); + PROCEDURE BitBtn2Click(Sender: TObject); + PROCEDURE FormCreate(Sender: TObject); + PRIVATE + { Private-Deklarationen } + PUBLIC + { Public-Deklarationen } + END; + +VAR + main: Tmain; + sfile: STRING; + Server, User, Password, Catalog: STRING; + +IMPLEMENTATION + +{$R *.dfm} +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn1Click(Sender: TObject); + +BEGIN + IF OD.Execute THEN + BEGIN + sfile := OD.FileName; + sfl.Caption := OD.FileName; + T1.Active := False; + T1.DatabaseName := ExtractFileDir(OD.FileName); + T1.TableName := ExtractFilename(OD.FileName); + T1.Active := TRUE; + ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datenstze'; + ST.Refresh; + BitBtn2.Enabled := TRUE; + END; +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn2Click(Sender: TObject); + +VAR + i, rc: Integer; + fn: STRING; + createSQL: TStringList; + +BEGIN + fn := ExtractFilename(OD.FileName); + fn := Copy(fn, 1, POS('.', fn) - 1); + ZQ1.SQL.Clear; + ZDB.Connect; + ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); + ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); + ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); + FOR i := 0 TO T1.Fielddefs.Count - 1 DO + BEGIN + IF T1.Fielddefs[i].Datatype = ftString THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftBoolean THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' bit NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' float NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftCurrency THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' time NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftInteger THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE + BEGIN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + END; + END; + ZQ1.SQL[ZQ1.SQL.Count - 1] := FilterChar(ZQ1.SQL[ZQ1.SQL.Count - 1], ','); + ZQ1.SQL.Add(');'); + ZQ1.ExecSQL; + ZT1.Active := False; + ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); + ZT1.Active := TRUE; + T1.First; + rc := 0; + REPEAT + inc(rc); + ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); + ST.Refresh; + ZT1.Append; + FOR i := 0 TO T1.Fields.Count - 1 DO + BEGIN + IF T1.Fields[i].value <> NULL THEN + BEGIN + TRY + IF T1.Fielddefs[i].Datatype = ftString THEN + ZT1.Fields[i].Text := T1.Fields[i].Text + ELSE + ZT1.Fields[i].value := T1.Fields[i].value + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(T1.Fielddefs[i].Name); + END; + END; + END; + END; + TRY + ZT1.Post; + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(e.Message); + END; + END; + T1.Next; + application.ProcessMessages; + UNTIL T1.Eof;; + MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.FormCreate(Sender: TObject); + +VAR + ini: TIniFile; + +BEGIN + ZDB.Connected := False; + ini := TIniFile.Create(AP.AppPath + 'config.ini'); + Server := ini.ReadString('SETTINGS', 'SERVER', ''); + User := ini.ReadString('SETTINGS', 'USER', ''); + Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); + Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); + ini.Free; + ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; + ZDB.HostName := Server; + ZDB.User := User; + ZDB.Password := Password; + ZDB.Catalog := Catalog; + ZDB.Connected := TRUE; + ST.Panels[1].Text := 'Server: ' + Server; + ST.Panels[2].Text := 'Datenbank: ' + Catalog; + ST.Panels[3].Text := 'DB-User: ' + User; + ST.Refresh; +END; + +// ----------------------------------------------------------------------------- + +END. diff --git a/__history/Unit1.pas.~94~ b/__history/Unit1.pas.~94~ new file mode 100644 index 0000000..abf8a60 --- /dev/null +++ b/__history/Unit1.pas.~94~ @@ -0,0 +1,179 @@ +UNIT Unit1; + +INTERFACE + +USES + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, + Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, + ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, + ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, + JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; + +TYPE + Tmain = CLASS(TForm) + BitBtn1: TBitBtn; + OD: TOpenDialog; + sfl: TLabel; + T1: TTable; + DS: TDataSource; + JvDBGrid1: TJvDBGrid; + ZDB: TZConnection; + ZT1: TZTable; + BitBtn2: TBitBtn; + ZQ1: TZQuery; + ST: TStatusBar; + JvDBNavigator1: TJvDBNavigator; + AP: TAppPath; + PROCEDURE BitBtn1Click(Sender: TObject); + PROCEDURE BitBtn2Click(Sender: TObject); + PROCEDURE FormCreate(Sender: TObject); + PRIVATE + { Private-Deklarationen } + PUBLIC + { Public-Deklarationen } + END; + +VAR + main: Tmain; + sfile: STRING; + Server, User, Password, Catalog: STRING; + +IMPLEMENTATION + +{$R *.dfm} +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn1Click(Sender: TObject); + +BEGIN + IF OD.Execute THEN + BEGIN + sfile := OD.FileName; + sfl.Caption := OD.FileName; + T1.Active := False; + T1.DatabaseName := ExtractFileDir(OD.FileName); + T1.TableName := ExtractFilename(OD.FileName); + T1.Active := TRUE; + ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datenstze'; + ST.Refresh; + BitBtn2.Enabled := TRUE; + END; +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn2Click(Sender: TObject); + +VAR + i, rc: Integer; + fn: STRING; + createSQL: TStringList; + +BEGIN + fn := ExtractFilename(OD.FileName); + fn := Copy(fn, 1, POS('.', fn) - 1); + ZQ1.SQL.Clear; + ZDB.Connect; + ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); + ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); + ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); + FOR i := 0 TO T1.Fielddefs.Count - 1 DO + BEGIN + IF T1.Fielddefs[i].Datatype = ftString THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftBoolean THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' bit NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' float NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftCurrency THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' datetime NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftInteger THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE + BEGIN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + END; + END; + ZQ1.SQL[ZQ1.SQL.Count - 1] := FilterChar(ZQ1.SQL[ZQ1.SQL.Count - 1], ','); + ZQ1.SQL.Add(');'); + ZQ1.ExecSQL; + ZT1.Active := False; + ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); + ZT1.Active := TRUE; + T1.First; + rc := 0; + REPEAT + inc(rc); + ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); + ST.Refresh; + ZT1.Append; + FOR i := 0 TO T1.Fields.Count - 1 DO + BEGIN + IF T1.Fields[i].value <> NULL THEN + BEGIN + TRY + IF T1.Fielddefs[i].Datatype = ftString THEN + ZT1.Fields[i].Text := T1.Fields[i].Text + ELSE + ZT1.Fields[i].value := T1.Fields[i].value + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(T1.Fielddefs[i].Name); + END; + END; + END; + END; + TRY + ZT1.Post; + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(e.Message); + END; + END; + T1.Next; + application.ProcessMessages; + UNTIL T1.Eof;; + MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.FormCreate(Sender: TObject); + +VAR + ini: TIniFile; + +BEGIN + ZDB.Connected := False; + ini := TIniFile.Create(AP.AppPath + 'config.ini'); + Server := ini.ReadString('SETTINGS', 'SERVER', ''); + User := ini.ReadString('SETTINGS', 'USER', ''); + Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); + Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); + ini.Free; + ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; + ZDB.HostName := Server; + ZDB.User := User; + ZDB.Password := Password; + ZDB.Catalog := Catalog; + ZDB.Connected := TRUE; + ST.Panels[1].Text := 'Server: ' + Server; + ST.Panels[2].Text := 'Datenbank: ' + Catalog; + ST.Panels[3].Text := 'DB-User: ' + User; + ST.Refresh; +END; + +// ----------------------------------------------------------------------------- + +END. diff --git a/__history/Unit1.pas.~95~ b/__history/Unit1.pas.~95~ new file mode 100644 index 0000000..d16d7b5 --- /dev/null +++ b/__history/Unit1.pas.~95~ @@ -0,0 +1,190 @@ +UNIT Unit1; + +INTERFACE + +USES + Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, + Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Data.DB, + Bde.DBTables, Vcl.Grids, Vcl.DBGrids, JvExDBGrids, JvDBGrid, + ZAbstractRODataset, ZAbstractDataset, ZAbstractTable, ZDataset, + ZAbstractConnection, ZConnection, Vcl.ComCtrls, Vcl.ExtCtrls, Vcl.DBCtrls, + JvDBControls, IniFiles, AppPath, JvExControls, JvLabel, STR_Tool_UTF; + +TYPE + Tmain = CLASS(TForm) + BitBtn1: TBitBtn; + OD: TOpenDialog; + sfl: TLabel; + T1: TTable; + DS: TDataSource; + JvDBGrid1: TJvDBGrid; + ZDB: TZConnection; + ZT1: TZTable; + BitBtn2: TBitBtn; + ZQ1: TZQuery; + ST: TStatusBar; + JvDBNavigator1: TJvDBNavigator; + AP: TAppPath; + PROCEDURE BitBtn1Click(Sender: TObject); + PROCEDURE BitBtn2Click(Sender: TObject); + PROCEDURE FormCreate(Sender: TObject); + PRIVATE + { Private-Deklarationen } + PUBLIC + { Public-Deklarationen } + END; + +VAR + main: Tmain; + sfile: STRING; + Server, User, Password, Catalog: STRING; + +IMPLEMENTATION + +{$R *.dfm} +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn1Click(Sender: TObject); + +BEGIN + IF OD.Execute THEN + BEGIN + sfile := OD.FileName; + sfl.Caption := OD.FileName; + T1.Active := False; + T1.DatabaseName := ExtractFileDir(OD.FileName); + T1.TableName := ExtractFilename(OD.FileName); + T1.Active := TRUE; + ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datenstze'; + ST.Refresh; + BitBtn2.Enabled := TRUE; + END; +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.BitBtn2Click(Sender: TObject); + +VAR + i, rc, fc: Integer; + fn: STRING; + createSQL: TStringList; + +BEGIN + FOR rc := 0 TO OD.Files.count - 1 DO + BEGIN + sfile := OD.Files[fc]; + sfl.Caption := OD.Files[fc]; + T1.Active := False; + T1.DatabaseName := ExtractFileDir(OD.Files[fc]); + T1.TableName := ExtractFilename(OD.Files[fc]); + T1.Active := TRUE; + ST.Panels[0].Text := IntToStr(T1.RecordCount) + ' Datenstze'; + ST.Refresh; + fn := ExtractFilename(OD.Files[fc]); + fn := Copy(fn, 1, POS('.', fn) - 1); + ZQ1.SQL.Clear; + ZDB.Connect; + ZQ1.SQL.Add('USE ' + UPPERCASE(Catalog) + ';'); + ZQ1.SQL.Add('DROP TABLE IF EXISTS ' + lowercase(fn) + ';'); + ZQ1.SQL.Add('CREATE TABLE ' + lowercase(fn) + ' ('); + FOR i := 0 TO T1.Fielddefs.count - 1 DO + BEGIN + IF T1.Fielddefs[i].Datatype = ftString THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftMemo THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftBoolean THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' bit NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftFloat THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' float NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftCurrency THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftDate THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' date NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftTime THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' datetime NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftSmallint THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE IF T1.Fielddefs[i].Datatype = ftInteger THEN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' int NULL,') + ELSE + BEGIN + ZQ1.SQL.Add(T1.Fielddefs[i].Name + ' varchar(max) NULL,') + END; + END; + ZQ1.SQL[ZQ1.SQL.count - 1] := FilterChar(ZQ1.SQL[ZQ1.SQL.count - 1], ','); + ZQ1.SQL.Add(');'); + ZQ1.ExecSQL; + ZT1.Active := False; + ZT1.TableName := UPPERCASE(Catalog) + '.dbo.' + lowercase(fn); + ZT1.Active := TRUE; + T1.First; + rc := 0; + REPEAT + inc(rc); + ST.Panels[0].Text := 'Verarbeite Datensatz ' + IntToStr(rc) + ' von ' + IntToStr(T1.RecordCount); + ST.Refresh; + ZT1.Append; + FOR i := 0 TO T1.Fields.count - 1 DO + BEGIN + IF T1.Fields[i].value <> NULL THEN + BEGIN + TRY + IF T1.Fielddefs[i].Datatype = ftString THEN + ZT1.Fields[i].Text := T1.Fields[i].Text + ELSE + ZT1.Fields[i].value := T1.Fields[i].value + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(T1.Fielddefs[i].Name); + END; + END; + END; + END; + TRY + ZT1.Post; + EXCEPT + ON e: Exception DO + BEGIN + ShowMessage(e.Message); + END; + END; + T1.Next; + application.ProcessMessages; + UNTIL T1.Eof;; + END; + MessageDlg('Vorgang beendet', mtInformation, [mbOK], 0); +END; + +// ----------------------------------------------------------------------------- + +PROCEDURE Tmain.FormCreate(Sender: TObject); + +VAR + ini: TIniFile; + +BEGIN + ZDB.Connected := False; + ini := TIniFile.Create(AP.AppPath + 'config.ini'); + Server := ini.ReadString('SETTINGS', 'SERVER', ''); + User := ini.ReadString('SETTINGS', 'USER', ''); + Password := ini.ReadString('SETTINGS', 'PASSWORD', ''); + Catalog := ini.ReadString('SETTINGS', 'CATALOG', ''); + ini.Free; + ZDB.Database := 'Provider=SQLNCLI11.1;Persist Security Info=False;User ID=sa;Initial Catalog="";Data Source=' + Server + ';Initial File Name="";Server SPN=""'; + ZDB.HostName := Server; + ZDB.User := User; + ZDB.Password := Password; + ZDB.Catalog := Catalog; + ZDB.Connected := TRUE; + ST.Panels[1].Text := 'Server: ' + Server; + ST.Panels[2].Text := 'Datenbank: ' + Catalog; + ST.Panels[3].Text := 'DB-User: ' + User; + ST.Refresh; +END; + +// ----------------------------------------------------------------------------- + +END.