unit1.~pas

本光盘是《Delphi 7应用教程》一书的配套光盘

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
Type
  ygxx=Record              //定义记录类型
    xm:String[8];
    zc:String[6];
    jbgz:Integer;
end;
Var
  yg:Array [1..5]of ygxx; //定义基类型为记录类型的数组变量

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  k:Integer;
begin
  for k:=1 to 5 do     //输入员工基本信息
    begin
      yg[k].xm:=InputBox('员工信息','请输入第'+IntToStr(k)+'个员工的姓名   　　','');
      yg[k].zc:=InputBox('员工信息','请输入第'+IntToStr(k)+'个员工的职称　　　　','');
      yg[k].jbgz:=StrToInt(InputBox('员工信息','请输入第'+IntToStr(k)+
                           '个员工的基本工资　　　','0'));
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);     //显示员工信息
var
  m:Integer;
begin
  Canvas.TextOut(45,25,'姓     名'+'   '+'职  称'+'  '+'基本工资');//在指定位置显示
  for m:=1 to 5 do
    Canvas.TextOut(45,25*(m+1),yg[m].xm+'   '+yg[m].zc+
                   '     '+IntToStr(yg[m].jbgz));
end;

end.