dfm_money.pas

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

unit dfm_money;

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
  Tdfmmoney = class(TForm)
    StatusBar1: TStatusBar;
    Panel2: TPanel;
    quitbtn: TBitBtn;
    ADOQuery1: TADOQuery;
    Label1: TLabel;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    Label2: TLabel;
    DataSource1: TDataSource;
    Label4: TLabel;
    Panel3: TPanel;
    DBGrid1: TDBGrid;
    DBChart2: TDBChart;
    Series2: TBarSeries;
    ADOQuery1bmh: TWideStringField;
    ADOQuery1efname: TWideStringField;
    ADOQuery1esl: TFloatField;
    ADOQuery1esjje: TFloatField;
    ADOQuery1skyh: TWideStringField;
    atblbranch: TADOTable;
    atblslpara: TADOTable;
    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
  dfmmoney: Tdfmmoney;

implementation

uses dbmRainbowMis, chHeadUnit;

{$R *.DFM}

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

procedure Tdfmmoney.quitbtnClick(Sender: TObject);
var
  fstr:String;
begin
  fstr:='SELECT t_saledet.bmh, t_saledet.skyh, man.fname as efname, sum(t_saledet.sl) as esl, sum(t_saledet.sjje) as esjje FROM t_saledet,man'
       +' WHERE t_saledet.skyh=man.freno and t_saledet.bmh like ''%s'' AND ([t_saledet.rq])>=#%s# and ([t_saledet.rq])<=#%s#'
       +' group by t_saledet.bmh, t_saledet.skyh, man.fname';
  with ADOQuery1 do
  begin
    close;
    sql.Clear ;
    sql.Add(Format(fstr,[trim(combobox1.text)+'%',datetostr(DateTimePicker1.Date),datetostr(DateTimePicker2.Date)]));
    Prepared;
    open;
  end;
end;

procedure Tdfmmoney.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 Tdfmmoney.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 Tdfmmoney.DBGrid1TitleClick(Column: TColumn);
begin
  chHeadUnit.TitClick(dbgrid1,column);
end;

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

end.