unit3.pas

用于开发税务票据管理的软件

unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    SpeedButton1: TSpeedButton;
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1, Unit2;

{$R *.DFM}

procedure TForm3.SpeedButton1Click(Sender: TObject);
var i,j:integer;
    f1:textfile;
begin
if edit1.Text='' then records1[scorepos,2]:='Unknown'
else records1[scorepos,2]:=edit1.text;

assignfile (f1,'records.dat');
rewrite (f1);
for i:=1 to 10 do begin
    for j:=1 to 3 do begin
        writeln(f1,records1[i,j]);
    end;
end;
closefile(f1);
form2.showmodal;
close;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
edit1.Left:=label1.Left+label1.width+5;
form3.ClientWidth:=edit1.left+edit1.width+5;
form3.clientHeight:=speedbutton1.Top+speedbutton1.Height+5;
speedbutton1.left:=0;
speedbutton1.Width:=form3.ClientWidth;

form3.Left:=(screen.width-form3.width) div 2;
form3.Top:=(screen.height-form3.height) div 2;

end;

procedure TForm3.FormShow(Sender: TObject);
begin
label2.Caption:='Your score is:  '+scores;
label3.Caption:='Your position is:  '+inttostr(scorepos);
end;

procedure TForm3.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then speedbutton1.Click;
end;

end.