dbfxz.pas

绝对精品 预算管理系统 本人花钱购买来的源代 人民大学出版社会出版的教程

unit dbfxz;

interface

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

type
  Tfrmdbfxz = class(TForm)
    Labfilename: TLabel;
    ListBoxdbf: TListBox;
    cmdquit: TButton;
    cmdenter: TButton;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     procedure writename(name:string);
  end;

var
  frmdbfxz: Tfrmdbfxz;

implementation

{$R *.dfm}
procedure Tfrmdbfxz.FormCreate(Sender: TObject);
var
 f: TextFile;
 S: string;
 filename:string;
begin
    filename:=extractfilepath(application.ExeName)+'bfwj.txt';
  {$I-}
    //文件变量和要读的文件相连
    AssignFile(f, filename);
    //打开文件bfwj.txt
    Reset(f);
    if IOResult<>0 then
      showmessage('文件不存在');
    s:='1';
  //判断是否到文件尾部
    while s<>'' do
      begin
      //读出当前行的数据
      Readln(f, S);
      //在列表框中显示读出的数据
      ListBoxdbf.additem(s,sender);
      end;
   //关闭bfwj.txt
    CloseFile(F);
  end;

procedure Tfrmdbfxz.writename(name:string);
var
 f: TextFile;
 filename:string;
begin
    filename:=extractfilepath(application.ExeName)+'bfwj.txt';
  {$I-}
    AssignFile(f, filename);
    append(f);
    writeln(f, name);
    CloseFile(F);
end;

end.