unit15.pas

利用Modem的远程通信功能

unit Unit15;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls, Buttons, ComCtrls;

type
  Texceedgrid = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Label1: TLabel;
    BitBtn1: TBitBtn;
    StatusBar1: TStatusBar;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  exceedgrid: Texceedgrid;

implementation
uses
unit9, Unit16;
{$R *.DFM}

procedure Texceedgrid.BitBtn1Click(Sender: TObject);
begin
  exceedrpt.QuickRep1.preview;  
end;

end.