1:

procedure leseMaxLnr ();					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

unit Unit2;

interface

uses dialogs;

// Deklaration der Prozedur, damit sie auch außerhalb bekannt ist
procedure Sagwas;

implementation

// Implementierung der Prozedur
procedure Sagwas;
begin
  ShowMessage('Was');
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, unit2;
  // hier wird die andere Unit eingebunden

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  // das ist die Prozedur aus Unit2
  sagwas;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Grids, ValEdit, StdCtrls, DB, DBTables, ExtCtrls, Maxlnr;

type
    TForm1 = class(TForm)
    ComboBoxFG: TComboBox;
    Query1: TQuery;
    DataSource1: TDataSource;
    StringGrid1: TStringGrid;
    EditFT: TEdit;
    Label1: TLabel;
    ButtonHinzu: TButton;
    DateTimeVon: TDateTimePicker;
    DateTimeBis: TDateTimePicker;
    CheckBoxMehrtag: TCheckBox;
    GroupBoxFT: TGroupBox;
    CBAll: TCheckBox;
    ButtonErweitern: TButton;
    ComboBoxErweitern: TComboBox;
    
    procedure HinZuAll ();

  private
  { Private-Deklarationen }

  public
  { Public-Deklarationen }
  
  
end;

var
  Form1: TForm1;

implementation
  
{$R *.dfm}



procedure TForm1.HinZuAll;
var FGAuswahl, sql: string;
    DateVon, DateBis: double;
    lnr: Integer;
begin
  DateVon := trunc(DateTimeVon.Date + 693594);
  DateBis := trunc(DateTimeBis.Date + 693594);
  sql := Format ('SELECT * FROM Z4MSYS WHERE F1=%s', [QuotedStr (FGAuswahl)]);
  query1.Close;
  query1.SQL.Clear;
  query1.SQL.Add(sql);
  query1.Open;
  lnr := query1.FieldByName('LNR').asinteger;
  leseMaxLnr;
  query1.SQL.Clear;
  query1.SQL.add('SELECT * FROM Z4MSYS');
  query1.Open;
  query1.Append;
  query1.FieldByName('LNR').AsString := IntToStr((StrToInt(maxlnr) + 1));
  query1.FieldByName('F3').AsString := editFT.Text;
  query1.FieldByName('F1').AsString := FloatToStr(DateVon);
  query1.FieldByName('F6').AsString := '';
  query1.FieldByName('ART').AsString := 'SO';
  query1.FieldByName('NR').AsString := '0';
  if CheckBoxMehrtag.Checked = True then query1.FieldByName('F2').AsString := FloatToStr(DateBis);
  query1.Post;
  schreibeausDB;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

unit Maxlnr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, Grids, ValEdit, StdCtrls, DB, DBTables, ExtCtrls;

type
    procedure leseMaxLnr;

end;


implementation

procedure leseMaxLnr;
begin
  query1.SQL.Clear;
  query1.SQL.Add('SELECT * FROM Z4MSYS WHERE LNR=(SELECT MAX(LNR) FROM Z4MSYS)');
  query1.RequestLive := true;
  query1.Open;
  maxlnr := query1.FieldByName('LNR').AsString;
  query1.Close;
end;


end.