jbpd.pas

窗口中的多个文本框的值 使用循环方式取得

unit JBPD;

interface

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

type
  Tjbpdform = class(TForm)
    MainMenu1: TMainMenu;
    menu01: TMenuItem;
    jbmn: TMenuItem;
    pdmn: TMenuItem;
    menu02: TMenuItem;
    gymn: TMenuItem;
    tcmn: TMenuItem;
    procedure jbmnClick(Sender: TObject);
    procedure pdmnClick(Sender: TObject);
    procedure gymnClick(Sender: TObject);
    procedure tcmnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jbpdform: Tjbpdform;

implementation
uses
  jb,pd,gy;
{$R *.dfm}

procedure Tjbpdform.jbmnClick(Sender: TObject);
begin
  jbform:=Tjbform.Create(Application);   //创建窗体
  jbform.showmodal;
end;

procedure Tjbpdform.pdmnClick(Sender: TObject);
begin
  pdform:=Tpdform.Create(Application);   //创建窗体
  pdform.showmodal;
end;

procedure Tjbpdform.gymnClick(Sender: TObject);
begin
  gyform:=Tgyform.Create(Application);   //创建窗体
  gyform.showmodal;
end;

procedure Tjbpdform.tcmnClick(Sender: TObject);
begin
  if MessageBox(0,'您真的要退出系统吗？','请您看清后认真选择',MB_YESNO)=idYes then
  begin
    Application.Terminate;  // 结束应用程式
  end;
end;

end.