Absturz beim Programmstart unter Window NT

[mjenke]

Hi, sakura!

Der Witz bei diesem Dialog ist, dass er keinen OnCreate-Code besitzt. Hier passiert ohnehin erstaunlich wenig (und glücklicherweise wird der Dialog - wie es nun aussieht - nicht mehr benötigt). Es gibt ein Query-Objekt und ein Datasource-Objekt. Ansonsten nur ein paar Buttons und ein DBGrid. Nichts dramatisches eigentlich.

Zum Reinschauen hier trotzdem mal der Code...

Code:

unit uKorrekrurbelicht;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, DBGrids, StdCtrls, Buttons, Db, DBTables;

type
  TfrmKorrekrurbelicht = class(TForm)
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    SpeedButton1: TSpeedButton;
    DataSource1: TDataSource;
    Query1: TQuery;
    BitBtn2: TBitBtn;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  frmKorrekrurbelicht: TfrmKorrekrurbelicht;

implementation

uses udatModulAusgabe, uLfdNummer, uQRListe, udatModule, uATVConsts;

{$R *.DFM}

procedure TfrmKorrekrurbelicht.SpeedButton1Click(Sender: TObject);
begin
   with Query1 do
   begin
      with SQL do
      begin
        Clear;

        Add('SELECT DISTINCT D.LaufendeNummer, D.SortierBegriff, D.BearbeitungsStatus, D2.VerbindungsArt, D2.VerbindungsDaten, D3.Drucktext ');
        Add('FROM '+Firmen +' D, '+FirmenAnschriften+' D1, '+FirmenVerbindungen+' D2, '+FirmenDrucktexte+' D3 ');
        Add('WHERE ((D.BearbeitungsStatus = 1.0) OR (D.BearbeitungsStatus = 2.0)) ');
        Add('AND (D1.FirmaID = D.IDFirma) ');
        Add('AND (D2.FirmaID = D1.FirmaID) ');
        Add('AND (D2.AnschriftID = D1.IDAnschrift) ');
        Add('AND ((D2.VerbindungsArt = 3.0) OR (D2.VerbindungsArt = 4.0)) ');
        Add('AND (D3.FirmaID = D.IDFirma) ');
D2.VerbindungsDaten, D.BearbeitungsStatus');
        If frmLaufendeNummern.RadioButton1.Checked Then
          Add('ORDER BY D.' + SortierBegriff)
        else
          Add('ORDER BY D.' + LaufendeNummer);

     end;
     open;

   end;

   frmQRListe.Show;
   If not CheckBox1.Checked Then
     frmQRListe.Quickrep1.Print
   else
     frmQRListe.Quickrep1.Preview;

   frmQRListe.Close;

end;

procedure TfrmKorrekrurbelicht.FormShow(Sender: TObject);
begin
  Label1.Caption := IntToStr(datModulAusgabe.qryMKorrekturFirmenAnschriften.RecordCount);
end;

end.

Matthias