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.
Markt+Technik Verlag. Elektronische Fassung des Titels: SQL in 21 Tagen, ISBN: 3-8272-2020-3
