home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Delphi3 / install / data.z / DM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-08-05  |  1.4 KB  |  58 lines
  1. Unit DM;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   DB, DBTables;
  8.  
  9. type
  10.   TDM1 = class(TDataModule)
  11.     Customer: TTable;
  12.     CustomerSource: TDataSource;
  13.     SQLCustomer: TQuery;
  14.     SQLOrders: TQuery;
  15.     OrdersSource: TDataSource;
  16.     SQLOrdersOrderNo: TFloatField;
  17.     SQLOrdersCustno: TFloatField;
  18.     SQLOrdersSaleDate: TDateTimeField;
  19.     SQLOrdersShipDate: TDateTimeField;
  20.     SQLOrdersEmpNo: TIntegerField;
  21.     SQLOrdersAmountPaid: TCurrencyField;
  22.     procedure DM1Create(Sender: TObject);
  23.     procedure SQLOrdersFilterRecord(DataSet: TDataSet;
  24.       var Accept: Boolean);
  25.   public
  26.     { The variable below will be accessible to to CustView (because it is
  27.       public and this unit is in its uses).  It is used in
  28.       SQLOrdersFilterRecord to set the Filter amount for the Orders Query. }
  29.     OrdersFilterAmount: Extended;
  30.   end;
  31.  
  32. var
  33.   DM1: TDM1;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38.  
  39. procedure TDM1.DM1Create(Sender: TObject);
  40. begin
  41.   try
  42.     Screen.Cursor := crHourGlass;
  43.     SQLCustomer.Open;
  44.   finally
  45.     Screen.Cursor := crDefault;
  46.   end;
  47. end;
  48.  
  49. procedure TDM1.SQLOrdersFilterRecord(DataSet: TDataSet;
  50.   var Accept: Boolean);
  51. begin
  52.   { This is only called if the Filtered property is True, set
  53.     dynamically by the CheckBox on the CustView form. }
  54.   Accept := SQLOrdersAmountPaid.Value >= OrdersFilterAmount;
  55. end;
  56.  
  57. end.
  58.