gridmasterdetailpanel.pas

来自「胜天进销存源码,国产优秀的进销存」· PAS 代码 · 共 141 行

unit gridmasterdetailpanel;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, StdCtrls, wwcheckbox, DBTables, Grids, Wwdbigrd, Wwdbgrid, ComCtrls,
  wwriched, Mask, wwdbedit, wwdbdatetimepicker, Buttons, wwdblook,
  wwDialog, wwrcdvw, wwclearbuttongroup, wwradiogroup, wwradiobutton,
  wwrcdpnl, wwmonthcalendar, ImgList, wwDataInspector, wwSpeedButton,
  wwDBNavigator, wwclearpanel, ExtCtrls;

type
  TMasterDetailGridForm = class(TForm)
    CustomerGrid: TwwDBGrid;
    DataSource1: TDataSource;
    CustomerTable: TTable;
    DataSource2: TDataSource;
    OrdersTable: TTable;
    wwExpandButton1: TwwExpandButton;
    CustomerTableCustNo: TFloatField;
    CustomerTableCompany: TStringField;
    CustomerTableAddr1: TStringField;
    CustomerTableAddr2: TStringField;
    CustomerTableCity: TStringField;
    CustomerTableState: TStringField;
    CustomerTableZip: TStringField;
    CustomerTableCountry: TStringField;
    CustomerTablePhone: TStringField;
    CustomerTableFAX: TStringField;
    CustomerTableTaxRate: TFloatField;
    CustomerTableContact: TStringField;
    CustomerTableLastInvoiceDate: TDateTimeField;
    CustomerTableOrders: TIntegerField;
    DataSource3: TDataSource;
    Table3: TTable;
    ItemsGrid: TwwDBGrid;
    wwExpandButton2: TwwExpandButton;
    OrdersTableOrderNo: TFloatField;
    OrdersTableCustNo: TFloatField;
    OrdersTableSaleDate: TDateTimeField;
    OrdersTableShipDate: TDateTimeField;
    OrdersTableEmpNo: TIntegerField;
    OrdersTableShipToContact: TStringField;
    OrdersTableShipToAddr1: TStringField;
    OrdersTableShipToAddr2: TStringField;
    OrdersTableShipToCity: TStringField;
    OrdersTableShipToState: TStringField;
    OrdersTableShipToZip: TStringField;
    OrdersTableShipToCountry: TStringField;
    OrdersTableShipToPhone: TStringField;
    OrdersTableShipVIA: TStringField;
    OrdersTablePO: TStringField;
    OrdersTableTerms: TStringField;
    OrdersTablePaymentMethod: TStringField;
    OrdersTableItemsTotal: TCurrencyField;
    OrdersTableTaxRate: TFloatField;
    OrdersTableFreight: TCurrencyField;
    OrdersTableAmountPaid: TCurrencyField;
    OrdersTableItems: TIntegerField;
    Table5: TTable;
    CustomerTableHaveOrders: TIntegerField;
    CalcTotalItems: TQuery;
    SumQuery: TQuery;
    SpeedButton1: TSpeedButton;
    ImageList1: TImageList;
    Query1: TQuery;
    SumQuerySUMOFItemsTotal: TCurrencyField;
    InvoicePanel: TPanel;
    InvoiceGrid: TwwDBGrid;
    wwDBNavigator1: TwwDBNavigator;
    wwDBNavigator1First: TwwNavButton;
    wwDBNavigator1PriorPage: TwwNavButton;
    wwDBNavigator1Prior: TwwNavButton;
    wwDBNavigator1Next: TwwNavButton;
    wwDBNavigator1NextPage: TwwNavButton;
    wwDBNavigator1Last: TwwNavButton;
    wwDBNavigator1Insert: TwwNavButton;
    wwDBNavigator1Delete: TwwNavButton;
    wwDBNavigator1Edit: TwwNavButton;
    wwDBNavigator1Post: TwwNavButton;
    wwDBNavigator1Cancel: TwwNavButton;
    wwDBNavigator1Refresh: TwwNavButton;
    wwDBNavigator1SaveBookmark: TwwNavButton;
    wwDBNavigator1RestoreBookmark: TwwNavButton;
    procedure CustomerTableCalcFields(DataSet: TDataSet);
    procedure OrdersTableCalcFields(DataSet: TDataSet);
    procedure CustomerGridCalcTitleImage(Sender: TObject; Field: TField;
      var TitleImageAttributes: TwwTitleImageAttributes);
    procedure InvoiceGridUpdateFooter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MasterDetailGridForm: TMasterDetailGridForm;

implementation

{$R *.DFM}

procedure TMasterDetailGridForm.CustomerTableCalcFields(DataSet: TDataSet);
begin
{  CalcTotalOrders.active:=false;
  CalcTotalOrders.parambyName('CustNo').asfloat:=dataset.fieldbyname('CustNo').asfloat;
  CalcTotalOrders.active:=true;
  dataset.fieldbyname('Orders').asstring:= CalcTotalOrders.fields[0].AsString;
}
end;

procedure TMasterDetailGridForm.OrdersTableCalcFields(DataSet: TDataSet);
begin
{  CalcTotalItems.active:=false;
  CalcTotalItems.parambyName('OrderNo').asfloat:=dataset.fieldbyname('OrderNo').asfloat;
  CalcTotalItems.active:=true;
  dataset.fieldbyname('Items').asstring:= CalcTotalItems.fields[0].AsString;
}
end;

procedure TMasterDetailGridForm.CustomerGridCalcTitleImage(Sender: TObject; Field: TField;
  var TitleImageAttributes: TwwTitleImageAttributes);
begin
   if (Field.FieldName='Orders') then
   begin
      TitleImageAttributes.ImageIndex:=2;
   end;
end;

procedure TMasterDetailGridForm.InvoiceGridUpdateFooter(Sender: TObject);
begin
   SumQuery.active:= False;
   SumQuery.ParamByName('CustNo').asInteger:= CustomerTable.FieldByName('CustNo').asInteger;
   SumQuery.active:= True;
   InvoiceGrid.ColumnByName('ItemsTotal').FooterValue:=
      FloatToStrF(SumQuerySUMOFItemsTotal.asFloat, ffCurrency, 10, 2);
end;

end.