sj_dialogafterprint.pas

省级集邮品管理ERP

{*******************************************************}
{                                                       }
{               总帐、明细帐查询打印设置                }
{                                                       }
{            中软金马公司版权所有。2002.12前            }
{                                                       }
{               编制：中软金马项目开发组                }
{                                                       }
{                                                       }
{*******************************************************}
(*
本模块在省级集邮票管理、省级市场购入票管理、省级集邮品管理、省级零枚票管理、省级综合查询、
地市集邮票管理、地市集邮品管理、地市市场购入票管理 八个模块调用
*)
unit SJ_DialogAfterPrint;

interface

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

type
  TFrm_DialogAfterPrint = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    CheckBox1: TCheckBox;
    SpinEdit1: TSpinEdit;
    SpinEdit2: TSpinEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure RadioButton2Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    Close_Flag:Boolean;//关闭窗体的标志
  end;

var
  Frm_DialogAfterPrint: TFrm_DialogAfterPrint;

implementation

uses SY_JYPPZZCX;

{$R *.DFM}

procedure TFrm_DialogAfterPrint.RadioButton2Click(Sender: TObject);
begin
  if RadioButton2.Checked  then
  begin
    Label1.Enabled :=True;
    Label2.Enabled :=True;
    SpinEdit1.Enabled:=True;
    SpinEdit2.Enabled :=True;
  end;
  if not RadioButton2.Checked  then
  begin
    Label1.Enabled :=False;
    Label2.Enabled :=False;
    SpinEdit1.Enabled:=False;
    SpinEdit2.Enabled :=False;
    GroupBox1.Refresh;
  end;
end;

procedure TFrm_DialogAfterPrint.Button2Click(Sender: TObject);
begin
  Close_Flag:=False;
  Close;
end;

procedure TFrm_DialogAfterPrint.Button1Click(Sender: TObject);
begin
  Close_Flag:=True;
  Close;
end;

procedure TFrm_DialogAfterPrint.RadioButton1Click(Sender: TObject);
begin
  RadioButton2click(nil);
end;

end.