kopieren von daten

[timbuktubob]

Mein problem: Ich soll weil auf arbeit alle so faul sind, in unseren kundenverwaltungsprogramm, eine kopier button einbauen, welchen ich für völlig überflüssig finde aber ok!
Dieser Button soll dann alle daten kopieren die in diesem Datensatz enthalten sind.
Nur die automatisch weiterzählende kundennummer nicht! Das soll zur vereinfachung des programms führen, wenn z.b. zwei firmen unter einer addresse arbeiten, das der zuständige bearbeitende nur die daten kopieren soll? jedoch habe ich keine ahnung wie ich das umsetzen sollte, weil ich auf diesem gebiet und in delphi anfänger bin! naja hoffe mir kann einer weiter helfen!

 

[wooly60]

Ich verwende folgende procedure, die bei mir in einer allgemeinen Unit abgelegt ist.

procedure TuInitDB.CopyRec(const Table1: TTable; const PrimeKey: array of const; const sNotFields: array of String);
{************************************************************************}
{ Kopiert in Table1 den mit PrimeKey festgelegten Satz in einen neuen    }
{ Satz. Die in sNotFields spezifizierten Felder werden nicht kopiert.    }
{   uInitDB.CopyRec(dmMaQMa.dbtaWerNr, [lCopyID], ['ID','ErstUserID']    }
{************************************************************************}
var
  dbtaTmp  : TTable;
  bNotCopy : Boolean;
  i,
  iCount  : LongInt;
  sName  : String;
begin
  dbtaTmp:=TTable.Create(self);
  try
    with dbtaTmp do
    begin
      TableName:=Table1.TableName;
      DatabaseName:=Table1.DatabaseName;
      IndexName:='';
      if not Active then Open;
      IndexName:=''; { Primärindex aktivieren }
      if FindKey(PrimeKey) then
      begin
        Table1.Insert;
        IndexName:=''; { Primärindex wieder aktivieren }
        FindKey(PrimeKey);  { Noch mal auf zu kopierenden Satz setzen, da }
                              { dieser bei AfterInsert geändert werden kann }
        for iCount:=0 to pred(FieldCount) do  { Alle Felder außer den in sNotFields[] angegebenen kopieren }
        begin
          sName := Fields[iCount].FieldName;
          bNotCopy:=Table1.FindField(sName)=nil;
          i:=0;
          while not bNotCopy and (i<=High(sNotFields)) do
          begin
            bNotCopy:=sName=sNotFields[i];
            inc(i);
          end;
          if not bNotCopy then
            Table1.FieldByName(sName).Assign(FieldByName(sName));
        end;
      end;
    end;
  finally
    dbtaTmp.Free;
  end;
end;