copyfileunit.pas

来自「一个功能完美的学生成绩管理系统 使用ACCESS数据库在DATA文件夹中 」· PAS 代码 · 共 23 行

unit copyfileUnit;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls,
  StdCtrls, ExtCtrls, Forms, ComCtrls;

type
  TcopyfileForm = class(TForm)
    Animate1: TAnimate;
    Label1: TLabel;
  end;

var
  copyfileForm: TcopyfileForm;

implementation

{$R *.DFM}

end.