unit5.pas

来自「“汇华印刷v2.0”是在实践的基础上开发的一个全自动多功能信封打印系统」· PAS 代码 · 共 110 行

unit Unit5;

interface

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

type
  Toption = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Button2: TButton;
    Label2: TLabel;
    fzr1: TEdit;
    fzr2: TEdit;
    kgin: TEdit;
    Button3: TButton;
    kg: TComboBox;
    che: TCheckBox;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure cheClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  option: Toption;

implementation

uses Unit1, Unit2, data, Unit3, Unit4;

{$R *.dfm}

procedure Toption.FormClose(Sender: TObject; var Action: TCloseAction);
begin
sj.show;
end;

procedure Toption.Button1Click(Sender: TObject);
begin
if che.Checked=true
then
begin
sj.s.Caption:='收';
sj.Visible:=true;
end
else
begin
sj.s.Caption:='';
sj.s.Visible:=false;
end;
fzr2.Text:=fzr1.Text;
kgin.Text:=inttostr(kg.ItemIndex);
sj.Enabled:=true;
option.Close;
end;

procedure Toption.Button2Click(Sender: TObject);
begin
sj.Enabled:=true;
option.Close;
end;

procedure Toption.Button3Click(Sender: TObject);
begin
if che.Checked=true
then
begin
sj.s.Caption:='收';
sj.Visible:=true;
end
else
begin
sj.s.Caption:='';
sj.s.Visible:=false;
end;
fzr2.Text:=fzr1.Text;
kgin.Text:=inttostr(kg.ItemIndex);
end;

procedure Toption.cheClick(Sender: TObject);
begin
 if(che.Checked=true)
 then
 begin
 sj.s.Visible:=true;
  end
 else
 begin
 sj.s.Visible:=false;

 end;
end;

procedure Toption.FormCreate(Sender: TObject);
begin
sj.s.Caption:='';
che.Checked:=false;
end;

end.