unit Insert;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Contnrs, StdCtrls, Mask, DBCtrls,
DB;
type
Tfrm_insertValues =
class(TForm)
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
private
procedure Abbrechen(Sender: TObject);
procedure Datensatz_einfuegen(Sender: TObject);
procedure Check_DataType(Sender: TObject);
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
frm_insertValues: Tfrm_insertValues;
dynOLComponents: Tobjectlist;
dynEdit: TDBEdit;
dynLabel: TLabel;
dynButton: TButton;
boolABortClicked: Boolean;
implementation