ustatorder.pas

来自「成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 20」· PAS 代码 · 共 88 行

unit uStatOrder;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, upub3, dxExEdtr, Menus, ActnList, DB, ComCtrls, ToolWin,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, ExtCtrls, dxEditor, dxEdLib,
  StdCtrls, wwdbdatetimepicker;

type
  TfmStatOrder = class(Tfmpub3)
    procedure AConfirmExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure APreviewExecute(Sender: TObject);
    procedure AExcelExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmStatOrder: TfmStatOrder;

implementation

uses udmoe, SherryLib, udata, uReport;

{$R *.dfm}

procedure TfmStatOrder.AConfirmExecute(Sender: TObject);
begin
  try
    ShowWait;
    DMOE.CStatOrder.Active := False;
    DMOE.CStatOrder.Params.ParamValues['@Flag'] := CmbProject.ItemIndex;
    if DateFrm.Date=0 then
      DMOE.CStatOrder.Params.ParamValues['@StartDate'] :=null
    else
      DMOE.CStatOrder.Params.ParamValues['@StartDate'] := DateFrm.Datetime;
    if DateTo.Date=0 then
      DMOE.CStatOrder.Params.ParamValues['@EndDate'] := null
    else
      DMOE.CStatOrder.Params.ParamValues['@EndDate'] := DateTo.Datetime;
    DMOE.CStatOrder.Params.ParamValues['@Str'] := dxBtnSelect.Text;
    DMOE.CStatOrder.Active := True;
    ShowGrid(DBGrid1,'汇率');
  finally
    hideWait;
  end;
end;

procedure TfmStatOrder.FormCreate(Sender: TObject);
var i: integer;
begin
  inherited;
  i := 0;
  with Temp_Data('StatOrder') do
  try
    Active := True;
    CmbProject.Items.Clear;
    while not eof do
    begin
      CmbProject.Items.Add(Fields.Fields[1].AsString);
      i := i + 1;
      next;
    end;
  finally
    free;
  end;
  CmbProject.ItemIndex := 0;
end;

procedure TfmStatOrder.APreviewExecute(Sender: TObject);
begin
  if not (TAction(Sender).Enabled and TAction(Sender).Visible) then abort;
  if (DataSource1 = nil) or (DataSource1.DataSet = nil) or (not DataSource1.DataSet.Active) then Warn('数据源未激活,请先完成查询或统计!');
  Preview(self.Name+IntToStr(CmbProject.ItemIndex),False,DataSource1.DataSet);
end;

procedure TfmStatOrder.AExcelExecute(Sender: TObject);
begin
  ToChart(DataSource1.DataSet,CmbProject.Text, $0000003A);
end;

end.