uyj.pas

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

unit uYJ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Spin, Buttons, ExtCtrls, Db, DBTables;

type
  TfrmYJ = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    edtYear: TSpinEdit;
    edtMonth: TSpinEdit;
    stpMain: TStoredProc;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmYJ: TfrmYJ;

implementation

uses dMain, uCommon;

{$R *.DFM}

procedure TfrmYJ.BitBtn1Click(Sender: TObject);
begin
  if gfShowQuestion(PChar('是否统计' + edtYear.Text + '年'
    + edtMonth.Text + '月的发放数据')) = ID_OK then
  begin
    dfmMain.dbsMain.StartTransaction;
    try
      stpMain.ParamByName('p_Date').AsDateTime := StrToDate(edtYear.Text + '-' +
        edtMonth.Text + '-01');
      stpMain.ExecProc;
      if stpMain.ParamByName('p_ErrorCode').AsInteger <> 0 then
      begin
        dfmMain.dbsMain.Rollback;
        gfShowError('月结失败');
      end
      else
      begin
        dfmMain.dbsMain.Commit;
        gfShowOK('月结成功');
      end;
    except
      dfmMain.dbsMain.Rollback;
      gfShowError('月结失败');
    end;
  end;
end;

procedure TfrmYJ.FormShow(Sender: TObject);
var
  year, month, day: Word;
begin
  DecodeDate(Now, Year, Month, Day);
  edtYear.Value := Year;
  edtMonth.Value := Month;
end;

end.