datasets.pas

reportmachine demo delphi源码

unit datasets;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB, RM_Dataset, RM_Common, ADODB;

type
  TCustomerData = class(TDataModule)
    CustomersDS: TRMDBDataSet;
    OrdersDS: TRMDBDataSet;
    ItemsDS: TRMDBDataSet;
    PartDS: TRMDBDataSet;
    QueryDS: TRMDBDataSet;
    BioDS: TRMDBDataSet;
    Query1DS: TRMDBDataSet;
    CustomersSource: TDataSource;
    DataSource2: TDataSource;
    CountryDS: TRMDBDataSet;
    ADOConnection1: TADOConnection;
    Customers: TADODataSet;
    country: TADODataSet;
    Bio: TADODataSet;
    RepQuery1: TADODataSet;
    RepQuery: TADODataSet;
    Parts: TADODataSet;
    LineItems: TADODataSet;
    Orders: TADODataSet;
    LineItemsOrderNo: TFloatField;
    LineItemsItemNo: TFloatField;
    LineItemsPartNo: TFloatField;
    LineItemsQty: TIntegerField;
    LineItemsDiscount: TFloatField;
    LineItemsTotal: TFloatField;
    LineItemsExtendedPrice: TFloatField;
    LineItemsPrice: TFloatField;
    LineItemsPartName: TStringField;
    procedure LineItemsCalcFields(DataSet: TDataSet);
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  CustomerData: TCustomerData;

implementation

{$R *.DFM}

procedure TCustomerData.LineItemsCalcFields(DataSet: TDataSet);
begin
  LineItemsExtendedPrice.Value := LineItemsPrice.Value *
    ((100 - LineItemsDiscount.Value) / 100);
  LineItemsTotal.Value := LineItemsExtendedPrice.Value *
    LineItemsQty.Value;
end;

procedure TCustomerData.DataModuleCreate(Sender: TObject);
begin
  AdoConnection1.Connected := False;
  AdoConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
    ExtractFileDir(ParamStr(0)) + '\database\ReportDemo.mdb';
end;

end.