{*******************************************************}
{                                                       }
{             發(fā)貨通知單打印--選擇打印方式              }
{                                                       }
{            中軟金馬公司版權所有。2002.12前            }
{                                                       }
{               編制：中軟金馬項目開發(fā)組                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模塊在省級集郵票管理、省級市場購入票管理、省級集郵品管理、省級零枚票管理、
地市集郵票管理、地市集郵品管理、地市市場購入票管理  七個模塊調(diào)用
*)
unit SJ_FHDDYDLG;

interface

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

type
  TfrmSY_FHDDYDLG = class(TForm)
    RG_zzdx: TRadioGroup;
    RG_dyfs: TRadioGroup;
    Button1: TButton;
    Button2: TButton;
    CB_td: TCheckBox;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
procedure SelFHDDYGS(var ALXDY, AXZ, ATD: boolean);

var
  frmSY_FHDDYDLG: TfrmSY_FHDDYDLG;

implementation
uses SY_FHDSC;
{$R *.DFM}

procedure SelFHDDYGS(var ALXDY, AXZ, ATD: boolean);
begin
  frmSY_FHDDYDLG := TfrmSY_FHDDYDLG.Create(nil);
  with frmSY_FHDDYDLG do
  try
    ShowModal;
    with frmSY_FHD do
    begin
      ALXDY := RG_dyfs.ItemIndex = 1;
      AXZ := RG_zzdx.ItemIndex = 0;
      ATD := CB_td.Checked;
    end;
  finally
    free;
  end;

end;

procedure TfrmSY_FHDDYDLG.Button1Click(Sender: TObject);
begin
  frmSY_FHD.queding := true;
end;

end.