vorheriges KapitelInhaltsverzeichnisIndexInfoseitenächstes Kapitel


Die Datei Project1.dpr

Die Datei Unit1.pas

Die Datei Unit2.pas



C


Quellcode für Delphi-Programm in Tag 14


Die Datei Project1.dpr

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {Form2},

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TForm2, Form2);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.



Die Datei Unit1.pas

unit Unit1;

interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
TForm1 = class(TForm)
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

end.



Die Datei Unit2.pas

unit Unit2;

interface

uses
SysUtils, Windows, Messages, Classes, Graphics, Controls,
StdCtrls, Forms, DBCtrls, DB, DBGrids, DBTables, Grids, Mask, ExtCtrls;

type
TForm2 = class(TForm)
Query1TEILNUM: TIntegerField;
Query1BESCHREIBUNG: TStringField;
Query1PREIS: TFloatField;
ScrollBox: TScrollBox;
Label1: TLabel;
EditTEILNUM: TDBEdit;
Label2: TLabel;
EditBESCHREIBUNG: TDBEdit;
Label3: TLabel;
EditPREIS: TDBEdit;
DBGrid1: TDBGrid;
DBNavigator: TDBNavigator;
Panel1: TPanel;
DataSource1: TDataSource;
Panel2: TPanel;
Panel3: TPanel;
Query1: TQuery;
Query2: TQuery;
DataSource2: TDataSource;
procedure FormCreate(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form2: TForm2;

implementation

{$R *.DFM}

procedure TForm2.FormCreate(Sender: TObject);
begin
Query1.Open;
Query2.Open;
end;

end.



Ein Imprint des Markt&Technik Buch- und Software-Verlag GmbH.
Elektronische Fassung des Titels: SQL in 21 Tagen, ISBN: 3-8272-2020-3


vorheriges KapitelTop Of PageInhaltsverzeichnisIndexInfoseitenächstes Kapitel