sj_fhddydlg.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{             发货通知单打印--选择打印方式              }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{               编制：中软金马项目开发组                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在省级集邮票管理、省级市场购入票管理、省级集邮品管理、省级零枚票管理、
地市集邮票管理、地市集邮品管理、地市市场购入票管理  七个模块调用
*)
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.