uzyqd.pas

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

unit uZYQD;

interface

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

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

var
  frmZYQD: TfrmZYQD;

implementation

uses uZYQD_1, uCommon, dMain;

{$R *.DFM}

procedure TfrmZYQD.btnPreviewClick(Sender: TObject);
var
  sRYIDTemp: string;
begin
  inherited;
  if edtSFZH.Text = '' then
  begin
    gfShowError('请输入社会保障号');
    edtSFZH.SetFocus;
    Abort;
  end;

  //判断社会保障号的合法性
  with TQuery.Create(Self) do
  begin
    DataBaseName := dfmMain.dbsMain.DataBaseName;
    SQL.Add('SELECT RYID FROM tRYJBXX WHERE SFZH=:SFZH');
    ParamByName('SFZH').AsString := edtSFZH.Text;
    Open;
    if RecordCount <> 0 then
      sRYIDTemp := FieldByName('RYID').AsString
    else
    begin
      gfShowError('错误的社会保障号');
      edtSFZH.SetFocus;
      Abort;
    end;
    Free;
  end;

  //打印预览
  if Assigned(frmZYQD_1) then
    frmZYQD_1 := nil;

  frmZYQD_1 := TfrmZYQD_1.Create(Self);
  frmZYQD_1.SetRYID(sRYIDTemp);
  frmZYQD_1.QuickRep1.Preview;
  frmZYQD_1.Free;
end;

end.