compnyinfo_unit.pas

货源代理管理系统 同样是DELPHI7下的

unit CompnyInfo_Unit;

interface

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

type
  TCompnyInfo = Packed Record
     CompnyName: string[100];
     Person: string[8];
     Conect: string[50];
     Address: string[100];
  end;
  TfrmCompanyInfo = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    edtCompnyName: TEdit;
    edtConectPerson: TEdit;
    edtConect: TEdit;
    edtAddress: TEdit;
    btnOk: TBitBtn;
    btnEsc: TBitBtn;
    procedure btnOkClick(Sender: TObject);
    procedure btnEscClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  
var
  frmCompanyInfo: TfrmCompanyInfo;

implementation

{$R *.dfm}

procedure TfrmCompanyInfo.btnOkClick(Sender: TObject);
var
  CompnRec: TCompnyInfo;
  DataFile: File of TCompnyInfo;
begin
  AssignFile(DataFile,'CompnyInfo.dat');
  if FileExists('CompnyInfo.dat') then
    Reset(DataFile)
  else
    ReWrite(DataFile);
  CompnRec.CompnyName := edtCompnyName.Text;
  CompnRec.Person := edtConectPerson.Text;
  CompnRec.Conect := edtConect.Text;
  CompnRec.Address := edtAddress.Text;
  try
    Truncate(DataFile);          //清空原始记录
    Write(DataFile,CompnRec);
  finally
    CloseFile(DataFile);
  end;
  Application.MessageBox('信息记录成功!','提示',64); 
end;

procedure TfrmCompanyInfo.btnEscClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmCompanyInfo.FormShow(Sender: TObject);
var
  CompnRec: TCompnyInfo;
  DataFile: File of TCompnyInfo;
  i: integer;
begin
  AssignFile(DataFile,'CompnyInfo.dat');
  Reset(DataFile);
  try
    if not Eof(DataFile) then
    begin
      Read(DataFile,CompnRec);
      edtCompnyName.Text := CompnRec.CompnyName;
      edtConectPerson.Text := CompnRec.Person;
      edtConect.Text := CompnRec.Conect;
      edtAddress.Text := CompnRec.Address;
    end;
  finally
    CloseFile(DataFile);
  end;
end;

end.