unit2.pas

来自「利用Modem的远程通信功能」· PAS 代码 · 共 61 行

unit Unit2;

interface

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

type
  Trealgrid = class(TForm)
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    Table1: TTable;
    DataSource1: TDataSource;
    Label1: TLabel;
    StatusBar1: TStatusBar;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  realgrid: Trealgrid;

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

procedure Trealgrid.BitBtn1Click(Sender: TObject);
begin
  dbgrid1.Enabled:=false;
end;

procedure Trealgrid.BitBtn2Click(Sender: TObject);
begin
  Dbgrid1.Enabled:=true;
end;

procedure Trealgrid.BitBtn3Click(Sender: TObject);
begin
 main.N18Click(sender);
end;

procedure Trealgrid.BitBtn4Click(Sender: TObject);
begin
  main.N19Click(sender);
end;

end.