datam.pas

delphi和SQL做的超市管理系统

unit datam;

interface

uses
  SysUtils, Classes, DB, ADODB, RpDefine, RpCon, RpConDS;

type
  Tdm = class(TDataModule)
    ADOConnection1: TADOConnection;
    ADO_product: TADOTable;
    ADO_lb: TADOTable;
    ADOQ_tmpsell: TADOQuery;
    ADO_tmpsell: TADOTable;
    ADO_tmpsellsum: TFloatField;
    ADO_user: TADOTable;
    ADO_sell: TADOTable;
    ADOQ_cx: TADOQuery;
    RvDataSetConnection1: TRvDataSetConnection;
    RvDataSetConnection2: TRvDataSetConnection;
    ADO_tmpsellsell_id: TAutoIncField;
    ADO_tmpsellsell_prod_id: TWideStringField;
    ADO_tmpsellsell_prod_name: TWideStringField;
    ADO_tmpsellsell_prod_price: TBCDField;
    ADO_tmpsellsell_number: TIntegerField;
    ADO_tmpsellseller_name: TWideStringField;
    ADO_tmpsellsell_time: TDateTimeField;
    ADO_sellsell_prod_id: TWideStringField;
    ADO_sellsell_prod_name: TWideStringField;
    ADO_sellsell_prod_price: TBCDField;
    ADO_sellsell_number: TIntegerField;
    ADO_sellseller_name: TWideStringField;
    ADO_sellsell_time: TDateTimeField;
    ADO_sellsum: TFloatField;
    ADO_sellsell_id: TAutoIncField;
    procedure ADO_tmpsellCalcFields(DataSet: TDataSet);
    procedure ADO_sellCalcFields(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dm: Tdm;

implementation

{$R *.dfm}

procedure Tdm.ADO_tmpsellCalcFields(DataSet: TDataSet);
begin
  ADO_tmpsell.FieldByName('sum').AsFloat:=ADO_tmpsell.FieldByName('sell_prod_price').AsFloat*ADO_tmpsell.FieldByName('sell_number').AsInteger;
end;


procedure Tdm.ADO_sellCalcFields(DataSet: TDataSet);
begin
 ADO_sell.FieldByName('sum').AsFloat:=ADO_sell.FieldByName('sell_prod_price').AsFloat*ADO_sell.FieldByName('sell_number').AsInteger;
end;

end.