dfm_smonth.pas

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

unit dfm_smonth;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, StdCtrls, Buttons, ExtCtrls, Grids, DBGrids, Db, DBTables, Mask,
  DBCtrls, ADODB, TeEngine, Series, TeeProcs, Chart, DbChart, MXTABLES,
  Mxstore, MXDB, MXGRAPH;

type
  Tdfmsmonth = class(TForm)
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    quitbtn: TBitBtn;
    ADOQuery1: TADOQuery;
    DataSource1: TDataSource;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    DBChart2: TDBChart;
    Series2: TBarSeries;
    ADOQuery1edate: TWideStringField;
    ADOQuery1esl: TFloatField;
    ADOQuery1esjje: TFloatField;
    atblbranch: TADOTable;
    atblslpara: TADOTable;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label3: TLabel;
    Label5: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Edit1: TEdit;
    Edit3: TEdit;
    ComboBox1: TComboBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure quitbtnClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
      DataCol: Integer; Column: TColumn; State: TGridDrawState);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure DBGrid1Exit(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dfmsmonth: Tdfmsmonth;

implementation

uses dbmRainbowMis, chHeadUnit;

{$R *.DFM}

procedure Tdfmsmonth.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  atblslpara.close;
  atblbranch.close;
  action:=cafree;
end;

procedure Tdfmsmonth.quitbtnClick(Sender: TObject);
var
  fstr:String;
begin
  fstr:='SELECT trim(str(year(t_saledet.rq)))+''-''+IIf(Len(trim(Str(Month(t_saledet.rq))))<2,''0''+trim(Str(Month(t_saledet.rq))),trim(Str(Month(t_saledet.rq)))) AS edate,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 like ''%s'' AND (t_saledet.clabel) like ''%s'' AND t_ware.flh like ''%s'' and ([t_saledet.rq])>=#%s# and ([t_saledet.rq])<=#%s#'
       +' group by trim(str(year(t_saledet.rq)))+''-''+IIf(Len(trim(Str(Month(t_saledet.rq))))<2,''0''+trim(Str(Month(t_saledet.rq))),trim(Str(Month(t_saledet.rq))))';
  with ADOQuery1 do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[trim(ComboBox1.text)+'%',trim(edit3.text)+'%',trim(edit1.text)+'%',datetostr(DateTimePicker1.Date),datetostr(DateTimePicker2.Date)]));
    Prepared;
    open;
  end;
end;

procedure Tdfmsmonth.FormCreate(Sender: TObject);
begin
  DateTimePicker1.Date:=date();
  DateTimePicker2.Date:=date();
  atblslpara.Open;
  atblbranch.Open;
  chHeadUnit.combolist(combobox1,atblbranch,'bmh','cid',1);
  ComboBox1.Text :=atblslpara['bmh'];  
end;

procedure Tdfmsmonth.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
var 
  ARect: Trect; 
  temp: integer; 
begin 
  inherited; 
  ARect := Rect; 
  temp := (sender as Tdbgrid).datasource.dataset.recno; 
  with (sender as Tdbgrid) do 
    if (DataCol = 0) then 
      DrawText(Canvas.Handle, PChar(inttostr(temp)), Length(inttostr(temp)), ARect, DT_SINGLELINE or DT_VCENTER or DT_NOPREFIX)
end;

procedure Tdfmsmonth.DBGrid1TitleClick(Column: TColumn);
begin
  chHeadUnit.TitClick(dbgrid1,column);
end;

procedure Tdfmsmonth.DBGrid1Exit(Sender: TObject);
begin
  i:=1;
end;

end.