typefilefrm.~pas

关于利用DELPHI来进行企业级方案解决的著作的附书源码

unit TypeFileFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, ComCtrls, Spin, Buttons;

type
  TForm1 = class(TForm)
    NewButton: TButton;
    SaveButton: TButton;
    NameEdit: TLabeledEdit;
    MaleBtn: TRadioButton;
    FemaleBtn: TRadioButton;
    GenderLabel: TLabel;
    BirthdayEdit: TDateTimePicker;
    Label3: TLabel;
    PhoneEdit: TLabeledEdit;
    AddressEdit: TLabeledEdit;
    ChooseNumber: TUpDown;
    NumberEdit: TLabeledEdit;
    procedure NewButtonClick(Sender: TObject);
    procedure SaveButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ChooseNumberChanging(Sender: TObject;
      var AllowChange: Boolean);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TFriendRec = packed record
  No : Byte;
  Name : String[10];
  Gender : BOOL;
  Birthday : TDateTime;
  Phone : String[15];
  Address : String[50];
end;

var
  Form1: TForm1;
  FriendRec : TFriendRec ;
  FriendFile : File of TFriendRec ;

implementation
            
{$R *.dfm}

procedure TForm1.NewButtonClick(Sender: TObject);
begin
 Seek(FriendFile,FileSize(FriendFile));
 ChooseNumber.Max:=ChooseNumber.Max+1;
 ChooseNumber.Position:=FileSize(FriendFile);
 NumberEdit.Text:=IntToStr(FileSize(FriendFile));
 ChooseNumber.Enabled:=False;
 NumberEdit.Enabled:=False;
 NameEdit.Text:='';
 PhoneEdit.Text:='';
 AddressEdit.Text:='';
end;

procedure TForm1.SaveButtonClick(Sender: TObject);
begin
 with FriendRec do
  begin
   No:= ChooseNumber.Position;
   Name:= NameEdit.Text;
   Gender:= MaleBtn.Checked;
   Birthday:= BirthdayEdit.DateTime;
   Phone:= PhoneEdit.Text;
   Address:= AddressEdit.Text;
  end;
  write(FriendFile,FriendRec);
  ChooseNumber.Enabled:=True;
  NumberEdit.Enabled:=True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 AssignFile(FriendFile,ExtractFilePath(Application.ExeName)+ 'ylg.dat');
 Reset(FriendFile);
 ChooseNumber.Max:= Filesize(FriendFile)-1;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 CloseFile(FriendFile);
end;

procedure TForm1.ChooseNumberChanging(Sender: TObject;
  var AllowChange: Boolean);
begin
 //Reset(FriendFile);
 NumberEdit.Text:=IntToStr(ChooseNumber.Position);
 Seek(FriendFile,ChooseNumber.Position);
 Read(FriendFile,FriendRec);
 NameEdit.Text:= FriendRec.Name;
 PhoneEdit.Text:= FriendRec.Phone;
 AddressEdit.Text:= FriendRec.Address;
 BirthDayEdit.DateTime:= FriendRec.Birthday;
 if FriendRec.Gender then
   MaleBtn.Checked:=True
  else
   FemaleBtn.Checked:=True;
end;

end.