dfm_time.pas

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

unit dfm_time;

interface

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

type
  Tdfmtime = class(TForm)
    StatusBar1: TStatusBar;
    Panel1: TPanel;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    Label2: TLabel;
    DateTimePicker2: TDateTimePicker;
    Label3: TLabel;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    Label4: TLabel;
    UpDown1: TUpDown;
    UpDown2: TUpDown;
    DBGridEh1: TDBGridEh;
    BitBtn1: TBitBtn;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    Label5: TLabel;
    ComboBox1: TComboBox;
    ADOTable1: TADOTable;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmtime: Tdfmtime;

implementation

uses dbmRainbowMis, chHeadUnit;

{$R *.dfm}

procedure Tdfmtime.BitBtn1Click(Sender: TObject);
var
  fstr:string;
begin
  fstr:='SELECT t_time.ctime, Sum([t_saledet].[sl]) AS sl, Sum([t_saledet].[sjje]) AS sjje'
       +' FROM t_time LEFT JOIN t_saledet ON (hour(t_saledet.sj)=trim(t_time.ctime) and t_saledet.bmh like ''%s'' and  t_saledet.rq>=#%s# and t_saledet.rq<=#%s#  and t_time.ctime>=%d and t_time.ctime<=%d)'
       +' GROUP BY t_time.ctime'
       +' ORDER BY t_time.ctime';
  with ADOQuery1 do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[chHeadUnit.getbmh(combobox1.Text)+'%', datetostr(DateTimePicker1.Date),datetostr(DateTimePicker2.Date),
    strtoint(trim(MaskEdit1.Text)),strtoint(trim(MaskEdit2.Text))]));
    Prepared;
    open;
  end;
end;

procedure Tdfmtime.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  adotable1.close;
  action:=cafree;
end;

procedure Tdfmtime.FormCreate(Sender: TObject);
begin
  adotable1.Open;
  ComboBox1.Text := dmRainbowMIS.atbldefault['cbmh']; 
  chHeadUnit.combolist(combobox1,adotable1,'bmh','bmmc',2);
  DateTimePicker1.Date:=date();
  DateTimePicker2.Date:=date();
end;

procedure Tdfmtime.FormKeyPress(Sender: TObject; var Key: Char);
begin
  chHeadUnit.tabventer(dfmtime,key); 
end;

end.