tim.minkenberg/dbkonverter_paradox
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Init

Browse source
This commit is contained in:
tminkenberrg 2024-10-11 17:38:28 +02:00
commit 5e9ac89dcd
191 changed files with 4167 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
__history/DBKonverter.dpr.~1~ Normal file
View file

@ -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.

14
__history/DBKonverter.dpr.~2~ Normal file
View file

@ -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.

17
__history/DBKonverter.dpr.~3~ Normal file
View file

@ -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.

16
__history/DBKonverter.dpr.~4~ Normal file
View file

@ -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.

127
__history/Unit1.dfm.~20~ Normal file
View file

@ -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

128
__history/Unit1.dfm.~21~ Normal file
View file

@ -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

137
__history/Unit1.dfm.~22~ Normal file
View file

@ -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

138
__history/Unit1.dfm.~23~ Normal file
View file

@ -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

128
__history/Unit1.dfm.~24~ Normal file
View file

@ -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

128
__history/Unit1.dfm.~25~ Normal file
View file

@ -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

139
__history/Unit1.dfm.~26~ Normal file
View file

@ -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

142
__history/Unit1.dfm.~27~ Normal file
View file

@ -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

139
__history/Unit1.dfm.~28~ Normal file
View file

@ -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

139
__history/Unit1.dfm.~29~ Normal file
View file

@ -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

179
__history/Unit1.pas.~86~ Normal file
View file

@ -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) + ' Datensätze';
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.

179
__history/Unit1.pas.~87~ Normal file
View file

@ -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) + ' Datensätze';
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.

179
__history/Unit1.pas.~88~ Normal file
View file

@ -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) + ' Datensätze';
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.

179
__history/Unit1.pas.~89~ Normal file
View file

@ -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) + ' Datensätze';
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.

179
__history/Unit1.pas.~90~ Normal file
View file

@ -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) + ' Datensätze';
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.

179
__history/Unit1.pas.~91~ Normal file
View file

@ -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) + ' Datensätze';
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.

179
__history/Unit1.pas.~92~ Normal file
View file

@ -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) + ' Datensätze';
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.

179
__history/Unit1.pas.~93~ Normal file
View file

@ -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) + ' Datensätze';
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.

179
__history/Unit1.pas.~94~ Normal file
View file

@ -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) + ' Datensätze';
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.

190
__history/Unit1.pas.~95~ Normal file
View file

@ -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) + ' Datensätze';
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) + ' Datensätze';
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.