txl.pas

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

unit txl;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button4: TButton;
    Button3: TButton;
    Label1: TLabel;
    EditNo: TEdit;
    Label2: TLabel;
    EditName: TEdit;
    Label3: TLabel;
    Editage: TEdit;
    Label4: TLabel;
    EditSex: TEdit;
    Label5: TLabel;
    EditAddress: TEdit;
    Label6: TLabel;
    EditPhone: TEdit;
    Label7: TLabel;
    EditCode_Bm: TEdit;
    ChkMarriage: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
   Procedure   ClsValue() ;
   Procedure  OkOrCancel();
   Procedure  AddOrReadpro();
var
  Form1: TForm1;

implementation

type
   TXL= record
      No:String[10];
      Name: string[10];
      Age:integer;
      Sex:char;
      Address:string[30];
      Phone:String[10];
      Code_Bm:string[10];
      Marriage:Boolean;
  end;
  TXLLIST = file of TXL;
 var
   Vtxl:TXLLIST;
   AddOrRead:Boolean;

{$R *.dfm}

Procedure   ClsValue() ;
  begin
    Form1.EditNo.text:='';
    Form1.EditName.text:='';
    Form1.EditAge.text:='';
    Form1.EditSex.text:='';
    Form1.EditAddress.text:='';
    Form1.EditPhone.text:='';
    Form1.EditCode_Bm.text:='';
    Form1.ChkMarriage.Checked :=False;
  end;
Procedure  OkOrCancel();
  begin
     Form1.Button1.Enabled :=True;
     Form1.Button2.Enabled :=True;
     Form1.Button3.Enabled:=False;
     Form1.Button4.Enabled :=False;
  end;
 Procedure  AddOrReadpro();
  begin
     Form1.Button1.Enabled :=False;
     Form1.Button2.Enabled :=False;
     Form1.Button3.Enabled:=True;
     Form1.Button4.Enabled :=True;
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  clsValue;
  OkOrCancel;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddOrRead:=True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  AddOrRead:=False;
end;

end.