uuserate.pas

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

unit uuserate;
      
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
  TfmUseRate = class(Tfmpub3)
    DBGrid1Column1: TdxDBGridMaskColumn;
    DBGrid1s: TdxDBGridMaskColumn;
    DBGrid1Wp: TdxDBGridMaskColumn;
    DBGrid1B: TdxDBGridMaskColumn;
    DBGrid1Column5: TdxDBGridMaskColumn;
    DBGrid1v: TdxDBGridMaskColumn;
    DBGrid1a: TdxDBGridMaskColumn;
    DBGrid1av: TdxDBGridMaskColumn;
    DBGrid1O: TdxDBGridMaskColumn;
    DBGrid1Oiv: TdxDBGridMaskColumn;
    DBGrid1Column11: TdxDBGridMaskColumn;
    procedure AConfirmExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmUseRate: TfmUseRate;

implementation

uses uWIPDM, SherryLib;

{$R *.dfm}

procedure TfmUseRate.AConfirmExecute(Sender: TObject);
begin
  with DMWIP.CUseRate do
  try
    ShowWait;
    Active:=False;
    Params.ParamValues['@enddate']:=DTPMonth.Date;
    Active:=True;
    ShowGrid(DbGrid1, '年度月份', 3, False, True, False, False,1);
  finally
    hideWait;
  end;
end;

end.