new.pas

来自「伤残金发放管理系统软件源码,个人作品,现在工作中用到它.」· PAS 代码 · 共 61 行

unit new;

interface

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

type
  TnewForm = class(TForm)
    Label1: TLabel;
    XMEdit: TEdit;
    Label2: TLabel;
    SFZEdit: TEdit;
    Label3: TLabel;
    SCZEdit: TEdit;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DJEdit: TComboBox;
    XZEdit: TComboBox;
    DHEdit: TEdit;
    DZEdit: TEdit;
    QueDinButton: TButton;
    QuXiaoButton: TButton;
    JHCheckBox: TCheckBox;
    procedure QueDinButtonClick(Sender: TObject);
    procedure QuXiaoButtonClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    QueDin:Boolean;
  end;

var
  newForm: TnewForm;

implementation

{$R *.dfm}

procedure TnewForm.QueDinButtonClick(Sender: TObject);
begin
  QueDin:=true;
  newForm.Close;
end;

procedure TnewForm.QuXiaoButtonClick(Sender: TObject);
begin
  newForm.Close;
end;

procedure TnewForm.FormShow(Sender: TObject);
begin
  QueDin:=false;
end;

end.