ufkxxplgz.pas

来自「行业应急系统 包括: 应急系统（待遇核发） 发放系统 开」· PAS 代码 · 共 108 行

unit uFKXXPLGZ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, ComCtrls, ExtCtrls, Db, DBTables;

type
  TfrmFKXXPLGZ = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    pagMain: TPageControl;
    tabSuccess: TTabSheet;
    tabFail: TTabSheet;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    btnDisplay: TButton;
    btnModify: TButton;
    btnClose: TButton;
    DataSource1: TDataSource;
    Query1: TQuery;
    DataSource2: TDataSource;
    Query2: TQuery;
    stpGZ: TStoredProc;
    Query1RYID_FF: TStringField;
    Query1FFYF: TDateTimeField;
    Query1FFBZ: TFloatField;
    Query1XM: TStringField;
    Query1SFZH: TStringField;
    Query1ZH: TStringField;
    Query1KHH: TStringField;
    Query1HRDD: TStringField;
    Query1YZBM: TStringField;
    Query1DZ: TStringField;
    Query1FFJE: TFloatField;
    Query1DQDM: TStringField;
    Query1DQMC: TStringField;
    Query1DWDM: TStringField;
    Query1CWBZ: TFloatField;
    Query1BZ: TStringField;
    Query2RYID_FF: TStringField;
    Query2FFYF: TDateTimeField;
    Query2FFBZ: TFloatField;
    Query2XM: TStringField;
    Query2SFZH: TStringField;
    Query2ZH: TStringField;
    Query2KHH: TStringField;
    Query2HRDD: TStringField;
    Query2YZBM: TStringField;
    Query2DZ: TStringField;
    Query2FFJE: TFloatField;
    Query2DQDM: TStringField;
    Query2DQMC: TStringField;
    Query2DWDM: TStringField;
    Query2CWBZ: TFloatField;
    Query2BZ: TStringField;
    procedure btnModifyClick(Sender: TObject);
    procedure btnDisplayClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmFKXXPLGZ: TfrmFKXXPLGZ;

implementation

uses uCommon, dMain;

{$R *.DFM}

procedure TfrmFKXXPLGZ.btnModifyClick(Sender: TObject);
begin
  if gfShowQuestion('是否开始批量更正') = ID_OK then
  begin
    dfmMain.dbsMain.StartTransaction;
    try
      stpGZ.ExecProc;
      if stpGZ.ParamByName('p_ErrorCode').AsInteger = 0 then
      begin
        dfmMain.dbsMain.Commit;
        gfShowOk('更正成功');
      end
      else
      begin
        dfmMain.dbsMain.Rollback;
        gfShowError('更正失败');
      end;
    except
      dfmMain.dbsMain.Rollback;
    end;
  end;
end;

procedure TfrmFKXXPLGZ.btnDisplayClick(Sender: TObject);
begin
  Query1.Close;
  Query1.Open;
  Query2.Close;
  Query2.Open;
end;

end.