dfm_total.pas

仓库管理系统 仓库管理系统

unit dfm_total;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, Mask, Grids, DBGrids, DB, ADODB, ExtCtrls,
  DBGridEh;

type
  Tdfmtotal = class(TForm)
    Panel1: TPanel;
    StatusBar1: TStatusBar;
    DataSource1: TDataSource;
    aqrytdate: TADOQuery;
    Panel2: TPanel;
    Label2: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    MaskEdit5: TMaskEdit;
    MaskEdit6: TMaskEdit;
    DateTimePicker1: TDateTimePicker;
    DBGridEh1: TDBGridEh;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure DBGridEh1TitleClick(Column: TColumnEh);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmtotal: Tdfmtotal;

implementation

uses dfm_sale, chHeadUnit;

{$R *.dfm}

procedure Tdfmtotal.FormCreate(Sender: TObject);
begin
  maskedit6.Text :=dfmsale.DBEditEh1.text;
  maskedit5.Text :=dfmsale.DBComboBoxEh1.text;
  DateTimePicker1.Date :=Date();
end;

procedure Tdfmtotal.FormShow(Sender: TObject);
var
  fstr:AnsiString;
begin
  fstr:='SELECT t_saledet.bmh, t_saledet.clabel, t_ware.flh,sum(t_saledet.sl) as esl, sum(t_saledet.sjje) as esjje FROM t_saledet,t_ware'
       +' WHERE t_saledet.clabel=t_ware.clabel and t_saledet.spbh=t_ware.spbh and t_saledet.bmh=''%s'' AND (t_saledet.clabel)=''%s'' AND ([t_saledet.rq])=#%s#'
       +' group by t_saledet.bmh, t_ware.flh, t_saledet.clabel';
  with aqrytdate do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[maskEdit6.text,maskedit5.text,datetostr(DateTimePicker1.Date)]));
    Prepared;
    open;
  end;  
end;

procedure Tdfmtotal.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#27 then
    close;
end;

procedure Tdfmtotal.DBGridEh1TitleClick(Column: TColumnEh);
begin
  chHeadUnit.ehTitClick(column); 
end;

end.