inout_table.~pas

来自「这是用delphi开发的一个物资管理信息系统」· ~PAS 代码 · 共 44 行

unit inout_table;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TeEngine, Series, ExtCtrls, TeeProcs, Chart, DbChart, Grids,
  DBGrids, DB, DBTables, StdCtrls, Buttons;

type
  Tinout_tablefrm = class(TForm)
    DataSource1: TDataSource;
    Table1: TTable;
    DBGrid2: TDBGrid;
    DBChart1: TDBChart;
    BitBtn1: TBitBtn;
    Series1: TBarSeries;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  inout_tablefrm: Tinout_tablefrm;

implementation

{$R *.dfm}

procedure Tinout_tablefrm.FormShow(Sender: TObject);
begin
table1.Active :=true;
end;

procedure Tinout_tablefrm.BitBtn1Click(Sender: TObject);
begin
 inout_tablefrm.close;
end;

end.