ucostreport.pas

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

unit uCostReport;

interface

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

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

var
  fmCostReport: TfmCostReport;

implementation

uses udmcost, SherryLib;

{$R *.dfm}

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

procedure TfmCostReport.AConfirmExecute(Sender: TObject);
begin
  try
    ShowWait;
    DMCost.CCostReport.Active := False;
    DMCost.CCostReport.Params.ParamValues['@Flag'] := CmbProject.ItemIndex + 1;
    DMCost.CCostReport.Params.ParamValues['@Date'] := DTPMonth.Date;
    DMCost.CCostReport.Active := True;
    ShowGrid(DBGrid1,'',2,True,True,True,False);
  finally
    hideWait;
  end;
end;

end.