data_unit.~pas

一个很不错的仓库管理系统,能容进各种软件中去,

unit data_unit;

interface

uses
  SysUtils, Classes, DB, ADODB;

type
  Tdata = class(TDataModule)
    ADOConnection1: TADOConnection;
    proc: TADOStoredProc;
    DataSource1: TDataSource;
    goods_name: TADOTable;
    DataSource4: TDataSource;
    DataSource2: TDataSource;
    old_quantity: TADOTable;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  data: Tdata;

implementation

{$R *.dfm}

end.