uzycxd.pas

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

unit uZYCXD;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  uPrintTemp, StdCtrls;

type
  TfrmZYCXD = class(TfrmPrintTemp)
    Label1: TLabel;
    edtSFZH: TEdit;
    procedure btnPreviewClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmZYCXD: TfrmZYCXD;

implementation

uses uZYCXD_1, uCommon;

{$R *.DFM}

procedure TfrmZYCXD.btnPreviewClick(Sender: TObject);
begin
//  inherited;

  if Trim(edtSFZH.Text) = '' then
    gfShowError('请输入社会保障号');

  frmZYCXD_1 := TfrmZYCXD_1.Create(Self);
  try
    frmZYCXD_1.qrySJJFNX.ParamByName('SFZH').AsString := Trim(edtSFZH.Text);
    frmZYCXD_1.qrySJJFNX.Open;
    frmZYCXD_1.qryZhunYI.ParamByName('SFZH').AsString := Trim(edtSFZH.Text);
    frmZYCXD_1.qryZhunYI.Open;
    if frmZYCXD_1.qryZhunYI.RecordCount <> 0 then
      frmZYCXD_1.QuickRep1.Preview
    else
      gfShowError('没有找到指定用户的转移记录');
  finally
    frmZYCXD_1.Free;
  end;


end;

end.