1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23: 24: 25: 26: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70: 71: 72: 73: 74: 75: 76: 77: 78: 79: 80: 81: 82: 83: 84: 85: 86: 87: 88: 89: 90: 91: 92: 93: 94: 95: 96: 97: 98: 99: 100: 101: 102: 103: 104: 105: 106: 107: 108: 109: 110: 111: 112: 113: 114: 115: 116: 117: 118: 119: 120: 121: 122: 123: 124: 125: 126: 127: 128:
| unit UnitToolsHKAbrImportieren;
interface
uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ComCtrls,Vcl.ExtCtrls, Data.DB, ApoDSet, AdvProgr;
type TFormToolsHKAbrImportieren = class(TForm) ButtonPause: TButton; ButtonAbbrechen: TButton; LabelImportiereCaption: TLabel; LabelHinzugefuegtCaption: TLabel; LabelAktualisiertCaption: TLabel; LabelGeloeschtCaption: TLabel; LabelHinzugefuegt: TLabel; LabelAktualisiert: TLabel; LabelGeloescht: TLabel; LabelFehlerCaption: TLabel; LabelFehler: TLabel; LabelVerarbeitetCaption: TLabel; LabelVerarbeitet: TLabel; LabelUebersprungenCaption: TLabel; LabelUebersprungen: TLabel; PanelLog: TPanel; MemoLog: TMemo; ApolloTableHKabrImportAkteKz: TApolloTable; AdvProgress: TAdvProgress; procedure FormShow(Sender: TObject); private public end;
var FormToolsHKAbrImportieren: TFormToolsHKAbrImportieren; ZeilenNummerHKAbr: Integer; AkteKzHKAbr: TListItem; AkteKz : TListView; KundeHKAbr : TListItem; Datenzaehler: Integer; DatenGesamt: Integer; HKRbrDatenPfad: String;
implementation
{$R *.dfm}
uses UnitMain, UnitDataModuleAlleDatenbanken;
procedure TFormToolsHKAbrImportieren.FormShow(Sender: TObject); begin Left := FormMain.Left + (FormMain.Width - Width) div 2; Top := FormMain.Top + (FormMain.Height - Height) div 2;
ZeilenNummerHKAbr := 0;
Datenzaehler := 0;
DatenGesamt := 0;
HKRbrDatenPfad := FormMain.JvBrowseForFolderDialog.Directory + '\'; AdvProgress.Position := 0;
AkteKz := TListView.Create(Self); AkteKz.Parent := FormToolsHKAbrImportieren; AkteKz.Visible := FALSE; AkteKz.ViewStyle := vsReport; AkteKz.Columns.Add; AkteKz.Columns[0].Caption := 'AKTEKZNR'; AkteKz.Columns.Add; AkteKz.Columns[1].Caption := 'AKTEKZBEZ';
ApolloTableHKabrImportAkteKz.TableName := HKRbrDatenPfad + 'aktekz.dbf'; ApolloTableHKabrImportAkteKz.Active := TRUE; DatenGesamt := 0; AdvProgress.Max := ApolloTableHKabrImportAkteKz.RecordCount; ApolloTableHKabrImportAkteKz.First; while NOT ApolloTableHKabrImportAkteKz.Eof do begin AkteKzHKAbr := AkteKz.Items.Add; AkteKzHKAbr.Caption := IntToStr(ApolloTableHKabrImportAkteKz.FieldByName('AKTEKZNR').AsInteger); AkteKzHKAbr.SubItems.Add(ApolloTableHKabrImportAkteKz.FieldByName('AKTEKZBEZ').AsString); AdvProgress.Position := AdvProgress.Position + Datenzaehler; MemoLog.Lines.Add(' Importiere "Aktekz": ' + IntToStr(Datenzaehler + 1) + ' von ' + IntToStr(ApolloTableHKabrImportAkteKz.RecordCount) + ' gelesen'); ApolloTableHKabrImportAkteKz.Next; INC(Datenzaehler); end; end;
end. |