Hier der Code:
Delphi-Quellcode:
type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Datei1: TMenuItem;
Info1: TMenuItem;
Panel1: TPanel;
ControlBar1: TControlBar;
CoolBar1: TCoolBar;
Einstellungen1: TMenuItem;
DBGrid1: TDBGrid;
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
DataSource1: TDataSource;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Panel2: TPanel;
Bevel1: TBevel;
N1: TMenuItem;
Beenden1: TMenuItem;
Label1: TLabel;
SpeedButton3: TSpeedButton;
Panel3: TPanel;
PageControl1: TPageControl;
TabSheet1: TTabSheet;
GroupBox1: TGroupBox;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
DBEdit6: TDBEdit;
DBComboBox1: TDBComboBox;
DBEdit7: TDBEdit;
DBEdit8: TDBEdit;
DBEdit9: TDBEdit;
GroupBox2: TGroupBox;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
DBEdit10: TDBEdit;
DBEdit11: TDBEdit;
DBEdit12: TDBEdit;
DBComboBox2: TDBComboBox;
DBComboBox3: TDBComboBox;
DBComboBox4: TDBComboBox;
DBEdit13: TDBEdit;
GroupBox3: TGroupBox;
DBMemo1: TDBMemo;
TabSheet2: TTabSheet;
BitBtn1: TBitBtn;
SpeedButton4: TSpeedButton;
Bevel2: TBevel;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
Bevel3: TBevel;
SpeedButton8: TSpeedButton;
SpeedButton9: TSpeedButton;
SpeedButton10: TSpeedButton;
SpeedButton11: TSpeedButton;
DateTimePicker1: TDateTimePicker;
ADOQuery1GGUID: TStringField;
ADOQuery1InsertTimestamp: TDateTimeField;
ADOQuery1CompNumber: TStringField;
ADOQuery1FKTO: TStringField;
ADOQuery1MtaNumber: TStringField;
ADOQuery1ContractualRelation: TStringField;
ADOQuery1ServiceVariant: TStringField;
ADOQuery1CompName: TStringField;
ADOQuery1CompStreet: TStringField;
ADOQuery1CompZip: TStringField;
ADOQuery1CompCountry: TStringField;
ADOQuery1CompPhone: TStringField;
ADOQuery1Remote: TStringField;
ADOQuery1RemoteUser: TStringField;
ADOQuery1RemotePassword: TStringField;
ADOQuery1NetPhoneTyp: TStringField;
ADOQuery1Version: TStringField;
ADOQuery1StartUpDate: TStringField;
ADOQuery1Partner: TStringField;
ADOQuery1Region: TStringField;
ADOQuery1Additive: TMemoField;
BitBtn2: TBitBtn;
ADOQuery2: TADOQuery;
DataSource2: TDataSource;
Panel4: TPanel;
DBGrid2: TDBGrid;
Panel5: TPanel;
GroupBox4: TGroupBox;
Label20: TLabel;
Label21: TLabel;
Label22: TLabel;
DBEdit14: TDBEdit;
DBEdit15: TDBEdit;
DBEdit16: TDBEdit;
GroupBox5: TGroupBox;
Label23: TLabel;
Label24: TLabel;
Label25: TLabel;
Label26: TLabel;
Label27: TLabel;
Label28: TLabel;
Label29: TLabel;
DBEdit17: TDBEdit;
DBEdit18: TDBEdit;
DBEdit19: TDBEdit;
DBEdit20: TDBEdit;
DBEdit21: TDBEdit;
DBEdit22: TDBEdit;
DBEdit23: TDBEdit;
GroupBox6: TGroupBox;
Label30: TLabel;
Label31: TLabel;
DBEdit25: TDBEdit;
GroupBox7: TGroupBox;
DBEdit26: TDBEdit;
BitBtn4: TBitBtn;
BitBtn5: TBitBtn;
DBEdit27: TDBEdit;
BitBtn6: TBitBtn;
BitBtn7: TBitBtn;
DateTimePicker2: TDateTimePicker;
DBEdit24: TDBEdit;
Label32: TLabel;
ADOQuery2GGUID: TStringField;
ADOQuery2InsertTimestamp: TDateTimeField;
ADOQuery2NetPhoneSoftwareVersion: TStringField;
ADOQuery2Organisation: TStringField;
ADOQuery2OrganisationUnit: TStringField;
ADOQuery2Workstation: TStringField;
ADOQuery2PowerDeskWorkstation: TStringField;
ADOQuery2S0Gateways: TStringField;
ADOQuery2S2Gateways: TStringField;
ADOQuery2PowerTeamBasic: TStringField;
ADOQuery2PowerTeamComfort: TStringField;
ADOQuery2PowerTeamEnterprise: TStringField;
ADOQuery2ValidTo: TStringField;
ADOQuery2Email: TStringField;
ADOQuery2Attachment: TStringField;
ADOQuery2KGGUID: TStringField;
ADOQuery2S0Gateways_4: TStringField;
ADOQuery3: TADOQuery;
DataSource3: TDataSource;
SpeedButton12: TSpeedButton;
function CreateGuid : string;
procedure Einstellungen1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure SpeedButton2Click(Sender: TObject);
procedure Beenden1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure PageControl1Change(Sender: TObject);
procedure BitBtn4Click(Sender: TObject);
procedure SpeedButton8Click(Sender: TObject);
procedure BitBtn5Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn6Click(Sender: TObject);
procedure SpeedButton9Click(Sender: TObject);
procedure SpeedButton10Click(Sender: TObject);
procedure SpeedButton11Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
procedure DBGrid1TitleClick(Column: TColumn);
procedure BitBtn7Click(Sender: TObject);
procedure Info1Click(Sender: TObject);
procedure DBGrid2TitleClick(Column: TColumn);
procedure SpeedButton12Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
Das hatte er aufeinmal nach dem Speichern, kp was das nu soll ^^
Die
dfm Datei ist noch da.