uzzzgzc_dy.pas

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

unit uZZZGZC_DY;

interface

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

type
  TfrmZZZGZC_DY = class(TfrmPrintTemp)
    chk1: TCheckBox;
    chk2: TCheckBox;
    procedure chk1Click(Sender: TObject);
    procedure chk2Click(Sender: TObject);
    procedure btnPreviewClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmZZZGZC_DY: TfrmZZZGZC_DY;

implementation

uses uZYCXD, uZYCXD_1, dMain, uZYQD_1, uCommon, uZZZGZC;

{$R *.DFM}

procedure TfrmZZZGZC_DY.chk1Click(Sender: TObject);
begin
  inherited;
  chk2.Checked := not Chk1.Checked;
end;

procedure TfrmZZZGZC_DY.chk2Click(Sender: TObject);
begin
  inherited;
  chk1.Checked := not Chk2.Checked;
end;

procedure TfrmZZZGZC_DY.btnPreviewClick(Sender: TObject);
var
  sRYIDTemp: string;
begin
  inherited;

  //CheckBox1 打印转移查询单
  if Chk1.Checked then
  begin
    if Trim(frmZZZGZC.edtSFZH.Text) = '' then
    begin
      gfShowError('请先查找记录');
      Abort;
    end;

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

  //CheckBox2 打印转移清单
  if Chk2.Checked then
  begin
    if frmZZZGZC.edtSFZH.Text = '' then
    begin
      gfShowError('请先查找记录');
      Abort;
    end;

  //判断社会保障号的合法性
    with TQuery.Create(Self) do
    begin
      DataBaseName := dfmMain.dbsMain.DataBaseName;
      SQL.Add('SELECT RYID FROM tRYJBXX WHERE SFZH=:SFZH');
      ParamByName('SFZH').AsString := frmZZZGZC.qryDetailSFZH.AsString;

      Open;
      if RecordCount <> 0 then
        sRYIDTemp := FieldByName('RYID').AsString
      else
      begin
        gfShowError('错误的社会保障号');
        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;


end.